VB课件--第4讲VB控制结构.pdf

《VB课件--第4讲VB控制结构.pdf》由会员分享，可在线阅读，更多相关《VB课件--第4讲VB控制结构.pdf（23页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第 4 讲 VB 控制结构1 第 4 讲 VB 控制结构结构化程序设计的三种结构，即顺序结构、选择结构、循环结构。4.1 顺序结构4.1.1 赋值语句1.赋值语句形式形式：变量名=表达式S=x*y+sqr(a+b)给变量赋值Text1.Text=“欢迎使用VB”设定属性2.赋值语句注意点赋值语句不允许写成表达式=变量，虽然赋值号与关系运算符等于号都用=表示，VB系统会根据所处的位置自动判断符号的意义。赋值号左边只能是变量，不能是常量、常数符号、表达式。不要将赋值号“”理解为数学上的等号：3.赋值语句常用形式 对变量赋值，将表达式的值赋给变量 Y=Abs(x+y)/(x*y)设定对象的属性（只读

2、属性除外）Label1=“输入”Text1.FontName=“楷体 _GB2312”交换两个变量(A 和 B)的值 T=A：A=B：B=T T=B：B=A：A=T 字符串连接设：C1=“ABC”C2=“XYZ”Re=“”Re1=Re+C1 Re1=Re&C1 Re2=C1+Re Re2=C1&Re 计数计数 Num=Num+1 变量 Num的值每次加1 Num=0 Num=Num+1 累加累加 S=S+X 变量 S 的值加 X 的值再赋给S S=0 X=5 :S=S+X X=6 :S=S+X Print X;S 4.赋值号两边数据类型不同时的处理(1)当表达式为数值型并与变量精度不同时，需强

3、制转换成左边变量的精度。Dim N%,M%N=3.5 转换时四舍五入，N中的结果为4 M=3.2 转换时四舍五入，M中的结果为3(2)当赋值号左边变量是数值型，而表达式是数字字符串，自动转换成数值类型再赋值。若表达式为非数字字符或空串，则出错。Dim X%,Y!X=“234.5”变量 X的为数值值235 Y=“AB”、Y=“”运行时出错第 4 讲 VB 控制结构2(3)任何非字符型的值赋给字符变量，自动转换为字符型。Dim X$,Y$,Z$X=1234:Y=Date:Z=True(4)当逻辑值赋给数值型变量时，True 转换成-1，False 转换为 0；反之当数值赋给逻辑型变量时，非 0 转

4、换为 True,0转换成 False。Dim x As Boolean,y As Boolean,a%,b%x=1234:y=0 a=True:b=False Print x,y,a,b 4.1.2 数据的输出和输入1.文本框控件文本框的Text 属性可获得用户从键盘输入的字符型数据类型数据。Dim x,y,z x=Text1:y=Text2 Text1和 Text2 中分别输入12、23，则赋值语句z=x+y中变量 z 的值为？x=Val(Text1):y=Val(Text2)Text1和 Text2 中还是输入12、23，则赋值语句z=x+y中变量 z 的值为？2.输入对话框InputBo

5、x函数打开一个对话框，等待用户输入数据，单击“确定”按钮或按回车键后，返回字符型的输入值。函数形式：InputBox(提示,标题,默认值,x坐标位置,y坐标位置)提示：必须，可以是字符常量、变量、表达式。当某可选项省略，又选择了其后的可选项，则被省略项的逗号“，”占位符不能省略。3.MsgBox函数和 MsgBox过程函数形式：变量=MsgBox(提示,按钮,标题)过程形式：MsgBox 提示,按钮,标题 4.2 选择结构4.2.1 If条件语句1.单分支结构 If Then 语句块 End If 或 If Then 表达式：关系表达式、逻辑表达式，算术表达式。2.双分支结构 If Then

6、语句块 1 Else 语句块 2 End If 或 If Then 语句块 1 Else 语句块 2 3.多分支结构If,Then,ElseIf 语句 If 表达式 1 Then 语句块 1 ElseIf 表达式 2 Then 语句块 2 第 4 讲 VB 控制结构3,Else 语句块 n+1 End If 4.2.2 Select Case语句Select Case 测试表达式 Case 表达式列表1 语句块 1 Case 表达式列表2 语句块 2,Case Else 语句块 n+1 End Select 语句功能：根据测试表达式的值，从多个语句中选择符合条件（满足测试表达式的值）的第一个语

