VB课件-第5讲 赋值和输入输出
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
如: Dim a% = 10 / 3 则a结果为3
6
4．赋值号“=”左边只能是变量名或对象的属性，
不能是常量、表达式。
例：5 = X
左边是常量
Abs(X)=20 左边是函数调用，即表达式
7
【练习】计算半径为5的圆面积和圆周长。
编程思路：“初始化－>输入－>处理－>输出”
8
二、输入对话框InputBox函数 1. InputBox函数：字符串类型 变量名＝InputBox（提示[，标题][，默认值]
14
返回值： 保存MsgBox函数返回值，返回 值的符号常量和有关描述如表所示。
值
符号常量
所按的按钮
1
vbOk
“确定”按钮
2
vbCancel
“取消”按钮
3
vbAbort
“退出”按钮
4
vbRetry
“重试”按钮
5
vbIgnore
“忽略”按钮
6
vbYes
“是”按钮
7
vbNo
“否”按钮
15
• End语句 End：终止程序运行，卸载所有窗体模块
12
对话框类型
0 OkOnly
按
1 OkCancel 2 AbortRetryIgnore
钮 3 YesNoCancel
4 YesNo
5 RetryCancel
图
16 32
Critical Question
标
关键图标 询问图标 警告图标 信息图标
2
特殊符号
1．续行符：空格加下划线：“ _” 如：Score = 1 + _
2 2．多条语句写在一行内，用冒号“:”分隔。 例：a = 10 : b = 20 : c = 30
3
引例：
x
y
t
t=x 顺
x=y
序 结
y=t 构
4
计算机工作原理：数据输入→ 程序处理 → 信息输出
赋值语句格式： 变量名 = 表达式
[，xpos][，ypos]）
VB在模板上” 画” 出对话界
面
9
2．在提示中显示多行文本
回车换行？
vbCrLf
10
3．使用 Val() InputBox函数返回字符型数据。要得到数值，则转换：
R = Val(InputBox("请输入圆半径：", "输入")) 【例】半径R由键盘输入。
11
三、消息对话框MsgBox函数 变量=MsgBox(提示[,对话框类型][,标题]) 提示：必选项。显示多行，可用vbCrLf 对话框标题：在对话框标题栏显示的信息文本 对话框类型：按钮形式、图标
编程小贴士
1. 设置属性确定事件； 2. 构思算法草拟代码； 3. 多写注释调整思路； 4. 全面检查就这一招！
编程思路：“初始化－>输入－>处理－>输出”
1
小强说出了自己的愿望： 1. 我希望现在就跑起来 2. 我更希望学会走路 老师说：请注意先后顺序。
内容： • 赋值语句 • 用户交互函数和过程
MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation
13
两种形式
1. A = MsgBox("离开吗？", MsgboxStyle.YesNo, "退出") 2. MsgBox ("离开吗？", MsgboxStyle.YesNo, "退出")
计算机它想知道你按了哪个按钮？？？
对象.属性 = 表达式
例： x = 100
a=a+1
Label1.Text = x
如何赋值?
复合赋值运算符： += -= *= /= &= 例：a *= b+4 等价于 a = a*(b+4)
5
注意事项
1．“=”赋值运算符，右边新值代替左边旧值 2．变量初值：
（1）数值型变量初值为 0 （2）字符型变量初值为空，即 "" 3．赋值时，强制转换成左边精度
16
内容小结
1. 赋值号 = 2. InputBox、MsgBox
17
6
4．赋值号“=”左边只能是变量名或对象的属性，
不能是常量、表达式。
例：5 = X
左边是常量
Abs(X)=20 左边是函数调用，即表达式
7
【练习】计算半径为5的圆面积和圆周长。
编程思路：“初始化－>输入－>处理－>输出”
8
二、输入对话框InputBox函数 1. InputBox函数：字符串类型 变量名＝InputBox（提示[，标题][，默认值]
14
返回值： 保存MsgBox函数返回值，返回 值的符号常量和有关描述如表所示。
值
符号常量
所按的按钮
1
vbOk
“确定”按钮
2
vbCancel
“取消”按钮
3
vbAbort
“退出”按钮
4
vbRetry
“重试”按钮
5
vbIgnore
“忽略”按钮
6
vbYes
“是”按钮
7
vbNo
“否”按钮
15
• End语句 End：终止程序运行，卸载所有窗体模块
12
对话框类型
0 OkOnly
按
1 OkCancel 2 AbortRetryIgnore
钮 3 YesNoCancel
4 YesNo
5 RetryCancel
图
16 32
Critical Question
标
关键图标 询问图标 警告图标 信息图标
2
特殊符号
1．续行符：空格加下划线：“ _” 如：Score = 1 + _
2 2．多条语句写在一行内，用冒号“:”分隔。 例：a = 10 : b = 20 : c = 30
3
引例：
x
y
t
t=x 顺
x=y
序 结
y=t 构
4
计算机工作原理：数据输入→ 程序处理 → 信息输出
赋值语句格式： 变量名 = 表达式
[，xpos][，ypos]）
VB在模板上” 画” 出对话界
面
9
2．在提示中显示多行文本
回车换行？
vbCrLf
10
3．使用 Val() InputBox函数返回字符型数据。要得到数值，则转换：
R = Val(InputBox("请输入圆半径：", "输入")) 【例】半径R由键盘输入。
11
三、消息对话框MsgBox函数 变量=MsgBox(提示[,对话框类型][,标题]) 提示：必选项。显示多行，可用vbCrLf 对话框标题：在对话框标题栏显示的信息文本 对话框类型：按钮形式、图标
编程小贴士
1. 设置属性确定事件； 2. 构思算法草拟代码； 3. 多写注释调整思路； 4. 全面检查就这一招！
编程思路：“初始化－>输入－>处理－>输出”
1
小强说出了自己的愿望： 1. 我希望现在就跑起来 2. 我更希望学会走路 老师说：请注意先后顺序。
内容： • 赋值语句 • 用户交互函数和过程
MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation
13
两种形式
1. A = MsgBox("离开吗？", MsgboxStyle.YesNo, "退出") 2. MsgBox ("离开吗？", MsgboxStyle.YesNo, "退出")
计算机它想知道你按了哪个按钮？？？
对象.属性 = 表达式
例： x = 100
a=a+1
Label1.Text = x
如何赋值?
复合赋值运算符： += -= *= /= &= 例：a *= b+4 等价于 a = a*(b+4)
5
注意事项
1．“=”赋值运算符，右边新值代替左边旧值 2．变量初值：
（1）数值型变量初值为 0 （2）字符型变量初值为空，即 "" 3．赋值时，强制转换成左边精度
16
内容小结
1. 赋值号 = 2. InputBox、MsgBox
17