VB复习题答案_第四章

1、第四章 控制结构第二题、 单选题(共 45 分，每项 1.5 分)1. If 结构的结束语句是 。 5A.E nd SelectB.E nd SubC.E nd If VD.E nd Do2. InputBox 函数的返回值的类型为 。4A.数值B.字符串 V C.逻辑值 D.日期值3. MsgBox 函数的返回值的类型为 。 5A.整数V B.字符串 C.逻辑值 D.日期值4. 通过代码在运行时设置属性的语法格式为 。 14A.对象名=属性.新值 B.对象名.属性=新值 VC.对象名 新值=属性.新值 D.对象名.属性=属性.新值第三题、 简单程序(共 15 分，每项 1.5 分)1. 从键

2、盘输入一个实数mm,利用字符串函数对输入的数进行处理，如果输出的内容不是字符则输出“ END “，程序的输出结果是 。 1 1Private Sub Command1_Click() mm=Val(InputBox(" 请输入一个实数 ") n$=Str$(mm)p=I nStr( n, ".")'I nSt)函数：指定一字符串在另一字符串中最先出现的位置If p>0 ThenPrint Mid(n,p)'Mid 语句来得到某个字符串中的几个字符ElsePrint "END"End IfEnd SubA.用字符方

3、式输出数据 mmB.输出数据的整数部分C.输出数据的小数部分 VD.只去掉数据部分的小数点，保留所有数码输出2. 运行下面程序后,在弹出的消息窗口中显示的是 。7Private Sub Form_Click()score=Int(Rnd)+5 '当参数为负数时, Int 函数返回小于或等于该参数之最大整数, rem 而 Fix 函数则返回大于或等于该参数之最小整数。Select Case scoreCase 5a$="Good"Case 4a$="Ok"Case 3 a$="Pass"Case Elsea$="Bad

4、"End SelectMsgBox a$End SubA.BadB.Pass C.OkD.Good V3. 以下程序的输出结果是 。 8Private Sub Command1_Click() a=100Dos=s+aa=a+1Loop Until a>100 print aEnd SubA.100B.120C.201D.101V4. 以下程序的循环次数是 。 11Private Sub Command1_Click() For j=8 To 35 Step 3 Print j;Next jEnd SubA.10 int(35-8)/3+1 V B.9C.27D.285. 执行

5、下面程序段后，变量 a 的值为 。 20For I=1 To 3For j=1 To IFor k=j To 3 a=a+1 Next k Next j Next IA.3B.9C.14VD.216. 执行下面程序段后，变量 x 的值为 。 20x=5For I=1 To 20 step 2 x=x+I5Next IA.21V B.22C.23D.247. 当输入 4 时，以下程序的输出结果是 。7Private Sub Command1_Click() x=InputBox(x)If xA2<15 The n y=1/xIf 乂人2>15 Then y=xA2+1 Print y

6、End SubA.4B.17V C.18D.0.258. 运行下面程序后，在弹出的消息窗口中显示的是 。 3Private Sub Form_Click()Dim countercounter=0While counter<20 counter=counter+1WendMsgBox counterEnd SubA.O B.21C.20VD.199. 运行下面程序后，在窗体中显示的是 。4Private Sub Form_Click()a$="*": b$="$"For k=1 To 3 x$=String$(Len(a$)+k,b$) 指定长度重

7、复字符的字符串。 Print x$;Next kPrintEnd SubA.、*B.*$*$*$C.1*$2*$3*$D.、$V10. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为 。 7Private Sub Command1_Click()x=0Do While x<50 x=(x+2)*(x+3) n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End SubA.1 和 0B.2 和 72V C.3 和 50D.4 和 16811. 执行下面的程序段后， I 的值为 。 3s = 2For I = 3.2 To 4.9 Step

8、0.8s = s + 1Next IA.6.4B.5.6VC.4.8D.7.212. 执行下面的程序段后，变量 S 的值为 。 3S= 5For I = 2.6 To 4.9 Step 0.6S=S+1Next IA.7B.8C.9V D.1013. 在窗体中添加一个文本框(其中 Name 属性为 Text1 ) ,然后编写如下代码： 2Private Sub Form_click()Text1.Text = ""Text1.SetFocusFor I = 1 To 10Sum = Sum + INext ITextl.Text = SumEnd Sub上述程序运行后，单击

9、窗体，则运行的结果 。A.在文本框 Textl中输出55VB.在文本框 Textl中输出0C.出错D.在文本框Textl中输出不定值14.运行下面程序后，在弹出的消息窗口中显示的是 。2Private Sub Form_Click()k=0Do While k<70k=k+2k=k*k+ka=a+kLoopMsgBox aEnd SubA.64B.72C.78 V D.148第二卷主观题填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的 顺序添入答题卡！）1. 请用正确的内容填空。以下程序找出Private Sub Form_Click()For x=1 T

10、o 50For y=x To 50 z=Sqr(x*x+y*y)If z <= 50 And z=lnt(z)Next yNext xPrintEnd Sub2. 在窗体上画一个名称为Comma ndlPrivate Sub Comma nd1_C1ick()Dim a As Stri nga ?a=50以内所有能构成直角三角形的整数组。14Then Print x; y; z Z是小于50的整数吗的命令按钮，编写如下事件过程2For I = 1 To 5Print Spc(6-I) ; Mid$(a , 6-1, 2*I-1)Next IEnd Sub程序运行后，单击命令按钮，要求窗体

11、上显示的输出结果为545634567请填空。3请用正确的内容填空。下面程序运行后，输出的结果是：*Private Sub Form_Click()For 1=1 To 4Print Tab(10+l);For j=1 To 8Prin t "*"Next jPrintNext IEnd Sub4请用正确的内容填空。以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。Private Sub Form_Click()a$="ABCDEHGABCDEFABCDEABCDABCABA"b$="AB"c=l nStr(a$, b$)x=

12、0While c<>0x=x+1a$=Mid$(a$, c+2)c=l nStr(a$,b$)WendPrint x -End Sub5. 下面程序运行时，内层循环的循环总次数是_6_。9For m = 1 To 3For n = 0 To m - 1Next nNext m6. 执行下面的程序段后，s的值为_7。14Private Sub Form_Click()Static s As In tegers = 5For I = 1.4 To 2.1 Step 0.6s = s + 1Next IPrint sEnd Sub7. 以下程序的功能是：生成20个200到300之间的随机

13、整数，输出数的位置能被5整除的数并求出它们的和。请填空。14Private Sub Comma ndl_C1ick()For I = 1 To 20x= Int( rnd*100+200 )IfI Mod 5 = 0 The nPrint xS= S+ xEnd IfNext IPrin t "Sum = "SEnd Sub8. 执行下面的程序段后，X的值为8。 3X=5For I=1 to 10 Step 2X=X+I5Next I9请用正确的内容填空。7下面程序的作用是利用随机函数产生10个(1200)之间的随机整数，打印其中7的整数倍的数并求其和。Private Su

14、b Form_Click()For I=1 To 10x=In t(R nd*200+1)If (x mod 7) = 0 Thenk1=k1+xPrint xEnd IfNext IPrintPrin t "k1="k1End Sub10请用正确的内容填空。8下面程序的功能是通过InputBox对话框接受一个 二进制数，并把它转换成一个十进制数， 结果显示在窗体中。Private Sub Form_Click()b=InputBox("请输入一个二进制数 ")m=Le n(b)For j= 1 to mdec=dec*2+ val(Mid(b,j,1)

15、Next jPrint b;"转换后的十进制数为："decEnd Sub11. 在窗体中添加两个文本框(其 Name属性分别为Textl和Text2)和一个命令按钮(其 Name属性为Command1)，单击命令按钮，在两个文本框 Textl和Text2中分别显示的值是 N和X,完成程序。2Private Sub Comma nd1_Click()X = 0Do While X < 10X = (X + 1) * (X + 2)n = n + 1LoopText1.Text = Str(N)Text2.Text = Str(X)End Sub12. 请用正确的内容填空

16、。以下程序的运行结果为：4DCDPrivate Sub Form_Click()a="ABCD"For m=_ 1 to 2_Print Tab(5-m); mid (a,5-m,m)或 Right(a,m)Next mEnd Sub13. 若s、I均为整型变量，执行下列程序后s的值为 15 。s = 0I = 1Dos = s + II = I + 1Loop Until I > 514. 以下程序的功能是：从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，当输入负数时结束输入，输出结果，请将程序补充完整。3Private Sub Form_Click()Dim x, amax, amin A