在窗体上画一个命令按钮(Commdna1)和一个文本框(Text1), 然后编写如下程序：
Function fun (ByVal x As Integer, ByVal y As Integer) As Integer
fun = Iif (xEnd Function
Private Sub Command1_Click( )
　　 a = 5 : b = 10
Text1.Text = Str(fun(a, b))
End Sub

自考考试 成人高考 远程教育 研究生考试 英语类 外语类 大学本科考试 大学专科考试 继续教育类 大学考试 学历类