第三章 顺序结构PPT课件

窗体，分别在窗体上输出圆的周长，用消
息框中输出圆的面积。
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, "计算结果"
别在窗体上输出圆的周长，用消息框输出
圆的面积。
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 & "计算结果"
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
（二）用消息对话框输出
1、函数格式：
变量=MsgBox(提示[,按钮[，对话框标题]])
例：y = MsgBox("输入的文件名是否正确",3+48 , "请确认")
按钮参数的取值及含义（必须是以下四种情况的参数各取一个值求和） （1）显示的按钮数目及形式：
（2）显示的图标：
（3）默认按钮：（一般都取0值） （4）等待模式：（一般都取0值）
Click事件 特别强调：命令按钮不支持DblClick事件
3.4.2 标签
1、属性： (1)Caption属性 (2)Alignment属性 (3)AutoSize属性
2、方法： Move方法
3、事件： Click事件
例：利用标签和命令按钮设置一个测 试游戏。
3.4.3 文本框
注释语句Rem 加载对象语句Load 卸载语句Unload 结束语句End 暂停语句Stop
3.4 基本控件
3.4.1 命令按钮
1、属性： Caption属性 Style属性
2、方法：
Picture属性 DownPicture属性 DisabledPicture属性
SetFocus方法
3、事件：
3.1 数据输出的基本方法 3.2 数据输入的基本方法 3.3 常用基本语句 3.4 常用标准控件介绍及应用
3.1 数据输出的基本方法
（一）用Print方法输出 （二）用消息对话框输出 （三）用VB的控件输出
（一）使用Print方法输出数据
1、使用Print方法的语法格式
[对象名.]Print [表达式列表]
End Sub
（三） 用VB的控件输出
文
格式：
本
框
Text1.Text=字符串
标
ห้องสมุดไป่ตู้
格式：
签
Label1.Caption=字符串
3.2 数据输入的基本方法
二、数据输入的基本方法
（一）赋值语句 （二）用InputBox函数输入数据 （三）用VB的控件输入数据
（一）赋值语句
[Let] 变量名或对象属性名=表达式
如：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
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() 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
2、输出多个数据项，用&和VbCrLf；
例： y=msgbox (“请输入一个数字” & VBcrlf & “(1-9)”)
3、语句格式： MsgBox 提示[,按钮[，对话框标题]]
例：MsgBox "输入的文件名是否正确",51 , "请确认"
例： 请写出相应的实现语句。 图1
图2
图3
例：已知圆的半径是200，单击窗体，分
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