题目

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

提问时间：2020-11-16

答案

本人没学过 只是编程爱好者 献丑了问题1Private Sub Command1_Click()Text3 = ""Dim A1 As IntegerDim A2 As IntegerDim A3 As IntegerA1 = Text2A2 = 1 & Text2A3 = 2 & Text2AAAA = Split(Text1, " ")For Each I I...