第一问答网»论坛 › 中问网 › 问答 › vb 打印由1，2，3，4四个数字组成的四位数字，并统计它 ...

vb 打印由1，2，3，4四个数字组成的四位数字，并统计它们的个数（允许四位数字中有相同的数字）

[复制链接]

11 |

1 | 2007-10-17 17:53:25 | 显示全部楼层 |阅读模式

Print i & j & k & m & " ";就可以了吧...楼上的写法难道有什么奥妙?

使用道具举报

千问 | 2007-10-17 17:53:25 | 显示全部楼层

Private Sub Command1_Click()Dim i%, j%, k%, m%, n%For i = 1 To 4 For j = 1 To 4For k = 1 To 4
For m = 1 To 4
Print CStr(i * 1000 + j * 100 + k * 10 + m) & " ";
n = n + 1
If n Mod 10 = 0 Then Print
NextNextNextNextPrint "一共有"; n; "个呀.."End Sub

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

加好友
发消息

回复楼主返回列表

问答

热门排行

1 我没有深圳发展的信用卡可以办欧尚红雀卡吗？
2 推荐镇江怎么样治疗输卵管堵塞？
3 潍坊生殖器上有小红斑
4 突然左手有点自己抽抽
5 请问我买的DR MAGIC澳洲茶树控油精华算不算是茶树精油的一种?还是被骗了了?
6 推荐痔疮引起便血?
7 C++编程，同学通讯录管理设计
8 加拿大参加二战的意义
9 推荐无锡多囊卵巢综合症月经失调怎么办？
10 做什么菜时放香菇不好吃啊？
11 推荐无锡多囊卵巢综合症怎么才能看好？
12 自动重启（排除CPU和显卡发烫）有哪些可能性？
13 推荐镇江治疗输卵管堵塞大概需要多少钱？
14 万王之王3火爆公测有奖是真的吗
15 赣州一年四季主导风向
16 推荐无锡多囊卵巢综合症怎么治疗？
17 推荐常州治疗女性不孕的方法？
18 四年级英语期末试卷（北京）
19 沈阳陆军总院几点开门几点关门
20 最近嘴里总是很甜,什么也没有吃就很甜,而且有点腰酸, 有人劝我去看看是不是糖尿病,请问有没有人知道原因啊
21 推荐无锡多囊卵巢综合症怎么治？
22 游戏主机配置
23 推荐镇江治疗输卵管堵塞？
24 手上长小水泡，不痒。是怎么回事
25 富士康CMMSG（深圳）2010届签约大学生交流群
26 高中数学
27 推荐镇江治疗输卵管堵塞的好方法？
28 推荐怎样识别痔疮?
29 小学五年级数学题
30 戏剧影视文学艺术生考试
31 索尼TX7C和TX5哪个好？
32 推荐常州治疗女性不孕多少钱？
33 小说（看简介）
34 推荐无锡多囊卵巢综合症怎么引起的？
35 运动后十分钟就吃了个荔枝，就感觉喉咙不舒
36 神话光芒杨喆
37 我家孩子7岁多了，这几天总是说睡觉爬起
38 如图，已知DE‖BC,CD是∠ACB的平分线，∠B=70°，∠ACB=50°，求∠EDC与∠BDC的度数。
39 周一晚上月经没了，周五晚上同房，外射，需
40 推荐痔疮初始症状?
41 推荐无锡多囊卵巢综合症怎么治疗哪家好？
42 奇迹餐厅1食材怎么卖？
43 我想找个男朋友，为什么久那么困难？
44 耳鸣影响的身体不好怎么办？
45 推荐个网游玩，骨灰网游玩家进！
46 求一个诛仙号,成心想玩,谁有不玩的诛仙号.让玩下.发QQ油箱[email protected]
47 亚里士多德的资料
48 变更经营范围，如何办理
49 关于三峡的电影
50 山东哪里有卖索尼 NW35E/W的？
51 推荐镇江治疗输卵管堵塞的费用？
52 请问excel 打印多个不同编号的标签如果定好在A4纸上按需要的数量打印呢
53 推荐痔疮犯了症状?
54 今天手机怎么换不了车位？
55 推荐无锡多囊卵巢综合症治疗？
56 今天上午做喉镜检查回来一直流清鼻涕打喷
57 头颈靠背和肩膀的部分按起来酸疼
58 推荐痔疮脱出症状?
59 我的电磁炉陶瓷面板脱胶了，请问在哪里可以买到这种胶水？价格大概多少钱？谢谢！
60 推荐镇江治疗输卵管堵塞哪种方法最好？
61 英语问题
62 pS 哪个版本.可以直接打开GIF多帧动画?
63 头发掉一块，硬币大小，怎么回事？女31
64 推荐镇江治疗输卵管堵塞哪家好？
65 武汉最近有没车展
66 推荐常州治疗女性不孕症的医院哪家好？
67 用立拍得相机拍的照片可以直接放进电脑吗，怎么传？
68 请问医师关节炎，风湿可以吃新痛痹痛胶囊吗
69 平时喉咙容易干，容易产生疲劳感，检查了
70 我现在15，鼻梁塌鼻翼大怎么办绝不做手术，有什么方法可以拯救吗？
71 推荐痔疮是啥症状?
72 在淘宝买到了假衣服的退货问题。
73 数学题怎么做
74 今天早上空腹吃了避孕药，三个小时后吃了
75 推荐镇江治疗输卵管堵塞哪里好？
76 推荐无锡多囊卵巢综合症症状表现？
77 推荐痔疮有何症状?
78 控制面板打开后直接关闭
79 北京或天津有什么大的棉纺织企业？
80 寻找湖北随州的凖亲
81 广州精神科排名？
82 推荐常州治疗输卵管不孕？
83 推荐镇江治疗输卵管堵塞哪家效果好？
84 推荐无锡多囊卵巢综合症治疗去哪家医院好？
85 nokia.maps.v3.01.260破解版有效地址，谢谢！
86 郑州西四环货运信息部电话~ 急用有的说下谢谢
87 推荐痔疮的症状有?
88 男，35岁，阴茎上得了病毒性传染软疣，
89 诺基亚5630 鄂尔多斯
90 10是几位小数
91 1M 电信的top卡6人共享网速怎么样啊！最好是几台电脑共享？
92 商品房的建筑面积的两个问题。
93 我想知道铁岭昌图猪肉价格还能不能涨，现在多少钱？