VB控制结构及答案
VB编程序的基本结构
Case 9, 10
Msgbox ("Greater than 8“)
Case Else
Msgbox ("Not between 1 and 10“)
End Select
例：编写程序,当输入X的值后用 Selct Case语句 计算输出Y的值。
Private Sub Button1_Click(ByVal _ sender As System.Object, ByVal e As _ System.EventArgs) Handles _ Button1.Click
InputBox的功能是等待并提示用户为程序运行 输入指定的数据，简称“输入对话框”。
MsgBox的功能是进行提示，用以确认某种程 序的操作，简称“消息框”。
本书目录
6
1. InputBox （输入对话框函数）
输入对话框一般由标题、提示信息、“确定” 按钮、“取消”按钮和一个供用户输入的文本框组 成。当用户将输入信息输入到文本框，并单击“确 定”按钮后，函数返回用户输入的字符串数据。当 单击“取消”按钮时，返回一个空字符串。
语法格式：变量名 = 表达式
功能: 计算赋值号“=”右边表达式的值，然后赋给赋
值号“=”左边的变量。
给变量赋值和设定属性是VB编程中常见的两个任务
如以下语句，
n=n+1
'计数累加
Label1.Text ＝ "欢迎使用VB "
以下语句形式很常用：
• dim sum% , x%
sum=100 : x=5
Select语句举例
Dim Number% Number = Val(InputBox("输入整数"))
Visual Basic 程序控制结构练习及答案
1.对于语句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 为关系表达式答案：C，此题考察IF语句的基本理解，等号有关系运算符以及赋值两种作用。
2.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（）。
A、If sex="男"And age＜40 And (duty="教授"Or duty="副教授") Then n=n+1B、If sex="男"And age＜40 And InStr(duty,"教授")＞0 Then n=n+1C、If sex="男"And age＜40 And Right(duty,2)= "教授" Then n=n+1D、If sex="男"And age＜40 And duty="教授"And duty="副教授" Then n=n+1答案：D ，选项中的InStr(duty,"教授")＞0表示duty字符串中含有“教授”两个字，Right(duty,2)= "教授"表示duty字符串右边两个字是“教授”。
3.下面程序段求两个数中的大数，不正确的是（）。
A、Max=IIf(x＞y,x,y)B、If x＞y Then Max=x Else Max=yC、Max=x：If y＞=x Then Max=yD、If y＞x Then Max=y ：Max=x答案：D，在D项中，冒号将两个语句相连，由于Max=x无论如何都会被执行，所以输出的永远是x的值。
VB第3章_控制结构
8
type参数及功能
常数 vbOKOnly VbOKCancel VbAbortRetryIgnore VbYesNoCancel 值 0 1 2 3 显示OK按钮 显示OK及Cancel 按钮 显示Abort、Retry 及 Ignore 按钮 显示显示 Yes、No 及 Cancel 按钮 功能描述
Print "B" Else Print "C" End If ElseIf score >= 60 Then Print "D" Else Print "E" End If End Sub
'此处为小于70分的情况
22
3.2.3 Select Case语句
格式：
说明： 变量或表达式：数值型或字符表达 式 表达式列表：与“变量或表达式” 的类型必须相同，可以是下面4种类型
End Sub
28
求和运行结果
29
例3.10 实现计算器函数区中求阶乘(n!) Private Sub Cmd_n_Click( ) Dim i, n, s As Long s=1 n = Val(InputBox("输入n(1-12)", "求n!")) For i = 1 To n s=s*i Next MsgBox s, 0, "n!" End Sub
7
3.1.2 数据的输入、输出函数
2. 输出函数MsgBox
格式 ：MsgBox(prompt [，type][，title][，helpFile，context]) 说明：
① prompt是字符串类型，提示
② type是一个整数值或符号常量，用来控制在对话 框内显示的按钮、图标的类型。 如上例中输出： MsgBox s, 0, "Area"
vb控制结构综合练习
A) 0 B) 1 C) ””D) False 控制结构4．设a=6，则执行x=IIf(a>5,-1,0)后，x的值一、选择题为________。
种基本结构1.VB的3种结构化程序设计的3A) 5 B) 6 C) 0 D) –1是________。
5．下面程序段的运行结果是________。
A) 选择结构、过程结构、顺序结构cj=85递归结构、选择结构、顺序结构B)晉挠??吠敨?橤尽屁过程结构、转向结构、递归结构C)晉挠??吠敨?橤尽层D) 选择结构、顺序结构、循环结构晉挠??吠敨?橤尽屃2.段函数表用If语句示分晉挠??吠敨?橤尽屄3?1x?x?1?x)(f表________ ，以下?311x?x?晉挠??吠敨?橤尽居?示方法不正确。
Print dj=;djA) f=x^3+1A) dj=B B) dj=C C) dj=D D) dj=E1 If x>=1 Then f=s^3--B) If x>=1 Then f=x^31If x<1 Then f=x^3+1-1C) If x>=1 Then f=x^3f=x^3+16．下列语句正确的是________。
D) If x<1 Then f=x^3+1 Else A) If K<3*N And k>N Then N=k^3F=x^31-B) If K<3*N And k>N Then N=k3。
执行下面的程序段后显示结果是3.________ C) If K<3*N : k>N Then N=k^3 Private SubForm_Click() D) If K<3*N And k>N Then N=k**3 Dim m ，则下列L=True，z=6.0，，7．设X=2.0y=8.0是的值为True中达BasicVisual 表式If m Then Print m Else Print m+1 。
第六章vb控制结构
For...Next循环结构
For循环语句 (一般用于循环次数已知) 形式： For 循环变量＝初值 to 终值 [Step 步长] 语句块
[Exit For]
语句块 Next 循环变量
循环体
循环变量得初 值
循环变量在终值 内
F
T
>0 初值<终值 =1 时,可省略 步长 <0 初值>终值 =0 死循环
For i =1 To 10 For j=1 To 20 … Next j Next i For i =1 To 10 … Next i For i =1 To 10 … Next i
T 形式2：语 (直到循环） 句 块 Do 语句块 Exit Do [Exit Do] 语 句 块 语句块 Loop { While|Until} <条件>
图1-3-15 Do W hile… Loop
T
条 件
F
Do … Loop W hile 的 执 行 过 程
条 件
T
语句块 Exit Do 语句块 F 条 件 T
多分支选择语句……Select语句
Select Case语句（情况语句）数值型或字符串表达式
形式： Select Case 变量或表达式 Case 表达式列表1 语句块1 Case 表达式列表2 语句块2 … [Case Else 语句块n+1] End Select
说明： <表达式列表>：与<变量或表达式>同类型的下面四种 形式之一： 表达式 表达式1 To 表达式2 Is 关系运算符表达式 A +5 2, 4, 6, 8 60 Is < 60 to 100 一组枚举表达式(用逗号分隔)
国家二级VB机试(控制结构)模拟试卷4(题后含答案及解析)
国家二级VB机试（控制结构）模拟试卷4(题后含答案及解析) 题型有：1. 选择题选择题1．现有语句：y=IIf(x＞0，x Mod 3，0)设x=10，则y的值是A．0B．1C．3D．语句有错正确答案：B解析：本题考查的考点是有关IIf函数的。
IIf函数可用于执行简单的条件判断操作，它是“If…Then…Ele”结构的简写版本。
格式：Result=IIf＜条件＞，＜True部分＞，＜False部分＞)其中“Result”是函数的返回值，“条件”是一个逻辑表达式。
当“条件”为真时，IIf函数返回“True部分”的值，而当“条件”为假时返回“False部分”的值。
“Tme部分”或“False部分”可以是表达式、变量或其他函数。
本题中由于x=10是大于0的，所以返回值为x Mod3的值即1。
知识模块：控制结构2．现有如下语句：x=IIf(a＞50，Int(a＼3)，a Mod 2)当a=52时，x的值是A．0B．1C．17D．18正确答案：C解析：IIf函数可用来执行简单的条件判断操作，它是“If…Then…Else”结构的简写版本。
格式为：result=IIf(＜条件＞，＜Tme部分＞，＜False部分＞)。
当＜条件＞为真时，Ilf函数返回＜True部分＞，而当＜条件＞为假时，返回＜False部分＞。
本题中a的值是52，所以条件为真，将返回52＼3的值即17。
知识模块：控制结构3．编写如下程序：Private Sub Command1_Click( )Dim a As Integer，b As Integera=3：b=2If a*b＜10 Thenb=b+1Elseb=b-1End IfPrint b-a＞0End Sub程序运行后，单击命令按钮Command1，输出结果为A．TrueB．FalseC．1D．-1正确答案：B解析：本题的程序中由于a*b＜10条件成立，因此执行Then分支，b自加1变成3，最后输出b-a＞0的值即False。
第四章 VB控制结构
例： 以下Case语句中错误的是 A) Case 0 To 10 B)Case Is>10 C) Case Is>10 And Is<50 D)Case 3,5, Is>1
例．下列关于Select Case的叙述中，错误的是 A）Case 10 To 100 表示判断值是否介于10与100之间 B）Case “abc”,“ABC” 表示判断值是否和“abc”、“ABC”两个字符串中的一 个相同 C）Case "X" 表示判断值是否为大写字母X D）Case -7,0,100 表示判断值是否等于字符串"-7，0，100"
例、下列程序运行的结果是 Dim k as integer k=1 If k<=1 then a=2*k If k<=2 then a=2*k+2 If k<=4 then a=k Print k;a A) 1 2 B) 1 4 C) 1 1 D) 2 4
例:Private Sub Command1_Click() Textl.Text=“Visual Basic” End Sub Private Sub Text1_LostFocus() If Text1.Text <>“BASIC”Then Text1.Text=”” Text1.SetFocus End If End Sub 程序运行时，在Text1文件框中输入“Basic然后单击 Command1按钮，则产生的结果是 Ａ）文本框中无内容，焦点在文本框中 B）文本框中为“Basic”,焦点在文本框中 C）文本框中为“Basic”,焦点的按钮上 D）文本框中为“Visual Basic”,焦点的按钮上
例：执行语句s=Len(Mid(“VisualBasic”,1,6))后，s的值 A）Visual B)Basic C)6 D)11 例：设a = “MicrosoftVisualBasic” ，则以下使变量b的 值为“VisualBasic”的语句是 A) b = Left(a, 10) B) b = Mid(a, 10) C) b = Right(a, 10) D) b = Mid(a, 11, 10) 例：执行下面的程序段后，a、b的值为 a=300 b=20 20 300 a=a+b b=a-b a=a-b
vb第五章控制结构
Case is>100 or is<0
是错误的
在窗体上画一个命令按钮和两个的文本框 Private Sub Command1_Click() n = Text1.Text Select Case n Case 1 To 20 x = 10 Case 2, 4, 6 x = 20 Case Is < 10 x = 30 Case 10 x = 40 End Select Text2.Text = x End Sub 程序运行，在Text1中输入10，单击按钮，在Text2中显示是 A）10 B）20 C）30 D）40
X=mid(“abcde”,2,3) Y=string(3,“ab”)
Z=instr(“abcde”,”e”)
Input = iputbox( x , y , z )
? ?
?
x =?
第五章 程序设计的基本控制结构
结构化程序设计的三种基本结构
顺序结构
选择结构(分支结构)
循环结构(重复结构)
思考---两个数的交换？
x=val(text1.text) y=val(text2.text) If x<y Then t=x x=y y=t End If pr
图 1-3-8 过程
两个数交换
x = InputBox("input x") y = InputBox("input y") z = InputBox("input z") If x < y Then t = x: x = y: y = t End If If y < z Then If x > z Then Print x, z, y Else Print z, x, y End If Else Print x, y, z End If
第三章 VB程序结构控制
表达式的值应是数值型或字符型 表达式列表的取值必须与表达式 表达式列表的取值必须与表达式 必须 的值类型相同，常用形式为： 的值类型相同，常用形式为： 类型相同 具体取值， 具体取值，用逗号隔开 1， 如：case 1，5，9 连续的范围： 连续的范围：界1 TO 界2 如：case 12 To 20 满足某个条件：Is关系运算表达式 满足某个条件：Is关系运算表达式 如：case Is>10 三种形式可以组合使用
3.2.3 Select
Select Case 表达式 Case 表达式列表 表达式列表1 [语句块 语句块1] 语句块 [Case 表达式列表 表达式列表2 [语句块 语句块2]] 语句块 ...... [Case Else [语句块 语句块n]] 语句块 End Select
说明： 说明：
Case语句 Case语句
3.1顺序结构 3.1顺序结构
顺序结构是一种线性结构。在程序运 行过程中，按照语句出现的顺序从上到下 依此执行。顺序结构流程图如图3-1所示， 先执行语句A，再执行语句B。
3.1.1赋值语句 3.1.1赋值语句
顺序结构中主要的语句是赋值语句。 其语法格式为：
变量＝ 变量＝表达式 对象.属性＝表达式 对象 属性＝ 属性
3.2 选择结构
选择结构也称为分支结构，其特点是根据给定的 选择结构也称为分支结构， 条件来选择执行相应的程序语句。 条件来选择执行相应的程序语句。 VB中提供的选择结构语句主要有：If语句、Iif函 中提供的选择结构语句主要有： 语句 语句、 函 中提供的选择结构语句主要有 数以及Select Case语句。 语句。 数以及 语句
3.2.3 Select
Case语句 Case语句
①具体取值，用逗号隔开 具体取值， 例如：判断10以内整数的奇偶性 以内整数的奇偶性。 例如：判断 以内整数的奇偶性。 x=inputbox("输入一个整数 输入一个整数") 输入一个整数 Select Case x Case 1，3，5，7，9 ， ， ， ， Print x; "这是奇数 这是奇数" 这是奇数 Case 2，4，6，8，10 ， ， ， ， Print x; "这是偶数 这是偶数" 这是偶数 End Select 连续的范围： ②连续的范围：界1 TO 界2 例如：变量stringc中存放了一个字符，判断该字符类型。 中存放了一个字符， 例如：变量 中存放了一个字符 判断该字符类型。 Select Case stringc Case "a" To "z"，"A" To "Z" ， Print stringc + "is a letter" Case "0" To "9" Print stringc + "is a number" Case Else Print stringc + “is only a char" End Select
vb控制结构综合练习
控制结构一、选择题1.VB 的3种结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构2.用If 语句表示分段函数3311()11x x f x x x ⎧-≥=⎨+<⎩ ，以下________表示方法不正确。
A) f=x^3+1If x>=1 Then f=s^3-1 B) If x>=1 Then f=x^3-1 If x<1 Then f=x^3+1 C) If x>=1 Then f=x^3-1 f=x^3+1D) If x<1 Then f=x^3+1 Else F=x^3-13.执行下面的程序段后显示结果是________。
Private Sub Form_Click() Dim mIf m Then Print m Else Print m+1 End SubA) 0 B) 1 C) ”” D) False4．设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为________。
A) 5 B) 6 C) 0 D) –15．下面程序段的运行结果是________。
cj=85If cj>90 Then dj="A" If cj>80 Then dj="B" If cj>70 Then dj="C" If cj>60 Then dj="D" If cj<60 Then dj="E" Print "dj=";djA) dj=B B) dj=C C) dj=D D) dj=E6．下列语句正确的是________。
A) If K<3*N And k>N Then N=k^3 B) If K<3*N And k>N Then N=k3 C) If K<3*N : k>N Then N=k^3 D) If K<3*N And k>N Then N=k**37．设X=2.0，y=8.0，z=6.0，L=True ，则下列Visual Basic 表达式中值为True 的是________。
VB程序基本控制结构
4.1.1 赋值语句
本章目录
形式： 变量名＝表达式 作用:计算右边表达式的值，然后赋给左边的变量。 一般用于给变量赋值或对控件设定属性值。
表达式可以是任何类型，一般应与变量名的类型一致。当 表达式的类型与变量的类型不一致时，强制转换成左边的 类型。 例：
sRate!=0.1
Text1.Text ＝ "欢迎使用Visual Basic 6.0 "
End If
语句块 1
表达式 2 T
语句块 2
F
表达式 n
T 语句块 n
F 语 句 块 n+1
该语句的作用是根据不同的表达式值确定执行哪个语句块
17
上一页
下一页
4.3 循环结构
本章目录
我们已经学习了顺序结构和分支结构，这种结构的特点
是任何一条语句至多只执行一次，但是在处理实际问题的 过程中，用这种结构来编写程序就长得不能忍受。
初始值 循环体
Do 循环体语句 Loop until条 件
条件
4.3 循环结构
初始值 条件 循环体
初始值 循环体
条件
4.3.1 For循环语句
本章目录
For循环语句用于控制循环次数预知的循环结构。 For 循环变量 ＝初值 To 终值 [Step 步长]
语句块
[Exit For] 语句块
Next 循环变量 循环变量必须为数值型。
本章目录
24
上一页
下一页
Do…Loop流程
表达式列表 1
F
T 语句块
T 有 Exit Do
F 语句块
Do While…Loop
25
本章目录
语句块
第四章VB基本控制结构13
Visual Basic程序设计
4.2.1 If条件语句
1. If…Then语句(单分支结构) If <表达式> Then 语句块 End If 或 If <表达式> Then <语句>
例4.5 已知两个数x和y，比较它们的大小， 使得x大于y. If x<y Then t=x x=y y=t End If 或 If x<y Then t=x: x=y: y=t
Visual Basic程序设计
MsgBox按钮设置
分组
内部常数 vbOkOnly vbOkCancel vbAboutRetryIgnore
值 0 1 2
描 确定按钮 确定、取消按钮
述
按钮 数目
终止、重试、忽略按钮
vbYesNoCancel
vbYesNo vbRetryCancel vbCritical
$1234.57
1.23E-01
22
例4.4
利用Format函数显示数值。
Visual Basic程序设计
Private Sub Command1_Click() Dim a!, b% a = 12.345 b = 12 Print Format(a, "0.00") Print Format(b, "#.##") End Sub
注意：
①
当表达式值的精度与变量的精度不一致时，强制转换成左边 的精度，如m% = 10/3 ，则m中的结果为3 当表达式是数字字符串，左边变量是数值类型，自动转换为 数值类型再赋值，但表达式有非数字字符时，则出错。
②
例如： n%=“123”
n%=“12a3”
VB程序语句与控制结构
VB程序语句与控制结构1.顺序结构：程序按照从上到下的顺序依次执行。
2.条件结构：- If-Then语句：根据条件执行相应的语句块。
```vbIf 条件 Then'执行语句块End If```- If-Then-Else语句：根据条件执行不同的语句块。
```vbIf 条件 Then'执行语句块1Else'执行语句块2End If```- Select Case语句：根据表达式的值执行相应的语句块。
```vbSelect Case 表达式Case 值1'执行语句块1Case 值2'执行语句块2Case Else'执行语句块3End Select```3.循环结构：- For循环：循环执行指定次数的代码块。
```vbFor 变量 = 初始值 To 终值 Step 步长'执行语句块Next```- For Each循环：循环遍历集合中的每个元素执行代码块。
```vbFor Each 变量 In 集合'执行语句块Next```- Do While循环：在条件满足的情况下循环执行代码块。
```vbDo While 条件'执行语句块Loop```- Do Until循环：在条件不满足的情况下循环执行代码块。
```vbDo Until 条件'执行语句块Loop```- While循环：在条件满足的情况下循环执行代码块。
```vbWhile 条件'执行语句块```- Until循环：在条件不满足的情况下循环执行代码块。
```vbUntil 条件'执行语句块Loop```4.跳转结构：```vbGoTo行号'或```- Exit语句：提前退出循环或过程。
```vbExit Do'或Exit For'或'或Exit Sub '等等。
第4章 VB控制结构(整理)
InputBox函数示例
例4-1-1(补充) 利用InputBox函数输入圆的半径;
在标签中显示输入的半径和计算所得的圆的面积.
3. 消息对话框MsgBox函数(P63)
变量=MsgBox( 提示字符串 [,按钮样式+图标样式] [,标题字符串])
• 提示字符串:必须指定，消息对话框中显示的字符串 • 按钮图标样式:利用VB给定的符号常量指定消息框
Format(123.46,"0.0E+00") 结果为: 1.2E+02
4.2 选择结构(P69)
4.2.1 If条件语句 4.2.2 Select Case语句 4.2.3 条件函数 IIf
4.2.1 If 条件语句(P69)
If～Then语句(单分支行语句和块语句) If～Then～Else语句(双分支行语句和块语句)
符或为空串,则出错;
当逻辑型值赋值给数值型变量时,True转换为-1, False转换为0. 反之,当数值赋值给逻辑型变量时,非0 转换为True, 0转换为False; 任何非字符型的值赋值给字符型变量,自动转换为字 符型.
4.1.2 数据的输入/输出(P62)
标签和文本框控件
输入对话框InputBox函数
赋值号与表示“相等”关系的关系运算符都用
“＝”表示, VB系统会根据表达式或语句所处的 位置自动判断是何种意义的符号.
4. 赋值号两侧数据类型不同时的处理方法(P61)
当右侧表达式与左侧变量精度不同时,系统将右侧表
达式的值强制转换为左侧变量的精度;
当表达式是数字字符串,而左侧变量是数值类型时,自 动转换为数值类型再赋值. 如果表达式中有非数字字
国家二级VB机试(控制结构)模拟试卷15(题后含答案及解析)
国家二级VB机试（控制结构）模拟试卷15(题后含答案及解析) 题型有：1. 选择题选择题1．编写如下程序：Private Sub Commandl_Click( ) Dim m As Integer,n As Integer m=1：n=0 Do While m<20 n=m+n：m=3*m+1 Loop Print m，nEnd Sub 程序运行后，单击命令按钮Commandl，输出结果为A．40 18B．40 19C．20 64D．21 64正确答案：A解析：本题的Do循环是一个先判断条件型的循环，在循环中将循环变量m 的值每次改变。
分析循环可看出，在4次循环中m的值分别为1、4、13、40，而只有前三次循环中的m值被累规到n中，最后一次循环由于不满足m＜20而跳出。
知识模块：控制结构2．下列循环中，可以正常结束的是A．i=10 Do i=i+1 Loop Until i＜1B．i=1 Do i=i+1 Loop Until i=10C．i=10 Do i=i+1 Loop While i＞1D．i=10 Do i=i-2 Loop Until i=1正确答案：B解析：Do循环语句的功能是：当指定的“循环条件”为真或直到指定的“循环条件”变为真之前重复执行循环体。
Do WhileIuntil…Loop循环是在条件满足的情况下才执行一次循环体，而Do…Loop while｜Until循环不管是否满足条件都先执行一次循环体，然后再判断条件是否成立以决定后续操作。
本题的A选项由于i的值从10开始递增，永远不会满足i＜1而无限循环；C选项由于i的值从10开始递增，永远满足i＞1而无限循环；D选项由于i的值从10开始递减，但是因为每次递减2，所以i永远为偶数，不会满足i=1而无限循环。
知识模块：控制结构3．以下能够正常结束循环操作的程序段是A．i=5 Do i=i+1 Loop Until i＜0B．i=5 Do i=i+2 Loop Until i=1C．i=5 Do While i＞0 i=i-2 LoopD．i=0 Do While i＜1 i=i-2 Loop正确答案：C解析：Do循环语句的功能是：当指定的“循环条件”为真或直到指定的“循环条件”变为真之前重复执行循环体。
vb第三章控制结构
Case Is <= 10 y=x*x
Case Is <= 20 y = 10
Case Else y = 0.5 * x + 20
End Select Label2 = "y=" & y End Sub
28
6.IIF函数
格式：
IIf(Expression，TruePart，FalsePart)
单分支结构举例
例：将保存在变量a和 b中的整数
按升序排列。（即a的值一定不
1
大于b的值）
2
分析：a<b时，两者值不变
a>b时，两者的值交换
3
If b > a Then
t=a
a=b
b=t
End If
也可改写成行IF语句，如下所示，
If b > a Then t = a ： a = b： b = t
2.双分支结构
• 变量•的类型或表达式的[C结a果se Els例e：Is < 60
• 必对须于•为多个数变值量或进字符行串条件。判断 或者statementsn+1]
时，•不能使用EsneldecSt eclaesec语t 以上三种形式的以逗号分隔的任意组合
句，只能使用IF 语句
例：2,4 to 8,11,is>50
A. 正确答案：C
3.多分支结构
不管有几个分支，依次判断，当某条件满足，执行相应的 语句，其余分支不再执行；若条件都不满足，且有Else子 句，则执行该语句块，否则什么也不执行。
If
表达式 1
T Then
Elseif
F
表达式 2
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB控制结构一、单选题1. 下面的程序运行后，显示的结果是________。
Dim x%If x Then Print x+1 Else Print xA） 1 B） 0 C）显示错误信息 D） 22. 语句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 为赋值语句3. 下面分段函数 , 下面不正确的程序段是______。
A） If x >= 1 then f=sqr(x+1) B） If x >= 1 then f=sqr(x+1) f=x*x+3 If x < 1 then f=x*x +3C） If x >= 1 then f=sqr(x+1) _ D） If x < 1 then f=x*x +3 _ Else f = x*x +3 Else f=sqr(x+1)5. 下面的程序段，显示的结果是 ______。
Dim xx= Int(RnD） + 5Select Case xCase 5Print “优秀”Case 4Print “良好”Case 3Print “及格”Case ElsePrint “不及格”End SelectA）不及格 B）良好 C）及格 D）优秀6. 下面程序段求两个数中较大数，________不正确。
A） Max = IIF(x > y, x, y)B） If x > y Then Max = x Else Max = yC） Max = xIf y >= x Max = yD） If y >= x Max = yMax = x7. 下列循环语句能正常结束的是________。
A） i = 5 B） i = 1Do Doi = i + 1 i = i + 2Loop Until i < 0 Loop Until i = 10 C） i = 10 D） i = 6Do Doi = i - 1 i = i - 2Loop Until i < 0 Loop Until i = 1 12. 变量未赋值时，数值型变量的值为______。
A）0 B）空串"" C）ll D）没任何值13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n=1 To 20If n Mod 3<>0 then m=m+n\3Next nprint nEnd sub程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A）15 B）18 C）21 D）2414. 窗体中存在命令按钮Command1，其Click事件代码如下：Private Sub Command1_Click()X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0End Sub程序运行后，单击命令按钮，输出结果为______。
A）True B）False C）-1 D）115. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。
x=IIf((a>B） And (c>D） , 10, 20)A）10 B）20 C）True D）False16. 执行以下程序段a$= "abbacddcba"For i = 6 To 2 Step -2X= Mid(a,i,i)Y= Left(a,i)Z= Right(a,i)Z= UCase(X & Y & Z)Next iPrint z输出结果为______。
A）ABA B）BBABBA C）ABBABA D）AABAAB17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim(Str(C）)For i=1 To 4Print ____NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为______。
A）Right(c1,i) B）Left(c1,i) C）Mid(c1,i,1) D）Mid(c1,i,i)18. InputBox函数返回值的类型为______。
A）数值 B）字符串C）变体 D）数值或字符串（视输入的数据而定）19．MsgBox函数返回值的类型为______。
A）整型数值 B）字符串C）变体 D）数值或字符串（视输入的数据而定）20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a=InputBox("Enter an Integer")b=InputBox("Enter an Integer")Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A）108 B）18 C）810 D）出错21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer,s As Integera=8s=1Doa=a-1Loop While a<=0Print s;aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）7 9 B）34 0 C）9 7 D）死循环23. 以下能够正确计算n!的程序是______。
A）Private Sub Command1_Click()N = 5 : X = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd SubB）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd SubC）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i <= nEnd SubD）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i > nPrint xEnd Sub24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum=1Do Until num>6Print num;num=num+2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出25. 设有如下程序段x=2For i=1 to 10 step 2x=x+iNext运行以上程序后，X的值是______。
A）36 B）27 C）38 D）5726. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是______。
A）2 B）3 C）4 D）527. 下列程序段的执行结果为______。
X=6For K=1 To 10 Step -2X=X+KNext KPrint K;XA）-1 6 B）-1 16 C）1 6 D）11 3128. 执行以下程序段Dim x As Integer, i As Integerx = 0For i = 20 To 1 Step -2x = x + i \ 5Next i后，x的值为______。
A）16 B）17 C）18 D）1929. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf j>Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是______。
A）输出n以内的奇数 B）输出n以内的偶数C）输出n以内的素数 D）输出n以内能被j整除的数30. 新建立窗体中画一个命令按钮，其中事件代码如下：For x=4 To 1 Step -1For y=1 To 5-xPrint Tab(y+5);"*";Next yPrintNext x窗体运行后，单击命令按钮，输出结果是______。
A）**** B）* C）***** D）**** ** **** *** ** *** *** ***** * **** **31. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是______。
A）7 B）15 C）157 D）53832. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。
Private Sub Command1_Click()K=0For J=1 To 2For I=1 To 3K=I+1Next IFor I=1 To 7K=K+1Next INext JPrint KEnd SubA）10 B）6 C）11 D）1633. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 10a=a+1b=0For j=1 To 10a=a+1b=b+2Next jNext iLabel1.Caption=Str(A）Label2.Caption=Str(B）End Sub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。