高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 作者 张露2 第4章.pptVIP

第4章　顺序程序设计;顺序结构程序设计 ; 输入语句 Visual Basic中，用户在输入的时候，需要用到一个输入函数，这个函数是InputBox(),其语法如下： InputBox[$](提示[,标题] [,默认值] [,x坐标] [, y坐标] [,帮助文件, 上下文]) 各参数的具体解释见表 ;例如：s=InputBox(“请输入一个数字”,“数据判别系统”,0) 运行时出现如图4.1所示的窗口;数据输出 直接输出到窗体 使用Print方法在窗体中直接输出字符串或数值表达式的值，如图所示。 ;设计步骤如下。 (1) 建立应用程序用户界面。 (2) 设置对象属性 (3) 设计代码。 编写命令按钮Command1的Click事件代码： 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;在上例中使用Tab函数与Spc函数，如图所示。 只需改写命令按钮的Click事件代码： Private Sub Command1_Click() Print Print Tab(5); 2 * 3 + 4 =; 2 * 3 + 4 Print Print Tab(6); 欢迎学习; Tab(17); Visual Baisc Print Print Tab(7); 欢迎学习; Spc(3); Visual; Spc(2); Baisc End Sub;3. 使用位置属性 下面程序按指定尺寸、颜色和外观，把文本输出到窗体的中间，如图所示。 ;(2) 编写命令按钮的Click事件代码： Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer FontName = 隶书 输出文本的字体 FontSize = 60 输出字体的大小 ForeColor = QBColor(15) 输出文本的前景色，即字体的颜色 BackColor = QBColor(8) 输出文本的背景色，即窗体的颜色 a = “你好” 输出文本的内容 textW = TextWidth(a) / 2 文本的宽度TextWidth(a) textH = TextHeight(a) – Command1.Height / 2 CurrentX = ScaleWidth / 2 – textW 设置输出的水平位置 CurrentY = ScaleHeight / 2 – textH 设置输出的垂直位置 Print a 输出文本 End Sub;输出文本到图片框 使用Print方法在图片框中输出字符串或数值表达式的值。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性 (3) 设计代码。 编写命令按钮Command1的Click事件代码： Private Sub Command1_Click() Picture1.Print Picture1.Print Tab(2); 2 * 3 + 4 =; 2 * 3 + 4 Picture1.Print Picture1.Print Tab(3); 欢迎学习; Tab(17); Visual Baisc Picture1.Print Picture1.Print Tab(4); 欢迎学习; Spc(3); Visual; Spc(2); Baisc End Sub;在图片框中使用位置函数。 设计步骤如下。 (1) 建立应用程序用户界面与对象属性 ; (2) 编写命令按钮的Click事件代码： Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer Picture1.FontName = 隶书 Picture1.FontSize