Question

VB中输入一个正整数，编写程序判断该数是奇数还是偶数，界面如下：

label1是输入一个正整数，一个文本框，一个命令按钮，用处是判断，判断结果放在label2中显示

Answer 1

Private Sub Command1_Click() Dim n As Long n = Val(Text1.Text) If n Mod 2 = 0 Then Label2.Caption = "是偶数" Else Label2.Caption = "是奇数" End If End Sub

希望采纳