用VB求“用0~9这十个数字可以组成能被15整除且无重复数字的三位数的个数”并打印结果
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/03 09:40:56
用VB求“用0~9这十个数字可以组成能被15整除且无重复数字的三位数的个数”并打印结果
题目要求是用循环结构做,请帮忙把代码写出,能给出解释的更好
题目要求是用循环结构做,请帮忙把代码写出,能给出解释的更好
Private Sub Command1_Click()
Dim A%,B%,C%,D%,E% '定义5个Integer
For A = 0 To 9 '让A当百位上的数从0到9循环
For B = 0 To 9 '让B当十位上的数从0到9循环
For C = 0 To 9 '让C当个位上的数从0到9循环
D = Val(A & B & C) '利用VB的自动转换,转成字符再取值
If D Mod 15 = 0 Then E=E+1 '能被整除就计数
DoEvents '释放CPU控制权
Next C
DoEvents
Next B
DoEvents
Next A
Msgbox E '循环完成,输出个数.E=67
End Su
Dim A%,B%,C%,D%,E% '定义5个Integer
For A = 0 To 9 '让A当百位上的数从0到9循环
For B = 0 To 9 '让B当十位上的数从0到9循环
For C = 0 To 9 '让C当个位上的数从0到9循环
D = Val(A & B & C) '利用VB的自动转换,转成字符再取值
If D Mod 15 = 0 Then E=E+1 '能被整除就计数
DoEvents '释放CPU控制权
Next C
DoEvents
Next B
DoEvents
Next A
Msgbox E '循环完成,输出个数.E=67
End Su
用VB求“用0~9这十个数字可以组成能被15整除且无重复数字的三位数的个数”并打印结果
用0~9这十个数字可以组成几个能被15整除且无重复数字的三位数.
用0—9这十个数字组成多少个能被15整除且无重复数字的三位数?
0到9十个数字可以组成多少个无重复且可被3整除的三位数
用0,1,2,3,…9这10个数字,可以组成能被5整除,且无重复数字的三位数有多少个?
用0到9这十个数字可组成多少个能被5整除的无重复数字的三位数?
用0到9这十个数字可组成______个能被5整除无重复数字的三位数.
还是高中数学(数列):用0,1,2,3,4,5这六个数字,可以组成多少个无重复数字且能被3整除的三位数.
用0~9十个数字可以组成有重复数字的三位数的个数为?
用0,1,..9十个数字,可以组成有重复数字的三位数的个数为
用0-9这十个数字可以组成多少无重复的三位数?
用0,1,2,3,4,5共六个数字,组成无重复数字的自然数,可以组成多少个无重复数字被3整除的三位数