2.2.2赋值语句和输入输出语句(精品).ppt
程序的三种结构顺序结构选择结构循环结构顺序结构的主要的三种语句形态顺序结构的主要的三种语句形态赋值语句输入（函数）输出（过程）输入数据的两种方式输入数据的两种方式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 值，使得值，使得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 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求下列程序运行结果：1.Private Sub Command1_click()Dim m,n As Integer m=10 If m =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 输出：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分以下为“不及格”。Private 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 语句，有称为情况语句来实语句，有称为情况语句来实现，具体格式如下：现，具体格式如下：Select 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 Case b 10 Case 0 c=a*10+b Case 1 To 9 c=a*100+b Case 10 to 99 c=a*1000+b End select Print c 输出：
