2.2.2赋值语句和输入输出语句

1、程序的三种结构顺序结构选择结构循环结构顺序结构的主要的三种语句形态赋值语句输入（函数）输出（过程）输入数据的两种方式1. 利用文本框输入的方式如：r=val(text1.text)2. 利用弹出对话框的方式输入如：R=Inputbox(“输入圆的半径”）输出数据的两种主要方式1. 利用改变对象属性的方法 如： Text1.text=str(x*3.1416*r) label1.caption=“春节快乐”2. 利用消息对话框的方法 如：Msgbox(“Hello”)格式1 (单分支结构) : IF Then 语句块 End If例：有两个数x 和y，比较它们的大小，若x小于y,则交换x和y 值

2、，使得x大于y。Private sub form_click( ) x = inputbox (“请输入x”) y = inputbox (“请输入y”) If x y Then t = x x = y y = t End if print “x”; x , ”y”;yEnd sub 格式2 (双分支结构) :IF Then Else End If例：输出x、y两个数中值较大的一个。Private sub form_click( ) x = inputbox (“请输入x”) y = inputbox (“请输入y”) If x y Then print x else print y end

3、if End sub 练习题：1.分析下面一段VB程序，该程序运行后y的值是（ ）x = 3IF x 3 Then y = x * xElse y = 2 * xEnd if A. 2 B. 3 C. 9 D.62. 若整形变量a的值为2，b的值为3，则在下列程序段运行后整形变量c的值为（ ）If a 5 Then If b 3 Then c = a * b else c = a mod b End IfA. 2 B. -1 C. 1 D. 6求下列程序运行结果：Private Sub Command1_click ( ) Dim m , n As Integer m = 10 If m =

4、8 then n = 6 * m Else n = 2 * m End if Print “n = ” ; n End sub 输出：2. Private Sub Command1_click ( ) Dim a , b ，m As Integer a = 3 ：b = 2 ：c = 1 (在VB中，将多个语句合在一行上的并行符是 ：) If a b then m = a Else m = b End if If c 2 then a = 10 Else If （10 / 2） = 6 Then a = 20 Else a = 30 End if End if Print a End sub

5、输出：30格式3 (双分支结构) :IF 条件1 Then 语句块1 Else If 条件2 Then 语句块2 Else 语句块 n+1 End If 程序运行到Else If 语句时，依次判断条件，如果找到一个满足的条件，则执行它下面的语句块，然后跳到End If，执行后面的程序。如果列出的条件都不满足，则执行Else 语句后面的语句块；如果列出的条件都不满足，又没有Else 子句，则直接跳过End If ,不执行任何语句块。例题分析：输入一学生的成绩，评定其等级。方法是： 90100分为“优秀”，8090分为“良好”，7079分为“中等”，6069分为“及格”，60分以下为“不及格”。P

6、rivate Sub Form _ click ( ) Dim x as single x = inputbox(“请输入要评估的成绩”) If x = 90 Then Print “优秀” Else If x = 80 Then Print “良好” Else If x = 70 Then Print “中等” Else If x = 60 Then Print “及格” Else print “不及格” End If End sub 当对一个表达式的不同取值情况作不同处理时，除了可以用ElseIf 语句外，还可以用Select Case 语句，有称为情况语句来实现，具体格式如下：Selec

7、t Case 测试表达式 case 表达式列表1 语句块1 case 表达式列表2 语句块2 case 表达式列表n 语句块n case else 语句块n + 1End select下面用Select Case 语句来改写成绩鉴定程序,代码如下:Private Sub Form _ click ( ) Dim x as single x = inputbox(“请输入要评估的成绩”) Select Case x Case Is = 90 Print “优秀” Case Is = 80 Print “良好” Case Is = 70 Print “中等” Case Is = 60 Print “及格” Case Else Print “不及格” End SelectEnd sub 例题:写出下列程序运行结果： a = 24 b = 328 Select