求助如何输出成这样 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 求助如何输出成这样

标题：求助如何输出成这样

只看楼主

Z959

等　级：新手上路
帖　子：1
专家分：0
注　册：2018-12-1

楼主

问题点数：0 回复次数：3

求助如何输出成这样

搜索更多相关主题的帖子: 输出　

2018-12-01 21:37

wds1

等　级：贵宾
威　望：49
帖　子：393
专家分：2025
注　册：2016-3-10

第 2 楼

得分:0

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

2018-12-01 22:35

tempwc

等　级：论坛游民
帖　子：14
专家分：25
注　册：2018-11-14

第 3 楼

得分:0

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

2018-12-03 10:34

wds1

等　级：贵宾
威　望：49
帖　子：393
专家分：2025
注　册：2016-3-10

第 4 楼

得分:0

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

2018-12-03 20:13

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-491741-1-1.html