VB程序設(shè)計(jì)試題與答案-1

1、 VB程序設(shè)計(jì)基礎(chǔ)試題 得分評(píng)卷人 一、選擇題：（每空 2 分，共 20 分） 1. 與傳統(tǒng)的程序設(shè)計(jì)語(yǔ)言相比,Visual Basic最突出的特點(diǎn)是_。 A. 結(jié)構(gòu)化程序設(shè)計(jì) B. 程序開(kāi)發(fā)環(huán)境 C. 事件驅(qū)動(dòng)編程機(jī)制 D. 程序調(diào)試技術(shù) 2. Visual Basic 是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，構(gòu)成對(duì)象的三要素是_。 A. 屬性、事件、方法 B. 控件、屬性、事件 C. 窗體、控件、過(guò)程 D. 窗體、控件、模塊 3. 窗體模塊保存在一個(gè)擴(kuò)展名為_(kāi)的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正確的賦值語(yǔ)句是_。 A. x+y=30B. y=*r*rC.

2、y=x+30D. 3y=x 5. 設(shè)S=“492”，表達(dá)式Right（S,1）+Left（S,1）+Mid（S,2,1）的值為_(kāi)。 A.“492”B.“249” C.“294” D.“429” 6. 將數(shù)學(xué)表達(dá)式abc寫(xiě)成Visual Basic表達(dá)式，正確的是_。 A. a<=b<=c            B. a<=b Or b<=c  C. a<=b And b<=c &#

3、160;    D. a<=b Not b<=c 7.為了把焦點(diǎn)移到文本框，所使用的方法是_。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）產(chǎn)生的隨機(jī)整數(shù)的閉區(qū)間是_。 A.0，100 B.1，100 C.1，99 D.0，99 9. 一個(gè)數(shù)組說(shuō)明為Dim a(0 to 5，1 to 5) As Integer，則該數(shù)組共有_個(gè)元素。 A. 5 B. 36 C. 30 D. 不確定10. 下面過(guò)程定義語(yǔ)句合法的是_。 A. Function P1（P1

4、） B. Function P1（By Val x As Integer） As Integer C. Sub P1（x As Integer）As Single D.Sub P1（ByVal x（）得分評(píng)卷人 二、填空題：（每空 3 分，共 18 分）1找出100以內(nèi)能同時(shí)被3、5、7整除的最小5個(gè)數(shù)據(jù)。Private Sub Command1_Click() Dim countn%, n% n = 1: countn = 0 Do n = n + 1 If _ Then Print n countn = countn + 1 End If Loop _ End Sub 2. 輸出楊輝三角前

5、五行。 Option Base 1 Private Sub Command1_Click() Dim a(5, 5) As Integer, i As Integer, j As Integer For i = 1 To 5 a(i, 1) = 1 _ Next i For i = 1 To 5 For j = 2 To i - 1 _ Next j Next i For i = 1 To 5 For j = 1 To i Print a(i, j), Next j Print Next i End Sub 3. 求水仙花數(shù)。 Private Sub Command1_Click() Dim

6、a As Integer, b As Integer, c As Integer, x As Integer For a = 1 To 9 For b = 0 To 9 For c = 0 To 9 x =_ If _ Then Print x Next c Next b Next a End Sub 得分評(píng)卷人三、程序分析題：（每題 6 分，共 12 分） 1. 點(diǎn)擊窗體時(shí)，分析程序的執(zhí)行結(jié)果。 Private Sub Form_Click()  For i = 1 To 5  For j&#

7、160;= 1 To i  Print "* "  Next j  Print  Next i  End Sub 程序功能結(jié)構(gòu)分析： 程序執(zhí)行結(jié)果：2. 單擊命令按鈕時(shí)，分析程序的執(zhí)行結(jié)果。 Private Function P(N As Integer) dim sum% For I = 1 To N sum = sum + 1 Next I P = sum End Function Private Sub Command1_Click() S

