VB程序設(shè)計階段練習2解析

1、12345678910111213141516VB 程序設(shè)計 （專） 第二階段練習題、選擇題面選項中 C 是算術(shù)運算符。A%B&CModDAnd下列選項中，把 R 定義為雙精度型變量的是C。Ar%Br!Cr#Dr$30 Mod 4的值為 B。A1B2C4D10下列運算符中 A 的優(yōu)先級最高。A/BCModDLen（ “程序設(shè)計”）的值是 B 。A0B4C8D不能確定下面不合法的標示符是 D 。A Lab1B PrintC標號DInt下列賦值語句中，正確的是B_ 。Aa%= ” VBP” Ba!= 100C1+a= 10eDa+%= 10下列賦值語句中，正確的是_B_ 。A Text1.text

2、%=”VBP”B Text2.text =100C Label1.Caption!= 10eD Label2.Caption +1= 10下列語句中，不正確的是C_。Ax = MsgBox（ 除數(shù)為零，請重新輸入！ , vbCritical, 警告框 ）Bx = MsgBox（ 除數(shù)為零，請重新輸入！ , vbCritical + vbOKOnly, 警告框 ）C MsgBox （ 除數(shù)為零，請重新輸入！ , vbCritical, 警告框 ）D MsgBox 除數(shù)為零，請重新輸入！ , vbCritical + vbOKOnly, 警告框 下列語句中，正確的是 _A 。Ax = MsgBox

3、（ 除數(shù)為零，請重新輸入！ , , 警告框 ）Bx = MsgBox（ 除數(shù)為零，請重新輸入！ , 警告框 ） C MsgBox （ 除數(shù)為零，請重新輸入！ , , 警告框 ） D MsgBox 除數(shù)為零，請重新輸入！ , 警告框 下列語句中，不能交換變量 a 和 b 的值的是 D 。At=b : b=a : a=tBa=a+b : b=a-b : a=a-bCt=a : a=b : b=tDa=b : b=a在一行內(nèi)寫多條語句時，每個語句之間用 B 符號分隔。 A ，B ：C 、 D ；一句語句要在下一行繼續(xù)寫，用 C 符號作為續(xù)行符。ABCD下面A是合法的變量名。AXyzB 123abcC

4、integerDXY下面D是不合法的整常數(shù)。A100B O100C H100D %100下面B是合法的字符常數(shù)。DABCDmm#D 100.0D+2 B。D2B。A ABC$B” ABC”C ABC17 下面 A 是合法的單精度型變量。A num!B sum%C xinte$18 下面 D 是不合法的單精度常數(shù)。A100 ！B100.0C1E+219 表達式 16/4-25*8/4 MOD 52 的值為 A14B4C2020 數(shù)學關(guān)系 3x10 表示成正確的 VB 表達式為A3=x10B 3=x AND x=3 OR x10D 3=x ANDy Then Print“ xy ”BIf x Th

5、en t=t*xDIf xb Then max=a else max=b End IfB. Select Case xCase 1 Or 3 Or 5 y=2*x-1Case Is=1 And x10y=x*x+1End Select寫法錯誤的是 C 。B. Case 8 To 12D. Case Is b Then max=a Else max=bEnd If C If ab Then max=a Else max=b D If ab Thenmax=aElse max=bEnd If35 下列 Case 語句中正確的是 C 。A. Select Case x Case 1 Or 3 Or

6、5 y=x*x-1 Case Is10 y=x+1End SelectC. Select Case x Case Is 0 y=sqr(x)+1End Select36 下列多分支選擇結(jié)構(gòu)的 Case 語句，A. Case 1,5,7,9C. Case 5 To 237 VB 提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是 A遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)B 選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)C過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)D 選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)38 下面程序段運行后，顯示的結(jié)果是 A 。Dim xIf x Then Print x Else Print x + 1A 1B0C（ 1

