VB程序设计阶段练习2解析

1、12345678910111213141516VB 程序设计 （专） 第二阶段练习题、选择题面选项中 C 是算术运算符。A%B&CModDAnd下列选项中，把 R 定义为双精度型变量的是C。Ar%Br!Cr#Dr$30 Mod 4的值为 B。A1B2C4D10下列运算符中 A 的优先级最高。A/BCModDLen（ “程序设计”）的值是 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（ 除数为零，请重新输入！ , vbCritical, 警告框 ）Bx = MsgBox（ 除数为零，请重新输入！ , vbCritical + vbOKOnly, 警告框 ）C MsgBox （ 除数为零，请重新输入！ , vbCritical, 警告框 ）D MsgBox 除数为零，请重新输入！ , vbCritical + vbOKOnly, 警告框 下列语句中，正确的是 _A 。Ax = MsgBox

3、（ 除数为零，请重新输入！ , , 警告框 ）Bx = MsgBox（ 除数为零，请重新输入！ , 警告框 ） C MsgBox （ 除数为零，请重新输入！ , , 警告框 ） D MsgBox 除数为零，请重新输入！ , 警告框 下列语句中，不能交换变量 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在一行内写多条语句时，每个语句之间用 B 符号分隔。 A ，B ：C 、 D ；一句语句要在下一行继续写，用 C 符号作为续行符。ABCD下面A是合法的变量名。AXyzB 123abcC

4、integerDXY下面D是不合法的整常数。A100B O100C H100D %100下面B是合法的字符常数。DABCDmm#D 100.0D+2 B。D2B。A ABC$B” ABC”C ABC17 下面 A 是合法的单精度型变量。A num!B sum%C xinte$18 下面 D 是不合法的单精度常数。A100 ！B100.0C1E+219 表达式 16/4-25*8/4 MOD 52 的值为 A14B4C2020 数学关系 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 下列多分支选择结构的 Case 语句，A. Case 1,5,7,9C. Case 5 To 237 VB 提供了结构化程序设计的三种基本结构，三种基本结构是 A递归结构、选择结构、循环结构B 选择结构、过程结构、顺序结构C过程结构、输入、输出结构、转向结构D 选择结构、循环结构、顺序结构38 下面程序段运行后，显示的结果是 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 均为关系表达式C x = 1 为关系表达式， y = 1 为赋值语句Dx = 1 为赋值语句， y = 1 为关系表达式40 下面程序段，显示的结果是 A 。 Dim x x = Int(Rnd) + 5 Select Case xCase 5Print 优秀 Case 4Print 良好 Case 3Print 通过 Case ElsePrint 不通过 End SelectA优秀B良好C通过D不通过41 以下 B 是正确的 Fo

8、r Next结构。A. For x=1 To Step 10Nex xC. For x=1 To Step 10 l1: Nex x If i=10 Then Goto l142 设有程序段Dim k%K=5Do Until k=0K=k-1Loop 则下面对循环语句描述正确的是 C A. 循环体次也不执行 C. 循环体执行 5 次43 执行下列程序段的结果为 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. 循环体执行次D. 循环体执行无限次D. 55A执行条件 Do Until Loop 语句中，当循环 为 False 时，结束循 环体的执行。B 执行 While Wend 语句时，循环体可能一次也不执行。C Do Loop While 语句的循环体可能一次也不执行。D执行 Do Loop Until 语句中， 当循环条件为 True 时，结束循环体的执行。 45 下面程序段中循环语句的循环次数是 B 。For x=0 To Step3Print xNext xB. 4To 3:i=i+1:Next iB. 4A. 046

10、 执行语句 For i=1A. 347 For-Next 循环结构中A. 形成无限循环C. 语法错误48 下列循环语句能正常结束循环的是Ai = 5Doi = i + 1Loop Until i 0Ci = 10Doi = i - 1Loop Until i 049 执行以下程序段后， x 的值为 Dim x As Integer, i As Integerx = 0C. 5 D. 10 后，变量 i的值是C. 5若循环控制变量的步长为B.D.B 。D. 60 ，则 A 。循环体执行一次后结束循环循环体不执行即结束循环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 执行以下程序段后，输出结果为 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 是否为偶数，若为偶数就把它显示出来。使用单行结构条件语句为If i

