第三章 顺序结构PPT课件
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
窗体，分别在窗体上输出圆的周长，用消
息框中输出圆的面积。
Private Sub Form_Click() Dim r As Single, k As Single, s As Single Const pi = 3.1415926 r = InputBox("请输入圆的半径") k = 2 * pi * r s = r * r * pi Print "圆的周长="; k MsgBox "圆的面积=" & s, vbOKOnly, "计算结果"
注释语句Rem 加载对象语句Load 卸载语句Unload 结束语句End 暂停语句Stop
3.4 基本控件
3.4.1 命令按钮
1、属性： Caption属性 Style属性
2、方法：
Picture属性 DownPicture属性 DisabledPicture属性
SetFocus方法
3、事件：
例: 在窗体中间输出一串文字。
Private Sub Form_Click() Me.FontSize = 30 a = "Visual Basic" w = Me.TextWidth(a) h = Me.TextHeight(a) Me.CurrentX = (Me.ScaleWidth - w) / 2 Me.CurrentY = (Me.ScaleHeight - h) / 2 Print a
End Sub
（二）用消息对话框输出
1、函数格式：
变量=MsgBox(提示[,按钮[，对话框标题]])
例：y = MsgBox("输入的文件名是否正确",3+48 , "请确认")
按钮参数的取值及含义（必须是以下四种情况的参数各取一个值求和） （1）显示的按钮数目及形式：
（2）显示的图标：
（3）默认按钮：（一般都取0值） （4）等待模式：（一般都取0值）
P例riv：atFeoSrumb1F.Porrimn_t C3lick()
Print 34
PrinPtri"nVtisu“aalbBca”sic" PPrriinn?tt 1I2n3t(*82.9)+3
End Sub
2、输出多个数据项，用分隔符号，和；
Private Sub Form_Click() Dim a As Integer, b As Integer a = 4: b = 8 Print a, b, 2 + a, Print 2 * b Print "a="; Print a, "b="; b
如：Dim a as Integer a=3 ︰ ︰ a= Int(8.9)
a 38
例：下列程序段执行后，输出结果是
a = 0: b = 1
a = a + b: b = a + b
Print a; b
a = a + b: b = a + b
Print a; b
a = b - a: b = b - a
Click事件 特别强调：命令按钮不支持DblClick事件
3.4.2 标签
1、属性： (1)Caption属性 (2)Alignment属性 (3)AutoSize属性
2、方法： Move方法
3、事件： Click事件
例：利用标签和命令按钮设置一个测 试游戏。
3.4.3 文本框
Print a; b
A.1 2 B．3 5 C．1 2 D．1 2
34
23
34
35
34
12
23
23
（二）用InputBox函数输入数据
InputBox(提示串 [,标题] [,默认值][,xpos] [,ypos])
例：s=InputBox(“请输入尊姓大名” ，“请输入”，“张 三”)
例：利用消息框输入圆的半径，单击
End Sub
（三） 用Visual Basic的控件输入数据
a=Text1.Text
一、数据输出的基本方法
（一）用Print方法输出 （二）用消息对话框输出 （三）用VB的控件输出
二、数据输入的基本方法
（一）赋值语句 （二）用InputBox函数输入数据 （三）用VB的控件输入数据
3.3 常用基本语句
End Sub
3、在Print方法中使用格式控制函数 Spc(n)
例：Print Spc(4); "欢迎学习"; Spc(4); "VB"
Tab(n)
例：Print Tab(5); "欢迎学习"; Tab(17); "VB"
4.使用位置属性 要精确地把文本输出到窗体、图片框
或打印页上，可以用位置属性CurrentX和 CurrentY。这两个属性分别表示当前输出 位置的横坐标和纵坐标。
别在窗体上输出圆的周长，用消息框输出
圆的面积。
Private Sub Form_Click() Dim r As Single, k As Single, s As Single Const pi = 3.1415926 r = 200 k = 2 * pi * r s = r * r * pi Print "圆的周长="; k MsgBox "圆的面积=" & s & vbOKOnly & "计算结果"
End Sub
（三） 用VB的控件输出
文
格式：
本
框
Text1.Text=字符串
标
格式：
签
Label1.Caption=字符串
3.2 数据输入的基本方法
二、数据输入的基本方法
（一）赋值语句 （二）用InputBox函数输入数据 （三）用VB的控件输入数据
（一）赋值语句
[Let] 变量名或对象属性名=表达式
2、输出多个数据项，用&和VbCrLf；
例： y=msgbox (“请输入一个数字” & VBcrlf & “(1-9)”)
3、语句格式： MsgBox 提示[,按钮[，对话框标题]]
例：MsgBox "输入的文件名是否正确",51 , "请确认"
例： 请写出相应的实现语句。 图1
图2
图3
例：已知圆的半径是200，单击窗体，分
3.1 数据输出的基本方法 3.2 数据输入的基本方法 3.3 常用基本语句 3.4 常用标准控件介绍及应用
3.1 数据输出的基本方法
（一）用Print方法输出 （二）用消息对话框输出 （三）用V百度文库的控件输出
（一）使用Print方法输出数据
1、使用Print方法的语法格式
[对象名.]Print [表达式列表]
息框中输出圆的面积。
Private Sub Form_Click() Dim r As Single, k As Single, s As Single Const pi = 3.1415926 r = InputBox("请输入圆的半径") k = 2 * pi * r s = r * r * pi Print "圆的周长="; k MsgBox "圆的面积=" & s, vbOKOnly, "计算结果"
注释语句Rem 加载对象语句Load 卸载语句Unload 结束语句End 暂停语句Stop
3.4 基本控件
3.4.1 命令按钮
1、属性： Caption属性 Style属性
2、方法：
Picture属性 DownPicture属性 DisabledPicture属性
SetFocus方法
3、事件：
例: 在窗体中间输出一串文字。
Private Sub Form_Click() Me.FontSize = 30 a = "Visual Basic" w = Me.TextWidth(a) h = Me.TextHeight(a) Me.CurrentX = (Me.ScaleWidth - w) / 2 Me.CurrentY = (Me.ScaleHeight - h) / 2 Print a
End Sub
（二）用消息对话框输出
1、函数格式：
变量=MsgBox(提示[,按钮[，对话框标题]])
例：y = MsgBox("输入的文件名是否正确",3+48 , "请确认")
按钮参数的取值及含义（必须是以下四种情况的参数各取一个值求和） （1）显示的按钮数目及形式：
（2）显示的图标：
（3）默认按钮：（一般都取0值） （4）等待模式：（一般都取0值）
P例riv：atFeoSrumb1F.Porrimn_t C3lick()
Print 34
PrinPtri"nVtisu“aalbBca”sic" PPrriinn?tt 1I2n3t(*82.9)+3
End Sub
2、输出多个数据项，用分隔符号，和；
Private Sub Form_Click() Dim a As Integer, b As Integer a = 4: b = 8 Print a, b, 2 + a, Print 2 * b Print "a="; Print a, "b="; b
如：Dim a as Integer a=3 ︰ ︰ a= Int(8.9)
a 38
例：下列程序段执行后，输出结果是
a = 0: b = 1
a = a + b: b = a + b
Print a; b
a = a + b: b = a + b
Print a; b
a = b - a: b = b - a
Click事件 特别强调：命令按钮不支持DblClick事件
3.4.2 标签
1、属性： (1)Caption属性 (2)Alignment属性 (3)AutoSize属性
2、方法： Move方法
3、事件： Click事件
例：利用标签和命令按钮设置一个测 试游戏。
3.4.3 文本框
Print a; b
A.1 2 B．3 5 C．1 2 D．1 2
34
23
34
35
34
12
23
23
（二）用InputBox函数输入数据
InputBox(提示串 [,标题] [,默认值][,xpos] [,ypos])
例：s=InputBox(“请输入尊姓大名” ，“请输入”，“张 三”)
例：利用消息框输入圆的半径，单击
End Sub
（三） 用Visual Basic的控件输入数据
a=Text1.Text
一、数据输出的基本方法
（一）用Print方法输出 （二）用消息对话框输出 （三）用VB的控件输出
二、数据输入的基本方法
（一）赋值语句 （二）用InputBox函数输入数据 （三）用VB的控件输入数据
3.3 常用基本语句
End Sub
3、在Print方法中使用格式控制函数 Spc(n)
例：Print Spc(4); "欢迎学习"; Spc(4); "VB"
Tab(n)
例：Print Tab(5); "欢迎学习"; Tab(17); "VB"
4.使用位置属性 要精确地把文本输出到窗体、图片框
或打印页上，可以用位置属性CurrentX和 CurrentY。这两个属性分别表示当前输出 位置的横坐标和纵坐标。
别在窗体上输出圆的周长，用消息框输出
圆的面积。
Private Sub Form_Click() Dim r As Single, k As Single, s As Single Const pi = 3.1415926 r = 200 k = 2 * pi * r s = r * r * pi Print "圆的周长="; k MsgBox "圆的面积=" & s & vbOKOnly & "计算结果"
End Sub
（三） 用VB的控件输出
文
格式：
本
框
Text1.Text=字符串
标
格式：
签
Label1.Caption=字符串
3.2 数据输入的基本方法
二、数据输入的基本方法
（一）赋值语句 （二）用InputBox函数输入数据 （三）用VB的控件输入数据
（一）赋值语句
[Let] 变量名或对象属性名=表达式
2、输出多个数据项，用&和VbCrLf；
例： y=msgbox (“请输入一个数字” & VBcrlf & “(1-9)”)
3、语句格式： MsgBox 提示[,按钮[，对话框标题]]
例：MsgBox "输入的文件名是否正确",51 , "请确认"
例： 请写出相应的实现语句。 图1
图2
图3
例：已知圆的半径是200，单击窗体，分
3.1 数据输出的基本方法 3.2 数据输入的基本方法 3.3 常用基本语句 3.4 常用标准控件介绍及应用
3.1 数据输出的基本方法
（一）用Print方法输出 （二）用消息对话框输出 （三）用V百度文库的控件输出
（一）使用Print方法输出数据
1、使用Print方法的语法格式
[对象名.]Print [表达式列表]