7、D 顯示出錯信息39 語句 If x = 1 Then y = 1，下列說法正確的是 C 。Ax = 1 和 y = 1 均為賦值語句Bx = 1 和 y = 1 均為關(guān)系表達式C x = 1 為關(guān)系表達式， y = 1 為賦值語句Dx = 1 為賦值語句， y = 1 為關(guān)系表達式40 下面程序段，顯示的結(jié)果是 A 。 Dim x x = Int(Rnd) + 5 Select Case xCase 5Print 優(yōu)秀 Case 4Print 良好 Case 3Print 通過 Case ElsePrint 不通過 End SelectA優(yōu)秀B良好C通過D不通過41 以下 B 是正確的 Fo

8、r Next結(jié)構(gòu)。A. For x=1 To Step 10Nex xC. For x=1 To Step 10 l1: Nex x If i=10 Then Goto l142 設(shè)有程序段Dim k%K=5Do Until k=0K=k-1Loop 則下面對循環(huán)語句描述正確的是 C A. 循環(huán)體次也不執(zhí)行 C. 循環(huán)體執(zhí)行 5 次43 執(zhí)行下列程序段的結(jié)果為 C 。 Dim i,Sum as Integer While i1 Sum=Sum+i i=i-1 Wend Print SumA. 無顯示 B. 10 C. 044 下面描述中錯誤的是 A 。B. For x=3 To 3 Step

9、3Next xD. For x=3 To3 Step 3Next yB. 循環(huán)體執(zhí)行次D. 循環(huán)體執(zhí)行無限次D. 55A執(zhí)行條件 Do Until Loop 語句中，當循環(huán) 為 False 時，結(jié)束循 環(huán)體的執(zhí)行。B 執(zhí)行 While Wend 語句時，循環(huán)體可能一次也不執(zhí)行。C Do Loop While 語句的循環(huán)體可能一次也不執(zhí)行。D執(zhí)行 Do Loop Until 語句中， 當循環(huán)條件為 True 時，結(jié)束循環(huán)體的執(zhí)行。 45 下面程序段中循環(huán)語句的循環(huán)次數(shù)是 B 。For x=0 To Step3Print xNext xB. 4To 3:i=i+1:Next iB. 4A. 046

10、 執(zhí)行語句 For i=1A. 347 For-Next 循環(huán)結(jié)構(gòu)中A. 形成無限循環(huán)C. 語法錯誤48 下列循環(huán)語句能正常結(jié)束循環(huán)的是Ai = 5Doi = i + 1Loop Until i 0Ci = 10Doi = i - 1Loop Until i 049 執(zhí)行以下程序段后， x 的值為 Dim x As Integer, i As Integerx = 0C. 5 D. 10 后，變量 i的值是C. 5若循環(huán)控制變量的步長為B.D.B 。D. 60 ，則 A 。循環(huán)體執(zhí)行一次后結(jié)束循環(huán)循環(huán)體不執(zhí)行即結(jié)束循環(huán)C。Bi = 1Doi = i + 2 Loop Until i = 10

