顺序结构程序设计.
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
www.themegallery.com
4.1 赋值语句
(4) 变量未赋值时，数值型变量值为0，字符串变量 值为空串""。 【例4-1】设变量A中存放5，变量B中存放8，交换两个 变量的值，使变量A中存放8，变量B中存放5。 分析: 需要借助第三个变量C 代码如下: A=5 B=8 C=A A=B B=C
(3) 变量名或对象属性名的类型应与表达式类型相容。
4.1 赋值语句
例:
5
C = 123456.789 B = C ' 高精度变量赋值给低精度变量， ' 变量B中存放123456.8。有效数字7位 S = "abc" A = S ' 错误，类型不匹配 执行下列各赋值语句后，A的数据类型是什么？ (设A没有定义数据类型) A=6=5 A=5+3 可以用TypeName函数 A = "5+3" A = "#11/26/99#" 判断变量的数据类型。 A = #11/26/1999# 如:Print TypeName(A) A = Not 5 > 8
8
单击“确定”，返回文本框中的文本到变量R中 单击“取消”，返回一个零长度的字符串 www.themegallery.com
4.2 数据输入
4.2.2 用文本框(TextBox)输入数据 1. 文本框的属性 (1) Text: 返回或设置文本框显示的内容。 例: Text1.Text = "欢迎使用Visual Basic" (2) MultiLine: 决定是否可以显示多行文本。 (3) PasswordChar: 常用于输入口令。 在文本框中键入字符显示为该指定的字符。 (此时MultiLine属性值应为False) (4) ScrollBars: 用于确定文本框是否带滚动条以及滚 动条的方向。 (仅当MultiLine属性值为True时才可以带滚动条)
9
www.themegallery.com
4.2 数据输入
(5) SelLength: 在运行期返回或设置选择的字符数。 例: Text1.SelLength=Len(Text1.Text) 表示选中文本框Text1中所有字符。 (6) SelStart: 在运行期返回或设置当前选择文本的起始 位置。 例: Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。 (7) Locked: 指定运行时文本框内容是否可以编辑。 False—可以编辑 True—不可编辑(只读)
4.2 数据输入
例: Private Sub Form_Activate() Dim R As String, AREA As Single R = InputBox("请输入半径", "计算面积", "1") AREA = 3. 14 * Val(R) ^ 2 Print Val(R), AREA End Sub
并返回包含文本框内容的字符串。 <提示信息>: 字符串表达式。用Chr(13)、Chr(10)、 Chr(13) & Chr(10)、vbCrLf可换行。 <对话框标题>: 字符串表达式。 <默认值>: 字符串表达式。如果省略，则默认为空。 函数返回值: 字符串(在对话框中单击取消则返回"") 7 www.themegallery.com
2
www.themegallery.com
4.1 赋值语句
1. 格式 <变量名>=<表达式> 或: [<对象名>.]<属性名>=<表达式> 2. 功能 计算表达式的值，再将此值赋给变量或对象属性。 3. 说明 (1) <变量名>: 应符合VB变量命名约定。 (2) <表达式>: 常量、变量、表达式。 (3) <对象名>: 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1 (5) 赋值号左边必须是变量或对象属性。
6
www.themegallery.com
4.2 数据输入
赋值语句；输入框(InputBox)；文本框 (TextBox) 4.2.1 用输入框(InputBox)输入数据 1. 格式 InputBox(<提示信息>[,<对话框标题>][,<默认值>]) 2. 功能 提示一对话框，等待用户输入正文或按下按钮，
3
www.themegallery.com
4.1 赋值语句
例:
例: 4
X=1 MyStr="Good Morning" Command1.Caption="确定" X+1=X ' 错误，赋值号左边是表达式
Dim A As Integer, B As Single Dim C As Double, S As String A = 100 ' 将整型数100赋给整型变量A S = "123.45" ' 将字符串"123.45"赋给变量S A=S ' 将数字字符串变量赋值给整型变量， ' 变量A中存放123 S=A ' S中存放字符串"123" B = 12345.67 A=B ' 高精度变量赋值给低精度变量， ' 先四舍五入后取整, A中存放12346 www.themegallery.com
10
www.themegallery.com
第4 章
顺序结构程序设计
本章要点:
• 赋值语句
• 数据输入
• 数据输出
• 注释、暂停与程序结束语句
LOGO
wenku.baidu.com
事件驱动: 将代码划分成一些过程 过程结构: 过程内部代码由三种基本结构组成 即: 顺序结构、选择结构、循环结构 顺序结构: 执行过程的次序从上到下，从左到右 例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R ^ 2 * H End Sub
4.1 赋值语句
(4) 变量未赋值时，数值型变量值为0，字符串变量 值为空串""。 【例4-1】设变量A中存放5，变量B中存放8，交换两个 变量的值，使变量A中存放8，变量B中存放5。 分析: 需要借助第三个变量C 代码如下: A=5 B=8 C=A A=B B=C
(3) 变量名或对象属性名的类型应与表达式类型相容。
4.1 赋值语句
例:
5
C = 123456.789 B = C ' 高精度变量赋值给低精度变量， ' 变量B中存放123456.8。有效数字7位 S = "abc" A = S ' 错误，类型不匹配 执行下列各赋值语句后，A的数据类型是什么？ (设A没有定义数据类型) A=6=5 A=5+3 可以用TypeName函数 A = "5+3" A = "#11/26/99#" 判断变量的数据类型。 A = #11/26/1999# 如:Print TypeName(A) A = Not 5 > 8
8
单击“确定”，返回文本框中的文本到变量R中 单击“取消”，返回一个零长度的字符串 www.themegallery.com
4.2 数据输入
4.2.2 用文本框(TextBox)输入数据 1. 文本框的属性 (1) Text: 返回或设置文本框显示的内容。 例: Text1.Text = "欢迎使用Visual Basic" (2) MultiLine: 决定是否可以显示多行文本。 (3) PasswordChar: 常用于输入口令。 在文本框中键入字符显示为该指定的字符。 (此时MultiLine属性值应为False) (4) ScrollBars: 用于确定文本框是否带滚动条以及滚 动条的方向。 (仅当MultiLine属性值为True时才可以带滚动条)
9
www.themegallery.com
4.2 数据输入
(5) SelLength: 在运行期返回或设置选择的字符数。 例: Text1.SelLength=Len(Text1.Text) 表示选中文本框Text1中所有字符。 (6) SelStart: 在运行期返回或设置当前选择文本的起始 位置。 例: Text1.SelStart=0 表示选择文本的起始位置从第一个字符开始。 (7) Locked: 指定运行时文本框内容是否可以编辑。 False—可以编辑 True—不可编辑(只读)
4.2 数据输入
例: Private Sub Form_Activate() Dim R As String, AREA As Single R = InputBox("请输入半径", "计算面积", "1") AREA = 3. 14 * Val(R) ^ 2 Print Val(R), AREA End Sub
并返回包含文本框内容的字符串。 <提示信息>: 字符串表达式。用Chr(13)、Chr(10)、 Chr(13) & Chr(10)、vbCrLf可换行。 <对话框标题>: 字符串表达式。 <默认值>: 字符串表达式。如果省略，则默认为空。 函数返回值: 字符串(在对话框中单击取消则返回"") 7 www.themegallery.com
2
www.themegallery.com
4.1 赋值语句
1. 格式 <变量名>=<表达式> 或: [<对象名>.]<属性名>=<表达式> 2. 功能 计算表达式的值，再将此值赋给变量或对象属性。 3. 说明 (1) <变量名>: 应符合VB变量命名约定。 (2) <表达式>: 常量、变量、表达式。 (3) <对象名>: 缺省时为当前窗体。 (4) 赋值号“=”: 与数学中的等号意义不同。 例: X=X+1 (5) 赋值号左边必须是变量或对象属性。
6
www.themegallery.com
4.2 数据输入
赋值语句；输入框(InputBox)；文本框 (TextBox) 4.2.1 用输入框(InputBox)输入数据 1. 格式 InputBox(<提示信息>[,<对话框标题>][,<默认值>]) 2. 功能 提示一对话框，等待用户输入正文或按下按钮，
3
www.themegallery.com
4.1 赋值语句
例:
例: 4
X=1 MyStr="Good Morning" Command1.Caption="确定" X+1=X ' 错误，赋值号左边是表达式
Dim A As Integer, B As Single Dim C As Double, S As String A = 100 ' 将整型数100赋给整型变量A S = "123.45" ' 将字符串"123.45"赋给变量S A=S ' 将数字字符串变量赋值给整型变量， ' 变量A中存放123 S=A ' S中存放字符串"123" B = 12345.67 A=B ' 高精度变量赋值给低精度变量， ' 先四舍五入后取整, A中存放12346 www.themegallery.com
10
www.themegallery.com
第4 章
顺序结构程序设计
本章要点:
• 赋值语句
• 数据输入
• 数据输出
• 注释、暂停与程序结束语句
LOGO
wenku.baidu.com
事件驱动: 将代码划分成一些过程 过程结构: 过程内部代码由三种基本结构组成 即: 顺序结构、选择结构、循环结构 顺序结构: 执行过程的次序从上到下，从左到右 例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R ^ 2 * H End Sub