計(jì)算機(jī)等級(jí)考試vb二級(jí)試題及答案

時(shí)間：2024-10-28 10:21:48 計(jì)算機(jī)等級(jí) 我要投稿

相關(guān)推薦

2017計(jì)算機(jī)等級(jí)考試vb二級(jí)試題及答案

　　第二次計(jì)算機(jī)等級(jí)考試9月即將開始了，yjbys為幫助大家鞏固vb基礎(chǔ)知識(shí)，下面為大家分享的是計(jì)算機(jī)等級(jí)考試vb復(fù)習(xí)試題，同學(xué)們趕緊來(lái)學(xué)習(xí)吧!

2017計(jì)算機(jī)等級(jí)考試vb二級(jí)試題及答案

　　1.基本操作(2小題，每小題15分，共計(jì)30分)

　　(1)在名稱為Form1的窗體上畫一個(gè)名稱為Text1的文本框，其高、寬分別為400、2000。請(qǐng)?jiān)趯傩钥蛑性O(shè)置適當(dāng)?shù)膶傩詽M足以下要求：

　　1)Text1的字體為“黑體”，字號(hào)為“四號(hào)”;

　　2)窗體的標(biāo)題為“輸入”，不顯示最大化按鈕和最小化按鈕。

　　運(yùn)行后的窗體如圖所示。

　　(2)在名稱為Form1的窗體上畫一個(gè)圖片框，(名稱為Picture1)、一個(gè)垂直滾動(dòng)條(名稱為VScroll1)和一個(gè)命令按鈕(名稱為Command1，標(biāo)題為“設(shè)置屬性”)，通過(guò)屬性窗口在圖片框中裝入一個(gè)圖形(文件名為pic1.jpg，位于考生目錄下)，圖片框的寬度與圖形的寬度相同，圖片框的高度任意(如圖1所示)。編寫適當(dāng)?shù)氖录^(guò)程。程序運(yùn)行后，如果單擊命令按鈕，則設(shè)置垂直滾動(dòng)條的如下屬性：

　　Min 100

　　Max 2400

　　LargeChange 200

　　SmallChange 20

　　之后就可以通過(guò)移動(dòng)滾動(dòng)條上的滾動(dòng)塊來(lái)放大或縮小圖片框。運(yùn)行后的窗體如圖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)單應(yīng)用(2小題，每題20分，計(jì)40分)

　　(1)在考生文件夾下有一個(gè)工程文件sjt21.vbp，其窗體上有一個(gè)名稱為Text1的文本框;一個(gè)名稱為L(zhǎng)1的列表框;一個(gè)命令按鈕，名稱為C1，標(biāo)題為“添加”(如圖所示)。程序的功能是，在運(yùn)行時(shí)，如果在文本框中輸入一行內(nèi)容并單擊“添加”按鈕，則把文本框中的內(nèi)容作為列表項(xiàng)添加到列表中。如果單擊列表中的某一項(xiàng)，則立即從列表中刪除該項(xiàng)。要求：去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分，也不能修改控件的屬性。最后把修改后的文件以原來(lái)的文件名存盤。

　　'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，相應(yīng)的窗體文件為sjt22.frm。在窗體上有兩個(gè)命令按鈕，其名稱分別為Command1、Command2，一個(gè)標(biāo)簽控件，其名稱為L(zhǎng)abel1，一個(gè)計(jì)時(shí)器控件，其名稱為Timer1，如圖1所示。程序運(yùn)行后，在命令按鈕Command1中顯示“開始”，在命令按鈕Command2中顯示“停止”，在標(biāo)簽中用字體大小為16的粗體顯示“熱烈歡迎”(標(biāo)簽的AutoSize屬性為True)，同時(shí)把計(jì)時(shí)器的Interval屬性設(shè)置為50，Enabled屬性設(shè)置為True。此時(shí)如果單擊“開始”命令按鈕，則該按鈕變?yōu)榻茫瑯?biāo)題變?yōu)?ldquo;繼續(xù)”，同時(shí)標(biāo)簽自左至右移動(dòng)，每個(gè)時(shí)間間隔移動(dòng)20，如圖2所示，移動(dòng)出窗體右邊界后，自動(dòng)從左邊界開始向右移動(dòng);如果單擊“停止”命令按鈕，則該按鈕變?yōu)榻茫?ldquo;繼續(xù)”命令按鈕變?yōu)橛行В瑫r(shí)標(biāo)簽停止移動(dòng);再次單擊“繼續(xù)”命令按鈕后，標(biāo)簽繼續(xù)移動(dòng)。這個(gè)程序不完整，請(qǐng)把它補(bǔ)充完整，并能正確運(yùn)行。

　　要求：

　　去掉程序中的注釋符，把程序中的?改為正確的內(nèi)容，使其實(shí)現(xiàn)上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盤。

　　Private Sub Form_Load()

　　Command1.Caption = "開始"

　　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 = "繼續(xù)"

　　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.綜合應(yīng)用(1小題，計(jì)30分)

　　在考生目錄下有一個(gè)工程文件sjt31.vbp。窗體中已經(jīng)給出了所有控件。其功能是：?jiǎn)螕?ldquo;顯示”命令，則把考生目錄下的int5.txt文件中的所有字符放入Text1(可多行顯示)，如圖所示;如果單擊“統(tǒng)計(jì)”命令按鈕，則統(tǒng)計(jì)文本框中字母A、B、C、D各自出現(xiàn)的次數(shù)，并依次放到窗體變量an，bn，cn，dn之中(放在其他變量中將無(wú)成績(jī));如果單擊“保存”命令按鈕，則把統(tǒng)計(jì)結(jié)果存入考生文件夾下的out5.txt文件中。文件中已給出了“顯示”和“保存”按鈕的Click事件過(guò)程。請(qǐng)編寫“統(tǒng)計(jì)”按鈕的Click事件過(guò)程。

　　要求：

　　統(tǒng)計(jì)每個(gè)字母出現(xiàn)的次數(shù)時(shí)，不區(qū)分大小寫。

　　注意：

　　不能修改已經(jīng)給出的程序部分;在結(jié)束程序運(yùn)行之前，必須單擊“保存”按鈕，把結(jié)果存入out5.txt文件，否則無(wú)成績(jī)。最后把修改后的文件按原文件名存盤。

　　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$