Question

vb编程 1 已知三个数abc（用随机数产生）找出其中最大值 2输入一个整数，判断它能否被3，5,7整除

用vb编程解决

Answer 1

Private Sub Command1_Click()
Dim a, b, c As Integer
Dim max
Randomize
a = Int(900 * Rnd + 100)
b = Int(900 * Rnd + 100)
c = Int(900 * Rnd + 100)
Print a, b, c
max = a
If b > max Then max = b
If c > max Then max = c
Print "最大数是"; max
End Sub

Private Sub Command1_Click()
Dim a As Integer
a = Val(InputBox("输入一个整数"))
If a Mod 3 = 0 And a Mod 5 = 0 And a Mod 7 = 0 Then
MsgBox a & "能够被3、5、7整除"
Else
MsgBox a & "不能被3、5、7整除"
End If
End Sub