8、 = P(1) + P(2) + P(3) + P(4) Print S; End Sub 程序功能結(jié)構(gòu)分析： 程序執(zhí)行結(jié)果：得分評(píng)卷人 四、基本操作題：（每題 10 分，共 20 分） 1. 編制如下圖所示的程序。本程序根據(jù)如下公式， 由輸入的身高計(jì)算標(biāo)準(zhǔn)體重。 男：標(biāo)準(zhǔn)體重（kg）= 身高（cm）-100 女：標(biāo)準(zhǔn)體重（kg）= 身高（cm）-105 2. 編寫(xiě)一個(gè)窗體，窗體上有一個(gè)標(biāo)簽，并且標(biāo)簽上字的顏色可以不停的變化，標(biāo)簽從 窗體的上部向下部滾動(dòng)出現(xiàn)。得分評(píng)卷人 五、綜合應(yīng)用程序設(shè)計(jì)題：（每題 15 分，共 30 分） 1 求：1+2！+3！+4！+ n!（n為任意輸入的一個(gè)正整數(shù)）。

9、 2. 輸入若干個(gè)學(xué)生的成績(jī)（以-1為結(jié)束標(biāo)志），存入一維數(shù)組中，統(tǒng)計(jì)輸入的成績(jī)個(gè)數(shù)、最高分、最低分、平均分和及格率。參考答案一、 選擇題：（每空 2 分，共 20 分） 1. C 2. A 3. D 4. C 5. B6. C 7. A 8. D 9.C 10.B二、填空題：（每空 3 分，共 18 分）1. n mod 3=0 And n mod 5=0 And n mod 7=0 until countn=5 2. a(i,i)=1 a(i,j)=a(i-1,j)+a(i-1,j-1) 3. x=100*a+10*b+c x=a3+b3+c3三、程序分析題：（每題 6 分，共 12 分）

10、 1. 程序功能結(jié)構(gòu)分析：?jiǎn)螕舸绑w，在窗體上輸出五行星號(hào)，第1行輸出一個(gè)*號(hào)，第2行輸出兩個(gè)*號(hào)，以此類(lèi)推，第5行輸出五個(gè)星號(hào)。 該程序結(jié)構(gòu)為雙重循環(huán)結(jié)構(gòu)，循環(huán)體中 Print "* "語(yǔ)句一共執(zhí)行15次。 程序執(zhí)行結(jié)果： 2.程序功能結(jié)構(gòu)分析：程序中定義了一個(gè)函數(shù)過(guò)程P，含一個(gè)形參N，其功能是求N個(gè)1之和。當(dāng)點(diǎn)擊命令按鈕時(shí)，分別四次調(diào)用函數(shù)過(guò)程P，并分別將實(shí)參1、2、3、4傳遞給形參N。然后，將P返回的值求和，并輸出。 程序執(zhí)行結(jié)果： 四、基本操作題：（每題 10 分，共 20 分）1. 參考答案：Private Sub Command1_Click(

11、) If Option1.Value Then Text2.Text = Val(Text1.Text) - 100 Else Text2.Text = Val(Text1.Text) - 105 End IfEnd Sub 2. 參考答案： Private Sub Form_Click() Label1.Caption = "歡迎學(xué)習(xí)VB程序設(shè)計(jì)" & vbNewLine & Now Timer1.Interval = 500 End SubPrivate Sub Timer1_Timer()Label1.ForeColor = RGB(Int(Rnd *

12、 256), Int(Rnd * 256), Int(Rnd * 256) If Label1.Top < Form1.Height Then Label1.Top = Label1.Top + 50 Else Label1.Top = 0 End IfEnd Sub五、綜合應(yīng)用程序設(shè)計(jì)題：（每題 15 分，共 30 分）1. 參考答案：Private Sub Command1_Click() Dim n As Integer, sum As Double, f As Double, i As Integer sum = 1 f = 1 n = Val(Text1.Text) For i

13、 = 2 To n Step 1 f = f * i sum = sum + f Next i Text2.Text = Str(sum)End Sub2. 參考答案：Option Base 1Private Sub Command1_Click() Dim s(100) As Single, n As Integer, max As Integer, min As Integer, sum As Single, f As Single, i As Integer, count As Integer n = 0: count = 0 sum = 0 For i = 1 To 1000 s(i) = InputBox("請(qǐng)輸入第" & i & "個(gè)學(xué)生的成績(jī)：", "成績(jī)錄入") If s(i) = -1 Then Exit For n = n + 1 Print "第" & i & "個(gè)學(xué)生的成績(jī)：" & s(i) Next i Text1.Text = n max = 0 min = 100 For i = 1 To n sum = sum + s(i) If s(i) > max Then max =