用VB对A B对于的数字排列
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/05/02 13:10:08
用VB对A B对于的数字排列
有如下数据:
A:2,3 B:5,6,7,9
A:2 B:5,6,7,9
A后面的数字范围0-9,最少1个,最多2个,
B后面的数字范围0-9,最少1个,最多9个,
要求以A中的数字为固定然后与B中的数字组合成三位数.A中数字个数为1个时,则占百位,2个时,则占百位和十位.
A:2,3 B:5,6,7,9 手动转换后为:
235
236
237
239
A:2 B:5,6,7,9 手动转换后为:
256
257
259
267
269
279
有如下数据:
A:2,3 B:5,6,7,9
A:2 B:5,6,7,9
A后面的数字范围0-9,最少1个,最多2个,
B后面的数字范围0-9,最少1个,最多9个,
要求以A中的数字为固定然后与B中的数字组合成三位数.A中数字个数为1个时,则占百位,2个时,则占百位和十位.
A:2,3 B:5,6,7,9 手动转换后为:
235
236
237
239
A:2 B:5,6,7,9 手动转换后为:
256
257
259
267
269
279
'将Text2.MultiLine = True
Private Sub Command2_Click()
Dim s As String, s2 As String, s3 As String
Dim i As Integer, k As Integer
Dim sl1 As Variant, sl2 As Variant
s1 = "2"
s2 = "5,6,7,9"
sl1 = Split(s1, ",")
sl2 = Split(s2, ",")
s3 = ""
If UBound(sl1) > 0 Then
For i = 0 To UBound(sl2)
s3 = s3 & vbCrLf & sl1(0) & sl1(1) & sl2(i)
Next
Else
For i = 0 To UBound(sl2)
For k = i + 1 To UBound(sl2)
s3 = s3 & vbCrLf & sl1(0) & sl2(i) & sl2(k)
Next
Next
End If
Text2.Text = s3
End Su
Private Sub Command2_Click()
Dim s As String, s2 As String, s3 As String
Dim i As Integer, k As Integer
Dim sl1 As Variant, sl2 As Variant
s1 = "2"
s2 = "5,6,7,9"
sl1 = Split(s1, ",")
sl2 = Split(s2, ",")
s3 = ""
If UBound(sl1) > 0 Then
For i = 0 To UBound(sl2)
s3 = s3 & vbCrLf & sl1(0) & sl1(1) & sl2(i)
Next
Else
For i = 0 To UBound(sl2)
For k = i + 1 To UBound(sl2)
s3 = s3 & vbCrLf & sl1(0) & sl2(i) & sl2(k)
Next
Next
End If
Text2.Text = s3
End Su
用VB对A B对于的数字排列
VB中有A.B两个框,在A.B中分别输入数字a.b,先用一个函数得出a到b之间的偶数判定
VB排列 数字的那个,打印PRINT的那个,循环的那个~
设一个三位数是n,它的个位数字为c,十位数字为b,百位数字为a,则b的VB表达式是()
用VB编程,查找介于正整数A,B之间只有两个数字相同的完全平方数.所谓完全平方数是指其平方根为整数的数.
VB中用IF语句把a b c d e从大到小排列
VB编写程序:已知abc三个数,使数字从大到小排列,用一个if语句和一个嵌套的if语句如何实现啊啊啊啊
VB怎样把数字按从大到小排列?
观察下表中数字排列的规律,那么字母A处应填(),B处应填()
下图中16个数字是按一定规律排列的,请找出A,B,C所表示的数字.
vb,产生10个两位随机整数,用冒泡排序法对10个数升序排列
请问VB当中当list1里的数字到list2中后按大小排列的代码该怎么写?