第四章VB顺序结构程序设计.pptVIP

* * 把要加工的初始数据从某种外部设备（例如键盘）输入到计算机中，并把处理结果输出到指定设备（如显示器），这是程序设计语言所应具备的基本部分。 处理数据，先解决其输入与输出的问题 * 把要加工的初始数据从某种外部设备（例如键盘）输入到计算机中，并把处理结果输出到指定设备（如显示器），这是程序设计语言所应具备的基本部分。 处理数据，先解决其输入与输出的问题 * * * * 使用本地或监视窗口观察数据类型相容性。 * * 把要加工的初始数据从某种外部设备（例如键盘）输入到计算机中，并把处理结果输出到指定设备（如显示器），这是程序设计语言所应具备的基本部分。 * * 【例4-6】 * Text2.Text = Text2.Text Space(5) Char _ Space(10) Str(Asc(Char)) vbCrLf * Text2的属性设置 Text — 空 MultiLine — Ture ScrollBars — 2-Vertical Command1的代码设计 Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Space(5) Char _ Space(10) Str(Asc(Char)) vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Chr(13) Chr(10) Text1 Text2 Command1 文本框1获得焦点时,选中其中的文本 例4－6 Text2.Text 显示出所有已输入的字母及ASCII码值 * 标签(Label)控件： 用标签输出数据时，也就是将数据赋给标签的Caption属性。也可以输出多个数据。标签可以显示文本(但不能对文本进行编辑) 标签的属性 Caption：标签的标题 Alignment：确定标签标题的对齐方式 AutoSize：确定标签是否随标题自动调整大小 BorderStyle：确定标签的边框 BackStyle：指定背景是透明或不透明 WordWrap：指示是否随标题沿垂直方向自动扩展 * 例：用标签Label1输出一个字符串 Label1.Caption = hello 例：用标签Label1输出一个数值型数据 X = 3 ^ 5 Label1.Caption = Str(X) 例：用标签Label1输出多个数，分多行输出。 先设置标签的AutoSize属性和WordWrap属性为True。 X = 3 ^ 5: y = 7 ^ 4 Label1.Caption = x= Str(X) vbCrLf _ y= Str(y) * 【例4-4】已知三角形的三条边a、b、c的长度，用海伦公式求三角形的面积S。海伦公式: 将文本框Text1、Text2、Text3的内容清空; 设置三个文本框的Alignment属性为1-Right Justify; 设置标签Label2的Caption属性为空; 设置标签Label2的BorderStyle属性为1 – Fixed Single。 例4－11 Text1 Text2 Text3 Label2 Command1 Label1 * 代码如下： Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C)) 用Format显示时保留两位小数 Label2.Caption = Format(S, 0.00) End Sub * 消息框 (MsgBox)函数