Private x As Integer
Private Sub Command1_Click()
    x = Val(InputBox("请输入正整数"))
End Sub
Private Sub Command2_Click()
    'Select Case Combo1.?
        Case 0
'        MsgBox Str(x) & ?
        Case 1
    '        MsgBox Str(x) & ?
        Case Else
            Exit Sub
    End Select
End Sub
Private Function f1(ByVal x As Integer) As String
    If x \ 2 <> x / 2 Then
        f1 = "是奇数"
    Else
        f1 = "是偶数"
    End If
End Function
'Private Function f2(ByVal x As Integer) ?
'    If x Mod 7 = ?  Then
        f2 = "能被7整除"
    Else
        f2 = "不能被7整除"
    End If
End Function