VB程序设计阶段练习2(专科)解析

1、VB 程序设计（专）第二阶段练习题、选择题F 面选项中 _ 是算术运算符。A . %B . &C . ModD . And下列选项中,把 R 定义为双精度型变量的是C 。A . r%B . r!C . r#D. r$30 Mod 4的值为B。A . 1B . 2C . 4D . 10下列运算符中A的优先级最高。A. /B . C. ModD. +Len（程序设计”的值是B。A. 0B. 4C . 8D .不能确定下面不合法的标示符是D。A . Lab1B . PrintC.标号D . Int下列赋值语句中，正确的是B。A . a%= ” VBP”B .a!= 100C . 1+a= 1

2、0eD . a+%= 10下列赋值语句中，正确的是B。A . Text1.text%=” VBP”B . Text2.text =:100C . Label1.Captio n!= 10eD . Label2.Caption +1= 10下列语句中，不正确的是C。A.x = MsgBox（除数为零，请重新输入！, vbCritical, 警告框”）B.x = MsgBox（除数为零，请重新输入！,vbCritical + vbOKOnly,警告框”）C.MsgBox （除数为零，请重新输入！,vbCritical, 警告框）D.MsgBox 除数为零，请重新输入！ ,vbCritical +

3、vbOKOnly,警告框”.下列语句中，正确的是A。A . x = MsgBox（ 除数为零，请重新输入！,警告框）B . x = MsgBox（ 除数为零，请重新输入！,警告框）C . MsgBox （除数为零，请重新输入！,警告框）D . MsgBox 除数为零，请重新输入！,警告框”.下列语句中，不能交换变量a 和 b 的值的是 _D_。A . t=b : b=a : a=tB . a=a+b : b=a-b : a=a-bC . t=a : a=b : b=tD . a=b : b=a.在一行内写多条语句时，每个语句之间用B符号分隔。A.,B.:C.、D.;.一句语句要在下一行继续写，

4、用C_符号作为续行符。A . +B . C . D .卜面A是合法的变量名。1.2 .3 .4 .5 .6 .7 .8 .9 .10111213141516A . X_ yzB . 123abcC .in tegerD . X Y卜面D是不合法的整常数。A . 100B . & 0100C. & H100D . %100卜面B是合法的字符常数。A. ABC$B . ” ABC”C. ABC17 .下面_ 是合法的单精度型变量。A. num!B. sum%C. xinte$18 .下面D是不合法的单精度常数。A. 100 !B . 100.0C. 1E+219 .表达式 16/4

5、-2人5*8/4 MOD 52的值为 _A. 14B. 4C. 2020.数学关系 3x10 表示成正确的 VB 表达式为A . 3=x10B . 3=x AND x=3 OR x10D . 3=x ANDy Then Print“ xy ” B . If x Then t=t*xC . If x Mod 3=2 The n ? x33 .给定程序段Dim a%,b%,c As In tegerA=1:b=2:c=3If a=c-b Then Pri nt “ # ” Else Print 以上程序C 。D . ABCD . mm#D . 100.0D+2B_。D . 2B。D . If xb

6、 Then max=a else max=b End IfB.If ab Then max=aElsemax=bEnd IfC.If ab Thenmax=aElsemax=bD.If ab Thenmax=aElsemax=bEnd If35 .下列 Case 语句中正确的是C。A. Select Case xCase 1 Or 3 Or 5 y=x*x_1Case Is10 y=x+1End SelectC. Select Case xCase Is 0y=sqr(x)+1End Select36 .下列多分支选择结构的 Case 语句，A. Case 1,5,7,9C. Case 5 T

