经典：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("输入整数"))

打印三角形图形
Private Sub Form_Click() For i = 1 To 7 控制打印位置， 并换行 Print Tab(10 - i); For j = 1 To 2 * i - 1 循环嵌套 Print "*"; Next j Next i End Sub
打印菱形
Private Sub Command1_Click() For i = 1 To 5 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print "* "; Next j 此处有空格 Next i For i = 4 To 1 Step -1 Print Tab(20 - 2 * i); For j = 1 To 2 * i - 1 Print "* "; Next j Next i End Sub
If <表达式> Then <语句块1> Else <语句块2> End If
3. If…Then…ElseIf语句(多分支结构) If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If
For 语句：
For 循环控制变量＝初值 to/downto 终值 [Step 步长 循环控制变量＝ 步长] 语句块 Next 循环控制变量 for n=1 to 24 step 1 sum=sum+n next n
写出程序的输出结果： Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Integer n = 10 s=0 For i = 1 To n Step 2 s=s+i Next i Print s End Sub 25 输出为：_______

➢形式1：
判1 N
If <判断表达式> Then
判2
[执行语句] [ElseIf <判断表达式> Then
Y
Y
[执行语句] ]...
块1 块2
Else
N
判n
Y
N
块n 块n+1
[执行语句]
End If
现代教育技术中心
例:已知输入某课程的百分
优 mark>=90
制 成 绩 mark ， 要 求 显 示 对
Dim other As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Or
KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then
流程图
Dim x As Integer, y As Integer
Dim Max As Integer, Min As Integer
(1) If x > y Then
Max = x: Min = y Else
Max = y: Min = x End If
x>y
Y
N
Max = x Max = y Min = y Min = x
现代教育技术中心
例：输入三个数，输出其中最大值。
Private Sub Command1_Click() Dim a!, b!, c!, max! a = InputBox("请输入第一个数") b = InputBox("请输入第二个数") c = InputBox("请输入第三个数") max = a If b > max Then max = b If c > max Then max = c Print a; ","; b; ","; c; "中最大值是："; max

练习：输入 ，输出其绝对值（不能用abs函数 函数） 练习：输入x，输出其绝对值（不能用 函数）。
选择结构
3. If…Then…ElseIf语句(多分支结构) 形式:
If <表达式1> Then <语句块1> ElseIf <表达式2>Then <语句块2> … [Else 语句块 n+1 ] End If
根据不同的条件判断来决定程 序执行走向的结构。
（3）循环结构 ）
a) 当型循环 b) 直到型循环 N 条件 语句组 Y 语句组 Y 条件 N (b) (a)
根据条件判断某些语句可能需 要执行0次1次或多次的结构。
开始
从10个数中选出最大的数 个数中选出最大的数 的算法流程图
输入A
Max =A N=1
设输入a=2，b=3 如何实现交换过程?
a b
交换过程
2 3
MsgBox(“交换后a= ”& a & “ b=”& b) End Sub
开始
例：交换两个变量a，b的值 1 输入a,b Private Sub Command1_Click() 对应的流程图： Dim a as integer,b as integer,c as 2 c=a integer a=b 3 a=Val(InputBox(“输入a”)) b=Val(InputBox(“输入b”)) 4 b=c c=a 5 输出交换后a,b值 a=b b=c 结束 MsgBox(“交换后a= ”& a & “ b=”& b) End Sub
实现。 例：输入一学生成绩，评定其等级。用select case 实现。 输入一学生成绩，评定其等级。