|
问题：VB程序:用1、2、3这3个数组成三位数.编写程序,打印出所有的可能(3位数可以相同）,每行输出5个,并统计组成的3位数的个数
答案：↓↓↓ 林文坡的回答： 网友采纳 对不起,今天太忙,上的有点晚了,希望没有让你等太久. PrivateSubForm_Click() Cls DimiAsInteger,jAsInteger,kAsInteger DimnAsInteger Fori=1To3 Forj=1To3 Fork=1To3 n=n+1 Print100*i+10*j+k; IfnMod5=0ThenPrint Next Next Next Print Print"共有";n;"个" Print"点击窗口重新开始..." Print"双击窗口关闭" EndSub PrivateSubForm_DblClick() End EndSub PrivateSubForm_Load() Form1.AutoRedraw=True Print"点击窗口开始..." Print"双击窗口关闭" EndSub 已经运行过. | 