7、o 237 . VB 提供了结构化程序设计的三种基本结构，三种基本结构是A .递归结构、选择结构、循环结构C.过程结构、输入、输出结构、转向结构D .选择结构、循环结构、顺序结构38 .下面程序段运行后，显示的结果是A。Dim xIf x Then Print x Else Print x + 1A. 1B. 0C. (1D .显示出错信息39 .语句 If x = 1 Then y = 1，下列说法正确的是_。A. x = 1 和 y = 1 均为赋值语句B. x = 1 和 y = 1 均为关系表达式C.x = 1 为关系表达式，y = 1 为赋值语句D.x = 1 为赋值语句，y = 1

8、 为关系表达式40 .下面程序段，显示的结果是A。Dim xx = In t(R nd) + 5 Select Case xB. Select Case xCase 1 Or 3 Or 5y=2*x-1Case Is=1 And x10y=x*x+1End Select写法错误的是 _ C_。B. Case 8 To 12D. Case Is 1Sum=Sum+ii=i-1WendPrint SumA. 无显示B. 10C. 044 .下面描述中错误的是A 。B. For x=3 To-3 Step -3Next xD. For x=3 To -3 Step-3Next yB.循环体执行1次D

9、.循环体执行无限次D. 55A.执行条件 Do Until Loop 语句中，当循环 为 False 时，结束循 环体的执行。B .执行 While Wend 语句时，循环体可能一次也不执行。C.DoLoop While 语句的循环体可能一次也不执行。D.执行 DoLoop Until 语句中，当循环条件为 True 时，结束循环体的执行。45 .下面程序段中循环语句的循环次数是B_ 。For x=0 To Step-3Print xNext xA. 046 .执行语句 For i=1A. 3B. 4To 3:i=i+1:Next iB. 4C. 5D.10后，变量啲值是C. 547 . Fo

10、r-Next 循环结构中A.形成无限循环C.语法错误48 .下列循环语句能正常结束循环的是A. i = 5Doi = i + 1Loop Un til i 0C. i = 10Doi = i - 1Loop Un til i 049 .执行以下程序段后，x 的值为_Dim x As In teger, i As In tegerx = 0若循环控制变量的步长为B 。D. 60,则 A 。循环体执行一次后结束循环循环体不执行即结束循环C_ 。B . i = 1Doi = i + 2Loop Un til i = 10D . i = 6Doi = i - 2Loop Un til i = 1C。B

11、.D.For i = 20 To 1 Step -2x = x + i 5Next iA. 16B. 17C. 18D . 1950 .执行以下程序段后，输出结果为A。Dim i As In teger, x As In tegerFori = 1 To 6If i = 1 The n x = iIf i =0 AND a+cb+3 OR NOTd 的值是_False_ 。15 .表达式 UCase(Mid(abcdefgh, 3, 4)的值是_CDEF_ 。16 判别变量 I 是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为_ If i Mod 2=0 Print i _ 。17

12、判别变量 x 是否大于 0,若大于 0,则累加到变量 s1 中，否则，累加到变量s2 中，使用单行结构条件语句为 _If x0 The n s 仁 s1+x Else s2=s2+x_。18 在循环语句中，反复执行的程序段称为 _循环体。19 WhileWend 语句是先判断 _条件表达式 _ 的值，再决定是否执行循环体。20 .如果 ForNext 循环中含有 Exit For 语句，当执行到这条语句时，将 _ 跳出循环_，执行 Next 后面的语句。21 把循环体内含有循环语句的循环称为 _ 多重循环_。22 .若是下列 For 语句循环执行 20 次，循环变量的初值应当是： _14_ 。

13、For k =_ To -5 Step -1 To -5 Step -1(To -5 Step -1)23 .下面的程序段显示 _10_ 个*。For i = 1 To 5Forj = 2 To i Print “ *;”NextNext三、程序填空题1如下程序的功能为，利用In putBox函数从键盘上输入三个数据，然后在窗体上显示该三个数据的和与它们的平均值,请填空。Private Sub Form_Click()al = Val(I nputBox(请输入第1个数:)a2 = Val(I nputBox(请输入第2个数:)a3 = Val(I nputBox(请输入第 3 个数:)Sum

14、 = al + a2 + a3Aver = Sum / 3Print 输入的三个数分另 为：;a1;a2;a3Print三个数和为：”；_ Sum_Print三个数平均值为：;_ Aver_End Sub2 求解鸡兔同笼问题。下面程序可以计算鸡兔各有多少只，鸡兔总头数和总脚数从键盘输 入，请填空。Private Sub Form_Click()h = Val(l nputBox( 鸡兔总头数：)f = Val(I nputBox(鸡兔总脚数：)_ y_ = (f - 2 * h) / 2_ x_ = (4 * h - f) / 2Print 鸡总头数为：;xPrint 兔总头数为：;yEnd

15、Sub3 输入文本框中若干个字符，统计有多少个元音字母、有多少个其他字母，直到按 键结束，并显示结果，大小写不区分。其中 Cou ntY 中放元音字母个数，Cou ntC 字符数。Dim Cou ntY%, Cou ntC%Private Sub Text1_KeyPress(KeyAscii As In teger)Dim C$C = _ UCase(Chr(KeyAscii) _If A = C And C = Z ThenSelect CaseCCountY = Cou ntY + 1CaseElseCou ntC = Cou ntC + 1End SelectEnd IfIf _ Ke

16、yAscii = 13_ ThenPrint 元音字母有;CountY; 个”Print 其他字母有;CountC; 个End IfEnd SubEn ter中放其他Case_ A,O, U4 输入任意长度的字符串，要求将字符顺序到置，例如，将输入的“ GFEDCBA”Private Sub Comma nd1_Click()Dim a$, i%, c$, d$a = InputBox(输入字符串)n =_Len(a) _For i = n To 1 Step -1c = _ Mid(a, i, 1)_d = _ d + c _Next iPrint dEnd Sub5 由键盘输入一个正整数，

17、找出大于或等于该数的第一个质数。Private Sub Comma nd1_Click()Dim m%, x%, Tag As Boolea nTag = Falsex = Val(InputBox(输入正整数)Do While Not T agm = 2: Tag =_ True_Do While T ag And (m (x 2)If x Mod m = 0 Then _ Tag = False1_LoopIf Not T ag Then x = x + 1LoopPrint xEnd Sub6 .下列程序功能：在窗体的 3 个文本框(Text1、Text2、Text3 )中输入三个数，将

18、它们 从大到小排序，并在文本框(Text4 )中输出排序结果。请填写程序空白处使程序完整。Private Sub Comma nd1_Click()a = Val(Text1.Text)b = Val(Text2.Text)c = _Val(Text3.Text) _If a b The nt = a: a = b: b = tEnd IfIf a = c The nt = a: a = c: c = tEnd IfIf b b The nm = aElse_ m = b _End IfIf c m The n m = cMsgBox 最大的数为：” & m, vbOKOnly,信息框

19、”End Sub8 .下列程序功能：通过输入对话框输入一个字符，首先将该字符显示在文本框1( Text1)内，再判别该字符，若它是大写字母，则把它变成小写字母；若它是小写字母，则把它变成大写 字母；若它是其他字母，则其值不变。最后再将该字符显示在文本框2 (Text2 )中。请填写程序空白处使程序完整。Private Sub Comma nd1_Click()Dim ch As Stri ng * 1ch = In putBox(请输入一个字符：)Text1.Text = chIf _ ch = A A nd ch = a A nd ch = z The nch = UCase(ch)Else

20、PrintEnd If _Text2.Text = ch _End Sub9 .下列程序功能：求 S = 1 + 2 + 3 + 100 的和，将求和结果显示在窗体的第10 列位置处，显示内容为 S = 5050。请填写程序空白处使程序完整。Private Sub Comma nd1_Click()Dim k As In teger, s As Long_ s = 0 _For k = 1 To 100s = s + kNextPrintPrint _ Tab(10); s=; s _End Sub10 .下列程序功能：在窗体上输出1030 之间不能被 3 整除的数(要求每一个数都在同一行上输

21、出)。请填写程序空白处使程序完整。Private Sub Comma nd1_Click()ClsDim x As In tegerx = 10PrintDoIf x Mod 3 0 The nPrint _ x_End Ifx = x + 1Loop _ While x 30_End Sub四、程序阅读题1 下列程序段运行后，输出结果为_ 7_。x = In t(R nd) + 3If xA2 8 The n y = xA2 + 1If xA2 = 9 The n y = xA2 - 2If xA2 8 The n y = xA3Print y2 .下列程序段运行后，输出结果为 _a=15

22、_ 。a = 0For i = 1 To 5For j = i To 5a = a + 1Next jNext iPrin t a=; a3 下列程序段运行后，输出结果为 _42_ 。c = 1Do While c 40c = c * (c + 1)LoopPrint c4 .下列命令按钮事件过程执行后，输出结果为 _ 10_Private Sub Comma nd1_Click()For i = 1 To 10 Step 2A = 10For j = 1 To 10 Step 2B = 20Next jNext iPrint AEnd Sub5 .下列程序段运行后，输出结果为 _ *。For

23、 i = 3 To 1 Step -1Print Spc(5 - i);Forj = 1 To 2 *i - 1Prin t *;Next jPrintNext i6 .下面程序运行后输出的结果是 _ 2 20 3 21 4 22 5 23Private Sub Comma nd1_Click()Fori = 0 To 3 Print Tab(5 * i + 1); 2 + i; 2 & i;Next iEnd Sub7 .下面程序运行后输出的结果是Private Sub Comma nd1_Click() a = *B= $For i = 1 To 4If i Mod 2 = 0 T

24、he nx = Stri ng(Le n(a) + i, B)Elsex = Strin g(Le n(a) + i, a)End IfPrint x;Next iEnd Sub8 执行下面程序，打印结果是 _136_。Opti on ExplicitPrivate Sub Form_Click()Dim i As In teger, j As In tegerj = 10For i = 1 To j Step 2i = i + 1j = j - 1Next iPrint i, jEnd Sub五、编程题1 编写程序：随机产生三个数，求出其中最小的那个数。Private Sub Comma n

25、d1_Click()a = Int(Rnd * 100)b = Int(Rnd * 100)c = Int(Rnd * 100)If (a c The nMin = cEnd IfPrint a; b; cPrin t Mi n=; 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 The nPrint y & ”

26、年是闰年”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 ThenL = (a + b + c) / 2s = Sqr(L * (L - a) * (L - b) * (