题库 高中信息
题干
应用实例：判断一个数是否为偶数，如果在文本框te1中输入一个数，在标签Label1中直接出现相应的判断结果。在程序处完成以下3处填空
Private Sub ①
Dim a As Integer
a=Val(Te1.Text)
Label1.Caption = ②
End Sub
Function ou(i as integer) As ③
If i Mod 2 =" 0" Then
ou = "该数为偶数！"
Else
ou = "该数为奇数！"
End If
End Function
Private Sub ①
Dim a As Integer
a=Val(Te1.Text)
Label1.Caption = ②
End Sub
Function ou(i as integer) As ③
If i Mod 2 =" 0" Then
ou = "该数为偶数！"
Else
ou = "该数为奇数！"
End If
End Function
答案(点此获取答案解析）
相关知识点