第三章VB程序设计基础详解.ppt

* 功能：暂停语句功能是暂停程序的执行。 说明：暂停语句可以编写在程序的任何地方，程序执行到Stop语句处即暂停。 * 属性值以TWIP(缇)为单位，每缇约为1/1440英寸 窗体的LEFT指窗体左边界与屏幕左边界的相对距离 TOP指窗体顶边与屏幕顶边的相对距离 * 当BorderStyle=0(无边界)时， ControlBox不起作用 * * * Private Sub Command1_Click() Text1.Text = 计时开始 Form1.Tag = Timer Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() Text1.Text = CInt(10 * (Timer - Form1.Tag)) / 10 秒 Command1.Enabled = True Command2.Enabled = False End Sub Tag:返回/设置一个表达式 用来存储程序中需要 的额外数据，字符串型 Timer:返回一个Single,表示 从午夜开始到现在经 过的秒数 Timer1.Interval = 100 数据输出－－Print方法 1 数据输入－－InputBox函数 2 MsgBox函数和MsgBox语句 3 数据输入输出 打印机输出 4 ▲ ▲ ▲ Print方法 [对象名.] Print [表达式] [,|;] 在指定的对象中输出表达式的值，用于在窗体、图片框或打印机上输出数据。 说明 Print方法前的“对象名”可省略，省略对象名就在当前窗体上打印出数据。 Print方法后可跟多个表达式，当输出多个表达式时，各表达式用逗号|分号隔开。 表达式可以省略，则在对象上打印空行。 Print具有计算和输出双重功能。 例 Private Sub Form_Click() Dim intA1 As Integer, intA2 As Integer, intTemp% intA1 = 5: intA2 = 10 ‘使用分号分隔三个表达式 Form1.Print 交换; intA1; intA2 intTemp = intA1: intA1 = intA2: intA2 = intTemp Form1.Print 得; intA1; intA2 End Sub 例 Private Sub Form_Click() Dim intA1 As Integer, intA2 As Integer, intTemp% intA1 = 5: intA2 = 10 ‘使用逗号分隔三个表达式 Form1.Print 交换, intA1, intA2 intTemp = intA1: intA1 = intA2: intA2 = intTemp Form1.Print 得, intA1, intA2 End Sub 用“;”隔开数据项，打印时以紧凑格式输出 字符串数据的紧凑格式输出时把各表达式连接起来输出 数值数据的紧凑格式输出时,数据前有一个符号位，后有一个空格 用“,”隔开，以标准格式输出（分区输出格式），以14个字符宽度划分为一个区段。 判断下面语句的输出结果？ Print 2,-4 课后练习题 ? Print AB; CDE Print 2; -4, 6 ? Print AB; CDE, ‘末尾出现了逗号 Print 2; -4, 6 ? Print AB; CDE; ‘末尾出现了分号 Print 2; -4, 6 *2*-4**********6 ABCDE**********2*-4**********6 ABCDE*2*-4*****6 ABCDE 与Print方法有关的函数 Tab函数 功能是在指定的位置显示输出信息。 Print Tab(n) 参数n为数值表达式，其值为一整数，它是下一个输出位置的列号。 与Print方法有关的函数 Spc函数 功能是在两个输出表达式之间空n个空格。 Print Spc(n) 注意： Spc函数和Tab函数的功能十分类似，而且可以互相代替，但Tab函数需要从对象的左端开