7、句块执行。表达式列表：它可以是下面几种形式之一。（1）一个数值或一个数值表达式 Case 5 Case 4*X+Y（2）一个字符串或一个字符串表达式 Case H Case“ABC“&CH$（3）一个值的范围 Case 4 To 13 Case S To Z（4）一个比较值，Is 关系运算符表达式 Case Is 8 Case Is M （5）还可以是上述值或表达式进行组合 Case 5,7,Is w 当“测试表达式”是逻辑常量True 时，则“表达式列表”只能为一个关系或逻辑表达式。多分支结构，用Select Case语句比If,Then,ElseIf语句直观，程序可读性强。但不是所有的多分

8、支结构均可用Select Case语句代替If,Then,ElseIf语句。4.2.3 条件函数1.IIf函数IIf(表达式，表达式为真时的值，表达式为假时的值)IIf函数是 If,Then,Else 结构的简洁表示2.Choose函数Choose(整数表达式，选项列表)根据表达式的值i,返回选项列表中第i 个选项。如果整数表达式的值越出选项范围时，返回Null。4.3 For循环语句4.3.1 For循环语句For 循环变量=初值 To 终值 Step 步长 语句块 Exit For 语句块Next 循环变量(1)步长为 1 时省略 Step 步长。第 4 讲 VB 控制结构4 (2)当“终

9、值”“初值”且步长为负时，不执行循环体。(4)当“终值”“初值”且步长0 时，不执行循环体。(5)语句 Exit For跳出循环执行Next 的下一个语句。循环执行(1)将“初值”赋给“循环变量”(2)测试循环变量是否超过“终值”，若超过“终值”循环结束。循环结束，否则执行循环体。(3)执行到 Next 时，循环变量=循环变量+步长，转（2）。4.3.2 Do,Loop 循环语句Do循环用于控制循环次数未知的循环结构。形式 1：形式 2：Do While|Until Do 语句块语句块 Exit Do Exit Do 语句块语句块Loop Loop While|Until 4.3.3 Whil

10、e,WEnd循环语句该循环用于控制循环次数未知的循环结构。形式 1：While 语句块（循环体）WEnd 先判断后执行，当条件为真时执行循环体，条件为假时执行Wend下面的语句。4.3.4 循环的嵌套在一个循环体内又包含了一个完整的循环结构称为循环的嵌套。循环嵌套对For 循环语句和Do,Loop语句均适用。4.4 其他辅助控制语句4.4.1 Go To 语句无条件地转移到标号或行号指定的那行语句。Go To 标号|行号 注意：标号是字符序列，首字符必须为字母，标号后应有冒号；行号是一个数字序列；4.4.2 退出和结束语句1.Exit语句 Exit For、Exit Do、Exit Sub、E

11、xit Function 2.End语句独立的 End 语句用于结束一个程序的运行，它可以放在任何事件过程中。4.5 错误类型语法错误、运行错误和逻辑错误。控制结构选择题1下列 VB程序段的执行结果是（）。A=0:B=1 A=A+B:B=B+A:Print A;B A=A+B:B=B+A:Print A;B A.1 2 B.1 1 C.1 3 D.1 2 第 4 讲 VB 控制结构5 3 5 3 5 3 4 3 4 2在 VB中使用 MsgBox函数时，必须的参数是（）。A Prompt BButtons CTitle D Context 3关于 For,Next 循环的初值、终值与步长，下列

12、说法正确的是（）。A.只能是具体的数值。B.只能是表达式。C.可以是数值表达式D.可以是任何类型的表达式。4要使循环体至少执行一次，应使用（）循环。A.For,next B.While,wend C.Do,Loop while|until D.dowhile|until,loop 5多分支结构Case 语句的 是用来表明()。A.的值域。B.的类型。C.的取值个数。D.的入口。6在 VB语句中，REM是()语句。A.恢复语句B.注释语句C.改名语句D.重定向语句7如果在立即窗口中执行以下操作a=8:b=9:print ab 则输出结果是()。A.-1 B.0 C.False D.True 8设

