用VB,用VB,用VB将123456789这九个数字分成三个三位数,各个数字之间比例是1:2:3

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/11 03:20:40

用VB,用VB,用VB将123456789这九个数字分成三个三位数,各个数字之间比例是1:2:3
用VB将123456789九个数字分成三个三位数,要求各个数字不重复,且第一个数字是第二个的两倍,是第三个的三倍,问应该怎样分?
知道的大神请把文件上传给我,Thank you verymuch///////我需要的是工程和窗体文件

Private Sub Command1_Click()
Dim tmpStr As String,tmpStr1 As String
Dim mpStr2 As String,tmpStr3 As String
Dim a As Integer,b As Integer,c As Integer
Dim a1 As String,b1 As String,c1 As String
Dim Sum1 As Integer,Sum2 As Integer,Sum3 As Integer
tmpStr = "123456789"
For a = 1 To 9
tmpStr1 = Replace(tmpStr,a,"") '去掉已经用的数
For b = 1 To 8
b1 = Mid(tmpStr1,b,1)
tmpStr2 = Replace(tmpStr1,b1,"") '去掉已经用的数
For c = 1 To 7
c1 = Mid(tmpStr2,c,1)
Sum1 = Val(a & b1 & c1) '得到最小的三位数
' 如果最小三位数的三倍大于999,结束计算
If Sum1 > 333 Then GoTo theEnd
Sum2 = Sum1 * 2 '得到第二个数
If CheckSum(CLng(Sum1),Sum2) Then '如果第二个数合格
Sum3 = Sum1 * 3 '得到第三个数
If CheckSum(CLng(Sum1 & Sum2),Sum3) Then '如果合格,输出
Debug.Print Sum3 & "," & Sum2 & "," & Sum1
End If
End If
Next
Next
Next
theEnd:
End Sub
'检查重复数字
Private Function CheckSum(ByVal aSum As Long,ByVal bSum As Integer) As Boolean
Dim I As Integer
For I = 1 To 3
If InStr(aSum,Mid(bSum,I,1)) > 0 Then
Exit Function
End If
Next
CheckSum = True
End Function

用VB,用VB,用VB将123456789这九个数字分成三个三位数,各个数字之间比例是1:2:3 从1、2、3、4、5、6这六个数字中任取3个组成三位数,其中能被6整除的有几个用VB程序怎么编将1到9九个数字分成三组,组成三位数,使它们之间的比例依次是1：3：5,怎样分组? 用VB对A B对于的数字排列 VB中怎么用数字序列表示日期型常量用VB编写一个解“数字三角形”程序：将自然数1到6分别填入图中的小圆圈内,使这个三角形的每边上的三个数求数据为三位正整数（即100~999之间）,并且它的其各个数字之和等于10 用VB怎麼做用VB求“用0～9这十个数字可以组成能被15整除且无重复数字的三位数的个数”并打印结果编程由1、2、3、4这四个数字可以组成的所有四位数及其个数.(各位数字可以重复) 用vb 从1~9这九个数字中取出三个数字,用这三个数字可以组成六个不同的三位数,若这六个三位数之和是3330,那么 VB中,有1-39个数字,任意随机选择其中某些数字（数量不限）然后两两组合,请问用VB该怎么写程序? 求数据为三位正整数并且它的其各个数字之和等于10 用VB怎麼做