问题描述:
[填空]
下列程序段实现的功能为:在文本框中输入一个整数,然后判断该整数的奇偶性。请完成相应的程序代码。 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
参考答案:查看无
答案解析:无
☆收藏
答案解析:无
☆收藏
- 我要回答: 网友(216.73.216.29)
- 热门题目: 1.线程是一个()级的实体,线程 2.7>6Imp7> 3.三种循环结构分别为:whil
