- 相關推薦
2016年9月計算機二級vb考試試題及答案
計算機等級考試9月24日就要開始啦，同學們準備好了嗎?下面yjbys小編為大家分享的是計算機等級考試vb復習試題，同學們趕緊來學習吧!
1.基本操作(2小題，每題15分，共計30分)
(1) 在名稱為Form1的窗體上畫一標簽(名稱為Label1，標題為空白，BorderStyle屬性為1，Visible屬性為False)、一個文本框(名稱為Text1，Text屬性為空白)和一個命令按鈕(名稱為Command1,標題為“顯示”)，如圖1所示。然后編寫命令按鈕的Click事件過程。程序運行后，在文本框中輸入“計算機等級考試”，然后單擊命令按鈕，則文本框消失，并在標簽內顯示文本框中的內容，運行后的窗體如圖2所示。要求程序中不得使用任何變量。
Private Sub Command1_Click()
Label1.Visible = True
Text1.Visible = False
Label1.Caption = Text1.Text
End Sub
(2)在名稱為Form1的窗體上畫一個文本框(名稱為Text1)和一個水平滾動條(名稱為HScroll1)，如圖1所示。在屬性窗口中對滾動條設置如下屬性：
Min 500
Max 2000
Largechange 50
Smallchange 20
編寫適當的事件過程。程序運行后，如果移動滾動條上的滾動框，則可擴大或縮小文本框的高度，并使得文本框的寬度始終是其高度的1.2倍。運行后的窗體如圖2所示。要求程序中不得使用任何變量。
Private Sub HScroll1_Change()
Text1.Height = HScroll1.Value
Text1.Width = Text1.Height * 1.2
End Sub
2.簡單應用(2小題，每題20分，計40分)
(1)在考生文件夾下有一個工程文件sjt21.vbp，請在窗體上畫兩個單選按鈕(名稱分別為Option1Option2，標題分別為“添加項目”和“刪除項目”)，一個列表框(名稱為List1)和一個文本框(名稱為Text1)，如圖1所示。編寫窗體的Click事件過程。程序運行后，如果選擇“添加項目”單擊按鈕，然后單擊窗體，則從鍵盤上輸入要添加的項目(內容任意，不少于三個)，并添加到列表框中;如果選擇“刪除項目”單選按鈕，然后單擊窗體，則從鍵盤上輸入要刪除的項目，將其從列表框中刪除。程序的運行情況如圖2所示。
在考生文件夾下有一個工程文件sjt21.vbp(相應的窗體文件名為sjt21.frm)，可以實現上述功能。但這個程序不完整，請把它補充完整。
Private Sub Form_Click()
If Option1.Value = True Then
Text1.Text = InputBox("請輸入要添加的項目")
List1.AddItem Text1.Text
End If
If Option2.Value = True Then
Text1.Text = InputBox("請輸入要刪除的項目")
For i = 0 To List1.ListCount - 1
If List1.List(i) = Text1.Text Then
List1.RemoveItem i
End If
Next i
End If
End Sub
(2)在考生文件夾下有一個工程文件sjt22.vbp(相應的窗體文件名為sjt22.frm)，其功能是通過調用過程Sort將數組按降序排序，請裝入該文件。程序運行后，在四個文本框中各輸入一個整數(如圖1所示)，然后單擊命令按鈕，即可使數組按降序排序，并在文本框中顯示出來(如圖2所示)。這個程序不完整，請把它補充完整，并能正確運行。
Option Base 1
Private Sub Sort(a() As Integer)
Dim Start As Integer, Finish As Integer
Dim i As Integer, j As Integer, t As Integer
Start = LBound(a)
Finish = UBound(a)
For i = Finish To 2 Step -1
For j = 1 To i - Start
If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
Private Sub Command1_Click()
Dim arr1
Dim arr2(4) As Integer
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
For i = 1 To 4
arr2(i) = CInt(arr1(i))
Next i
Sort arr2()
Text1.Text = arr2(1)
Text2.Text = arr2(2)
Text3.Text = arr2(3)
Text4.Text = arr2(4)
End Sub
3.綜合應用(1小題,計30分)
在窗體上建立三個菜單(名稱分別為Read、Calc和Save,分別為“讀入數據”、“計算并輸出”、和“存盤”)，然后畫一個文本框(名稱為Text1,MultiLine屬性設置為True,ScrollBars屬性設置為2)(如圖所示)。程序運行后，如果執行“讀入數據”命令，則讀入datain1.txt文件中的100個整數，放入一個數組中，數組的下界為1;如果單擊“計算并輸出”按鈕，則把該數組中小于50的元素在文本框中顯示出來，求出它們的和，并把所求得的和在窗體上顯示出來;如果單擊“存盤”按鈕，則把所求得的和存入考生文件夾下的dataout.txt文件中。
在考生文件夾下有一個工程文件sjt31.vbp，考生可以裝入該文件。窗體文件中的ReadData過程可以把datain1.txt文件中的100個整數讀入Arr數組中;而WriteData過程可以把指定的整數值寫到考生文件夾下指定的文件中(整數值通過計算求得，文件名為dataout.txt)。
Option Base 1
Dim Arr(100) As Integer
Dim Sum As Integer '存儲累加和
Sub ReadData()
Open App.Path & "\" & "datain1.txt" For Input As #1
For i = 1 To 100
Input #1, Arr(i)
Next i
Close #1
End Sub
Sub WriteData(Filename As String, Num As Integer)
Open App.Path & "\" & Filename For Output As #1
Print #1, Num
Close #1
End Sub
Private Sub Calc_Click()
Sum = 0
For i = 1 To 100
If Arr(i) < 50 Then
Text1.Text = Text1.Text & CStr(Arr(i)) & Chr(13) & Chr(10)
Sum = Sum + Arr(i)
End If
Next i
Print Sum
End Sub
Private Sub Read_Click()
Call ReadData
End Sub
Private Sub Save_Click()
Call WriteData("dataout.txt", Sum)
End Sub
【9月計算機二級vb考試試題及答案】相關文章：
2023年9月計算機b級考試試題及答案11-29
2024計算機二級考試模擬試題及答案06-12
2022年9月計算機等級考試《二級MS》預測題及答案10-24
計算機二級office試題題庫及答案02-22
全國計算機二級c語言題庫試題及答案04-07