问题描述:
[填空]
下列程序段实现的功能为:在文本框中输入一个整数,然后判断该整数的奇偶性。请完成相应的程序代码。 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
参考答案:查看无
答案解析:无
☆收藏
答案解析:无
☆收藏
- 我要回答: 网友(18.118.10.75)
- 热门题目: 1.在关系数据库中,用表示实体之 2.表有自己的属性、事件和 3.以下有关菜组成成分的论述正确