问题描述:
[填空]
下列程序段实现的功能为:在文本框中输入一个整数,然后判断该整数的奇偶性。请完成相应的程序代码。 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
参考答案:查看无
答案解析:无
☆收藏
答案解析:无
☆收藏
- 我要回答: 网友(3.133.134.54)
- 热门题目: 1.数据报项和填充域使得IP数据 2.在80x86CPU的引脚中, 3.某窗体中有一命令按钮,在窗体