第二次計算機等級考試9月即將開始了,yjbys爲幫助大家鞏固vb基礎知識,下面爲大家分享的是計算機等級考試vb複習試題,同學們趕緊來學習吧!
1.基本操作(2小題,每小題15分,共計30分)
(1)在名稱爲Form1的窗體上畫一個名稱爲Text1的文本框,其高、寬分別爲400、2000。請在屬性框中設置適當的屬性滿足以下要求:
1)Text1的字體爲“黑體”,字號爲“四號”;
2)窗體的標題爲“輸入”,不顯示最大化按鈕和最小化按鈕。
運行後的窗體如圖所示。
(2)在名稱爲Form1的窗體上畫一個圖片框,(名稱爲Picture1)、一個垂直滾動條(名稱爲VScroll1)和一個命令按鈕(名稱爲Command1,標題爲“設置屬性”),通過屬性窗口在圖片框中裝入一個圖形(文件名爲pic1.jpg,位於考生目錄下),圖片框的寬度與圖形的寬度相同,圖片框的高度任意(如圖1所示)。編寫適當的事件過程。程序運行後,如果單擊命令按鈕,則設置垂直滾動條的如下屬性:
Min 100
Max 2400
LargeChange 200
SmallChange 20
之後就可以通過移動滾動條上的滾動塊來放大或縮小圖片框。運行後的窗體如圖2所示。要求程序中不得使用任何變量。
Private Sub Command1_Click()
= 100
= 2400
eChange = 200
lChange = 20
End Sub
Private Sub VScroll1_Change()
ht = e
End Sub
2.簡單應用(2小題,每題20分,計40分)
(1)在考生文件夾下有一個工程文件,其窗體上有一個名稱爲Text1的文本框;一個名稱爲L1的列表框;一個命令按鈕,名稱爲C1,標題爲“添加”(如圖所示)。程序的功能是,在運行時,如果在文本框中輸入一行內容並單擊“添加”按鈕,則把文本框中的內容作爲列表項添加到列表中。如果單擊列表中的某一項,則立即從列表中刪除該項。要求:去掉程序中的註釋符,把程序中的?改爲正確的內容,使其實現上述功能,但不能修改程序中的其他部分,也不能修改控件的屬性。最後把修改後的文件以原來的文件名存 盤。
'Private Sub C1_Click()
' L1.?
'End Sub
'Private Sub L1_Click()
' veItem ?
'End Sub
'正確程序:
Private Sub C1_Click()
tem
End Sub
Private Sub L1_Click()
veItem Index
End Sub
'答案"
'AddItem
'Index
(2)在考生文件夾下有一個工程文件,相應的窗體文件爲。在窗體上有兩個命令按鈕,其名稱分別爲Command1、Command2,一個標籤控件,其名稱爲Label1,一個計時器控件,其名稱爲Timer1,如圖1所示。程序運行後,在命令按鈕Command1中顯示“開始”,在命令按鈕Command2中顯示“停止”,在標籤中用字體大小爲16的粗體顯示“熱烈歡迎”(標籤的AutoSize屬性爲True),同時把計時器的Interval屬性設置爲50,Enabled屬性設置爲True。此時如果單擊“開始”命令按鈕,則該按鈕變爲禁用,標題變爲“繼續”,同時標籤自左至右移動,每個時間間隔移動20,如圖2所示,移動出窗體右邊界後,自動從左邊界開始向右移動;如果單擊“停止”命令按鈕,則該按鈕變爲禁用,“繼續”命令按鈕變爲有效,同時標籤停止移動;再次單擊“繼續”命令按鈕後,標籤繼續移動。這個程序不完整,請把它補充完整,並能正確運行。
要求:
去掉程序中的註釋符,把程序中的?改爲正確的'內容,使其實現上述功能,但不能修改程序中的其他部分。最後把修改後的文件按原文件名存盤。
Private Sub Form_Load()
ion = "開始"
ion = "停止"
rval = 50
led = False
ion = "熱烈歡迎"
Size = True
Size = 16
Bold = True
End Sub
Private Sub Command1_Click()
ion = "繼續"
led = True
' led = ?
led = False
'led = ?
led = True
End Sub
Private Sub Command2_Click()
led = False
' led = ?
led = False
led = True
End Sub
Private Sub Timer1_Timer()
If < Width Then
= + 20
' = ?
Else
= 0
End If
End Sub
3.綜合應用(1小題,計30分)
在考生目錄下有一個工程文件。窗體中已經給出了所有控件。其功能是:單擊“顯示”命令,則把考生目錄下的文件中的所有字符放入Text1(可多行顯示),如圖所示;如果單擊“統計”命令按鈕,則統計文本框中字母A、B、C、D各自出現的次數,並依次放到窗體變量an,bn,cn,dn之中(放在其他變量中將無成績);如果單擊“保存”命令按鈕,則把統計結果存入考生文件夾下的文件中。文件中已給出了“顯示”和“保存”按鈕的Click事件過程。請編寫“統計”按鈕的Click事件過程。
要求:
統計每個字母出現的次數時,不區分大小寫。
注意:
不能修改已經給出的程序部分;在結束程序運行之前,必須單擊“保存”按鈕,把結果存入文件,否則無成績。最後把修改後的文件按原文件名存盤。
Dim an As Integer
Dim bn As Integer
Dim cn As Integer
Dim dn As Integer
Private Sub Command1_Click()
Open "" For Input As #1
Do While Not EOF(1)
Input #1, a$
s = s & a$
Loop
Close 1
= s
End Sub
Private Sub Command2_Click()
'考生應編寫的程序
n = Len(Text1)
For k = 1 To n
ch = Mid(Text1, k, 1)
If UCase(ch) = "A" Then
an = an + 1
End If
If UCase(ch) = "B" Then
bn = bn + 1
End If
If UCase(ch) = "C" Then
cn = cn + 1
End If
If UCase(ch) = "D" Then
dn = dn + 1
End If
Next k
Text1 = an & " " & bn & " " & cn & " " & dn
End Sub
Private Sub Command3_Click()
Open "" For Output As #1
Print #1, an, bn, cn, dn
Close 1
End Sub