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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 19:23:14
VB程序:用1、2、3这3个数组成三位数.编写程序,打印出所有的可能(3位数可以相同),每行输出5个,并统计组成的3位数的个数

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

VB程序:用1、2、3这3个数组成三位数.编写程序,打印出所有的可能(3位数可以相同),每行输出5个,并统计组成的3位数的个数
对不起,今天太忙,上的有点晚了,希望没有让你等太久.
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
已经运行过.

临时用C写的,没经过调试,看看吧~~
记得采纳啊喂~~
#include
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++)
{...

全部展开

临时用C写的,没经过调试,看看吧~~
记得采纳啊喂~~
#include
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程序:用1、2、3这3个数组成三位数.编写程序,打印出所有的可能(3位数可以相同),每行输出5个,并统计组成的3位数的个数 从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个 用VB程序怎么编或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编? 从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个 用VB程序怎么编或者任取0-9中的六个数字中再任取3个组成三位数,这种情况怎么编? 用0 7 5 2中选3个数组成三位数 用VB编写程序.计算1+2+3+.+100 用1,2,3,4,5这五个数中的三个数组成无重复数字的三位数,问则其中是三的倍数的三位数 从1,2,3,4中每次任取3个数组成三位数,一共能组成()个不同的三位数 用1,0,3,5这四个数,可以组成多少个不含重复数字的三位数 用2,3,4,5这其中的三个数能组成哪些三位数的素数? 用0、1、2、3这4个数可组成多少个没有重复数字的三位数? 用1,2,3,4,5这五个数组成没有重复数字的三位数,其中偶数的个数是? 用0,1,2,3这4个数可以组成多少个没有重复数字的三位数 用1,2,3,4,5,6分别组成两个三位数(每个数只能用一次),使他们的乘积最大则组成的两个三位数是? 用VB编写一个程序,求出个位数为6,且能被3整除的三位数共有多少个 从1,2,3,4,5这五个数中任取3个数组成五重数字的三位数,那么这些三位数中2必须在3签名的三位数的总个数是 用VB编写程序输出1~100之间不能被3整除的数,并统计其个数. 用0,1,2,3,……,9这十个数(1)可以组成多少个三位数(2)可以组成多少个没有重复数字的三位偶数 用0、1、2、3、4这五个数字组成一个两位数和一个三位数.要使乘积最大,组成的是哪两个数?要使乘积最小