《第4章 VB控制结构》习题
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 。
Chap.4 VB基本控制结构
注释
三、注释语句 为了提高程序的可读性，通常在程序的适当位置加 上必要的注释。VB中的注释语句的前缀是一个单撇号' 或保留字Rem。 1.格式 ' | Rem < 注释内容 > 2.说明 （1）Rem与注释内容之间至少要有一个空格。 （2）注释语句是非执行语句，不参加编译和执行。 （3）注释语句可放在过程、模块的开头，也可放在 执行语句的后面。 （4）任何字符（包括汉字）都可以放在注释行中作 为注释内容。
exit
二、Exit语句 1.作用 Exit语句用于退出 Do...Loop、For...Next、Function或Sub代码块 2.对应的使用格式 Exit Do、Exit For、Exit Function、Exit Sub 分别表示退出 Do循环、For循环、函数、子过程
End
三、End语句 1.格式 End 2.作用 结束一个程序的执行。可以放在任何事件过程中。 VB的End语句还有多种形式，用于结束一个过程或 程序块，其他形式有： End If End With End Type End Select End Sub End Function
循环嵌套
4.3.4 循环嵌套
一、定义 在一个循环结构中又完整地包含另一个循环结构， 称为循环的嵌套。 While语句、For-Next语句和Do-Loop语句均允许嵌 套，也可以互相嵌套。
二、说明 1.内循环变量与外循环变量不能同名。 2.循环语句嵌套时，必须保证结构的完整。即外循环 必须完全包含内循环，不能交叉。 3.不能从循环体外转向循环体内，也不能从外循环转 向内循环，反之则可以。 4.外循环变量每变化一次，内循环变量执行若干次。
4.3.1 While-Wend 循环语句
计算机VB第4章课后参考答案
第4章参考答案(P102)一、单选题1、A2、D3、B4、D二、填空题1、frame(框架)2、x1^2+y1^2 <=93、value4、该框架三、程序阅读题s=4s=5.2s=8实验：1．Private Sub Command1_Click()Dim x As Singlex = V al(InputBox("请输入X"))If x < -2 ThenY = (3 * x * x - x - 1) / xElseIf x < 1 ThenY = Sin(x) + 2 ^ xElseY = (Sqr(x - 1) + Log(x) / Log(10)) / 2End IfLabel1.Caption = "你输入的X是" + Str(x) + ",得到的Y值是" + Str(Y) End Sub2．Private Sub Form_Click()Dim a As Integer, b As Integer, c As Integera = V al(InputBox("请输入第一个数a"))b = V al(InputBox("请输入第一个数b"))c = V al(InputBox("请输入第一个数c"))Max = aIf b > Max Then Max = bIf c > Max Then Max = cPrint MaxEnd Sub3.Option ExplicitPrivate Sub Form_Load()Form1.Caption = "个人所得税"Label1.Caption = "薪金总额"Text1.Text = ""Label2.Caption = ""Command1.Caption = "计算"End SubPrivate Sub Command1_Click()Dim x As Single, y As Singlex = V al(Text1.Text)x = x - 1600If x > 40000 Or x < -1600 ThenY=0MsgBox "输入的薪金有错", , "出错"ElseIf x >= 0 And x <= 500 Theny = x * 0.05ElseIf x >= 500 And x <= 2000 Theny = 500 * 0.05 + (x - 500) * 0.1ElseIf x >= 2000 And x <= 5000 Theny = 500 * 0.05 + 1500 * 0.1 + (x - 2000) * 0.15ElseIf x >= 5000 And x <= 20000 Theny = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + (x - 5000) * 0.2 ElseIf x > 20000 Theny = 500 * 0.05 + 1500 * 0.1 + 3000 * 0.15 + 15000 * 0.2 + (x - 20000) * 0.25 End IfLabel2.Caption = "个人所得税为:" & Str(y)End Sub4.Private Sub Form_click()s = V al(InputBox("请输入计算机文化成绩"))Select Case sCase 180 To 200Print s, "优"Case 160 To 179Print s, "良"Case 140 To 159Print s, "中"Case 120 To 139Print s, "及格"Case 0 To 120Print s, "不及格"Case ElsePrint s, "输入成绩错误"End SelectEnd Sub。
07-第4章+程序控制结构与算法基础 苏州大学VB
a c x
0
y
Y=f(x)
方程f(x)=0的实根 的实根 方程
b
x
f(b)
c=(a+b)/2 5
2. 二个重要算法
2）牛顿迭代法求方程的根（P99例4-16） ）牛顿迭代法求方程的根（ 例 ）
– 已知函数 已知函数Y=F(x), 求 Y=0 时的 X 值，可用牛顿 迭代公式来求得 – 牛顿迭代公式： 牛顿迭代公式： Xn+1=Xn- F(Xn) / F’(Xn) – 例：求方程 xex-1=0 在 x=0.5 附近的根 函数 Y = xex-1, 其一阶导数 Y’ = ex（x+1） ） X1=0.5 ,用迭代公式求出 X2、X3、… , 用迭代公式求出 、 、 当 | Xn+1 –Xn | <epc 时，Xn 为所求值
8
上机实验6 上机实验
学习指导P136 学习指导 实验3-4 实验 实验3-7 实验 实验3-8 实验 实验3nt(Rnd*(b-a+1) )+b [ a, b ] • 随机数的种子
– 产生随机数的第一个参数 – 用语句Randomize可改变随机数种子
3
1. 随机函数及种子
• 随机函数应用示例
– 产生 个二位随机整数，并分别在 产生10个二位随机整数 并分别在Form和 个二位随机整数， 和 Text控件上输出 控件上输出
• 思考
– 产生 个不相同的二位随机整数 产生10个不相同的二位随机整数
4
2. 二个重要算法
1）二分法求方程的根（P96例4-14） ）二分法求方程的根（ 例 ）
– 求函数在某一区间上的根，可用二分法来求 求函数在某一区间上的根， – 二分法求方程根的思路： 二分法求方程根的思路： • 设函数 y = F(x) , 在区间（a,b）中y=0时的 X值 在区间（ ） 时的 值
vb练习题(有答案)(打印)
《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。
4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。
6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。
VB第四章习题答案上海立信会计学院
1．结构化程序设计的三种基本结构是什么？ 答：顺序结构、选择结构和循环结构。
2． 指出下列赋值语句中的错误（包括运行时要产生的错误）。
⑴ 10x=sin(x)+y 答：10x 错误变量名 ⑵ c=3+sqr(-3)答：sqr(x) 中自变量要求>=零 ⑶ c+x+y=c*y答：赋值符号的左边是表达式 ⑷ x=sin(x)/(20 mod 2) 答：分母不能为零3．Msgbox 函数和InputBox 函数之间有什么区别？各自获得什么值？答：两个函数的共同之处是均显示对话框。
区别：InputBox 函数等待用户在文本框中输入数据，获得的是输入的字符串数据；Msgbox 函数等待用户按一按钮，获得的是表示按钮的整数值，以决定程序的流向。
4．要使单精度变量x ，y ，z 分别保留1位、2位、3位小数，并在窗体上显示，应使用什么函数？如何编写对应的Print 方法？ 答：使用Format 函数，具体如下： Print Format(x, "0.0")Print Format(y, "0.00") Print Format(z, "0.000")5． 语句if 表达式 then …中的表达式可以是算术、字符、关系、逻辑表达式中的哪些？ 答：可以是算术、关系、逻辑表达式。
按照一般语言的规定，if 后应该是关系表达式、逻辑表达式，根据其结果逻辑量是True 或False 决定是否执行Then 后面的句子。
而在VB 中还可以是算术表达式，因为VB 逻辑判断中，对于非0值就作为True ，而0值作为False ，因此分段函数sin /0,00{x x x x x y <>== 可用VB 语句表示为：If x Then y ＝ sin (x) / x Else y = 0 而不必写成If x < >0 Then y = sin (x) / x Else y = 06 指出下列语句中的错误。
第04章VB控制结构
陈章良
E-MAIL：CHENZHL_YT@
第四章 VB控制结构
4.0 程序结构
4.1 顺序结构
4.2 选择结构
4.3 循环结构 4.4 其他辅助控制语句 4.5 综合应用 4.6 程序调试
4.0 程序结构
一个VB程序由两部分组成：
Viasual ，是由众多的对象构成了程序的可视 界面。 Basic，是响应各种事件的程序代码，也是程 序设计的重点和难点。
(1)对象：窗体、图形框或打印机。缺省为窗体。 (2)Spc(n)：从当前位置起空n个空格 (3)Tab(n)：从最左端开始计算的第n列 (4)分号：定位在上一个被显示的字符之后 (5)逗号：定位在下一个打印区开始处(每区14列) 例4.3 Print方法输出图mat格式输出函数 Format函数用于制定字符串或数字的输出 格式。
逻辑数据转换 为整形数据时 ，True为-1， False为0
1.5
其他类型数据转换 为逻辑数据时， 非0转换为True， 0转换为False
2.5
4.1.1 赋值语句
（4）任何非字符类型赋值给字符类型， 自动转换为字符类型。
例：strBh$=6012 【注意】
赋值号左边只能是变量，不能是常量 、常数符号或表达式。
3）If … Then … ElseIf语句(多分支结构)
4）If 语句的嵌套
4.2.1 If条件语句
1. If…Then语句(单分支结构) 形式：If <表达式> Then
语句块（一条或多条语句）
End If
或
If <表达式> Then <语句>
IF演示
VB 程序设计04-2
s=1 s=1 * s s=2 * s … s=n * s
初值 乘1 再乘2 … 再乘n
s=i * s i=i+1 循环条件： 循环条件： i≤n
用VB语言求阶乘 语言求阶乘
示例： 求 示例：VB求S=n! for...next： ： s=1 for i=1 to n s=s * i next i 为什么没有i=i+1 为什么没有 do...loop： ： i=1 : s=1 do while i<=n s=s * i i=i+1 能否去掉i=i+1 能否去掉 loop
(2)
a=2
y=iif(x>=0, 5*x, x+1)
选择结构总结
问题3 用两种形式改写如下程序段(3) (3)： 问题3：用两种形式改写如下程序段(3)：1、多分 if结构 结构， 多分支Select结构。 Select结构 支if结构，2、多分支Select结构。
If x>0 then y= -1 If x=0 then y= 0 If x<0 then y= 1
步骤
另一种实现方法： 另一种实现方法：
Private Sub Form_Load() Dim n%, i%, s# n = Val(InputBox("请输入一个正整数 "计算阶乘 请输入一个正整数", 计算阶乘 计算阶乘")) 请输入一个正整数 s=1 For i = 1 To n s=s*i Next i MsgBox "计算结果为 " & vbCrLf & n & "!=" & s, 64, "提示 计算结果为: 提示" 计算结果为 提示 End Sub
vb4-控制结构
• End Select
• a = Val(Text1) • If a < 60 then 用语句 • Text2 = "不及格" ELSEIF 实 • ElseIf a < 70 then 现多分支 • Text2 = "及格" • ElseIf a < 80 Then • Text2 ="中等" • ElseIf a <90 Then • Text2 ="良好" • ElseIf a <= 100 Then • Text2 ="优秀" • ElseIf a <= 0 Or a > 100 Then
例2： 已知变量ch中存放了一个字符，判断该字符是 字母字符、数字字符还是其他字符。
If UCase(ch) >= "A" And UCase(ch) <= "Z" Then MsgBox(ch + "是字母字符") '考虑大小写字母 ElseIf ch >= " 0" And ch <= "9" Then ' 数字字符 MsgBox(ch + "是数字字符") Else ' 除上述字符以外的字符 MsgBox(ch + "是其他字符") End If
注意：ElseIf不能写成 Else If
4.2.3多分支结构 Select Case语句
Select Case 变量或表达式 Case 条件1 <语句块1> Case 条件2 <语句块2> … [Case Else <语句块n+1>] End Select
06-第4章 程序控制结构与算法基础-2 苏州大学VB
第4章 章 程序控制结构与算法基础 （二）
苏州大学计算机学院 陈建明 jmchen@
1
主要内容
1. 分支结构与分支语句（2） 分支结构与分支语句（ ） 2. 循环结构与循环语句（2） 循环结构与循环语句（ ） 3. Print方法 方法
2
1 分支结构及分支语句 分支结构及分支语句(2)
4
1 分支结构及分支语句 分支结构及分支语句(2)
• 多分支结构 多分支结构(1)—用IF语句，并列使用、嵌套使用 用 语句 并列使用、 语句，
T e1 e2 T A1 A2 F F
e3 T A3
F
A4
并列结构： 并列结构： IF e1 and e2 THEN A1 ENDIF IF e1 and not e2 THEN A2 ENDIF IF not e1 and e2 THEN A3 ENDIF IF not e1 and not e2 THEN A4 ENDIF
• 循环的嵌套
– 循环体中又出现了循环语句，称为循环嵌套、多重循环 循环体中又出现了循环语句，称为循环嵌套 循环嵌套、 – 外面的循环称外循环，里面的称内循环 外面的循环称外循环， – 使用时，内外循环的循环控制变量名不能相同，且相互 使用时，内外循环的循环控制变量名不能相同， 独立
e1
条件e F T 循环体
VB1-4章_习题答案(课本习题)
VB习题答案（1-3章）习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。
Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。
Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。
支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。
2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。
2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。
这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。
3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。
工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。
4. 控件箱：控件箱提供了一组控件。
设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。
5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。
各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。
6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。
7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。
vb4
第四章 基本控制语句
第四章 基本控制语句
程序设计语言的三种结构： 顺序 选择 循环
4.1 顺序结构
例: n%=“123” n%=“a123” n%=true a$=1234 a$=1234a s=s+1 x=y=z=1 ‘转换为 整数 出错 n为-1 a为“1234” 出错 x=((y=z)=1)
4.3 选择结构
4.3.3 条件函数 1. IIf函数 IIF(条件表达式，值1，值2） 条件表达式值为真时为值1，否则为值2 如：IIF(x>y,x,y) 2. Choose函数 Choose(整数表达式，选项列表） 整数表达式为1，列表第1项，... ... ... op=Choose(nop,”+”,”-”,”×”,”÷”)
常用算法（ 4.5 常用算法（一）
1. 累加 1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 连乘 3～10的乘积 t=1 For i =3 To 10 t=t*i Next i Print t
4.3 选择结构
闰年 否则 不是闰年 如果结束
判断闰年
如果 年份除以400整除 或者 (除以100不整除 并且 除以4整除) 那么
If y Mod 400 = 0 Or (y Mod 100 <> 0 And y Mod 4 = 0) Then Print y & "是闰年" Else Print y & "不是闰年" End If
VB第4章 复习资料
第4章补充资料习题解答1．计算下列循环语句的次数：（1）For I= -3 To 20 Step 4答：循环次数为6次。
循环体内I的值分别为：-3，1，5，9，13，17；出了循环体后I 的值为21。
（2）For I= -3.5 To 5.5 Step 0.5答：循环次数为19次。
（3）For I= -3.5 To 5.5 Step -0.5答：不循环，步长<0，循环初值<终值。
（4）For I= -3 To 20 Step 0答：无数次，步长=0。
2. 下列30～90为语句标号，分别标记该语句，第40号语句共执行了几次，第50号语句共执行了几次，执行第90号语句后显示的结果是多少？30 For j = 1 To 12 Step 340 For k =6 To 2 Step -250 mk = k60 Print j,k70 Next k80 Next j90 Print j , k , mk答：第40号语句共执行了4次，是外循环的循环体；第50号语句共执行了12次，是内循环的循环体，循环次数为两重循环次数的乘积；第90号语句显示的结果是13 0 2。
3．如果实现不知道循环次数，如何用For …Next 结构来实现？答：只要将循环的终值设置成一个非常大的值，然后再循环体内增加If语句，判断是否满足循环结束的条件。
形式如下：For 循环变量=1 To 非常大的数…If 满足循环结束条件Then Exit For…Next 循环变量4．利用循环结构，实现如下功能：（1）∑=+ +=101)12)(1(ii is答：s =0For i =1 To 10s = s +( i+1)*(2* i +1)Next i（2）分别统计1～100中，满足3的倍数、7的倍数的整数各有多少？答：s3=0s7=0For i =1 to 100If i mod 7=0 Then s7=s7 +1If i mod 3=0 Then s3=s3+1Next i（3）将输入的字符串以反序显示。
第四章 VB控制结构(第三版)
过程形式：MsgBox 提示[,按钮][,标题] 按钮项是一整型表达式，决定信息框按钮的数目
和类型及出现在信息框上的图标形式。
按钮设置值及意义
函数返回所选按钮整 数值的意义
MsgBox函数示例：
例4.2 要求：
编一帐号和密码检验程序。
帐号不超过6位数字，有错，清除原内容再输 入；密码输入时在屏幕上以 “*”代替；若密码错， 显示有关信息，选择“重试”按钮，清除原内容再 输入，选择“取消”按钮，停止运行。
第四章
VB控制结构
目录
4.1 顺序结构
4.2 选择结构
4.3 循环结构 4.4 其它辅助控制语句 4.5 综合应用 4.6 程序调试
4.1 顺序结构
VB具有结构化程序设计的三种结构， 即顺序结构、选择结构、循环结构，是程序 设计的基础。 顺序结构就是各语句按出现的先后次序 执行。
本章目录
一般的程序设计语言中，顺序结构的语 句主要是赋值语句、输入/输出语句等。 在VB中也有赋值语句；而输入/输出可 以通过文本框控件、标签控件、InputBox函 数、MsgBox函数和过程等来实现。
InputBox()函数、MsgBox()函数和MsgBox过程 1. InputBox函数 打开一个对话框，等待用户输入，返回字符串类 型的输入值。 形式： InputBox(提示[，标题][，默认][，x坐标位置]
[，y坐标位置])
InputBox(提示[，标题][，默认][，x坐标位置][，y坐标位置])
常用数值格式符
说明：
对于符号“0”或“#”，相似之处是，若要显示 数值表达式的整数部分位数多于格式字符串的位 数，按其实际数值显示；若小数部分的位数多于 格式字符串的位数，按四舍五入显示。
第四章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)4. 计算函数的值。
, 下面程序段中正确的是______。
A）If x < 0 then y = 0 B）If x >= 2 then y = 3If x < 1 then y = 1 If x >= 1 then y = 2If x < 2 then y = 2 If x > 0 then y = 1If x >=2 then y = 3 If x < 0 then y = 0C）If x < 0 then D）If x >= 2 theny = 0 y = 3ElseIf x > 0 then ElseIf x >= 1 theny = 1 y = 2ElseIf x > 1 then ElseIf x >= 0 theny = 2 y = 1Else Elsey = 3 y = 0End If End If5. 下面的程序段，显示的结果是______。
vb控制结构综合练习
......控制结构6．下列语句正确的是 ________。
A) If K<3*N And k>N Then N=k^3 一、选择题B) If K<3*N And k>N Then N=k3 1.VB 的 3 种结构化程序设计的 3 种基本结构 C) If K<3*N : k>N Then N=k^3 是________。
D) If K<3*N And k>N Then N=k**3A) 选择结构、过程结构、顺序结构 7．设 X=2.0，y=8.0，z=6.0，L=True ，则下列 B) 递归结构、选择结构、顺序结构 Visual Basic 表 达 式 中 值 为 True 的 是 C) 过程结构、转向结构、递归结构 ________。
D) 选择结构、顺序结构、循环结构 A) X+Z>Y AND L 2. 用 If语 句 表 示 分 段 函 数B) NOT(Y<Z+X)<>NOT Lf (x)3x 1 x 1，以下 ________表示3x1 x 1C ) NOT L OR (L=Y+X=Z) D) Y+X>=Z+X AND (L AND FALSE)8．要判断 ”月收入在 2000 元以上（含 2000方法不正确。
元）且 5000 元以下（不含 5000 元） ”的职工，应使用的逻辑表达式是________。
A) f=x^3+1If x>=1 Then f=s^3-1 A) M>=2000 AND M<=5000 B) If x>=1 Then f=x^3-1B) M>=2000 OR M<=5000 If x<1 Then f=x^3+1 C) M>=2000 AND M<5000 C) If x>=1 Then f=x^3-1D) M>=2000 OR M<5000f=x^3+19．下列程序段的执行结果为 ________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《第4章VB控制结构》习题一、填空题1、结构化程序设计语言的三种基本控制结构是、、。
2、分支结构中的条件通常是表达式。
1、Select case语句执行哪一个分支的根据是与相匹配。
2、强制性退出Do…Loop循环的语句是，强制性退出For…Next循环的语句是。
3、VB有三种工作模式，它们分别是、和。
4、VB可能遇到的错误有、和。
5、执行下面的程序段后，s的值为。
s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i6、阅读程序，写出程序的运行结果box 。
Private Sub Form_Click()Dim k，Box as IvtegerFor k=1 to 11Select Case kCase 1,3,5,7,9,11Box=Box+Int(k/2)Case 2,4,6,8,10Box=Box+Int(k/3)End SelectNext kPrint “Box”;BoxEnd Sub7、运行时单击窗体，以下事件发生的次序是。
8、执行下列程序段后，x的值是。
n = 5: x = 1: i = 1Dox = x * ii = i + 1Loop While i < n9、阅读下列程序段：x = 0For i = 1 To 4For j = 1 To ix = x + 1Next j, i执行以上循环后，x 的值为。
10、执行下列程序段后输出的结果是。
s = 1For i = 1 To 3For j = 0 To i-1s = s + s * jNext j? s;Next i11、阅读下列程序段：m = 0For i = 1 To 3For j = 1 To im = m + jNext j, i执行以上的循环后，i和m的值分别为。
12、运行下列程序段，其中“n=n+1”语句被执行的次数是。
Dim m%, n%For m = 1 To 3For n = 1 To 6 Step 2n = n + 1Print nNext nNext m13、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()Sum = 0For m = 1 To 3Select Case mCase 1a = 1Case 2a = 2Case 3a = 3End SelectPrint a,Sum = Sum + aNext mPrint SumEnd Sub运行时，单击按钮，输出结果是。
14、窗体上有一个命令按钮Command1，编写如下事件过程：Private Sub Command1_Click()a = 80:b = 50:c = 30If a < b Or b > c Then b = cIf b = c And a < c Then a = a - 30If a = b And b > c Then c = a + bPrint a, b, cEnd Sub运行时，单击按钮，窗体输出的结果是。
二、单项选择题1、选择和循环结构的作用是（）。
A、提高程序运行速度B、控制程序的运行C、便于程序的阅读D、方便程序调试2、要计算当0<x<10时，将x的值赋给y，应使用语句（）。
A、If 0<x<10 then y=xB、If 0<x or x<10 then y=xC、If 0<x and x<10 then y=xD、If 0<x Xor x<10 then y=x3、多分支选择结构的case语句，写法错误的是（）。
A、Case 1，5，7，9B、Case 8 To 12C、Case 5 To 2D、Case Is<”man”4、For…Next循环结构中，循环控制变量的步长为0，则（）。
A、形成无限循环B、循环体执行一次后结束循环C、语法错误D、循环体不执行即结束循环5、要使循环体至少执行一次，应使用（）循环。
A、For …NextB、While …WendC、Do …Loop[While/Until]D、Do[While/Until] …Loop6、为了显示当前过程中局部变量的当前值，应用调试窗口中的（）。
A、本地窗口B、立即窗口C、监视窗口D、快速监视窗口7、标志错误处理程序开始的语句是（）。
A、Exit SubB、行标号C、On Error语句D、Resume语句8、执行下列程序段，x的值为（）。
x=5For i=1 to 20 Step 2x=x+i\5Next iA、21B、22C、23D、249、编写程序计算5门课的平均成绩，将除数5误写为4，这属于（）。
A、系统错误B、编译错误C、逻辑错误D、运行错误10、下列命令按钮事件过程执行后，输出结果是（）。
Private Sub Command1_Click()For m=1 To 10 Step 2a=10For n=1 To 10 Step 2a=a+2Next nNext mPrint aEnd subA、60B、50C、30D、2011、编写如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_X As Single, Y As Single)If Shift = 3 And Button = 2 ThenPrint "Visual Basic"End IfEnd Sub运行时，为了在窗体上输出"Visual Basic"，应执行的操作为（）。
A、按下Shift键和鼠标左键B、同时按下Shift、Alt键和鼠标左键C、按下Alt键和鼠标右键D、同时按下Shift、Ctrl键和鼠标右键12、下列求两数中最小数的程序段不正确的是（）。
A、If x < y Then Min = x Else Min = yB、Min = IIf(x < y，x，y)C、Min = x : If y < = x Then Min = yD、If y < = x Then Min = y : Min = x13、下列程序段的执行结果是（）。
x = 3 : y = 5 : z = 9x = x + yy = x - yIf x - y > z - x Then z = x + yIf x + y > z - y Then x = z + yPrint x, y, zA、3 5 9B、14 3 11C、8 3 11D、8 5 914、如果x小于y的平方，则在窗体上输出“OK”。
完成该要求的单行条件语句是（）。
A、If x < y ^ 2 Then "OK"B、If x < y ^ 2 Then Show "OK"C、If x < y ^ 2 Then Print "OK"D、f x < y ^ 2 Then Put "OK"15、有如下程序段：Dim s%, t%, a%, b%s = 1: t = 1a = Text1.Textb = Text2.TextIf a > 0 Then s = s + 1If a > b Thent = t + sElseIf a = b Thent = 5Elset = 2 * sEnd IfEnd IfPrint tEnd Sub要使程序输出结果为4，则a和b应满足的条件是（）。
A、a>0 And a<bB、a<0 And a<bC、a>0 And a>bD、a<0 And a>b16、以下条件语句错误的是（）。
A 、If X Then Y = Y + 1B 、If X = 0 Then Y = 0C 、If X > 0 Then Y = 1: Print YD 、If X > Y Then Print Y End If 三、编程题1、 编程计算下列函数。
SinX X ≥20 Y= CosX 0≤X <20e XX <02、 求一元二次方程ax 2+bx+c=0的根。
提示：从初等代数可知，此方程有两个根，它有三种可能（设d=b 2-4ac ）：（1） 若b 2-4ac>0，有两个不等的实根：a db x 22,1±-=（2） 若b 2-4ac=0，有两个相等的实根：ab x 22,1-=（3） 若b 2-4ac<0，有一对共轭复根：i ad ab x 222,1-±-=3、 某商品价格随购货数量而定，买100个以上（含100个，下同）的打9折，200个以上的打8.5折，300个以上的打8折，400个以上的打7.5折，500个以上的打7折。
设商品单价为65元，要求从键盘输入购买商品数量后，显示出总货款。
4、 求∑=201!n n （即求1！+2！+3！+…+20！）。
5、 输出斐波纳契（fibonacci ）数列的前20项。
数列的规律是：第一、二个数是1，从第三个数起，该数是前面两个数之和。
6、 如果我国工农业生产值每年以12%增长率递增，问多少年后产值翻一番？7、 求出2000 — 2005年之间的所有闰年。
闰年的条件是：能被4整除但不能被100整除的年份，或者能被400整除的年份，如2000年、2004年是闰年，而2001年、2100年不是闰年。
8、 找出1~1000之间的全部“水仙花数”。
“水仙花数”是这样的一个整数，它的每位数字的立方之和正好等于这个三位数。
例如153是水仙花数，因为13+53+33=153。
9、 在窗体上输出如图18所示的图形。
图4-18 编写代码输出图形10、 输出九九乘法表。