编写VB程序,急,大家进来看看啊,很简单的啊!~

来源：百度知道 编辑：UC知道 时间：2024/05/14 04:55:47
随机产生10个数,寻求最大的能被3整除的数,如果没有则显示"无要找的数!"
例,37.70.42.44.72.58.92.52.42.11 中72就是最大的能被3整除的数.

Randomize Timer
Dim i As Integer, tmpstrA(9) As Integer, Max3 As Integer, fMax As Boolean

For i = 0 To 9
tmpstrA(i) = Fix(Rnd * 100)
Next

fMax = False

For i = 0 To 9

If (tmpstrA(i) Mod 3 = 0) And ((fMax = True And tmpstrA(i) > Max3) Or (fMax = False)) Then
Max3 = tmpstrA(i)
fMax = True
End If

Next

If fMax Then
MsgBox "最大能被3整除的数为：" & Max3
Else
MsgBox "无要找的数!"
Command1.Enabled = False
End If