UC知道VB 鸡兔同笼
来源：百度知道 编辑：UC知道 时间：2024/05/16 00:21:55
我用VB编的一个鸡兔同笼的代码，但是运行的时候，它说"Else 没有 If"。这是怎么回事呢？请高手帮我看看错在哪里。万分感谢！
Private Sub Command1_Click()
m = Val(Text1)
n = Val(Text2)
Dim x!, y!
y = n / 2 - m
x = 2 * m - (n / 2)
If x >= 0 And (x Mod 1) = 0 And y >= 0 And (y Mod 1) = 0 Then Text3 = x And Text4 = y
ElseIf x < 0 Or (x Mod 1) <> 0 Or y < 0 Or (y Mod 1) <> 0 Then InputBox ("出错")
End If
Private Sub Command1_Click()
m = Val(Text1)
n = Val(Text2)
Dim x!, y!
y = n / 2 - m
x = 2 * m - (n / 2)
If x >= 0 And (x Mod 1) = 0 And y >= 0 And (y Mod 1) = 0 Then Text3 = x And Text4 = y
ElseIf x < 0 Or (x Mod 1) <> 0 Or y < 0 Or (y Mod 1) <> 0 Then InputBox ("出错")
End If
if语句你换下行
把
If x >= 0 And (x Mod 1) = 0 And y >= 0 And (y Mod 1) = 0 Then Text3 = x And Text4 = y
ElseIf x < 0 Or (x Mod 1) <> 0 Or y < 0 Or (y Mod 1) <> 0 Then InputBox ("出错")
End If
改成
If x >= 0 And (x Mod 1) = 0 And y >= 0 And (y Mod 1) = 0 Then
Text3 = x And Text4 = y
ElseIf x < 0 Or (x Mod 1) <> 0 Or y < 0 Or (y Mod 1) <> 0 Then
InputBox ("出错")
End If
Private Sub Command1_Click()
m = Val(Text1)
n = Val(Text2)
Dim x!, y!
y = n / 2 - m
x = 2 * m - (n / 2)
If x >= 0 And (x Mod 1) = 0 And y >= 0 And (y Mod 1) = 0 Then Text3 = x And Text4 = y
If x < 0 Or (x Mod 1) <> 0 Or y < 0 Or (y Mod 1) <> 0 Then InputBox ("出错")