12、 Mod 2=0Print i。17 判别变量 x 是否大于 0，若大于 0 ，则累加到变量 s1 中，否则，累加到变量 s2 中， 使用单行结构条件语句为If x0 Then s1=s1+x Else s2=s2+x。18 在循环语句中，反复执行的程序段称为 循环体。19 While Wend 语句是先判断条件表达式 的值，再决定是否执行循环体。20 如果 For Next 循环中含有 Exit For 语句，当执行到这条语句时，将 跳出循 环 ，执行 Next 后面的语句。21 把循环体内含有循环语句的循环称为 多重循环 。22 若是下列 For 语句循环执行 20 次，循环变量的初值应当

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 函数从键盘上输入三个数据，然后在窗体上显示该三个数据的和与它们的平均值，请填空。Private Sub Form_Click()a1 = Val(InputBox(请输入第1个数：)a2 = Val(InputBox(请输入第2个数：)a3 = Val(InputBox(请输入第3个数：)

14、Sum = a1 + a2 + a3Aver = Sum / 3Print 输入的三个数分别为： ;a1;a2;a3Print 三个数和为： ; SumPrint 三个数平均值为： ; AverEnd Sub2 求解鸡兔同笼问题。下面程序可以计算鸡兔各有多少只，鸡兔总头数和总脚数从键盘输 入，请填空。Private Sub Form_Click() h = Val(InputBox(鸡兔总头数： )f = Val(InputBox(鸡兔总脚数： )y = (f - 2 * h) / 2x= (4 * h - f) / 2Print 鸡总头数为： ; x Print 兔总头数为： ; yEnd

15、SubEnter 中放其他3 输入文本框中若干个字符，统计有多少个元音字母、有多少个其他字母，直到按 键结束，并显示结果， 大小写不区分。其中 CountY 中放元音字母个数， CountC 字符数。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 由键盘输入一个正整数，找

17、出大于或等于该数的第一个质数。Private Sub Command1_Click()Dim m%, x%, Tag As BooleanTag = Falsex = Val(InputBox( 输入正整数 )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 )中输入三个数，将它们 从大到

18、小排序，并在文本框( Text4 )中输出排序结果。请填写程序空白处使程序完整。 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 最大的数为： & m, vbOKOnly, 信息框 End Sub8 下列程序功能：通过输

19、入对话框输入一个字符，首先将该字符显示在文本框1(Text1 )内，再判别该字符，若它是大写字母，则把它变成小写字母；若它是小写字母，则把它变成 大写 字母；若它是其他字母， 则其值不变。 最后再将该字符显示在文本框 2( Text2 )中。 请填写程序空白处使程序完整。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 的和，将求和结果显示在窗体的第 10 列位 置处，显示内容为 S 5050 。请填写程序空白处使程序完整。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 整除的数(要求每一个数都在同一行上输出) 。请填写程序空白处使程序完整。Private Sub Command1_Click()

21、ClsDim x As Integerx = 10PrintDoIf x Mod 3 0 ThenPrint xEnd Ifx = x + 1LoopWhile x 30End Sub四、程序阅读题1 下列程序段运行后，输出结果为 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 下列程序段运行后，输出结果为 a=15 。a = 0For i = 1 To 5For j = i To 5 a = a + 1Next jNext iPrint a

22、=; a3 下列程序段运行后，输出结果为 42 。c = 1Do While c 40c = c * (c + 1)LoopPrint c4 下列命令按钮事件过程执行后，输出结果为10Private Sub Command1_Click()For i = 1 To 10 Step 2A = 10For j = 1 To 10 Step 2B = 20Next jNext iPrint AEnd Sub5 下列程序段运行后，输出结果为*。For i = 3 To 1 Step -1Print Spc(5 - i);For j = 1 To 2 * i - 1Print *;Next jPrint

23、Next i6 下面程序运行后输出的结果是 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 下面程序运行后输出的结果是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 执行下面程序，打印结果是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 编写程序：随机产生三个数，求出其中最小的那个数。 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