vb新手问个问题

来源：百度知道编辑：UC知道时间：2024/05/28 11:39:10

Dim x As String
x = Val(tb1.Text)
If x Mod 2 = 0 Then
lb1.Text = "偶数"
End If
If x Mod 2 <> 0 Then
lb1.Text = "奇数"
End If
If x = 0 Then
lb1.Text = "既不是偶数也不是奇数"
End If

怎么把这串代码用 elseif 简写?

If x Mod 2 = 0 Then
lb1.Text = "偶数"

ElseIf x Mod 2 <> 0 Then
lb1.Text = "奇数"
End If

If x = 0 Then
lb1.Text = "0既不是偶数也不是奇数"
End If

我改了代码成这样,但是判断是否奇数时却没反应.
高手教一下啊!

Dim x As String
x = Val(tb1.Text)
If x = 0 Then
lb1.Text = "既不是偶数也不是奇数"
else
If x Mod 2 = 0 Then
lb1.Text = "偶数"
else
lb1.Text = "奇数"
End If
End If

if x=0 then
lb1.text="0既不是偶数也不是奇数"
elseif x<>0 then
if x mod 2=0 then
lb1.Text = "偶数"
elseif x mod 2<>0 then
lb1.text="奇数"
end if
end if

我是vb新手，问个问题新手问个问题！问个新手问题～新手问个代理服务器问题！ flash新手问个问题知道新手问个问题新手问个股票问题？问个新手JAVA问题问个新手的问题新手问个火星问题。。。