单元四 顺序结构程序设计单元四 顺序结构程序设计数 据 输 出 1常用基本语句 2利用文本框进行数据输入 3使用对话框 44.1 数据
输出4.1.1 直接输出到窗体1. 使用Print方法 [〈对象名〉.] Print [表达式表] [{, | ;}
]逗号分隔符，各输出项按标准输出（分区输出）格式显示，此时，以14个字符宽度为单位将输出行分为若干区段，逗号后面的表达式在下一个区
段输出。分号分隔符，按紧凑格式输出，即各输出项之间无间隔地连续输出。Private Sub Command1_Click() P
rint Print "2 3 + 4 ="; 2 3 + 4 Print Print "祝你学好" Pri
nt , "Visual?? Print , , "Baisc" Print Print " 祝您学好", Prin
t "Visual"; " Baisc"End Sub2. 与Print方法有关的函数 (1) Tab函数 (2) Spc函数Pr
ivate Sub Form_Click() Show FontSize = 12 Print Print Tab(10
); "姓名"; Tab(25); "性别"; Tab(40); "年龄" Print Print Tab(10); "张红"
; Tab(25); "女"; Tab(40); 17 Print Tab(10); "海小翔"; Tab(25); "男";
Tab(40); 18End Sub3. 使用位置属性和字体属性Private Sub Command1_Click() Dim
x As String x = "轻轻松松学VB" FontSize = 20 FontName = "黑体" Curr
entX = 2000 CurrentY = 1500 Show Print x
End Sub4. 清除方法ClsPrivate Sub Command2_Click() ClsEnd Sub4.1.
2 使用Label控件实现数据输出Private Sub Command1_Click() Label1.Caption =
"你是男是女呀？" Label2.Caption = "女生" Label2.Alignment =
2 Label2.BorderStyle = 0 End Sub Label
控件的常用属性： (1) Caption属性 用来在标签中显示文本。在缺省情况下，Caption（标题）是Labe
l控件中唯一的可见部分。 (2) BorderStyle属性 用来设置标签的边框。该属性可以取两个值，即0和1。默
认情况下，该属性值为0，标签无边框。如果把BorderStyle（边框样式）属性设置成1，那么Label就有了一个边框。 (
3) 其他外观属性 可以通过设置Label控件的BackColor、ForeColor和Font等属性来改变Label的
外观。4.2 常用基本语句4.2.1 赋值语句 [Let]〈名称〉=〈表达式〉实现两变量的交换。Private Sub Co
mmand1_Click() t = Label3.Caption Label3.Caption = Label4.Capti
on Label4.Caption = tEnd Sub 4.2.2 卸载对象语句UnloadUnload〈 对象名〉
Private Sub Command2_Click() Unload Me '' Me表示按
钮所在的窗体对象End Sub4.2.3 注释语句Rem Rem 〈注释内容〉 '' 〈注释
内容〉 例如： s = pi r ^ 2 '' 计算圆的面积 v = 4 / 3 pi r
^ 3 : Rem 计算球的体积4.3 利用文本框进行数据输入4.3.1 TextBox控件的简单使用 (1) Text
属性：文本框中包含的文本内容。 (2) Locked属性：控件是否可编辑。Locked属性值为 True时，文本框内容不可
编辑；为False时可编辑。 (3) PassWordChar属性：显示在文本框中的替代符，如一串“”号等。主要用于口令的
输入。 (4) MaxLength属性：显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。Private Sub F
orm_Load() Text1.Text = "" : Text2.Text = "" Text3.Text = "" :
Text4.Text = "" Text5.Text = "" Text5.Locked = True End SubPri
vate Sub Command1_Click() Dim a As Single, b As Single, c As Sin
gle a = Val(Text2.Text) b = Val(Text3.Text) c = Val(Text4.Te
xt) Text5.Text = (a + b + c) / 3 End Sub4.3.2 多行文本的输入4.3.3
焦点与Tab键序 焦点就是光标，当对象具有“焦点”时才能响应用户输入。 当控件的Visible和Enabled属性值为
True时，控件才能接收焦点。但是，某些控件不具有焦点，如标签、框架、计时器等。程序运行时，可以通过下列方法改变焦点： 用鼠标单击
对象。 按〈Tab〉键或〈Shift〉+〈Tab〉在当前窗体的各对象之间巡回移动焦点。 按热键选择对象。控制Tab键序的属性有：1
) TabIndex属性：决定控件接收焦点的顺序。2) TabStop属性：决定焦点是否能够停在该控件上。 4.3.4 F
rame控件Private Sub Command1_Click() Dim h As Integer, m As Intege
r, s As Integer Dim x As Long h = Val(Text1.Text) m = Val(
Text2.Text) s = Val(Text3.Text) x = h 3600 + m 60 + s
Label1.Caption = "共计秒数" & Str(x) & "秒" End Sub4.4 使用对话框实现数据输入
输出4.4.1 输入框（InputBox） InputBox函数显示一个能接受用户输入数据的对话框，并返回用户在对话
框中输入的信息。 变量 = InputBox(〈信息内容〉[,〈对话框标题〉][,〈默认内容〉] )Private Su
b Command1_Click() Dim h As Integer, f As Integer h = Val(Input
Box("鸡和兔的总头数", "请输入", 0)) f = Val(InputBox("鸡和兔的总脚数（偶数）", "请输入",
0)) x = (4 h – f) / 2 y = (f – 2 h) / 2 Label2.Caption =
" 设笼中鸡和兔的总头数为" & h & ", 总脚数为" & f & "。" Label3.Caption = " 则笼中
鸡有" & x & "只,兔有" & y & "只。"End Sub4.4.2 消息框（MsgBox） MsgBox函数在
对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。MsgBox函数的语法格式为： 变量 = Ms
gBox(〈消息内容〉[,〈对话框类型〉[,〈对话框标题〉] ] ) 〈对话框类型〉有3个参数。 参数1——出现按钮参数2——图标类型参数3——默认按钮msg = MsgBox("请确认输入的数据是否正确！", 3 + 32 + 0, "数据检查") 若不需要返回值，则可以使用MsgBox的命令形式： MsgBox〈信息内容〉[,〈对话框类型〉[,〈对话框标题〉]]结束 |
|