13、 a=6，则执行 x=IIf(a5,-1,0)后，x 的值为()。A.5 B.6 C.0 D.-1 9语句 If x=1 then y=1,下列说法正确的是()。A）X=1 和 y=1 均为赋值语句B）x=l 和 y=1 均为关系表达式C）x=1 为关系表达式，y=1 为赋值语句D）X=1为赋值语句，y=1 为关系表达式10下列各赋值语句，不正确的语句是（）。A.x+y=5 B.iNumber=15 C.Labell.caption=“time”D.sLength=x+y 11下列 Case语句中，错误的是（）。ACase 1 to 10 B Case Is50 CCase to 100 D

14、Case“Xie”12以下 Case语句中错误的是（）。A.Case 1 To 15 B.Case Is15 C.Case Is15 And Is15 第 4 讲 VB 控制结构6 113“X 是小于 100 的非负数”，用 VB表达式表示正确的是（）。A.0=X100 B.0=X=0 AND X100 D.0=X OR X100 14当条件为5x10 时，则 x=x+1，则以下语句正确的是（）。A.if 5x10 then x=x+1 B.if 5x or x10 then x=x+1 C.if 5x and x10 then x=x+1 D.if 5x xor x10 then x=x+1

15、 15关于 Exit for的使用说明正确的是（）。A.Exit for 语句可以退出任何类型的循环。B.一个循环中只能有一个这样的语句。C.Exit for 表示返回For 语句去执行。D.一个 For 循环中可以有多条Exit for语句。16以下语句错误的是:（）。A.If a=1 And b=2 then C=3 End If B.If a=1 Then C=2 Else If a=2 Then C=3 End If C.c=Iif(a f=1,2,3)D.If a=1 Then C=2 ElseIf a=2 Then C=3 End If 17多分支选择结构的Case 语句，下列写法

16、错误的是（）。A.Case 1,5,7,9 B.Case 8 to 10 C.Case 10 to 2 D.Case Isman 18下列关于For,next 语句的说法正确的是（）。A.循环变量、初值、终值和步长都必须为数值型。B.step后的步长只为正数。C.初值必须小于终值。D.初值必须大于终值。19下列关于DO,Loop 语句的叙述不正确的是（）。A.Do,loop 语句采用逻辑表达式来控制循环体执行的次数。B.当 Do while,Loop 或 Do until,Loop 语句中 while或 until后的表达式的值为true或非零时，循环继续。C.Do,Loop while语句与

17、 Do,Loop until语句都至少执行一次循环体。D.Do while,Loop 语句与 Do until,Loop 语句可能不执行循环体。20程序的基本控制结构是（）。A.顺序结构、多分支结构和单分支结构。B.For,Next 结构、Do,Loop 结构和 Select,Case结构。C.顺序结构、选择结构和循环结构。第 4 讲 VB 控制结构7 D.单行结构和多行结构。21执行下面的程序后，X的值为（）。X=1 For I=1 To 5 Step 2 X=x+i/5 Next I A.8 B.9 C.3 D.2.8 22有语句If x=1 Then y=1，下面说法正确的是（）。A.x

18、=1 和 y=1均为赋值语句B.x=1 和 y=1均为关系表达式C.x=1为赋值语句，y=1为关系表达式D.x=1为关系表达式，y=1为赋值语句23下面程序运行后，显示的结果是（）。Dim x x=Int(Rnd)+5 Select Case x Csae 5 Print“优秀”Case 4 Print“良好”Csae 3 Print“及格”Case Else Print“不及格”End Select A.不及格 B.良好 C.优秀 D.及格24下面的VB程序段的运行结果是（）。For i=3 To 1 Step-1 Print Spc(5-i);For j=1 To 2*i-1 Print$

19、;Next j Print Next i A.$B.$C.$D.$25命令按钮的单击事件代码如下，程序运行后，单击命令按钮，输出的结果是（）。Private Sub Command1_Click()x=2 y=1 If x*y 0 End Sub A.True B.False C.-1 D.1 26有一个如下的Function过程，此过程的功能是（）。第 4 讲 VB 控制结构8 Function Result(n)t=0 For i=1 To n t=t+i Next i Result=t End Function A.计算 n!B.计算 0*1+1*2+2*3+,+(n-1)*n C.计算

