vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/02 19:26:39
vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题
Private Sub Command1_Click()
Dim a%, b%, c%, i%, k%
k = 0
For i = 100 To 999
a = i Mod 10
b = (i Mod 100) \ 10
c = i \ 100
If a + b + c = 10 Then
k = k + 1
Print Tab((k Mod 5) * 8); i
End If
Next i
End Sub
这个输出的数据时斜着排列的,哪有问题?求高手
不好意思,我会了
Private Sub Command1_Click()
Dim a%, b%, c%, i%, k%
k = 0
For i = 100 To 999
a = i Mod 10
b = (i Mod 100) \ 10
c = i \ 100
If a + b + c = 10 Then
k = k + 1
Print Tab((k Mod 5) * 8); i
End If
Next i
End Sub
这个输出的数据时斜着排列的,哪有问题?求高手
不好意思,我会了
Private Sub Command1_Click()
Dim a%, b%, c%, i%, k%
k = 0
For i = 100 To 999
a = i Mod 10
b = (i Mod 100) \ 10
c = i \ 100
If a + b + c = 10 Then
Print Tab((k Mod 5) * 8); i;
k = k + 1
End If
Next i
End Sub
再问: 帮忙看看这个吧,统计字符个数的,之后把上个财富给你。
再答: 已经回答了,你自己去看
Dim a%, b%, c%, i%, k%
k = 0
For i = 100 To 999
a = i Mod 10
b = (i Mod 100) \ 10
c = i \ 100
If a + b + c = 10 Then
Print Tab((k Mod 5) * 8); i;
k = k + 1
End If
Next i
End Sub
再问: 帮忙看看这个吧,统计字符个数的,之后把上个财富给你。
再答: 已经回答了,你自己去看
vb 要求输出3位正整数,各个数字之和等于10,每行显示5个数据,每个数据占6列. 求高手看下这个行数的问题
求数据为三位正整数 并且它的其各个数字之和等于10 用VB怎麼做
以每行5个的形式输出所有的3位数字的质数.说明:(1)每个质数占6列,因此请用输出语
求数据为三位正整数(即100~999之间),并且它的其各个数字之和等于10 用VB怎麼做
设计一个程序,能随机产生3个3位的正整数,且要求每个数的三位数字之和等于20,并输出结果
求教一道VB代码编程题目:取随机函数[20,300]中50个能被6整除的数据,要求每行输出4个.急求!谢谢各位
已知某个正整数的各个数字之和与各个数字之积等于这个数.求这个正整数.
C语言输入一个3行5列的矩阵数据,输出矩阵中每行最大值
如图所示,有9个方格,要求每个方格填入不同的数字,使得每行,每列,每条对角线上的3个数字之和相等.
输入一个正整数,输出该数的各个数字之和.要求编写函数,计算整数的各个数字之和
VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且
要求:输入6个数据到2行3列的二维数组,计算其中数值大于0的数据的平均值,输出计算出来的平均值.