|
网站首页
|
业界新闻
|
小组
|
威客
|
人才
|
下载频道
|
博客
|
代码贴
|
在线编程
|
编程论坛
|
登录
注册
短消息
我发表的主题
我参与的主题
我收藏的贴子
我上传的附件
我下过的附件
编辑个人资料
我的博客
用户控制面板
搜索
道具
恢复默认风格
碧海青天
秋意盎然
棕红预览
粉色回忆
蓝雅绿
紫色淡雅
青青河草
e点小镇
橘子红了
红红夜思
水晶紫色
雪花飘飘
新年快乐
风格
短消息
论坛展区
帮助
编程论坛
→
开发语言
→
『 VB6论坛 』
→ 求助如何输出成这样
我的收件箱(0)
欢迎加入我们,一同切磋技术
用户名:
密 码:
共有
1275
人关注过本帖
标题:
求助如何输出成这样
只看楼主
加入收藏
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
举报帖子
使用道具
赠送鲜花
4
1/1页
1
快速回复:
求助如何输出成这样
数据加载中...
关于我们
|
广告合作
|
编程中国
|
清除Cookies
|
TOP
|
手机版
编程中国
版权所有,并保留所有权利。
Powered by
Discuz
, Processed in 0.067905 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved