试编程完成如下要求（要求使用iif函数完成）： 1〉利用文本框接收用户输入的数值，点击“判断”按钮，即

试编程完成如下要求（要求使用iif函数完成）：
1〉利用文本框接收用户输入的数值，点击“判断”按钮，即可给出相应判断结果，若该数是正数（即大于0），则结果为1，若该数不是正数（即小于等于0），则结果为0。
2〉利用文本框接收用户输入的整数值，点击“判断”按钮，即可给出相应判断结果，若该数是奇数（即不能被2整除），则结果为1，若该数是偶数（即能被2整除），则结果为0。
3〉利用文本框接收用户输入的两个数值，点击“判断”按钮，即可给出相应的判断结果，若第一个数大于第二个数，则结果为“大于”；若第一个数小于第二个数，则结果为“小于”；若第一个数等于第二个数，则结果为“等于”。

这个是VB题，怎么写程序呢？

建立一个文本框和按钮控件
Private Sub Command1_Click()
Dim a(1), i, k, f, m, j As Integer
Dim n As String
a(0) = InputBox("请输入数字:")
a(1) = InputBox("请输入数字:")
If a(0) > 0 Then
k = 1
Else
k = 0
End If
If a(1) > 0 Then
j = 1
Else
j = 0
End If
If a(0) Mod 2 = 0 Then
f = 0
Else
f = 1
End If
If a(1) Mod 2 = 0 Then
m = 0
Else
m = 1
End If
If a(0) > a(1) Then
n = "大于"
End If
If a(0) = a(1) Then
n = "等于"
End If
If a(0) < a(1) Then
n = "小于"
End If
Text1.Text = "第一个正负判断结果：" & k & "奇偶判断结果：" & f & "第二个正负判断结果：" & j & "奇偶判断结果：" & m & "大小比较结果：" & n
End Sub

搜一下：试编程完成如下要求（要求使用iif函数完成）： 1〉利用文本框接收用户输入的数值，点击“判断”按钮，即