2. 计算机
  3. 下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。 Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2

下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。 Private Sub Command1_Click() Dim x AS Integer x=Val(Right (Text1．Text，2

admin2013-04-11  89
问题 下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。
   Private Sub Command1_Click()
   Dim x AS Integer
   x=Val(Right (Text1．Text，2))
   If x Mod 2=0 Then
        LabeCaption=“偶数”
   Else
   LabeCaption=“奇数”
   End If
   Text1．SetFocus
   End Sub
   Private Sub Text1_KeyPress(KeyAscii As Integer)
   If【  】ThenKeyAscii=0
   End Sub
选项
答案KeyAseii＜48 Or KeyAscii＞57
解析 判断一个整数的奇偶性主要看该整数是否能被2整除，在程序中，Command1_Click()事件过程主要是判断输入的整数的奇偶性，我们知道既然要在文本框中输入整数，那么文本框中能输入的应该是0～9之间的任意一个数字，而0～9的ASCII码为48～57之间，那么在这个区间外的视为非法字符，应该将当前输入字符取消，也就是设KeyAscii＝0。
转载请注明原文地址:https://www.kaotiyun.com/show/qBQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)