输出数值数据时,前面有一个符号位(正号以空格表示), 后面留有一个空格;输出字符串时,前后不留空格。 B Private Sub Form Click 3:b=4 Print a. b 4+a Print 2* b Print a. b Print a=:a.b= b End Sub Form1 口K 运行结果 4 8 3 b=4 (4)若语句行末尾有分号或逗号,则输出本行输出项后不换行
输出数值数据时，前面有一个符号位(正号以空格表示)， 后面留有一个空格；输出字符串时，前后不留空格。 例：Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print "a="; a, "b="; b End Sub 运行结果 (4)若语句行末尾有分号或逗号,则输出本行输出项后不换行
例34使用Prin方法输出全班学生的平均年龄 已知18岁6人,19岁21人,20岁23人,21岁15人 编写的窗体单击事件过程代码如下: Private Sub Form Click Dim a As Integer, b As Integer, c As Integer Dim d As Integer,s As Integer, m As Single a=6:b=21:c=23:d=15 s=a++c+d m=(a*18+b19+c*20+d21)/S 以下舍入到小数后位 Print"平均年龄:";Int(m*10+0.5)/10 End Sub 运行程序后单击窗体,输出结果是: 平均年龄:19.7 ★
编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, s As Integer, m As Single a = 6 : b = 21 : c = 23 : d = 15 s = a + b + c + d m = (a * 18 + b * 19 + c * 20 + d * 21) / s '以下舍入到小数后1位 Print "平均年龄："; Int(m * 10 + 0.5) / 10 End Sub 平均年龄：19.7 例3.4 使用Print方法输出全班学生的平均年龄 已知18岁6人，19岁21人，20岁23人，21岁15人
332特殊打印格式 1.Spc函数 格式:Spc(n) 功能:在输出下一项之前插入n个空格 例如: Print"学号";Spc(2);"姓名";Spc(5);"成绩 输出结果(凵表示空格) 学号凵凵姓名凵凵凵凵凵成绩 ★
1. Spc 格式：Spc(n) 功能：在输出下一项之前插入n个空格。 Print "学号"；Spc(2)；"姓名"；Spc(5)；"成绩" 输出结果(└┘表示空格) 学号└┘└┘姓名└┘└┘└┘└┘└┘ 3.3.2 特殊打印格式
2.Tab函数 函数格式:Tab(n) 功能:把输出位置移到第n列。 例如: Print tab(2);"学号";Tab(11);"姓名";Tab(21);"成绩 输出结果是(1个汉字占2个位置): 凵学号凵凵凵凵凵姓名凵凵山凵凵凵成绩
函数格式：Tab(n) 功能：把输出位置移到第n 例如： Print Tab(2);"学号"；Tab(11);"姓名"；Tab(21);"成绩" 输出结果是(1个汉字占2个位置)： └┘学号└┘└┘└┘└┘└┘姓名└┘└┘└┘└┘└┘└┘成绩 2. Tab函数
例35使用Tab对输出进行定位 程序代码如下: Private Sub form Click Print Print tab(15);"学号";Tab(26);"姓名";Tab(36);"成绩" Print Tab(14); String(27, 输出27个减号字符“-” Print tab(14);"200110";Tab(26);"张小三";Tab(36);57 Print tab(14);"20011003°;Tab(26);"李小四";Tab(36);69 Print tab(14);"2001l012";Tab(26);"马小五";Tab(36;92 Print Tab(14); String(27, "-" 输出27个减号字符“” End sub ★
程序代码如下： Private Sub Form_Click() Print Print Tab(15); "学号"; Tab(26); "姓名"; Tab(36); "成绩" Print Tab(14); String(27, "-") '输出27个减号字符“-” Print Tab(14); "20011001"; Tab(26); "张小三"; Tab(36); 57 Print Tab(14); "20011003"; Tab(26); "李小四"; Tab(36); 69 Print Tab(14); "20011012"; Tab(26); "马小五"; Tab(36); 92 Print Tab(14); String(27, "-") '输出27个减号字符“-” End Sub 例3.5 使用Tab对输出进行定位