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

admin2013-04-11 54

问题下列程序段实现的功能为：在文本框中输入一个整数，然后判断该整数的奇偶性。请完成相应的程序代码。
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://kaotiyun.com/show/qBQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

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

二级VB

NCRE全国计算机二级

注意：下面出现的“考生文件夹”均为C:\wexam\25160002。在考生文件夹下有一个工程文件sjt5.vbp在名称为Form1的窗体上画一个文本框，名称为Text1，允许多行显示：再画3个命令按钮，名称分别为C1、C2和C3，标题分别为“输入

在窗体上创建两个单选按钮，名称分别为Option1和Option2，标题分别为“100到300之间的质数”和“200到400之间的质数”，以及一个文本框，名称为Text1。在窗体上创建两个命令按钮，名称分别为Command1和Command2，标题分别为

机体排泄器官有()

氢氯噻嗪选择性分布在

垄断企业能够成为价格的制定者，原因是垄断企业生产了该行业的全部产品。()

皮影戏的发源地是()。

试列举几种需要进行分类讨论的题型．

下列我们日常生产生活所需的产品中，不属于发酵工程产品的是()。

China’semploymentandre-employmentsituationremainstoughwithasurgethisyearinthenumberofgraduateshittingthejobm

Hewillbesadwhenhe______thebadnews.

WhichofthefollowingisafeatureoftheoldFrenchwayoflife?Whatdoesthepassagemainlytalkabout?

A、Itactuallydoesmoreharmthangood.B、Itcausesdamagetosomeorgansofourbody.C、Itworksbetterwhencombinedwithothe