20、 0*1*2*3,*n D.计算 1+2+3+,+n 27由“For k=10 to 0 Step 3”循环语句控制的循环次数是（）。A.12 B.0 C.-11 D.-10 28有如下程序，其循环执行的次数为:（）。For I=1 To 3 For j=5 To 1 Step-1 Print I+j Next j Next I A.12 B.13 C.14 D.15 29以下程序段执行后整型变量n 的值为（）。N=0 For I=1 to 20 step 5 n=n+1 Next I A.50 B.4 C.15 D.5 30要求该程序执行3 次循环，则在程序中的括号里要填入（）。X=1 Do

21、 x=x+3 Print x Loop Until()A.x=8 B.x=7 D.x5 then If b3 Then c=a*b Else c=a mod b End If A.2 B.-1 C.1 D.6 32下列是一个循环结构的程序，循环体内的语句将执行（）次。=0 For I=1 to 10 For j=1 to 100 K=k+1 Next j Next I A.0 B.10 C.100 D.1000 第 4 讲 VB 控制结构9 33有如下程序，该段程序将（）。For I=1 to 10 step 0 K=k+2 Next I A.形成无限循环 B.循环体执行一次后结束循环C.语法

22、错误 D.循环体不执行即结束循环34有如下语句，执行后该段语句的循环次数是（）。Dim s,k,j as integer For k=1 to 3 For j=3 To 1 Step-1 S=k*j Next j Next k A.9 B.10 C.3 D.4 35下列循环语句将执行（）次。A=1000 DO Print a A=A+1 Loop while a=3 x=x+2 k=k+1 Loop A.2 B.4 C.6 D.8 37有如下程序段，该程序段执行完毕后，共循环了()次。For I=1 To 2 For j=1 To 2 For k=1 To 2 Print a Next k N

23、ext j Next I A.6 B.7 C.8 D.9 38执行下面的程序段后，x 的值为()。X=5 For I=1 To 10 Step 3 x=x+I/5 Next I A.21 B.9.4 C.23 D.10 39下列程序执行后，分别输入5，10，则输出的结果是()。a=InputBox(请输入数据&a&的值)第 4 讲 VB 控制结构10 b=InputBox(请输入数据&b&的值)c=a+b+5 Print c A.15 5 B.5105 C.20 D.25 40执行下面的程序段后，x 的值为()。X=5 For I=1 To 20 Step 2 x=x+I5 Next I A.

24、21 B.22 C.23 D.24 41有如下程序，该程序的执行结果为()。Dim k As Integer n=5 m=1 k=1 Do until k n m=m*2 k=k+1 Loop Print m A.26 B.28 C.30 D.32 42下列程序段的运行结果是()。Private Sub Form_Load()Text1.Text=Text1.SetFocus For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub A.在文本框 Text1 中输出 55 B.在文本框Text1 中输出 0 C.出错 D.在文本框Text1 中

25、输出不定值43下列程序段的运行结果是()。Dim n as Integer i=21:n=3 Do While In i=i-n Loop Print I A.21 B.3 C.4 D.24 44下列程序的执行结果是()。M1=1:m2=1 Do While m2 6 m1=m1*m2 m2=m2+1 Loop 第 4 讲 VB 控制结构11 Print m1 A.1 B.2 C.110 D.120 45下列程序段的执行时，输出结果是()。For a=0 To 1 For b=1 To 2 For c=1 To 3 I=I+1 Next c Next b Next a Print I A.10

26、 B.11 C.12 D.13 46执行下面的程序段后，s 的值为()。S=5 For i=2.6 To 4.9 Step 2 s=s+1 Next I A.7 B.9.9 C.7.6 D.8 47程序运行后，单击命令按钮，在输入对话框中输入“234”，输出结果为()。For I=1 To 3 For j=1 To 3 N=N+1 Next j m=m+N Next I Print m A.9 B.18 C.19 D.10 48程序运行后，在键盘上输入“abcdef”，单击命令按钮，则文本框中显示的内容为()。Dim SaveAll As String Private Sub Command1

