VB程序:用1、2、3这3个数组成三位数.编写程序,打印出所有的可能(3位数可以相同),每行输出5个,并统计组成的3位数
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/23 03:21:02
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
已经运行过.
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 "共有"; n; "个"
Print "点击窗口重新开始..."
Print "双击窗口关闭"
End Sub
Private Sub Form_DblClick()
End
End Sub
Private Sub Form_Load()
Form1.AutoRedraw = True
Print "点击窗口开始..."
Print "双击窗口关闭"
End Sub
已经运行过.
free pascal 程序:打印由1,2,3,4四个数字组成的所有四位数,并统计个数.
VB 输出由1、2、3、4这四个数组成的所有可能的四位数 并统计其个数
用VB编写程序输出1~100之间不能被3整除的数,并统计其个数.
3 编写程序,统计出Fibonacci数列前20个数中有多少个3位数,并输出数列中的第16项
设计C语言程序:1、3、5、7四个数字组成的互不相同且无重复数字的三位数?分别是几?要求每行输出6个数
VB,编写程序,找出7的倍数中十位数为2的所有3位数.
用VB程序编写程序输出50~200之间不能同时被3和7整除的自然数,并统计其个数
一个完全数等于他的所有因数(不保含自身)之和,例如:28=1+2+4+7+14.编写程序,计算并输出3位数
编写vb:“水仙花数”是指一个3位数,其各位数的立方和等于该数,如153=1^3+5^3+3^3.编写程序,打印出
编程由1、2、3、4这四个数字可以组成的所有四位数及其个数.(各位数字可以重复) 用vb
用1到9这九个数字,组成六位数的开方等于一个三位数.这九个数字各不相同的算法.编写一个程序试试吧!
编写程序,打印在所有3位数中,其个位、十位、百位上的数码相加等于21的数.