求助如何输出成这样

Z959 发布于 2018-12-01 21:37， 1399 次点击

只有本站会员才能查看附件，请登录

3 回复

wds12018-12-01 22:35

Private Sub Command1_Click()
For i = 1 To 6
   Print "123456" & Space(i + 5);
   For j = i To 6
     Print Trim(Str(i));
   Next
   Print
Next
End Sub

tempwc2018-12-03 10:34

看看是不是能用Format函数来将后面的数设置成“空格字符&数字”。或是用Len函数来取得后面的数字转换成字符串后的长度，再补上欠余的空格。

wds12018-12-03 20:13

你要觉得程序不难看，也可以如下
Private Sub Command1_Click()
For i = 1 To 6
Print "123456" & Space(i + 5); String(7 - i, Trim(Str(i)))
Next
End Sub