作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 14:05:11
vb编程 1 已知三个数abc(用随机数产生)找出其中最大值 2输入一个整数,判断它能否被3,5,7整除
用vb编程解决
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 Su