【VB开源代码栏目提醒】：本文主要为网学会员提供“VB基础程序怎样写？ - 经营企划”，希望对需要VB基础程序怎样写？ - 经营企划网友有所帮助，学习一下!

第四章 基本的控制结构4.1 顺序结构4.2 选择结构4.3 循环结构4.4 其他辅助控制语句4.5 常用算法本章要求： 掌握InputBox函数和MsgBox过程。

     掌握If语句和Select Case语句的一般形式和执 行过程。

     掌握For…Next语句、While…Wend语句的一 般形式和执行过程。

     掌握Do…Loop语句的各种形式和执行过程。

     掌握常用算法，会应用各种语句解决实际问题。

     4.1 顺序结构一、赋值语句 一般格式 变量名表达式 作用 将表达式的值赋给变量名。

     一般用于给变量赋值 或对控件设定属性值。

     例: x0.1 Text1.Text ＝ 欢迎使用Visual Basic 6.0” 4.1 顺序结构一、赋值语句 注意： 1赋值语句具有先计算后赋值的功能。

     2赋值号左边只能是变量、不能是常量或表达式。

     3不能在一个赋值语句中，同时给多个变量赋值。

     4多条赋值语句放在一行，各语句之间用冒号分隔。

     4.1 顺序结构二、数据的输入和输出 1、输入对话框InputBox函数 一般形式 变量＝ InputBox提示，标题，默认值 说明 1提示——字符串，提示用户输入什么样的信息。

     2标题——字符串，对话框的标题。

     3默认值——字符串，在输入对话框中设置的初始值。

     4.1 顺序结构二、数据的输入和输出 2、消息对话框MsgBox函数 一般形式 变量＝MsgBox提示，按钮，标题） 说明 1提示——字符串表达式，对话框显示的信息。

     2按钮——整型表达式，决定消息框按钮的数目和类 型及出现在消息框上的图标类型，其设置见p73表4-6。

     3标题——字符串，对话框的标题。

     4.1 顺序结构二、数据的输入和输出 例：编写程序，试验MsgBox函数的功能。

     Private Sub Form_Click Dim r as Integer r MsgBox继续吗？ 432试验MsgBox函数 If r 6 Then Print 你想继续！ Else Print 你想退出！ End If End Sub 4.1 顺序结构二、数据的输入和输出 3、消息对话框MsgBox过程 一般形式 MsgBox 提示，按钮，标题 说明 这里面各参数的作用与前面介绍的相同，由于MsgBox 过程没有返回值，因此常用于显示简单的信息。

     例如： MsgBox 信息保存成功 4.1 顺序结构二、数据的输入和输出 例：编写程序，完成简单的加法测试。

     Private Sub Command1_Click Dim x As Integer y As Integer z As Integer x ValText1.Text y ValText2.Text z ValText3.Text If z x y Then MsgBox 你算对了，得10分！ Else MsgBox 你算错了，扣10分！ End If End Sub 4.1 顺序结构二、数据的输入和输出 举例 从键盘中输入三角形三边a，b，c的值，计算 此三角形的面积。

     4.1 顺序结构二、数据的输入和输出 4、Print 方法 一般形式 对象. Print 定位函数输出表达式列表分隔符 说明 1“对象”可以是窗体、图片框。

     2定位函数：Tabn在第n列开始输出； Spcn在输出时跳过n个空格。

     3“表达式列表”是要输出的数值表达式或字符串。

     4分隔符用于输出各项之间的分隔，有逗号和分号。

     4.1 顺序结构二、数据的输入和输出 例如： Print -1 -3 Print -1 -3 Print -1 Tab10-3 Print abc 123 Print abc123 Print 1 3 4.2 选择结构一、If语句 1、If…Then语句单分支结构 一般格式 If Then 语句块 End If 或 If Then 4.2 选择结构一、If语句 例：已知两个数x和y，比较它们的大小。

    若x 小于y，互换二者的值，使得x大于等于y。

     4.2 选择结构一、If语句 Private Sub Form_Click Dim x y t x ValInputBoxinput x y ValInputBoxinput y If x y Then tx xy 若上述语句次序变一下， yt 结果如何？ End If Print x y End Sub 4.2 选择结构一、If语句 2、If…Then…Else语句双分支结构 一般格式 If Then Else End If 或 If Then Else 4.2 选择结构一、If语句 例：输入x的值，计算y的值。

    x，y的关系 如下： x 1 2 sin x ，x 0 y x cos x x 3 x，x 0 3 4.2 选择结构一、If语句 例：输入x的值，计算y的值。

    x，y的关系 如下： 1 x 0 y 0 x 0 1 x 0 4.2 选择结构一、If语句 3、If…Then…ElseIf语句多分支结构 一般格式 If Then ElseIf Then …… Else 语句块 n1 End If 4.2 选择结构一、If语句