桃花长相依
使用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 IntegerFor i = 1 To 9Print Spc(10)Print Spc(27 - 3 * i);For j = 1 To iPrint j;NextFor j = 1 To i - 1Print i - j;NextNextEnd Sub本题代码也可以为:Private Sub Form_Click()Dim i, j As IntegerFor i = 1 To 9For j = 1 To 2 * i - 1If j <= i ThenPrint Tab(30 - 3 * (i - j)); j;ElsePrint 2 * i - j;End IfNext jPrint ;Next iEnd Sub