文档介绍：结构化程序设计三大基本结构
1、顺序结构
2、分支结构
3、循环结构
1
第5章
顺序结构程序设计
本章要点:
•赋值语句
•数据输入
•数据输出
•注释、暂停与程序结束语句
2
mand1_click()
Dim n as integer
Dim m as integer
Dim l as integer
N=56
M=43
L=m+n
Print “L=“,l
End sub
赋值语句
输出语句
3
赋值语句
1. 格式
<变量名>=<表达式>
或: [<对象名>.]<属性名>=<表达式>
2. 功能
先计算表达式的值,再将此值赋给变量或对象属性。
3. 注意事项
(1) <变量名>: 应符合VB变量命名约定。
(2) <表达式>: 常量、变量、表达式。
(3) <对象名>: 缺省时为当前窗体。
例1:x=4+5
例2:=“visual”+ “basic”
4
(4) 赋值号“=”: 与数学中的等号意义不同。
例: X=X+1
(5) 赋值号左边必须是变量或对象属性。
(6) 变量未赋值时,数值型变量值为0,字符串变量
值为空串“”(默认值)。
(7)允许多个语句放在一行中,此时各语句之间必须用冒号隔开。
a=3:b=2:c=1
5
数据输入
赋值语句;输入框(InputBox);文本框(TextBox)
用输入框(InputBox)输入数据
1. 格式
<变量>=InputBox(<提示信息>[,<标题>][,<默认值>])
2. 功能
提示一对话框,等待用户输入正文或按下按钮,
并返回包含文本框内容的字符串。
6
单击“确定”,返回文本框中的文本到变量R中
单击“取消”,返回一个零长度的字符串
例: Private Sub Form_Click()
Dim R As String, AREA As Single
R = InputBox("请输入半径", "计算面积", "1")
AREA = * Val(R) ^ 2
Print Val(R), AREA
End Sub
标题
提示信息
缺省值
7
【例5. 3】测试InputBox函数的使用方法。
Private Sub Form_Load()
str1 = Chr (13) + Chr (10)
msg1 = "请输入学生姓名:"
msg2 = "输入后按回车键"
msg3 = "或单击“确定”按钮"
msg= msg1 + str1 + msg2 + str1 + msg3
stu = InputBox$(msg, "测试InputBox函数", "Regan")
= stu
End Sub
8
用文本框(TextBox)输入数据
1. 文本框的属性
(1) Text: 返回或设置文本框显示的内容。
例: = "欢迎使用Visual Basic"
(2) MultiLine: 决定是否可以显示多行文本。
(3) PasswordChar: 常用于输入口令。
在文本框中键入字符显示为该指定的字符。
(此时MultiLine属性值应为False)
(4) ScrollBars: 用于确定文本框是否带滚动条以及滚动条的方向。
(仅当MultiLine属性值为True时才可以带滚动条)
9
(5) SelStart: 在运行期返回或设置当前选择文本的起始位置。
例: =0
表示选择文本的起始位置从第一个字符开始。
(6) SelLength: 在运行期返回或设置选择的字符数。
例: =Len()
表示选中文本框Text1中所有字符。
(7) SelText: 在运行期返回或设置选择的字符。
例: str1 =
(8) Locked: 指定运行时文本框内容是否可以编辑。
False—可以编辑
True—不可编辑(只读)
10