Question

关于vb的问题

我做了一个判断2、3、5、7的倍数的软件
可出现了如下问题请问怎么修改
代码：
Private Sub Command1_Click()
Dim a As Currency
a = Val(Text1.Text)
If a Mod 2 = 0 Then
Text2.Text = "Ture"
ElseIf a Mod 2 <> 0 Then
Text2.Text = "False"
ElseIf a Mod 3 = 0 Then
Text3.Text = "Ture"
ElseIf a Mod 3 <> 0 Then
Text3.Text = "False"
ElseIf a Mod 5 = 0 Then
Text4.Text = "Ture"
ElseIf a Mod 5 <> 0 Then
Text4.Text = "False"
ElseIf a Mod 7 = 0 Then
Text5.Text = "Ture"
ElseIf a Mod 7 <> 0 Then
Text5.Text = "False"
ElseIf a <= 0 Then
MsgBox "请输入正整数", vbCritical
Else
MsgBox "未知类型" & vbCrLf & "请重新输入！", vbCritical, "提示"
End If
End Sub

可它只显示2的倍数，是怎么回事

Answer 1

elseif 是并列结构，只要有一个符合就行了。所以最开始，要么是2的倍数，要么不是，就执行完了。后面的代码不执行。改成4个if end if的单独的结构就可以了

Answer 2

因为你2,3,5,7的倍数嵌套起来了，要分开看的。
If (a mod 2)=0 then
text1.text="True"

else
text1.text="False"
end if
If (a mod 3)=0 then
text2.text="True"

else
text2.text="False"
end if
If (a mod 5)=0 then
text3.text="True"

else
text3.text="False"
end if

If (a mod 7)=0 then
text4.text="True"

else
text4.text="False"
end if