项目三Visual Basic基本程序控制结构

d=20 End Select
Select Case months Case 1, 3, 5, 7, 8, 10, 12 days = 31 Case 4, 6, 9, 11 days = 30 Case 2 If years Mod 400 = 0 Or (years Mod 4 = 0 And years Mod 100 <> 0) Then days = 29 Else days = 28 End If
For…Next 语句
❖ For…Next 语句
在循环次数已知的情况下，采用 For…Next语句实现循环 结构是比较合适的选择。For…Next语句的格式如下： For <循环变量>=初值 To 终值 [Step 步长]
<语句>
[Exit For] <语句> Next <循环变量> 例：计算累加和：S=1+2+3+4+…+n (P75) 例：计算水仙花数 (P77) 如153，153=13+53+33 例：判断素数 (P77) for 2 to sqr(n) 例：计算Fibonacci数列 (P78) if i mod 5=0 then print
VbNo
MsgBox函数的返回值
Private Sub Command1_Click() Dim expS1$, expS2$, expN%, Response% expS1 = "是否继续?" expN = vbYesNo + vbCritical + vbDefaultButton2 expS2 = "MsgBox 信息显示窗口" Response = MsgBox(expS1, expN, expS2) If Response = vbYes Then Text1.Text = "您按下的按钮是""是""" Else Text1.Text = "您按下的按钮是""否""" End If

9
3.1.2 分支结构
2．Select Case结构 Select Case 结构与 If...Then...Else 结构类似，但对多条
件选择时，有时用Select Case 语句代码效率更高，更易读。 语法：
Select Case 变量 | 表达式 Case 值1
语句块1 [Case 值2
语句块2] ... [Case Else
3.1 基本控制结构
❖ 3.1.1 顺序结构 ❖ 3.1.2 分支结构 ❖ 3.1.3 循环结构
1
3.1.1 顺序结构
顺序结构就是整个程序按书写顺序依次自上而下执行。 前面两章设计和编写的程序都是顺序结构的。
顺序结构如图所示，先执行A，再执行B，即自上而下 依次运行。图(左)图为框式流程图，图(右)为N-S流程图， 又称为盒图。
y = "及格" Else
y = "不及格" End If Text2.Text = y End Sub
7
3.1.2 分支结构
【例3-3】使用多个条件的If...Then...Else结构查询学生的成绩， 将成绩分成优、良、中、及格和不及格，90～100为优，80～90 为良，70～80为中，60～70为及格，60以下为不及格。
5
3.1.2 分支结构
程序代码如下：
Private Sub Command1_Click() '单击按钮显示成绩
Dim x As Single Dim y As String x = Val(Text1.Text) y = "不及格" If x >= 60 Then y = "及格" Text2.Text = y End Sub 程序分析：使用If...Then语句，当满足条件“x>=60”就执 行Then后面的语句“y = "及格"”，否则就执行If...Then语 句后面的语句。

For语句
For...Next语句按指定的次数执行循环体，在循环体中使
用一个循环变量来控制循环的次数，其流程图如图3-13
所示。
Visual Basic 2005 编程基础与项目实践——第03章 控制结构
For语句的语法格式
For...Next语句的语法格式为：
For <循环变量> = <初值> To <终值> [ Step <步长> ]
④ <语句组n>可以是一条或多条语句，当<表达式表n>成立时被执行。 若所有的<表达式>均不与<测试条件>相匹配，则执行Case Else子 句中的<语句组n+1>。
Visual Basic 2005 编程基础与项目实践——第03章 控制结构
循环结构
程序中的循环是指：在程序中，从某处开始有规律地反复
Visual Basic 2005 编程基础与项目实践——第03章 控制结构
用于设置buttons、icon和defaultbutton各符号常量的对应的数值及含义 如表3-1所示。
符号常量 OkOnly OkCancel AbortRetryIgnore YesNoCancel YesNo RetryCancel Critical Question Exclamation Information DefaultButton1 DefaultButton2 DefaultButton3 只显示【确定】按钮 显示【确定】、【取消】按钮 显示【终止】、【重试】和【忽略】按钮 显示【是】、【否】和【取消】按钮 显示【是】、【否】按钮 显示【重试】、【取消】按钮 “停止”图标 “问号”图标 “叹号”图标 “信息”图标 第一个按钮为默认按钮 第二个按钮为默认按钮 第三个按钮为默认按钮 含义

vbExclamation --------------
vbInformation ---------------
VB6.0程序设计
3.2.2 赋值语句
3.对话框类型和数目的设置
对话框=按钮设置值(c1)+图标设置值(c2)+缺省按钮值(c3)
对应值 0
256
符号常量 VbDefaultButton1 VbDefaultButton2
If语句的嵌套是指if或else后面的语句块中又包含If 语句。语句形式：
If <表达式1> Then
If <表达式11> Then
…… End If
…… End If
注意：
(1) 对于嵌套结构，为了增强程序的可读性，应该采用缩进 形式书写；
(2) If语句形式若不在一行上书写，必须与End If配对 多个If嵌套，End If与它最接近的If 配对。
InputBox (提示信息[,对话框标题][,输入区默认值][,坐标X][,坐标Y])
例：设置一个输入框：
提示用户输入查询学号。
VB6.0程序设计
3.2.3 数据的输出方法-PRINT语句
作用:在对象上输出信息。 对象.Print[Spc(n)|Tab(n)][输出列表 ][;|,] 对象：窗体、图形框。缺省为窗体。
End If
VB6.0程序设计
3.3 if选择语句
3. If…Then…ElseIf 结构
格式：If 条件1 Then
（A组语句） ElseIf 条件2 Then
（B组语句） ElseIf 条件3 Then
（C组语句） …… Else
注意： • 多分支语句中，有多 个分支同时满足，只执 行第一个与之匹配的语 句块。 • 注意 ElseIf 的写法