Private Sub Command1_Click() x=InputBox('请输入整数') a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
B.
Private Sub Command1_Click() x=InputBox('请输入整数') a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End Function
C.
Private Sub Command1_Click() x=InputBox('请输入整数') F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End Function
D.
Private Sub Command1_Click() x=InputBox('请输入整数') F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
Private Sub Command1_Click() x=InputBox('请输入整数') a=F1(Val(x)) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Funcfion
B.
Privae Sub Command1_Click() x=InputBox('请输入整数') a=F1(Val(x)) print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function
C.
Private Sub Command1_Click() x=InputBox('请输入整数') F1(Va(x)) Print a End Sub Function F1(byRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Funcfion
D.
Private Sub Command1_Click() x=InputBox('请输入整数') F1(Val(x)) Print a End Sub Function F1(ByrRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
Private Sub Command1_Click( ) x=Input Box('请输入整数') a=F1(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) If b Mod2=0 Then Return0 Else Return 1 End lf
B.
Private Sub Command1_Click( ) x=Input Box(“请输入整数”) a=Fl(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) lf b Mod 2=0 Then Fl=0 Else Fl=1 End lf End Function
C.
Private Sub Command1 Click() x= Input Box(“请输入整数”) F1(Val(x)) Print a Enb Sub Function Fl(ByRef b As Integer) If b Mod2=0 Then Fl=1 Else Fl=0 End lf End Function
D.
Private Sub Command1_Click( ) x=Input Box(“请输入整数”) F1(Val(x)) Print a End Sub Function Fl(ByRef b As Integer) lf b Mod2=0 Then Return 0 E