VB程序設(shè)計(jì)作業(yè)答案

1、VB程序設(shè)計(jì)作業(yè)(二)客觀題部分： 選擇題(每題 1 分，共 15 題)1. 當(dāng) VB 執(zhí)行下面語句后， A 的值為( A )。A=1IF A0 THEN A=A+1IF A1 THEN A=0A) 0 B) 1 C) 2 D) 32. 當(dāng) VB 執(zhí)行下面語句后，輸出的結(jié)果是( B )。Private Sub Form_Click ()score = Int(Rnd * 10) + 30Select Case scoreCase Is 8x = x * yy = y +1LoopPrint xA ) 2B) 9C) 10 D ) 167. 用下面的語句所定義的數(shù)組的元素個(gè)數(shù)是( D )。Dim

2、 A ( -3 To 5 )As IntegerA) 6 B) 7C) 8D) 98. 閱讀下面的程序段：For i=1 To 2For j=1 To IFor k=j To 2x=x+1Next kNext jNext i 執(zhí)行上面的三重循環(huán)后， x 的值為 ( C )。A) 3B) 4C) 5D) 69. 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()For i=1 To 3x=2For j =1 To 2x=4For k=1 To 3x=x+5Next kNext jNext i Print xEnd Sub程序運(yùn)行后，單擊命令按鈕

3、，輸出結(jié)果是 ( B )。A) 11B) 19C) 57D) 6310. 在窗體上畫兩個(gè)文本框 Textl和Text2, 個(gè)命令按鈕 Commandl，然后編寫如下事件過程：Private Sub Command1_Click()x=1Do While x50x=(x+1)*(x+2)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub 程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為( B )。A) 1 和 0 B) 2 和 56 C) 3 和 70 D) 4 和 16811. 以下正確的敘述是( C )。A) Select Case語句

4、中的測(cè)試表達(dá)式可以是任何形式的表達(dá)式B) Select Case語句中的測(cè)試表達(dá)式只能是數(shù)值表達(dá)式或字符串表達(dá)式C) 在執(zhí)行Select Case語句時(shí)，所有Case子句均按出現(xiàn)的次序被順序執(zhí)行D) 如下Select Case語句中的Case表達(dá)式是錯(cuò)誤的：Select Case xCase 1 to 10 EndSelect12. 在窗體上繪制一個(gè)命令按鈕 Command1 ，然后編寫如下程序：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4, 5)j = 1For i = 5 To 1 Step -1s =

5、s + a(i) * jj = j * 10Next iPrint sEnd Sub運(yùn)行程序，單擊命令按鈕，輸出結(jié)果為(B )。A) 54321B)12345C)1234D)432113. 在窗體上繪制一個(gè)命令按鈕Commandl，編寫以下事件過程：Private Sub Commandl_C1ick() Dim bb = Array(1,2,3,4,5) End Sub此過程的功能是把 數(shù)組b中的5個(gè)數(shù)逆序存放。為了實(shí)現(xiàn)此功能，省略號(hào)處的程序段應(yīng)該是( C )A) For i =0 To 5-12 tmp =b(i) b(i) =b(5-i-1) b(5-i-1) = tmp Next iB

6、)For i= 0 To 5tmp=b(i) b(i) =b(5-i-1) b(5-i-1)=tmp Next iC)For i= 0 To 52 tmp= b(i) b(i)=b(5-i-1)b(5-i-1)=tmp Next iD)For i=1 To 52 b(5-i-1) = tmptmp=b(i)b(i)=b(5-i-1) Next i14. 在窗體上繪制一個(gè)命令按鈕Commandl，編寫以下事件過程:Option Base 1Private Sub Command1_Click()Dim a(3, 3) As IntegerFor i = 1 To 3For j = 1 To 3a

7、(i, j) = 2 * i + jNext j Next iNext j Next iEnd SubFor i = 2 To 3For j = 2 To 3Print a(j, i)程序運(yùn)行后，單擊命令按鈕，輸出的結(jié)果是(C )A)5B) 6C) 6D) 5678778768998x* x(x 0)15. 設(shè)有函數(shù) y=0(x 0) ，下面不能正確求得函數(shù)值的程序段是(D )。x(x 0)A ) Select Case xCase Is 0 y=x*xEnd SelectB ) If x0 Theny=x*x End IfIf x=0 Theny=0 End IfIf x0 Theny=x End IfC)If x 0 Theny = y * xElsey = 0End IfEnd IfD ) If x0 Theny=x*xElsey=0 End If主觀題部分：編程題（每題 15 分，共1 題）編程實(shí)現(xiàn)一個(gè)窗體 Form 的 click 事件，單擊該窗體后從鍵盤接收變量 n 的數(shù)值然后計(jì)算并打印 1+2+.+n 的值，如果和已經(jīng)大于 1000 則停止計(jì)算。Private Sub Command1_Click()D