Question

求大神解答下面这道题，感激不尽！

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

Answer 1

对不起，今天太忙，上的有点晚了，希望没有让你等太久。
Private Sub Form_Click()
Cls
Dim i As Integer, j As Integer, k As Integer
Dim n As Integer
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
n = n + 1
Print 100 * i + 10 * j + k;
If n Mod 5 = 0 Then Print
Next
Next
Next
Print
Print "共有"; n; "个"
Print "点击窗口重新开始..."
Print "双击窗口关闭"
End Sub

Private Sub Form_DblClick()
End
End Sub

Private Sub Form_Load()
Form1.AutoRedraw = True
Print "点击窗口开始..."
Print "双击窗口关闭"
End Sub

已经运行过。

Answer 2

临时用C写的，没经过调试，看看吧~~
记得采纳啊喂~~

#include <stdio.h>
void main()
{
int a[]={1,2,3};
int i1,i2,i3,mark=0;
for(i1=0;i1<3;i1++)
for(i2=0;i2<3;i2++)
for(i3=0;i3<3;i3++)
{
printf("%d%d%d ",a[i1],a[i2],a[i3]);//注意这里有空格
mark++;
if(!(mark%5)) printf("\n");
}
printf("\nThe sum of the number is %d", mark);
}

追问

要VB