VB程序:用1、2、3这3个数组成三位数.编写程序,打印出所-查字典问答网

来自沈宪明的问题

　　VB程序:用1、2、3这3个数组成三位数.编写程序,打印出所有的可能(3位数可以相同）,每行输出5个,并统计组成的3位数的个数

1回答

2020-12-27 21:50

我要回答

请先登录

林文坡

　　对不起,今天太忙,上的有点晚了,希望没有让你等太久.

　　PrivateSubForm_Click()

　　Cls

　　DimiAsInteger,jAsInteger,kAsInteger

　　DimnAsInteger

　　Fori=1To3

　　Forj=1To3

　　Fork=1To3

　　n=n+1

　　Print100*i+10*j+k;

　　IfnMod5=0ThenPrint

　　Print"共有";n;"个"

　　Print"点击窗口重新开始..."

　　Print"双击窗口关闭"

　　EndSub

　　PrivateSubForm_DblClick()

　　End

　　EndSub

　　PrivateSubForm_Load()

　　Form1.AutoRedraw=True

　　Print"点击窗口开始..."

　　Print"双击窗口关闭"

　　EndSub

　　已经运行过.

2020-12-27 21:50:59