VB顺序结构及选择结构练习
vb大一选择程序结构习题答案答案
vb大一选择程序结构习题答案答案4.2习题一、选择题1. 以下不正确的单行结构条件语句是（ D）。
（A）If x>y Then Print ＂x>y＂（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If x<0 Then y=2*x-1: Print x End If2. 给定程序段Dim a As Integer, b As Integer, c As Integera=1：b=2：c=3If a=c-b Then Print ＂#####＂ Else Print ＂*****＂以上程序（ C ）。
（A）没有输出（B）有语法错（C）输出#####（D）输出***** 3. 运行下面程序后，在弹出的消息窗口中显示的是（D）。
Private Sub Form_Click()score=Int(Rnd)+5Select Case scoreCase 5a$="Good"Case 4a$="Ok"Case 3a$="Pass"Case Elsea$="Bad"End SelectMsgBox a$End SubB、PassC、OkD、Good4. 下面语句书写正确的是（D）。
(A) If a>max Then max=a Else max=b End If(B) If a>max Then max=aElse max=bEnd If(C) If a>max Thenmax=aElsemax=6( D) If a>max Thenmax=aElsemax=6End If5. 执行下列程序段输出的结果为（ C ）。
a=3IF a>0 ThenPrint ＂###＂ElsePrint ＂$$$＂End IfA) ###$$$B) $$$###C) ###D) $$$6. 下面程序段运行后,显示的结果是( B )if x then print x else print x+1(A) 1 (B) 0 (C) -1 (D) 显示出错信息7: 语句IF x=1 THEN y=1, 下列说法正确的是( C )(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式8. 用IF 语句表示分段函数，<+≥+=1311)(2x x x x x f 下列程序段不正确的是( A )(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+3(C) F=x*x+3 (D) f=sqr(x+1)If x>=1 then f=sqr(x+1) If x<1 then f=x*x+39. 下面IF 语句统计满足性别（sex ）为男，职称（duty ）为副教授以上，年龄（age ）小于40岁条件的人数，不正确的语句是( D )(A) If sex=”男” and age<40 and instr(duty,”教授”)>0 then n=n+1(B) If sex=“男” and age<40 and (duty=“教授” or duty=“副教授”) then n=n+1(C) If sex=“男” and age<40 and right(duty,2)=“教授” then n=n+1(D) If sex=“男” and age<40 and duty=“教授” and duty=“副教授” then n=n+110. 下面程序段求两个数中的大数，( D )不正确。
vb的三种基本结构
③. j = 0 If J＞0 Then J＝J＋1 Endif
2．以下程序，运行后 x的值为 （ ） x =2 y= 3 y=y+1 x=x+y-1 A. l B. 3 C. 5 D. 7 3、以下程序，运行后变量value的值为 ( ) X = 20 If x >= 10 then value = 5 * x else value = 4 * x end if msgbox(value) 最后，变量value的值是（ ） A、50 B、40 C、100 D、80
vb程序的三种基本结构一顺序结构二选择结构三循环结构程序是由若干个基本结构组成的一个基本结构可以包含一条或若干条语句
VB程序的三种基本结构
程序是由若干个基本结构组成的，一个基本结构可以包 含一条或若干条语句。
通常程序有三种最基本的结构：
一、顺序结构 二、选择结构 三、循环结构
1、 顺序结构： 将命令和语句逐条顺序排列。 程序执行时按语句的先后顺序逐条执行。 S1
4、以下程序，运行后 X的值为 （ ） X =2 For i＝1 To 5 If X＜i Then X= X＋i End If Next i A. l B. 3 C. 5 D. 7
例1、 ห้องสมุดไป่ตู้=1 b=2 c=a+b a=c-a b=c-a
最后，变量b的值是（ ）
S2 S3
2、分支结构：（选择结构） 根据条件判断其是否成立，如果成立执行成立的分支；否则 执行另一分支。 其一般形式为： If 条件 Then 语句序列1 C Else 语句序列2 End If 分支结构的简单形式为： If 条件 Then 语句序列 End If S1 S2
C
例4、s=0 for I=1 to 100 s=s+I next 最后，变量s的值是（ ）
VB第9课时：选择(分支)程序设计(附随堂练习)
’最后一种情况时
y=“不及格”
二、如要在多个条件中做出选择时，可以用块If语句中其它形式： 1、块If语句嵌套格式： 一个块If语句中可以完整包含另一个（或多个）块If。
块If 语句嵌套格式：
If 条件表达式 1 Then 语句组1 If 条件表达式 2 Then 语句组2 Else 语句组3 End If Else 语句组n End If
Dim a,sum As Integer If a>0 Then sum= sum+a
例2：设a, b是两条线段的长度，若线段a的长度大于等于线段b的话， 则把1存储到变量S中，否则反-1存储到变量S中。
Dim a,b As Double If a>=b Then s= 1 Else s= -1
块If语句格式 题纲： 例1：（2） Dim a,sum As Integer If a>0 Then Sum= sum+a End IF
2、块If 语句格式语句特点：
① 由若干行组成 ② Then 关键字后不能有任何语句 ③ 最后以End If 结束
If 条件表达式 Then 语句组1 Else 语句组2 End If
Private Sub Command1_Click() 例3.将下列If块语句改写成行If语句 Dim a, b, c As Integer (做题纲题目) a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b > c And b + c > a And a + c > b Then Text4.Text = "能" Else Text4.Text = "不能" End If End Sub Private Sub Command1_Click() Dim a, b, c As Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b > c And b + c > a And a + c > b Then Text4.Text = "能“ Else Text4.Text = "不能" End Sub
VB课件第4章Visual Basic 顺序结构
语法格式： [对象名.] Print [表达式列表]
对象名：可以是窗体（Form）、图片框 （PictureBox）或打印机（Printer）的名称， 如果省略对象名，则在当前窗体上直接输出。
表达式列表
可以是一个或多个表达式，各表达式之间可用 逗号（，）或分号（；）分隔。如果省略，则 输出一个空行。
值类型时，自动转换成数值类型再赋值。但当表达 式中有非数字字符或空串时，就会出错。 （3）当逻辑类型赋值给数值类型时，True转换 为-1，False转换为0；反之，当数值类型赋值给 逻辑类型时，非0转换为True，0转换为False。 （4）任何非字符类型赋值给字符类型时，均自动 转换为字符类型。
End Sub
4.5 注释、暂停与结束语句
1.注释语句
为了提高程序的可读性两种格式：
Rem <注释内容>
a
b
' 注释内容
例如：
Rem 交换a和b的值
c
c = a ' c为临时单元
a=b
b=c
关于注释语句的几点说明
(1)注释语句是非执行语句，只对程序有关部分起注释 作用
(2)格式2主要放在其他语句后面对其进行说明，单撇号 “'”可以直接写在其他语句后面。
(7)一个赋值语句只能给一个变量赋值，在程 序中出现连等的情况，例如a = b = 5,系统 认为最左边的“=”是赋值号，以后“=”均为 比较运算中的符号，在赋值时，先进行比较运 算，再将运算结果赋给变量。
(8)不要将赋值运算与代数方程的概念相混淆。
如：x = x + 1
4.3 Print 语句
vb三种基本结构练习题
vb三种基本结构练习题1、计算圆的面积（顺序结构）dim r,s,c as singler=inputbox("输入r的值")s=3.14*r*rc=2*3.14*rprint sprint c2、小明去买电池，2.5元一节，买电池超过10节，超出的部分按八折出售。
输入小明买电池的数量，输出小明应付的钱数。
（选择语句）dim a as integerdim q as singlea=inputbox("输入小明买的电池数")if a>10 thenb=25+(a-10)*2.5*0.8elseb=a*2.5end ifprint b3、求1+2+3+4+……+100的和。
（循环语句）dim i,sum as integerfor i=1 to 100sum=sum+inext iprint sum4、输入数字n，求n！（n!=1*2*3*……*n）（循环语句）dim i,sum,n as longn=inputbox("输入n的值")sum=1for i=1 to nsum=sum*inext iprint sumVB上机练习汇总1、在窗体上任意位置画一个文本框和一个命令按钮，编写程序，当用户单击命令按钮时，文本框移动到窗体的左上角，并且文本框的大小是原来的2倍。
2、在窗体上任意位置画一个文本框和一个命令按钮，设置窗体的标题属性为“信息窗口”；命令按钮的标题属性为“确定”。
编写程序，当用户单击命令按钮时，在文本框中显示“包头师范学院”，要求字体为隶书、加粗、加下划线、字号为20、颜色为红色。
3、在窗体上任意位置画两个命令按钮，分别设置它们的标题属性为：加载图片、显示信息。
编写程序，当用户单击第一个命令按钮时，在窗体上加载一幅图片（图片自定）。
当用户单击第二个命令按钮时，在窗体上打印信息“包头师范学院“。
4、例1:在窗体上部设置一个文本框，文本框的下面设置3 个命令按钮，其中左边按钮中标有“单击此按钮”，中间按钮中标有“清除”，右边按钮中标有“程序结束”。
VB顺序结构与选择结构
x = 0.25 * w
Else If w <= 100 Then
x = 0.25 * 50 + 0.35 * (w–50)
Else x = 0.25 * 50 + 0.35 * 50 + 0.45 * (w–100) End If End If Text2.Text = x
练习
相应流程图与程序界面
输入 x 值
真
x ≥ 2
假
y = x 3－ 9
y ＝ x
2
＋ 5 x -6
输出 y 值
相应代码
行If语句
Private Sub Command1_Click( )
Dim x As Single x = Val(Text1.Text)
块If语句
Private Sub Command1_Click( )
VB顺序结构与选择结构
文成县第二高级中学 信息技术
顺序结构
执行过程的次序从上到下，从左到右。
例：请问此时的c的值是多少？
a = 10 b = a*2 c = a+b
在顺序结构中，由多条赋值语句构成，那么我们一起来看下赋值语句。
赋值语句
赋值语句用来表明赋给某一个变量一个具体的确定值的语句叫做赋值语句。在算 法语句中，赋值语句是最基本的语句。 赋值语句的格式：
( w 50) 0.25 w x 0.25 50 0.35 ( w 50) (50 w 100) 0.25 50 0.35 50 0.45 ( w 100) ( w 100)
VB程序设计 习题及答案第4章 选择结构程序设计
第4章选择结构程序设计4．1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24．2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4．3 已知 W=10 X=9 Y=8 Z=7 ，求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4．4 写出下列十进制整数逻辑运算的结果：(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04．5 已知变量X和Y的值分别为5、6，编写程序，交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示：4．6 从键盘输入一个学生的三科成绩，计算总分，并找出最高分。
【参考答案】（1）用户界面设计（2）控件属性设置（略）（3）程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
VB顺序结构编程练习题(2)解答a
VB顺序结构编程练习题(2)参考解答1、有一个“就是它”的猜数游戏，步骤如下：请你任意输入一个三位数，在这三位数后重复一遍，得到一个六位数，467→467467。
把这个数连续除以7，11，13，最后的商就是你输入的三位数。
请编程加以验证。
x=val(inputbox(“请输入一个三位数：x”))y=x*1000+xy=y/7y=y/11y=y/13print ”x=”;x,”y=”;y2、某学校开运动会，要在正六边形的操场的周围插上彩旗。
如果每边插a面彩旗(包括每个角上的彩旗)，a变量数可由键盘输入，问总共需要多少面彩旗?a=val(inputbox(“每边插旗数：”))s=6*a-6print ”正六边形的操场每边插彩旗面数为：”;aprint ”总共需要彩旗面数为：”;s3、计算图形的周长和面积．c=(48+36)*2s=48*12+24*24print ”图形的周长为：”;cprint ”图形的面积为：”;s4、编写求下列自然数等差数列之和的程序，数列的首项和末项由键盘输入。
4+5+6+7+8+9+10+11+12+13+14+15等差数列的求和公式自己从网上或从数学手册查找，当然也可自己推导。
sx = Val(InputBox("输入等差数列的首项："))mx = Val(InputBox("输入等差数列的末项："))n = mx - sx + 1s = (sx + mx) * n / 2print "自然数等差数列："print "首项="; sx, "末项="; mxprint "该自然数等差数列的和为："; s{等差数列的和=(首项+末项)×项数／2)} number=last-first+1;5、输入一个学生的情况，包括学号(用整数表示)、姓名(用第一个字母表示)、语文成绩和数学成绩，然后输出学号、姓名、总分和语数外三门课的平均成绩（保留两位小数）。
选择结构练习题
选择结构练习题选择结构练习题（导练）一、基础训练题：1.当VB执行下面语句后，A的值为（）A=1IF A>0 THEN A=A+1IF A>1 THEN A=0A 、2B 、1C 、0D 、32.下列语句中，用于选择结构的是（）A、While…Wend语句B、If语句C、For…Next语句D、Select Case语句3. 在如下VB的If语句中，假设a=15:b=23: If a>b Then max=a Else max=b那么执行该程序段后max值为（）A、15B、23C、0D、-14.以下是一段VisualBasic程序，它的基本结构属于…IF x>0 Then X=x+1 Else X=x-1 EndIf…（）A、顺序结构B、选择结构C、循环结构D、树型结构5.当程序出现多分支选择时，用If语句比较繁琐，用Select Case 语句就方便多了。
（）6.在VB中进行程序设计时，IF语句用于处理单分支及双分支型的选择结构，SelectCase 语句用于处理多分支选择结构。
（）7.补充完善下列程序段计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。
X表示行李重量，Y表示行李费。
Dim X, YAs SingleX=InputBox("输入行李重量")If ________ ThenY=0ElseY=20*(X-20)End IfPrint "行李费= ";Y二、考题训练（能力提升训练）1、[ 单选题1 分]在VisualBasic中，将多个语句合并在一行上的并行符是（）A、撇号（’）B、冒号（：）C、大于号（>）D、感叹号（！）2、[ 多选题2 分]程序的三种基本结构是( )A、顺序结构B、循环结构C、选择结构D、树型结构3、[ 单选题1 分]税务部门征收个人所以税，以2000元为起征点，规定如下：①不超过500元的，税率为5%；②超过500至2000，税率为10﹪；③超过2000至5000，税率为15﹪；……该题设计程序结构时最适合使用的控制结构是（）。
VB选择结构 习题
• 一、选择题 • 1、VB提供了结构化程序设计的三种基本结构，三种基本结构是（） • A.递归结构、选择结构、循环结构 • B.过程结构、输入/输出结构、转向结构 • C.顺序结构、选择结构、循环结构 • D.选择结构、过程结构、顺序结构 • 2、数学表达式1<x<=2或10<=x<15，在VB中应写成条件表达式（） • A.X>1 AND X<=2 OR X>=10 AND X<15 • B.X>1 OR X<=2 OR X>=10 OR X<15 • C.X>1 OR X<=2 AND X>=10 OR X<15 • D.X>1 AND X<=2 AND X>=10 AND X<15 • 3、选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的
间隔，可通过（）属性来设置
• A. interval B.value
• C.enabled D.text
• 二、填空题 • 1、在条件语句中，条件表达式分为两类： ____
和_______。条件表达式的结果为布尔值:______ 或______ • 2、条件判断结构可以使用_____语句、______ 语句和_____语句 • 3、在select case 语句中，当不止一个case后面 的取值与表达式的值相匹配时，只执行第_____ 个与表达式匹配的case后面的语句序列 • 4、单选按钮的enabled属性为false 时，表示 _____复选框的value属性取值为0时，表达_____, 为1时表示______,为2时表示______ • 5、设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B>C OR C>D的值为__________
vb程序的三种基本结构
Select Case x Case 90 to 100 Print "优秀" Case 80 to 89 Print "良好" Case 70 to 79 Print "中等" Case 60 to 69 Print "及格" Case Else Print "不及格"
End Select
精选ppt
End If
精选ppt
10
选择结构
例：输入一学生成绩，评定其等级。规则是：90~100分为 “优秀”，80~89分为“良好”，70~79分为“中等”，60~69 分为“及格”，60分以下为“不合格”
使用IF语句实现的程序段如下：
If x>=90 then Print "优秀"
ElseIf x>=80 Then Print "良好"
13
综合练习：输入a，b，c求一元二次方程组的根。
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = 0 Then
MsgBox "error!"
End
End If
d=b^2-4*a*c
▪ 根据不同的条件判断来决定程 序执行走向的结构。
精选ppt
3
（3）循环结构
a) 当型循环
b) 直到型循环
条件 N
Y 语句组
语句组
Y 条件 N
(b)
▪ 根据条件判断某些语句可能需
( a ) 要执行0次1次或多次的结构。
VB顺序结构与选择结构
VB顺序结构与选择结构VB（Visual Basic）是一种事件驱动的、面向对象的高级编程语言，广泛应用于Windows应用程序开发。
在VB中，顺序结构和选择结构是编写程序时经常使用的两种结构。
下面将详细介绍这两种结构。
一、顺序结构顺序结构是指程序的执行按照代码编写的顺序逐行进行。
也就是说，代码从上到下依次执行，不会跳过任何一行。
在VB中，顺序结构是最基本也是最常用的结构。
例如，我们可以编写一个简单的程序来计算并输出两个数的和：```Dim num1 As Integer = 10Dim num2 As Integer = 20Dim sum As Integersum = num1 + num2Console.WriteLine("两个数的和为：" & sum)```在这个程序中，首先定义了两个整数变量`num1`和`num2`，并分别给它们赋值为10和20。
然后，定义了一个整数变量`sum`用来存储两个数的和。
接着，将`num1`和`num2`相加的结果赋值给`sum`，并最后通过`Console.WriteLine`方法将结果输出到控制台。
顺序结构在程序设计中最常用，因为很多时候程序的执行过程就是按照顺序逐行运行的。
下面我们将介绍另一种常用的结构，选择结构。
二、选择结构选择结构是根据条件的结果来选择是否执行段代码。
简单来说，就是根据条件判断来选择程序的执行路径。
在VB中，选择结构通常使用`If...Then...Else...End If`语句来实现。
例如，我们可以编写一个程序来判断一个数是否为正数：```Dim num As Integer = -5If num > 0 ThenConsole.WriteLine("这个数是正数")ElseIf num = 0 ThenConsole.WriteLine("这个数是零")ElseConsole.WriteLine("这个数是负数")End If```在这个程序中，首先定义了一个整数变量`num`，并给它赋值为-5、然后，使用`If...Then...Else...End If`语句来判断`num`的值。
VB顺序结构与选择结构练习题
VB顺序结构与选择结构练习题VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click()b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（D）A）a=11 B）a=b + c C）a= D）False2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click(D)a=11b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（）A）a=11 B）a=b + c C）a= D）True3.以下语句的输出结果是（B）a = Sqr(3)Print Format(a,”$$#### : ###”)A）$1.732 B）$$1.732 C）$1732 D）$$00001.7324.以下程序段的输出结果是（D）a = Sqr(3)b = Sqr(2)c =a>bPrint cA）-1 B）0 C）False D）True5.以下语句的输出结果是（C）Print Format$ (32548.5,”000,000.00”)A）32548.5 B）32,548.5 C）032,548.50 D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,, “String2”, “String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）12.InputBox函数返回值的类型为（B）A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。
VB中结构
格式： If < 条件表达式 > < 语句块1> Else < 语句块2> End If
Then
T 表达 F 式
语句(块)1
语句(块)2
功能：当表达式的值为非0（True）时,执行Then后面的 语句块1，否则执行Else后面的语句块2。
例：判断两个数的乘积是否是正数。
Private Sub Command1_Click() Dim x As Integer, y As Integer x = Val(Text1.Text) y = Val(Text2.Text) If x * y > 0 Then
〈语句块1〉
ElseIf 〈表达式2〉Then
〈语句块2〉
……
[Else
表达式1
F
〈语句块 n+1 ] End If
表达式2
F…
T
T
表达式
nn T
语句块11
语句块2 …… 语句块nn
语句块n+11
说明：
① 不管有几个分支，程序执行了一个分支后， 其余分支不再执行。
② ElseIf子句的数量没有限制，可以根据需 要使用任意多个ElseIf子句。
（一）顺序结构
程序中的语句依照其在程序中的位置依次顺序 地执行，叫做语句的顺序执行。
赋值语句 格式： 变量名/对象属性名 = 表达式 功能：将赋值号右边表达式的值赋给赋值号左边的 变量或对象属性。
举例：
a = 300 b = a * 2 + 100 Form1.Width = b
注意：
① 赋值号左边只能是变量，不能是表达式、常量。
3．Select Case语句（多分支结构）
VB程序的3种基本结构-复习课件(共20张PPT)
（一）超过规定时速未达百分之五十的，处二百元罚款；
（二）超过规定时速百分之五十的，处五百元罚款；每多超五公 里，加处二百元罚款，但最高罚款不得超过二千元。
设某公路的规定时速为 80(km/h)，用 x 表示车速，y 表示 罚款数，该问题的数学式为：
y=0
x<=80
y=200
80<x<=120
y=500+Int((x-1.5*80)/5)*200 x>120
s=0 For i=1 to 10 Step 2
s=s+i Next i
print s
上面的程序段属于 循 环 结构，
语句运行后s的值是 25 。
程序语句改错（一）
程序改错： 计算表达式1*2*3*4*…*8*9*10的值，为 了实现这一功能，编写了下面的程序段，在该程序段 中有5处错误，请将它们查找出来，然后修改正确。
语句 - VB程序的3种基本结构
程序结构复习题（一）
VB程序中常见的3种基本结构是：
结构；
结构；
结构。
程序结构复习题（一）
VB程序中常见的3种基本结构是： 顺序 结构； 选择（分支） 结构； 循环 结构。
程序结构复习题（二）
顺序结构的基本特征：
程序从 到 依次执行语句序列。
程序结构复习题（二）
Dim i as long sum=0 For i=1 to 10 Step 2
sum=sum*i Loop j print sum
程序语句改错（三）
程序改错： 计算表达式1*2*3*4*…*8*9*10的值，为 了实现这一功能，编写了下面的程序段，在该程序段 中有5处错误，请将它们查找出来，然后修改正确。
第4章(1)VB顺序、选择结构
【例4-2】使用Textbox控件输入数据。
Private Sub Form_Click()
Dim Name As String
Dim age As Integer
Name=Text1.Text
age=Val(Text2.Text)
Print Name, Age
图例4-2
End Sub
2．数据的输出
行的是给变量赋值的操作；而关系运算符的等号是判断两边 的值是否相等。
例如：x＝2＝4。该语句先对2和4进行比较，然后把结果 “真(True)”或“假(False)”赋给x。 (2)赋值语句中的“＝”称为赋值号，它和数学中的等号
不同，如x=x+1含义是将变量x单元中的值加1之后，仍然 存放到x存储单元中。 (3)赋值号两边的数据类型通常要求一致，如果不同，右 边表达式的数据类型则以左边变量或对象属性的数据类型 为基准进行转换。
MsgBoxStyle.Critical MsgBoxStyle.Question MsgBoxStyle.Exclamation rmation
MsgBoxStyle.DefaultButton1 MsgBoxStyle.DefaultButton2 MsgBoxStyle.DefaultButton3
End Sub
4.2 选择结构
在实际应用中，有许多问题都要根据是否 满足某些条件来判断程序的转移。选择结 构可控制程序执行的流程。
VB能够测试条件，然后根据测试结果执 行不同的分支操作。例如输入一个数，判 断它是奇数还是偶数，并显示。
VB有多种实现选择结构的语句。
If 条件语句 Select-Case语句 Iif条件函数
第一个按钮为缺省按钮 第二个按钮为缺省按钮 第三个按钮为缺省按钮
VB习题
第一讲Visual Basic程序设计概述一、选择题1.在VB程序设计阶段，双击窗体或窗体上的任何对象，打开的窗口是A.代码窗口B.属性窗口C.布局窗口D.工程窗口2.任何控件都具有的属性是A.CaptionC.FillColorD.DrawStyle3.下列关于窗体Name属性的叙述错误的是属性的值是显示窗体标题栏的文本属性的值不可以是空C.运行期间不能改变Name的属性值属性是指窗体的名称，用来标识一个窗体4.下列叙述中错误的是A.不同的对象可以具有相同名称的方法B.事件过程是指附在该对象上的程序代码，是事件触发后处理的程序C.方法是在对象上可操作的过程，是VB系统提供的一种特殊的过程和函数D.对象事件的名称可以由编程者制定5.有程序代码如下：Text1.Text=”欢迎”，则Text1、Text、”欢迎”分别代表A.对象、值、属性B.对象、方法、属性C.对象、属性、值D.属性、对象、值6. 下列叙述中正确的是（）。
A 只有窗体才是Visual Basic中的对象B 只有控件才是Visual Basic中的对象C 窗体和控件都是Visual Basic中的对象D 窗体和控件都不是Visual Basic中的对象二、填空题1.VB采用的是面向对象、驱动的编程机制。
2.VB编程的三大基本步骤是界面设计、属性设置和代码编写3.当对象获得焦点时会触发__lostfocus_________4.应用程序建立在工程的基础之上，一个工程是各种类型文件的集合，它包括_____（标准模块文件）.bas_______、_（工程文件）_.vbp____________、______（窗体文件）_.frm_______、_ ___（资源文件）.res_________、__（工程组文件）_.vbg____和__（类模块文件）.cls__________。
5.每个窗体对应一个窗体文件，窗体文件的扩展名是.frm 。
三、编程题1.设计一个显示信息的窗口(见图),要求在文本框中输入文本信息,单击按钮,文本信息显示在窗体上.2.设计如图所示窗口，要求单击“显示”按钮时在文本框中显示：北京欢迎你，单击“清除”按钮，清除文本框中的内容，单击“退出”按钮，退出程序。
VB第4章 选择结构
教案讲稿第四章选择结构程序设计[旧课复习]：复习内容：1.已学过的几个常用的控件2.控件中输入输出语句的使用复习目的：让学生掌握基本控件的使用复习时长：大约10分钟[新课导入]：导入方式：以日常生活中的实例让学生理解什么是选择结构导入目的：增强学生的理解能力导入时长：大约5分钟[新课讲授]：重点：各种分支结构语句的使用难点：选择结构的嵌套方法：运用多媒体辅助教学，采用讲授法和案例教学法4.1算法介绍4.1.1算法介绍一、算法概述所谓算法，是对特定问题求解步骤的一种描述，它是指令的有限序列，其中每个指令表示一个或多个操作。
算法有以下特征：（1）有穷性（2）确定性（3）可行性（4）输入（5）输出4.1.2算法的表示常用的表示算法的方法有：自然语言、伪代码、流程图，本章重点介绍用流程图表示算法。
流程图用一些图框、流程线以及文字说明来表示算法。
用图来表示算法，直观、形象、容易理解。
包括：传统流程图、结构化流程图。
因传统流程图中流程线的使用无限制可能导致流程图毫无规律。
结构化流程图使用3中基本结构，即：顺序结构、选择结构和循环结构（如图4-1所示），从而大大提高流程图的规律性。
图4-1（a）顺序结构流程图图4-1（b）选择结构流程图图4-1（c）循环结构流程图4.2条件语句VB中选择结构通过条件语句来完成，包括：单分支、双分支和多分支等。
4.2.1单分支结构语句单分支结构语句包括单行结构和块结构。
1．“单行结构”格式为：If <条件表达式> Then <语句序列>2. “块结构”格式为：If <条件表达式> Then<语句序列>说明：（1）“条件表达式”可以是关系表达式、布尔表达式或者数值表达式。
如果是数值表达式，则非0值为真，0为假。
（2）当条件表达式的值为真时执行语句序列。
【例4-1】已知两个数x和y，比较它们的大小，使得x>y。
分析：对任意的两个数x、y,其中x若为大的数，直接输出即可，若 y为大的数，则交换两数即可。
第六节顺序结构、选择结构,VB
程序代码：
Private Sub Form_click() Dim x As Single Dim m As Single x = InputBox("请输入购买数量") If x >= 5 Then m = x * 5 * 0.8
Else m=x*5 End If Print "你花费了"; m; "元" End Sub
算法分析:
设我们买苹果的重量用X表示, 需交的钱用M表示,则可绘出流 程图如右:
开始 输入x
否 x>=5
选 择
是
结
m=x*5*0.8 输出m
构 m=x*5
结束
条件语句的格式
If ＜条件＞ then
< 语句块１>
是
否
条件成立
Else < 语句块２>
语句块１
语句块２
End if
条件语句的下一语句
说明：如果条件成立(true)，则执行语句块１；否 则，执行语句块２；任何情况下两语句不可能都执 行。
Print "该生为优" Case Is >= 70
Print "该生为良" Case Is >= 60
Print "该生为中" Case Is < 60
Print "该生不及格" End Select
End Sub
三.习题训练
1、关于语句if x=1 then y=1下列说法正确的是( c) A x=1 和y=1均为赋值语句 Ｂx=1 和y=1均为关系表达式 Ｃx=1为关系表达式， y=1为赋值语句 Ｄx=1为赋值语句， y=1为关系表达式
Visual Basic程序的基本结构
F 表达 式 T 语句块
例题
例题：
a=6
If a<0 Then a=a+1也可写成 a=6 If a<0 Then a=a+1
End If
2．If…Then…Else语句
2．If…Then…Else语句 语句格式： If < 表达式> Then <语句1> Else <语句2> If <表达式> Then <语句块1> Else <语句块2> End If 语句功能：当<表达式>的值为True或非零时，执行Then后面的 语句（或语句块），否则执行Else后面的语句（或语句块）， 实现双分支选择结构。其流程如图所示：
开始
执行aห้องสมุดไป่ตู้N 执行b
条件 Y 结束 循环结构
例题
j=0 For i=2 To 10 Step 2 j=j-i Next 求上述VB程序中j的值 例题： 答：走程序(条件为i<=10，step的值为2) 1.i=2 i<=10 成立 j=j-i=0-2= -2 i=i+2=4 2.i=4 i<=10 成立 j=j-i= -2-4= -6 i=i+2=6 3.i=6 i<=10 成立 j=j-i= -6-6= -12 i=i+2=8 4.i=8 i<=10 成立 j=j-i= -12-8= -20 i=i+2=10 5.i=10 i<=10 成立 j=j-i= -20-10= -30 i=i+2=12 6.i=12 i<=10 不成立 ，跳出循环 ，得到j最终的值为-30
一、顺序结构
顺序结构就是程序的各语句按出现的先后次序执行。 例题： a=3 b=4 b=a+4 a=a-b 求上述VB程序中a和b的值
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB顺序结构及选择结构练习一、单选题1.在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click()b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（D）A）a=11 B）a=b + c C）a= D）False2. 在窗体上画一个命令按扭（名称为Command1），然后编写如下事件过程Private Sub Command1_Click(D)a=11b=5c=6Print a = b + cEnd Sub程序运行后，单击命令按扭，其结果为（）A）a=11 B）a=b + c C）a= D）True3.以下语句的输出结果是（B）a = Sqr(3)Print Format(a,”$$#### : ###”)A）$1.732 B）$$1.732 C）$1732 D）$$00001.7324.以下程序段的输出结果是（D）a = Sqr(3)b = Sqr(2)c =a>bPrint cA）-1 B）0 C）False D）True5.以下语句的输出结果是（C）Print Format$ (32548.5,”000,000.00”)A）32548.5 B）32,548.5 C）032,548.50 D）32,548.501.假定有如下语句：answer$=MsgBox(“String1”,, “String2”, “String3”,2)执行该语句后，将显示1个信息框，此时如果单击“确定”按扭，则answer$的值为（D）A）String1 B）String2 C）String3 D）12.InputBox函数返回值的类型为（B）A）数值 B）字符串 C）变体 D）数值或字符串（视输入的数据而定）3.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程。
Private Sub Command1_Click()a = InputBox(“Enter the First integer”)b = InputBox(“Enter the Second integer”)Print b + aEnd Sub程序运行后，单击命令按扭，先后在2个输入对话框中输入456和123，则输出结果是（D）A）579 B）123 C）456123 D）1234564.执行下面的语句后，所产生的信息框的标题是（A）a = MsgBox(“AAAA”，，”BBBB”,””,5)A）BBBB B）空C）AAAA D）出错，不能产生信息框5.在窗体上画1个名为Command1的命令按扭，然后编写如下事件过程Privete Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序运行后，单击命令按扭，则在信息框中显示的提示信息为（B）A）123 + 321 B）字符串”444”C）数值444 D）空白6.MsgBox函数的反回值的类型为（A）A）整型(Integer) B）字符串C）变体D）整数或字符串（视选择的按扭而定）1.假定有如下语句：st$=InputBox(“请输入一串字符”, “输入对话框”, “请输入字符串”)当用户输入完毕，按“确定”按扭后，st$变量的内容是（）A）请输入一串字符B）字符串对话框C）请输入字符串D）用户输入内容1. 假定有如下语句：Private Sub Form_Click()Dim a,b,x As Integera = InputBox (“a=?”)b = InputBox (“b=?”)x = a + bIf a > b Then x = a - bPrint xEnd Sub运行时从键盘输入3和4，输入x的值是（C）A）3 B）5 C）7 D）92. 假定有如下语句：Private Sub Form_Click()b = 1 : a = 2Print IIf (a >= b,a,b)End Sub运行后输出的结果是（C）A）0 B）1 C）2 D）33.假定有如下语句：Private Sub Form_Click()s = Val (InputBox ( “Input Value of s:”)) Select Case sCase Is < 6f = s + 1Case Is < 5f = s + 2Case Is < 4f = s + 3Case Elsef = s + 4End SelectPrint s;fEnd Sub运行时从键盘输入6，输出结果是（D）A）6 7 B）6 8 C）6 9 D）6 104. 假定有如下语句：Private Sub Form_Click()score = Int (Rnd * 10) + 80Select Case scoreCase Is < 60a$ = “F”Case 60 To 69a$ = “D”Case 70 To 79a$ = “C”Case 80 To 89a$ = “B”Case Elsea$ = “A”End SelectPrint a$End Sub运行时输出的结果是（B）A）A B）B C）C D）D5. 假定有如下语句Private Sub Form_Click()a = Val (InputBox (“请输入a”))b = Val (InputBox (“请输入b”))x = a*a + bIf b > a Then x = b*b + aPrint xEnd Sub运行时从键盘输入3和4，输出X的值是（C）A）12 B）13 C）19 D）206. 假定有如下语句Private Sub Form_Click()K = 2If K >= 1 Then A = 3If K >= 2 Then A = 2If K >= 3 Then A = 1Print AEnd Sub运行时，输出的结果是（B）A）1 B）2 C）3 D）出错7. 假定有如下语句Private Sub Form_Click()k = Val ( InputBox (“请输入一个数”))If k <= 0 Then Abc = 4 : GoTo aIf k <= 1 Then Abc = 3 : GoTo aIf k <= 2 Then Abc = 2 : GoTo aIf k <= 3 Then Abc = 1a:Print k ; AbcEnd Sub运行时输入3，输出的结果是（A）A）3 1B）3 4 3C）3 4 3 2D）3 4 3 2 18.设有函数r =1 x < 02 x >=0则下列能正确计算该函数值的语句是（D）A）If x < 0 Then r = 1ElseIf x >= 0 Thenr = 2End IfB）If x < 0 Then r = 1ElseIf x >= 0 Then r = 2 Else r = 1End IfC）Print ( IIf (x >0,1,2))D）r = IIf (x < 0,1,2)二、简答(填空)题1.假设有如下程序，程序运行后，单击窗体输出结果是（032，548.60）Private Sub Form_Click ()a = 32548.56Print Format (Int((a*10+0.5)) / 10,”000,000.00”) End Sub2.以下程序段的功能是（对变量X四舍五入后取整）x = 8.6y=Int(x+0.5)Print y3.假设有如下程序，程序运行后，单击窗体输出结果是（4）Private Sub Form_Click ()a = 25 Mod (1-2^3)Print aEnd Sub4.以下语句的输出结果是（Beijing）s$=”China”s$=”Beijing”Print s$5.以下语句的输出结果是(3)a%=3.14156Print a%6.设 a=Sqr(2)*Sqr(3)，下列语句的输出结果分别是Print Format $ (a,”000.00”) 输出结果：002.45 Print Format $ (a,”###.#00”) 输出结果：2.449Print Format $ (a,”00.00E+00”) 输出结果：24.49E-01 Print Format $ (a,”-#.####”) 输出结果：-2.4495三、编程题1.编写打印下面三角形图案的源程序（书上55页4题）*************************程序代码：Private Sub Form_Click()Form1.Print Tab(15); "*"Form1.Print Tab(14); "***"Form1.Print Tab(13); "*****"Form1.Print Tab(12); "*******"Form1.Print Tab(11); "*********"End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "显示星号三角形,单击窗体开始"End Sub2.设a=5,b=2.5,c=7.8，编程序计算y=πab/a+b*c程序代码：Private Sub Form_Click()a =5 :b = 2.5 :c = 7.8y = (3.1416*a*b)/(a+b*c)Print “y=”;yEnd Sub1.编写求以10为底，求10000的对数值的源程序。
Private Sub Form_Click()Form1.Print Log(10000) / Log(10)End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "计算以10为底，10000的对数"Form1.Print "单击窗体开始"End Sub2.编写求任意数的平方根的源程序，数由键盘输入。
Private Sub Form_Click()x = Val(InputBox$("输入数据"))Form1.Print "输入数据为"; xForm1.Print "平方根为"; Sqr(x)End SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "求任意数的平方根"Form1.Print "单击窗体开始"End Sub3. 求任意半径和高的圆柱的表面积。