2 回答
TA贡献2036条经验 获得超8个赞
tab(n)和spc(n)都是用来把光标向后移动n个字符的位置 tab(n)是绝对偏移量,从该列的开头开始计算,移动n个字符的位置.spc(n)是相对偏移量.从光标处开始计算,移动n个字符的位置.space跟他们不同:space() 是插入多少个空格. space(5) 就是插入5个空格.
TA贡献1860条经验 获得超8个赞
使用tab和spc函数可以使用户得到整齐的输出格式。1、Tab函数tab函数使用语法: Tab(column)其中column为数值表达式。Tab函数使currentx的值增加到column参数所定义的列位置,即输出定位到第column列的位置。使用tab函数可以在指定的位置上显示出排列整齐的输出。例:在第1列输出“姓名”,在第10列输出“性别”,在第20列输出“地址”。 Private Sub Form_Paint() Print "123456789012345678901234567890"
Print Tab(1);"姓名"; Tab(10); "性别"; Tab(20); "地址" '注意用分号隔开 End Sub2、Spc函数spc函数用于显示指定数量的空格。它的语法如下: Spc(numspaces)其中numspaces为0-32767之间的整数。例1:在第一个字符串“姓名”后插入6个空格,在第二个字符串“性别”后插入6个空格并写上“地址”。 Private Sub Form_Paint() Print "123456789012345678901234567890"
Print "姓名"; Spc(6); "性别"; Spc(6); "地址" End Sub例2:打印“数字金字塔”(作业1-11)。Private Sub Form_Click() Dim i, j, k As Integer
For i = 1 To 9
Print Spc(10)
Print Spc(27 - 3 * i);
For j = 1 To i
Print j;
Next
For j = 1 To i - 1
Print i - j;
Next
NextEnd Sub本题代码也可以为:Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = 1 To 2 * i - 1
If j <= i Then
Print Tab(30 - 3 * (i - j)); j;
Else
Print 2 * i - j;
End If
Next j
Print ;
Next i
End Sub
添加回答
举报