11、Di = 6Doi = i - 2 Loop Until i = 1 C。For i = 20 To 1 Step -2x = x + i 5Next iA 16B17C18D 1950 執(zhí)行以下程序段后，輸出結(jié)果為 A 。Dim i As Integer , x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i =0 AND a+cb+3 OR NOT d 的值是 False 。15 表達式 UCase(Mid(abcdefgh, 3, 4)的值是 CDEF 。16 判別變量 I 是否為偶數(shù)，若為偶數(shù)就把它顯示出來。使用單行結(jié)構(gòu)條件語句為If i

12、 Mod 2=0Print i。17 判別變量 x 是否大于 0，若大于 0 ，則累加到變量 s1 中，否則，累加到變量 s2 中， 使用單行結(jié)構(gòu)條件語句為If x0 Then s1=s1+x Else s2=s2+x。18 在循環(huán)語句中，反復(fù)執(zhí)行的程序段稱為 循環(huán)體。19 While Wend 語句是先判斷條件表達式 的值，再決定是否執(zhí)行循環(huán)體。20 如果 For Next 循環(huán)中含有 Exit For 語句，當執(zhí)行到這條語句時，將 跳出循 環(huán) ，執(zhí)行 Next 后面的語句。21 把循環(huán)體內(nèi)含有循環(huán)語句的循環(huán)稱為 多重循環(huán) 。22 若是下列 For 語句循環(huán)執(zhí)行 20 次，循環(huán)變量的初值應(yīng)當

13、是： 14 。 For k =To -5 Step -1To -5 Step -1( To -5 Step -1 )23 下面的程序段顯示 10個 * 。For i = 1 To 5For j = 2 To iPrint “ *; ”NextNext三、程序填空題1 如下程序的功能為，利用 InputBox 函數(shù)從鍵盤上輸入三個數(shù)據(jù)，然后在窗體上顯示該三個數(shù)據(jù)的和與它們的平均值，請?zhí)羁?。Private Sub Form_Click()a1 = Val(InputBox(請輸入第1個數(shù)：)a2 = Val(InputBox(請輸入第2個數(shù)：)a3 = Val(InputBox(請輸入第3個數(shù)：)

14、Sum = a1 + a2 + a3Aver = Sum / 3Print 輸入的三個數(shù)分別為： ;a1;a2;a3Print 三個數(shù)和為： ; SumPrint 三個數(shù)平均值為： ; AverEnd Sub2 求解雞兔同籠問題。下面程序可以計算雞兔各有多少只，雞兔總頭數(shù)和總腳數(shù)從鍵盤輸 入，請?zhí)羁?。Private Sub Form_Click() h = Val(InputBox(雞兔總頭數(shù)： )f = Val(InputBox(雞兔總腳數(shù)： )y = (f - 2 * h) / 2x= (4 * h - f) / 2Print 雞總頭數(shù)為： ; x Print 兔總頭數(shù)為： ; yEnd

15、SubEnter 中放其他3 輸入文本框中若干個字符，統(tǒng)計有多少個元音字母、有多少個其他字母，直到按 鍵結(jié)束，并顯示結(jié)果， 大小寫不區(qū)分。其中 CountY 中放元音字母個數(shù)， CountC 字符數(shù)。Dim CountY%, CountC%Private Sub Text1_KeyPress(KeyAscii As Integer) Dim C$C = UCase(Chr(KeyAscii)If A = C And C = Z Then Select CaseCCaseA,O,UCountY = CountY + 1Case ElseCountC = CountC + 1End SelectE

16、nd IfIf KeyAscii = 13 ThenPrint 元音字母有 ; CountY; 個Print 其他字母有 ; CountC; 個 End IfEnd SubElseABCDEFG”變換成4 輸入任意長度的字符串，要求將字符順序到置，例如，將輸入的 “ GFEDCBA”。Private Sub Command1_Click()Dim a$, i%, c$, d$a = InputBox( 輸入字符串 ) n = Len(a)For i = n To 1 Step -1c =Mid(a, i, 1)d =d + cNext iPrint dEnd Sub5 由鍵盤輸入一個正整數(shù)，找

17、出大于或等于該數(shù)的第一個質(zhì)數(shù)。Private Sub Command1_Click()Dim m%, x%, Tag As BooleanTag = Falsex = Val(InputBox( 輸入正整數(shù) )Do While Not T agm = 2: Tag =TrueDo While T ag And (m (x 2)If x Mod m = 0 ThenTag = False1LoopIf Not T ag Then x = x + 1LoopPrint xEnd Sub6 下列程序功能：在窗體的 3 個文本框( Text1 、Text2 、Text3 )中輸入三個數(shù)，將它們 從大到

18、小排序，并在文本框( Text4 )中輸出排序結(jié)果。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?Private Sub Command1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a b Thent = a: a = b: b = tEnd IfIf a = c Thent = a: a = c: c = tEnd IfIf b b Thenm = aElsem = bEnd IfIf c m Then m = cMsgBox 最大的數(shù)為： & m, vbOKOnly, 信息框 End Sub8 下列程序功能：通過輸

19、入對話框輸入一個字符，首先將該字符顯示在文本框1(Text1 )內(nèi)，再判別該字符，若它是大寫字母，則把它變成小寫字母；若它是小寫字母，則把它變成 大寫 字母；若它是其他字母， 則其值不變。 最后再將該字符顯示在文本框 2( Text2 )中。 請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?。Private Sub Command1_Click()Dim ch As String * 1ch = InputBox( 請輸入一個字符： )Text1.Text = chIf ch = A And ch = a And ch = z Thench = UCase(ch)ElsePrintEnd IfText2.Text

20、= chEnd Sub9 下列程序功能： 求 S123100 的和，將求和結(jié)果顯示在窗體的第 10 列位 置處，顯示內(nèi)容為 S 5050 。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾?。Private Sub Command1_Click()Dim k As Integer , s As Longs = 0For k = 1 To 100 s = s + kNextPrintPrintTab(10); s=; sEnd Sub10 下列程序功能：在窗體上輸出10 30 之間不能被 3 整除的數(shù)(要求每一個數(shù)都在同一行上輸出) 。請?zhí)顚懗绦蚩瞻滋幨钩绦蛲暾rivate Sub Command1_Click()

21、ClsDim x As Integerx = 10PrintDoIf x Mod 3 0 ThenPrint xEnd Ifx = x + 1LoopWhile x 30End Sub四、程序閱讀題1 下列程序段運行后，輸出結(jié)果為 7 。x = Int(Rnd) + 3If x 2 8 Then y = x 2 + 1If x 2 = 9 Then y = x 2 - 2If x 2 8 Then y = x 3Print y2 下列程序段運行后，輸出結(jié)果為 a=15 。a = 0For i = 1 To 5For j = i To 5 a = a + 1Next jNext iPrint a

22、=; a3 下列程序段運行后，輸出結(jié)果為 42 。c = 1Do While c 40c = c * (c + 1)LoopPrint c4 下列命令按鈕事件過程執(zhí)行后，輸出結(jié)果為10Private Sub Command1_Click()For i = 1 To 10 Step 2A = 10For j = 1 To 10 Step 2B = 20Next jNext iPrint AEnd Sub5 下列程序段運行后，輸出結(jié)果為*。For i = 3 To 1 Step -1Print Spc(5 - i);For j = 1 To 2 * i - 1Print *;Next jPrint

23、Next i6 下面程序運行后輸出的結(jié)果是 2 20 3 21 4 22 5 23Private Sub Command1_Click()For i = 0 To 3Print Tab(5 * i + 1); 2 + i; 2 & i;Next iEnd Sub7 下面程序運行后輸出的結(jié)果是Private Sub Command1_Click() a = *: B = $For i = 1 To 4If i Mod 2 = 0 Thenx = String(Len(a) + i, B)Elsex = String(Len(a) + i, a)End IfPrint x;Next iEnd Su

24、b8 執(zhí)行下面程序，打印結(jié)果是13 6 。Option ExplicitPrivate Sub Form_Click()Dim i As Integer, j As Integerj = 10For i = 1 To j Step 2i = i + 1j = j - 1Next iPrint i, jEnd Sub五、編程題1 編寫程序：隨機產(chǎn)生三個數(shù)，求出其中最小的那個數(shù)。 Private Sub Command1_Click()a = Int(Rnd * 100)b = Int(Rnd * 100)c = Int(Rnd * 100)If (a c ThenMin = cEnd IfPri

25、nt a; b; cPrint Min=; MinEnd Sub2 判斷某一年是否閏年(提示：年號(y )能被 4 整除，但不能被 100 整除；或者能被400 整除)。 Private Sub Command1_Click()y = Val(InputBox( 請輸入年份 )If y Mod 4 = 0 And y Mod 100 0 Or y Mod 400 = 0 ThenPrint y & 年是閏年 ElsePrint y & 年不是閏年 End IfEnd Sub3 輸入一個學生成績，若成績在 85 分以上，則輸出 “ Very good ；”若成績在 65 分到 84 分 之間 ，則輸 出 “ Good”； 若成 績低于 60 分 ，則 輸出 “ No good” 。 Private Sub Command1_Click()y = Val(InputBox( 請輸入學生成績 )If y = 85 ThenPrint Very goodElseIf y = 65 And y 85 ThenPrint goodElseIf y c And b + c a And a + c b The