vb计算代码,求三个数的和,求最大数减最小数

问题描述：

vb计算代码,求三个数的和,求最大数减最小数
012 013 014 015 016 017 018 019 023 024 025 026 027 028 029 034 035 036 037 038 039 045 046 047 048 049 056 057 058 059 067 068 069 078 079 089 123 124 125 126 127 128 129 134 135 136 137 138 139 145 146 147 148 149 156 157 158 159 167 168 169 178 179 189 234 235 236 237 238 239 245 246 247 248 249 256 257 258 259 267 268 269 278 279 289 345 346 347 348 349 356 357 358 359 367 368 369 378 379 389 456 457 458 459 467 468 469 478 479 489 567 568 569 578 579 589 678 679 689 789以上120组三位数字,
想建3个文本框,第一个输入以上120组数字
第二个文本框输入0-9任意一个数字,比如输入1,第三个文本框能把120组数字中,三个数的和等于1,11,21的数组挑出来,并且删除掉,只保留三个数的和不是1,11,21的数组
如果输入2,就能把三个数的和等于2,12,22的数组找出来并且删除掉,只保留和不是2,12,22的数组
vb计算问题
建3个文本框一个命令按钮
012 013 014 015 016 017 018 019 023 024 025 026 027 028 029 034 035 036 037 038 039 045 046 047 048 049 056 057 058 059 067 068 069 078 079 089 123 124 125 126 127 128 129 134 135 136 137 138 139 145 146 147 148 149 156 157 158 159 167 168 169 178 179 189 234 235 236 237 238 239 245 246 247 248 249 256 257 258 259 267 268 269 278 279 289 345 346 347 348 349 356 357 358 359 367 368 369 378 379 389 456 457 458 459 467 468 469 478 479 489 567 568 569 578 579 589 678 679 689 789
以上共120组三位数
想建3个文本框,第一个输入以上120组数字
.
第二个文本框输入0-9任意一个数字,比如输入1
第三个文本框能把120组数字中,所有三个位中的最大数减最小等于1的所有组合找出来,并删除掉,只保留最大数减最小数不等于1的所有数字组合
如果第二个文本框输入的是2,那么把所有最大数减最小数等于2的所有组合删除掉,只保留最大数减最小数不等于2的所有组合
这样的vb代码怎么写?
楼下的朋友,我说的就是上面的120组特定的数字,如,256三个数的和.
最大数减最小数就是256中6减2的结果

1个回答分类：综合 2014-09-18

问题解答：

我来补答

本人没学过只是编程爱好者献丑了
问题1
Private Sub Command1_Click()
Text3 = ""
Dim A1 As Integer
Dim A2 As Integer
Dim A3 As Integer
A1 = Text2
A2 = 1 & Text2
A3 = 2 & Text2
AAAA = Split(Text1, " ")
For Each I In AAAA
Dim B1 As Integer
Dim B2 As Integer
Dim B3 As Integer
B1 = Left(I, 1)
B2 = Mid(I, 2, 1)
B3 = Mid(I, 3, 1)
Select Case B1 + B2 + B3
Case A1
Case A2
Case A3
Case Else
Text3 = Text3 & " " & I
End Select
Next
Text3 = Mid(Text3, 2, Len(Text3))
End Sub
问题2
Private Sub Command1_Click()
Text3 = ""
Dim A1 As Integer
A1 = Text2
AAAA = Split(Text1, " ")
For Each I In AAAA
Dim B1 As Integer
Dim B2 As Integer
Dim B3 As Integer
Dim B4 As Integer
Dim B5 As Integer
B1 = Left(I, 1)
B2 = Mid(I, 2, 1)
B3 = Mid(I, 3, 1)
B4 = B1
B5 = B1
If B2 > B4 Then B4 = B2
If B3 > B4 Then B4 = B3
If B2 < B5 Then B5 = B2
If B3 < B5 Then B5 = B3
If Not (B4 - B5 = A1) Then Text3 = Text3 & " " & I
Next
Text3 = Mid(Text3, 2, Len(Text3))
End Su

展开全文阅读