2010年春季計(jì)算機(jī)等級考試VB上機(jī)考試題

1、重慶市高等院校非計(jì)算機(jī)專業(yè)計(jì)算機(jī)等級考試Visual Basic 2010年第1次考試上機(jī)試卷 第1套2010年4月24日一、設(shè)計(jì)下圖所示界面的程序，程序運(yùn)行后，輸入球的半徑，單擊“球體積”、“球表面積”復(fù)選框，根據(jù)復(fù)選框是否勾選，決定是否在右側(cè)相應(yīng)的文本框內(nèi)顯示球體積（）和球表面積（）的計(jì)算值。（40分，存盤時(shí)工程文件名為Ex11nnnn.Vbp，窗體文件名為Ex11nnnn.Frm，其中nnnn為考生準(zhǔn)考證號的右4位）二、編寫具有下圖所示界面的應(yīng)用程序，程序運(yùn)行后，在“起始值”和“結(jié)束值”兩個(gè)文本框中分別輸入一個(gè)整數(shù)（大小不限），單擊“計(jì)算累加和”按鈕，就能在文本框下方的Label控件中顯

2、示起始值與結(jié)束值之間所有奇數(shù)的累加和。（30分，存盤時(shí)工程文件名為Ex12nnnn.Vbp，窗體文件名為Ex12nnnn.Frm，其中nnnn為考生準(zhǔn)考證號的右4位）三、程序的功能是：學(xué)生成績數(shù)據(jù)已經(jīng)保存在數(shù)組a中，學(xué)生姓名已經(jīng)保存在數(shù)組b中，單擊窗體，就能在窗體上顯示成績最好的學(xué)生姓名及其成績。（30分，要求根據(jù)程序代碼改錯(cuò)，改錯(cuò)時(shí)，不得增加和刪除語句。將修改正確的程序存盤，工程文件名為Ex13nnnn.Vbp，窗體文件名為Ex13nnnn.Frm，其中nnnn為考生準(zhǔn)考證號的右4位）Private Sub Form_Click() Dim a As Variant, b As String

3、 a = Array(85, 77, 92, 66, 44) b = Array(黃玉梅, 朱明霞, 孫家寶, 趙天明, 楊百萬) Max = a(0)： student = b(0) For i = 1 To 5 If b(i) Max Then Max = a(i)： student = b(i) End If Next i Print 成績最好的學(xué)生是：; student; 考試成績?yōu)椋? Max; 分End Sub參考答案及評分標(biāo)準(zhǔn)：第一題參考代碼Private Sub Check1_Click() r = Val(Text1.Text) If Check1.Value = 1 The

4、n v = 4 * 3.14159 * r 3 / 3 Text2.Text = v Else Text2.Text = End IfEnd SubPrivate Sub Check2_Click() r = Val(Text1.Text) If Check2.Value = 1 Then v = 4 * 3.14159 * r 2 Text3.Text = v Else Text3.Text = End IfEnd Sub評分標(biāo)準(zhǔn)：界面設(shè)計(jì) 15分保存文件 5分每個(gè)事件過程 10分第二題參考代碼：Private Sub Command1_Click() X1 = Val(Text1.Text

5、) X2 = Val(Text2.Text) Sum = 0 If X1 X2 Then n = 1 Else n = -1 For i = X1 To X2 Step n If i Mod 2 0 Then Sum = Sum + i End If Next i Label3.Caption = 從 + Text1.Text + 到 + Text2.Text + 之間所有奇數(shù)的累加和 + Str(Sum)End Sub評分標(biāo)準(zhǔn)：界面設(shè)計(jì)5分循環(huán)結(jié)構(gòu)正確5分（控制條件不正確者酌情扣分）判斷條件正確5分求和正確5分輸出格式正確5分正確存盤5分第三題改錯(cuò)參考答案：Private Sub Form_

6、Click() Dim a As Variant, b As Variant a = Array(85, 77, 92, 66, 44) b = Array(黃玉梅, 朱明霞, 孫家寶, 趙天明, 楊百萬) Max = a(0) student = b(0) For i = 1 To 4 If a(i) Max Then Max = a(i) student = b(i) End If Next i Print 成績最好的學(xué)生是：; student; 考試成績?yōu)椋? Max; 分End Sub評分標(biāo)準(zhǔn)：共3處錯(cuò)誤，每改一處錯(cuò)誤8分（共24分）正確存盤6分重慶市高等院校非計(jì)算機(jī)專業(yè)計(jì)算機(jī)等級考試

7、Visual Basic 2010年第1次考試上機(jī)試卷 第2套2010年4月24日1設(shè)計(jì)右圖所示界面的程序，程序運(yùn)行后，輸入圓的半徑，單擊“圓面積”、“圓周長”復(fù)選框，然后單擊“計(jì)算”按鈕，根據(jù)復(fù)選框是否勾選，決定是否在右側(cè)相應(yīng)的文本框內(nèi)顯示圓面積和圓周長的計(jì)算值。單擊“退出”按鈕結(jié)束程序。（40分，存盤時(shí)工程文件名為Ex21nnnn.Vbp，窗體文件名為Ex21nnnn.Frm，其中nnnn為考生準(zhǔn)考證號的右4位）2假設(shè)目前房價(jià)為4000元/平方米，每年上漲3%；大學(xué)畢業(yè)生的起點(diǎn)工資為1500元/月，每年增長10%。編程計(jì)算，在不考慮生活開銷的情況下，大學(xué)生完全依靠自己的積蓄，至少需要工作多

8、少年才能買到一套100平方米的住房？（30分，存盤時(shí)工程文件名為Ex22nnnn.Vbp，窗體文件名為Ex22nnnn.Frm，其中nnnn為考生準(zhǔn)考證號的右4位）3程序的功能是：10個(gè)評委的評分?jǐn)?shù)據(jù)已經(jīng)保存在數(shù)組a中，單擊窗體，就能去掉一個(gè)最高分，去掉一個(gè)最低分，然后計(jì)算平均值，作為參賽選手的實(shí)際得分，并在窗體上輸出。（30分，要求根據(jù)程序代碼改錯(cuò)，改錯(cuò)時(shí)，不得增加和刪除語句。將修改正確的程序存盤，工程文件名為Ex23nnnn.Vbp，窗體文件名為Ex23nnnn.Frm，其中nnnn為考生準(zhǔn)考證號的右4位）Private Sub Command1_Click() Dim score As

9、Variant score = Array(93.88, 91.77, 92.66, 94.55, 90.99, 96.11, 97.22, 99.01, 98, 93.33) Max = score(0) Min = score(0) Sum = 0 For i = 1 To 10 If score(i) Max Then Max = score(i) If score(i) Min Then Min = score(i) Sum = Sum + score(i) Next i average = (Sum - Max - Min) / 10 Print 參賽選手的實(shí)際得分：; averag

10、eEnd Sub第一題參考答案：Private Sub Command1_Click() r = Val(Text1.Text) v = 3.14159 * r 2 s = 2 * 3.14159 * r If Check1.Value = 1 Then Text2.Text = v Else Text2.Text = End If If Check2.Value = 1 Then Text3.Text = s Else Text3.Text = End IfEnd Sub評分標(biāo)準(zhǔn)：界面設(shè)計(jì) 15分保存文件 5分Check1使用正確 10分Check2使用正確 10分第二題參考代碼：Private Sub Form_Click() Dim house As Double, student As Double house = student = 1500 * 12 deposit = student years = 1 Do While deposit Max Then Max = sco