第4章顺序结构程序设计改.pptVIP

第4章 顺序结构程序设计 第4章 顺序结构程序设计 4.1 数据输出 4.1.1 直接输出到窗体 1. 使用Print方法 [〈对象名〉.] Print [表达式表] [{, | ;}] 逗号分隔符，各输出项按标准输出（分区输出）格式显示，此时，以14个字符宽度为单位将输出行分为若干区段，逗号后面的表达式在下一个区段输出。 分号分隔符，按紧凑格式输出，即各输出项之间无间隔地连续输出。 Private Sub Command1_Click() Print Print 2 * 3 + 4 =; 2 * 3 + 4 Print Print 祝你学好 Print , Visual?? Print , , Baisc Print Print 祝您学好, Print Visual; Baisc End Sub 2. 与Print方法有关的函数 3. 使用位置属性和字体属性 Private Sub Command1_Click() Dim x As String x = 轻轻松松学VB FontSize = 20 FontName = 黑体 CurrentX = 2000 CurrentY = 1500 Show Print x End Sub 4. 清除方法Cls Private Sub Command2_Click() Cls End Sub 4.1.2 使用Label控件实现数据输出 Private Sub Command1_Click() Label1.Caption = 你是男是女呀？ Label2.Caption = 女生 Label2.Alignment = 2 Label2.BorderStyle = 0 End Sub Label控件的常用属性： (1) Caption属性 用来在标签中显示文本。在缺省情况下，Caption（标题）是Label控件中唯一的可见部分。 (2) BorderStyle属性 用来设置标签的边框。该属性可以取两个值，即0和1。默认情况下，该属性值为0，标签无边框。如果把BorderStyle（边框样式）属性设置成1，那么Label就有了一个边框。 (3) 其他外观属性 可以通过设置Label控件的BackColor、ForeColor和Font等属性来改变Label的外观。 4.2 常用基本语句 4.2.1 赋值语句 [Let]〈名称〉=〈表达式〉 实现两变量的交换。 Private Sub Command1_Click() t = Label3.Caption Label3.Caption = Label4.Caption Label4.Caption = t End Sub 4.2.2 卸载对象语句Unload Unload〈 对象名〉 Private Sub Command2_Click() Unload Me Me表示按钮所在的窗体对象 End Sub 4.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 Form_Load() Text1.Text = : Text2.Text = Text3.Text = : Text4.Text = Text5.Text = Text5.Locked = True End Sub Private Sub Command1_Click() Dim a As Single, b As Single, c As Single a = Va