2016年計算機二級vb考試試題
在2016年3月計算機考試之前，yjbys小編為大家推薦的是計算機二級VB考試題，希望對大家有所幫助!
1.基本操作(2小題，每題15分，共計30分)
Private Sub C2_Click()
C1.SetFocus
End Sub
(2)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)文本框，名稱(chēng)為T(mén)ext1，其寬度為1000;再畫(huà)一個(gè)滾動(dòng)條，名稱(chēng)為HS1。其刻度值的范圍是1000-2000。請編寫(xiě)滾動(dòng)條的Change事件過(guò)程，程序運行后，如果移動(dòng)滾動(dòng)框，則可按照滾動(dòng)條的刻度值改變文本框的寬度。運行時(shí)的窗體如圖所示。程序中不能使用任何變量，事件過(guò)程只能寫(xiě)一條語(yǔ)句。
Private Sub HS1_Change()
Text1.Width = HS1.Value
End Sub
2.簡(jiǎn)單應用(2小題，每題20分，計40分)
(1)在考生文件夾下有一個(gè)工程文件sjt21.vbp，窗體上有兩個(gè)列表框，名稱(chēng)分別為L(cháng)ist1、List2，在List2中己經(jīng)預設了內容，還有兩個(gè)命令按鈕，名稱(chēng)分別為C1、C2，標題分別為“添加”、“清除”。如圖所示。程序的功能是在運行時(shí)，如果選中右邊列標框中的一個(gè)列表項，單擊“添加”按鈕，則把該項移到左邊的列表框中;若選中左邊列標框中的一個(gè)列表項，單擊“清除”按鈕，則把該項移回右邊的列表框中。文件中已經(jīng)給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把程序中的?改為正確的內容。但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件按原文件名存盤(pán)。
Private Sub Form_Load()
List1.AddItem "性別"
List1.AddItem "班號"
List1.AddItem "簡(jiǎn)歷"
List2.AddItem "學(xué)號"
List2.AddItem "姓名"
List2.AddItem "年齡"
List2.AddItem "照片"
End Sub
Private Sub C1_Click()
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub
Private Sub C2_Click()
Dim k As Integer
k = 0
While (k < List2.ListCount)
If List2.Selected(k) = True Then
List1.AddItem List2.Text
List2.RemoveItem k
End If
k = k + 1
Wend
End Sub
(2)在考生文件夾下有一個(gè)工程文件sjt22.vbp，請在Form1窗體上建立一個(gè)名稱(chēng)為Op1的單選按鈕數組，含有三個(gè)單選按鈕，其標題分別為“10!”“11!”“12!”，Index屬性分別為0、1、2;再畫(huà)一個(gè)名稱(chēng)為C1的命令按鈕，標題為“計算”;畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，如圖所示。程序的功能是在選定一個(gè)單選按鈕并單擊“計算”按鈕后，可以計算出相應的階乘值，在Text1中顯示該階乘值。請畫(huà)出上述控件并編寫(xiě)程序。
Private Sub C1_Click()
Dim n As Integer, k As Integer
Dim fact As Long
For k = 0 To 2
If Form1.Op1(k).Value Then
n = Val(Left$(Form1.Op1(k).Caption, 2))
End If
Next k
fact = 1
k = 1
Do While k < n
fact = fact * k
k = k + 1
Loop
Text1.Text = fact
End Sub
Private Sub Form_Unload(Cancel As Integer)
unload_sub
End Sub
Private Sub unload_sub()
Dim fn As String
fn = App.Path & "\dataout.txt"
Open fn For Output As #1
Print #1, Text1.Text
Close #1
End Sub
3.綜合應用(1小題,計30分)
在考生文件夾下有一個(gè)工程文件sjt31.vbp，其窗體上有一個(gè)文本框，名稱(chēng)為T(mén)ext1,可以多行顯示;有一個(gè)名稱(chēng)為CD1的通用對話(huà)框;還有三個(gè)命令按鈕，名稱(chēng)分別為C1、C2、C3，標題分別為“打開(kāi)文件”、“轉換”、“存盤(pán)”，如圖所示。
命令按鈕的功能是：“打開(kāi)文件”——彈出打開(kāi)文件對話(huà)框，默認打開(kāi)文件的類(lèi)型為“文本文件”。選擇考生文件夾下的in5.txt文件后，該文件中的內容顯示在Text1中;“轉換”——把Text1中的所有小寫(xiě)英文字母轉換成大寫(xiě);“存盤(pán)”——把Text1中的內容存入考生文件夾下的out5.dat文件中。在窗體中已經(jīng)給出了部分程序，要求：
1) 請去掉程序中的注釋符，把程序中的?改為正確的內容，但不能修改程序中的其他部分，也不能修改控件的屬性。
2) 編寫(xiě)“轉換”按鈕的Click事件過(guò)程。最后把修改后的文件按原文件名存盤(pán)。
Private Sub C1_Click()
Dim a As String
CD1.Filter = "所有文件?*.*?文本文件?*.txt?Word文件?*.doc"
CD1.FilterIndex = 2
CD1.Action = 1
Open CD1.FileName For Input As #1
Input #1, a
Close #1
Text1.Text = a
End Sub
Private Sub C2_Click()
Text1.Text = UCase(Text1.Text)
End Sub
Private Sub C3_Click()
CD1.FileName = "out5.dat"
CD1.Action = 2
Open CD1.FileName For Output As #1
Print #1, Text1.Text
Close #1
End Sub
【計算機二級vb考試試題】相關(guān)文章：
計算機二級vb考試試題及答案12-17
計算機二級VB考試試題及答案11-02
計算機二級vb考試試題（附答案）06-02
2017全國計算機二級VB考試試題07-17
計算機二級VB上機試題及答案09-03
2016計算機二級VB上機考試試題題庫08-22
2017年全國計算機二級vb考試試題08-24
2017年9月計算機二級考試VB考試試題08-13
2017年9月計算機二級VB考試測試題09-17