VB题目,用inputbox来做用输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“

Question

VB题目,用inputbox来做
用输入对话框InputBox输入一个正整数，判断其能否同时被5和17整除，如能则用标签输出“xxx能同时被5和17整除”，否则输出“xxx不能同时被5和17整除”。其中，标签中的“xxx”应显示为实际输入的数据。

Answer 1

Private Sub Form_Load()
Me.Show
a = InputBox("Input", "input")
If (a Mod 5) = 0 Then
    If (a Mod 17) = 0 Then
        Label1.Caption = a & "能同时被5和17整除"
    Else
        Label1.Caption = a & "不能同时被5和17整除"
    End If
Else
        Label1.Caption = a & "不能同时被5和17整除"
End If
End Sub