UC知道vb编程小问题》》数字筛选
来源：百度知道 编辑：UC知道 时间：2024/06/27 07:52:40
第二步，求abc平均数，剩余7个数中选择大于平均数的数，并且选出奇数
第三步， abc三个数至少有两个数相同，选择这个号输出。
abc是三个文本框人工随机填入的数。第三步， abc三个数如果至少有两个数相同，选择这个号输出。 我用的是vs2005,二楼的我能看懂，但有点问题，我正在修改。三楼的能不能简化一下。
先占楼，现在用手机上的，回家后给你解答～
----------------------------------------------------------------------
唉~终于回家了,学习真累人呀~好了废话不说,先贴代码,我将123步全写进代码了:
注释都比较详尽,相信你能看懂,如果觉得不完美,请提出,我会继续修改的...
'在窗体上添加3个文本输入框和一个按钮,名字默认
Option Explicit
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim Average As Integer '平均数
Dim i As Integer '循环计数器
Dim OddNum As Integer '判断共有多少个奇数的变量
Dim Odd(1 To 5) As Integer ' 装奇数的数组
Dim Num(1 To 7) As Integer '装剩下的7个数的数组
Dim iNum As Integer '为Num的辅助变量
Private Sub Command1_Click()
A = Int(Text1.Text)
B = Int(Text2.Text)
C = Int(Text3.Text)
If MsgABC = True Then
Call MsgABC
Exit Sub
End If
Average = (A + B + C) / 3
For i = 0 To 9
If i <> A And i <> B And i <> C Then
iNum = iNum + 1
Num(iNum) = i
If i > Average Then
If TFODD(i) = True The