27、_Click()Text1.Text=Ucase(SaveAll)End Sub Private Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub A.abcdef B.fedcbA C.ABCDEF D.FEDCBA 49有如下程序段，执行该程序段，在输入对话框中输入数据4，该程序段的执行结果是()。N=Val(InputBox(请输入大于零的偶数)s=0:I=1:c=1 Do s=s+c*I*I c=c*(-1)I=I+1 Loop While I 160 Or(B*C 200 And No

28、t D 60)Print E A.70 B.80 C.True D.False 51下面程序段的输出结果是()。P=0:s=0 Do p=p+2 s=s+p Loop While p 11 Print s A.39 B.40 C.41 D.42 52下列程序的执行结果为()。A=100:b=50 If a 5 S=s+n N=n+1 Loop Print s A.10 B.15 C.20 D.25 58下列的程序片段，其执行结果是()。A=5:b=9 c=14:a=a+b c=c-b if a-cb-c then a=b+c if a-bb-c then b=a-c print a,b,c A

29、.5 9 14 B.23 9 14 C.5 -9 9 D.14 9 5 59有下列语句，其执行的结果为()。Private Sub Command2_Click()x=5 y=10 Do x=x*y y=y+1 Loop Until y 10 Print x End Sub A.50 B.45 C.40 D.35 60下列程序段，输出结果为()。B=1 Do Until b10 B=b*(b+1)Loop 第 4 讲 VB 控制结构14 Print b A.38 B.40 C.42 D.44 61程序运行后，单击命令按钮，分别在输入对话框中输入5、4、3、2、1、-1，则输出结果为()。Pri

30、vate Sub Command1_Click()x=0 Do Until x=-1 a=InputBox(请输入 a 的值)a=Val(A)b=InputBox(请输入 b 的值)b=Val(B)x=InputBox(请输入 x 的值)x=Val(X)a=a+b+x Loop Print a End Sub A.2 B.0 C.-2 D.-4 62在窗体上画一个名称为Text1 的文本框和一个名为Command1 的命令按钮，然后编写一个For 循环过程，m是循环变量，n 是计算程序运行时循环的次数，当m的值大于21 时跳出循环，最后把计算的循环次数 n 值在文本框中显示出来。在（）处选择正

31、确的答案将程序补充完整。Private Sub Command1_Click()Dim m As Integer,n As Integer For m=-21 To 30 m=m+4 n=n+1 If m 21 Then(1 )(2 )Text1.Text=Str(3 )End Sub(1)A.Loop B.Exit For C.Next D.Again(2)A.Next B.End For C.Next For D.Exit For(3)A.m B.m+a C.n+1 D.n 63设在窗体Form1 上有一个时钟控件Timer1。下列程序运行时，每间隔10 秒钟，以窗体标题的形式显示此时正在

32、上第几节课或是晚餐或是午休时间，等等。Private Sub Form_Load()Timer1.Interval=(1 )End Sub Private Sub（2 ）_Timer()Dim x As Single x=（3 ）+Minute(Time)/60 Select Case x Case Is 21 Form1.Caption=over Case（4 ）Form1.Caption=第 911 节课 第 4 讲 VB 控制结构15 Case Is 18 Form1.Caption=晚餐时间 Case Is=14 Form1.Caption=第 58 节课 Case Is 12 For

33、m1.Caption=午休时间 Case Is=8 Form1.Caption=第 14 节课 End Select End Sub(1)A.10 B.100 C.1000 D.10000(2)A.InterVal B.Command1 C.Timer1 D.Timer(3)A.Hour(New)B.Hour(Time)C.Hour(Date)D.Hour()(4)A.19,20,21 B.19 To 21 C.19,21 D.Is=19 And Isb C.ab D.ab(2)A.a=b B.ab C.ab D.ab(3)A.a=b B.ab C.ab D.ab 66地窗体上有两个名称为Te

34、xt1 和 Text2 的文本框，然后编写如下循环控制的事件过程。程序运行后单击窗体，则在文本框Text1 中显示的结果是（1 ），在文本框Text2 中显示的结果是（2 ）。Private Sub Form_Click()x=0 n=50 While x=1 Then Print（2 ）:s=（3 ）Next j Next k Print Print s=;(4 )End Sub（1）A.10 B.18 C.19 D.20（2）A.k,j,i B.k,i,j C.i,j,k D.i,k,j（3）A.i B.i+1 C.j+1 D.s+1（4）A.k B.j C.i D.s 71在窗体上画一个

35、名称为Command1 的命令按钮和一个名称为Text1 的文本框，在Command1 的代码框中输入代码，这些代码的功能是求出1 至 10000 之间的奇数之和，当单击Command1 命令按钮运行这些代码，并把计算结果在Text1 的文本框中显示出来。请在（）处选择正确的答案将程序补充完整。Private Sub Command1(1 )Dim i,s As Long s=0 For i=1 To 10000 Step 2 s=(2 )Next i Text1.(3 )=Str(s)End Sub（1）A._Load B._Click C._DblClick D._Activate（2）A

36、.s+i B.i C.s+i*i D.i*i（3）A.Value B.Caption C.Text1 D.Text 72下面程序的功能是：计算1到 50 之间的奇数和、奇数平方和，并显示出来。请在（）处选择正确的答案将程序补充完整。Private Sub Form_Click()Dim s1 As Integer,s2 As Integer,k As Integer s1=0:s2=0 For k=1 To 50 Step 2 s1=（1 ）s2=（2 ）Next k Print 奇数和=;s1 Print 奇数平方和=;s2 End Sub（1）A k Bk*k Cs1+k Ds2+k*k（

37、2）A k Bk*k Cs1+k Ds2+k*k 73在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程。请在（）处选择正确的答案将程序补充完整。Private Sub Command1_Click()Dim x As Integer,y As Integer x=InputBox(请输入 x 的值)y=InputBox(请输入 y 的值)If（1 ）Then 第 4 讲 VB 控制结构19 Print x大于 y ElseIf（2 ）Then Print x等于 y ElseIf（3 ）Then Print x小于 y Else Print 不能比较x，y 的大小 End

38、If End Sub（1）A x=y B x y Cx y（2）A x=y B x y Cx y Dx y（3）A x=y B x y Cx y Dx y 74.下列程序是计算：1+1/5+1/9+1/13+,+1/(4n+1)的值，直到(1/(4*-n+1)的值小于0.001。在（）处选择正确的答案将程序补充完整。Private Sub Form_Click()s=1:n=1 Do n=(1 )temp=1/n s=s+temp If temp 0.001 Then(2 )Loop Print(3 )End Sub(1)A n Bn+1 Cn+4 Dn+2(2)A Exit BExit Do

39、 CNext i DNext Do(3)A n Btemp Cs D1/n 75下列程序的功能是：单击窗体，则打印如下图案。在（）处选择正确的答案将程序补充完整。Private Sub Form_Click()For i=1 To（1 ）For j=1 To（2 ）Print ;Next j For j=1 To（3 ）Print*;Next j（4 ）Next i For i=1 To（5 ）For j=1 To（6 ）Print ;Next j For j=9-2*i To 1 Step-1 Print*;Next j Print 第 4 讲 VB 控制结构20 Next i End Su

40、b(1)A 3 B4 C5 D6(2)A 1 To 3-i B1 To 4-i C1 To 5-i D1 To 6-i(3)A 2*i-1 B2*i+1 Ci-1 Di+1(4)A Print“”B Print CPrint“*”D (5)A 3 B4 C5 D6(6)A 1 To i+1 B0 To i C0 To i+1 D1 To i 76单击窗体后，用输入对话框输入X、n，按下式计算结果。要求将计算结果以标签空件显示，且每秒钟随机变换一次颜色。在（）处选择正确的答案将程序补充完整。Dim S As Single Private Sub Form_Click()Dim x!,n%,i%,

41、t!S=0 x=InputBox(x=)n=InputBox(n=)（1 ）For i=（2 ）t=t*x/i S=S+t Next i（3 ）End Sub Private Sub Form_Load()Timer1.Interval=1000 Timer1.Enabled=False End Sub Private Sub Timer1_Timer()Label1.ForeColor=RGB(Rnd*255,Rnd*255,rng*255)Label1.Caption=S End Sub(1)A.t=-1 Bt=0 Ct=2 D t=1(2)A 2 to n+1 B1 to n C2 to

42、 n D 1 to n+1(3)A Timer1.Enabled=False BTimer1.Enabled=True CLabel1.Enabled=False DLabel1.Enabled=True 77.在窗体上建立一个标签，其名为Label1，标题为0，然后画两个命令按钮，名称分别为Command1t和Command2，标题为“开始计时”和“停止计时”，再画一个计时器，名称为Timer1，InterVal属性设置为1 秒钟时间的数值，Enabled 的属性设置为False。程序运行后，如果单击“开始计时”按钮，则标签框的数字每隔1 秒执行一次加1 操作，如果单击“停止计时”按钮，则标

43、签框中的数字停止不变。在（）处选择正确的答案将程序补充完整。Private Sub Command1_Click()Timer1.Interval=（1 ）Timer1.Enabled=True End Sub Private Sub Command2_Click()第 4 讲 VB 控制结构21 Timer1.Enabled=False End Sub Private Sub Timer1（2 ）()Label1.Caption=Label1.Caption+1 End Sub(1)A.10 B.100 C.1000 D.1(2)A.Command1 B.Command2 C.Timer1

44、D.Form1 78下列程序的功能是：输出1 至 1000 之间所有能被7 除余 3 且被 5 除余 3 的数，要求每输出8 个数后换一行。请在（）处选择正确的答案将程序补充完整。Private Sub Commandl Click（）Dim i As Integer，j As Integer （1 ）For i=0 To 1000 If i Mod 7=3 And（2 ）Then j=j+1 Picturel.Print I;If（3 ）Then（4 ）End If Next i PicturelPrint PicturelPrint 共有（5 ）个可以被除余且被除余的数nd Sub(1)A

45、 i=0 Bi=1 C j=0 Dj=1(2)A i Mod 5=3 Bi Mod 3=5 Cj Mod 5=3 Dj Mod 3=5(3)A i Mod 8=0 Bi Mod 8=1 Cj Mod 8=0 Dj Mod 8=1(4)A Print；BPrint C Picture1.Print；DPicture1.Print(5)A i Bi+j Cj D i j 79下面程序的功能是：从键盘上输入一串字符，以“！”结束，并对输入字符中的字母个数和数字个数进行统计。请在（）处选择正确的答案将程序补充完整。Private Sub Form click（）Dim ch，num1%，num2%nu

46、m1%=0 num2%=0 ch=InputBox(enter a character:)While ch !If ch=aAnd ch=A And ch=0(2 )ch=9 Then num2=num2+1 End If ch=InputBox(enter a character:)(3 )Print Amount;of;leters;num1 第 4 讲 VB 控制结构22 Print Amount;of;digits;num2 End Sub (1)A And BOr C Not D=(2)A And BOr C Not D=(3)A Next BEnd do C Wend DEnd i

47、f 80下列程序的功能是：求100 以内的质数。编程思路是从2 开始，依次判断每个数是否是质数，如果是就输出，否则继续往下，直到100 为止。请在（）处选择正确的答案将程序补充完整。Private Sub Form_click()Dim Value As Integer Dim Counter As Integer Dim num As Integer Me.Cls For Value=2 To 100 For Counter=2 To Value-1 If Value Mod(1 )=0 Then Exit For End If Next Counter If Counter=(2 )The

48、n Print Value;Tab;num=num+1 If num Mod 3=0 Then Print End If Next Value End Sub(1)A value B num Ccounter D都不对(2)A value B num Ccounter D都不对81 下面的程序功能是：计算 1 到 50 之间的偶数和及偶数平方和，并显示出来。根据题意，在（）处选择正确答案。Private Sub Form_Click()Dim sum1 As Integer,sum2 As Integer,i As Integer sum1=0:sum2=0 For i=2 To 50 Ste

49、p 2 sum1=（1 ）sum2=（2 ）Next i Print 偶数和=;sum1 Print 偶数平方和=;sum2 End Sub(1)A i Bi*i Csum1+i D sum2+i*i(2)A i Bi*i Csum1+i D sum2+i*i 82下面程序的功能是：读入n 后，求算式1+1/2!+1/3!+,+1/n!的值。根据题意，在（）处选择正确答案。Private Sub Form_Click()Dim sum As Single,item As Single Dim nn As String 第 4 讲 VB 控制结构23 Dim i%,j%,n%nn=InputBo

50、x(请输入求的项数n)n=（1 ）sum=1 For i=2 To n item=(2 )For j=1 To i item=(3 )Next j sum=sum+1/item Next i Print sum=;sum End Sub(1)A Val(nn)BInputbox(nn)CAsc(nn)DLen(nn)(2)A item*j Bitem+j C j*j Ditem*item(3)A 1/item Bsum+1/item Citem*item Dsum+item 83程序运行后，单击命令按钮，窗体上显示s 的值为（），a 的值为（）。Private Sub Command1_Cli