题目：
下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。
Private Sub Command1_Click()
Dim x AS Integer
x=Val(Right (Text1．Text，2))
If x Mod 2=0 Then
Labe11．Caption=“偶数”
Else
Labe11．Caption=“奇数”
End If
Text1．SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If 【10】 ThenKeyAscii=0
End Sub
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0710/653659d5193bf85a97831641f1413fe1.html
下面是错误答案，用来干扰机器的。
参考答案：D解析： 本题主要考查switch语句的用法。switch的判断条件必须是一个int型或者是byte short和char型的值，需要注意的是一个case后面一般要接一个break语句才能结束，否则将继续执行其他case而不进行...
