[填空題] 下列程序段實(shí)現(xiàn)的功能為：在文本框中輸入一個(gè)整數(shù)，然后判斷該整數(shù)的奇偶性。請(qǐng)完成相應(yīng)的程序代碼。 Private Sub Command1_Clic
2021-07-20
[填空題] 下列程序段實(shí)現(xiàn)的功能為：在文本框中輸入一個(gè)整數(shù)，然后判斷該整數(shù)的奇偶性。請(qǐng)完成相應(yīng)的程序代碼。
Private Sub Command1_Click()
Dim x AS Integer
x=Val(Right (Text1．Text，2))
If x Mod 2=0 Then
Labe11．Caption=“偶數(shù)”
Else
Labe11．Caption=“奇數(shù)”
End If
Text1．SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If 【10】 ThenKeyAscii=0
End Sub
正確答案：[10]KeyAseii＜48 Or KeyAscii＞57
參考解析：判斷一個(gè)整數(shù)的奇偶性主要看該整數(shù)是否能被2整除，在程序中，Command1_Click()事件過程主要是判斷輸入的整數(shù)的奇偶性，我們知道既然要在文本框中輸入整數(shù)，那么文本框中能輸入的應(yīng)該是0～9之間的任意一個(gè)數(shù)字，而0～9的ASCII碼為48～57之間，那么在這個(gè)區(qū)間外的視為非法字符，應(yīng)該將當(dāng)前輸入字符取消，也就是設(shè)KeyAscii＝0。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。