- 相關(guān)推薦
2017計算機等級考試vb二級試題及答案
第二次計算機等級考試9月即將開(kāi)始了，yjbys為幫助大家鞏固vb基礎知識，下面為大家分享的是計算機等級考試vb復習試題，同學(xué)們趕緊來(lái)學(xué)習吧!
1.基本操作(2小題，每小題15分，共計30分)
(1)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)名稱(chēng)為T(mén)ext1的文本框，其高、寬分別為400、2000。請在屬性框中設置適當的屬性滿(mǎn)足以下要求：
1)Text1的字體為“黑體”，字號為“四號”;
2)窗體的標題為“輸入”，不顯示最大化按鈕和最小化按鈕。
運行后的窗體如圖所示。
(2)在名稱(chēng)為Form1的窗體上畫(huà)一個(gè)圖片框，(名稱(chēng)為Picture1)、一個(gè)垂直滾動(dòng)條(名稱(chēng)為VScroll1)和一個(gè)命令按鈕(名稱(chēng)為Command1，標題為“設置屬性”)，通過(guò)屬性窗口在圖片框中裝入一個(gè)圖形(文件名為pic1.jpg，位于考生目錄下)，圖片框的寬度與圖形的寬度相同，圖片框的高度任意(如圖1所示)。編寫(xiě)適當的事件過(guò)程。程序運行后，如果單擊命令按鈕，則設置垂直滾動(dòng)條的如下屬性：
Min 100
Max 2400
LargeChange 200
SmallChange 20
之后就可以通過(guò)移動(dòng)滾動(dòng)條上的滾動(dòng)塊來(lái)放大或縮小圖片框。運行后的窗體如圖2所示。要求程序中不得使用任何變量。
Private Sub Command1_Click()
VScroll1.Min = 100
VScroll1.Max = 2400
VScroll1.LargeChange = 200
VScroll1.SmallChange = 20
End Sub
Private Sub VScroll1_Change()
Picture1.Height = VScroll1.Value
End Sub
2.簡(jiǎn)單應用(2小題，每題20分，計40分)
(1)在考生文件夾下有一個(gè)工程文件sjt21.vbp，其窗體上有一個(gè)名稱(chēng)為T(mén)ext1的文本框;一個(gè)名稱(chēng)為L(cháng)1的列表框;一個(gè)命令按鈕，名稱(chēng)為C1，標題為“添加”(如圖所示)。程序的功能是，在運行時(shí)，如果在文本框中輸入一行內容并單擊“添加”按鈕，則把文本框中的內容作為列表項添加到列表中。如果單擊列表中的某一項，則立即從列表中刪除該項。要求：去掉程序中的注釋符，把程序中的?改為正確的內容，使其實(shí)現上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原來(lái)的文件名存 盤(pán)。
'Private Sub C1_Click()
' L1.? Text1.Text
'End Sub
'Private Sub L1_Click()
' L1.RemoveItem ?
'End Sub
'正確程序：
Private Sub C1_Click()
L1.AddItem Text1.Text
End Sub
Private Sub L1_Click()
L1.RemoveItem L1.ListIndex
End Sub
'答案"
'AddItem
'L1.ListIndex
(2)在考生文件夾下有一個(gè)工程文件sjt22.vbp，相應的窗體文件為sjt22.frm。在窗體上有兩個(gè)命令按鈕，其名稱(chēng)分別為Command1、Command2，一個(gè)標簽控件，其名稱(chēng)為L(cháng)abel1，一個(gè)計時(shí)器控件，其名稱(chēng)為T(mén)imer1，如圖1所示。程序運行后，在命令按鈕Command1中顯示“開(kāi)始”，在命令按鈕Command2中顯示“停止”，在標簽中用字體大小為16的粗體顯示“熱烈歡迎”(標簽的AutoSize屬性為T(mén)rue)，同時(shí)把計時(shí)器的Interval屬性設置為50，Enabled屬性設置為T(mén)rue。此時(shí)如果單擊“開(kāi)始”命令按鈕，則該按鈕變?yōu)榻�，標題變?yōu)?ldquo;繼續”，同時(shí)標簽自左至右移動(dòng)，每個(gè)時(shí)間間隔移動(dòng)20，如圖2所示，移動(dòng)出窗體右邊界后，自動(dòng)從左邊界開(kāi)始向右移動(dòng);如果單擊“停止”命令按鈕，則該按鈕變?yōu)榻茫?ldquo;繼續”命令按鈕變?yōu)橛行�，同時(shí)標簽停止移動(dòng);再次單擊“繼續”命令按鈕后，標簽繼續移動(dòng)。這個(gè)程序不完整，請把它補充完整，并能正確運行。
要求：
去掉程序中的注釋符，把程序中的?改為正確的內容，使其實(shí)現上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤(pán)。
Private Sub Form_Load()
Command1.Caption = "開(kāi)始"
Command2.Caption = "停止"
Timer1.Interval = 50
Timer1.Enabled = False
Label1.Caption = "熱烈歡迎"
Label1.AutoSize = True
Label1.FontSize = 16
Label1.FontBold = True
End Sub
Private Sub Command1_Click()
Command1.Caption = "繼續"
Timer1.Enabled = True
' Timer1.Enabled = ?
Command1.Enabled = False
'Command1.Enabled = ?
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
' Timer1.Enabled = ?
Command2.Enabled = False
Command1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Label1.Left < Width Then
Label1.Left = Label1.Left + 20
' Label1.Left = ?
Else
Label1.Left = 0
End If
End Sub
3.綜合應用(1小題，計30分)
在考生目錄下有一個(gè)工程文件sjt31.vbp。窗體中已經(jīng)給出了所有控件。其功能是：?jiǎn)螕?ldquo;顯示”命令，則把考生目錄下的int5.txt文件中的所有字符放入Text1(可多行顯示)，如圖所示;如果單擊“統計”命令按鈕，則統計文本框中字母A、B、C、D各自出現的次數，并依次放到窗體變量an，bn，cn，dn之中(放在其他變量中將無(wú)成績(jì));如果單擊“保存”命令按鈕，則把統計結果存入考生文件夾下的out5.txt文件中。文件中已給出了“顯示”和“保存”按鈕的Click事件過(guò)程。請編寫(xiě)“統計”按鈕的Click事件過(guò)程。
要求：
統計每個(gè)字母出現的次數時(shí)，不區分大小寫(xiě)。
注意：
不能修改已經(jīng)給出的程序部分;在結束程序運行之前，必須單擊“保存”按鈕，把結果存入out5.txt文件，否則無(wú)成績(jì)。最后把修改后的文件按原文件名存盤(pán)。
Dim an As Integer
Dim bn As Integer
Dim cn As Integer
Dim dn As Integer
Private Sub Command1_Click()
Open "in5.txt" For Input As #1
Do While Not EOF(1)
Input #1, a$
s = s & a$
Loop
Close 1
Text1.Text = s
End Sub
Private Sub Command2_Click()
'考生應編寫(xiě)的程序
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 "out5.txt" For Output As #1
Print #1, an, bn, cn, dn
Close 1
End Sub
【計算機等級考試vb二級試題及答案】相關(guān)文章：
計算機二級vb考試試題及答案12-17
計算機二級VB考試試題及答案11-02
計算機等級考試二級VB真題附答案10-11
計算機二級vb考試試題（附答案）06-02
計算機二級VB上機試題及答案09-03
計算機等級考試二級C語(yǔ)言考試試題（帶答案）10-30
計算機等級考試二級模擬試題11-01
9月計算機等級考試二級MS考試試題及答案10-08