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
- 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中显示的内容分别是______。