【单选题】下面程序段运行结果是( ) Function fun(x As Integer, y As Integer) As Integer x = x + y If x 0 Then fun = x Else fun = y End If End Function Private Sub Command1_Click() Dim a As Integer, b As Integer a = 2: ...
【单选题】窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框,编写如下程序: Private Sub Command1_Click() Dim a As Integer a = InputBox("请输入一个数") Text1.Text = a + fun1(a) + fun1((a)) End Sub Private Function fun1(ByRef x As Integer...
【单选题】在窗体上面一个命令按钮,其名称为Command1,然后编写如下程序: Function Func(ByVal x As Integer,y As Integer) y=x*y If y>0 Then Func=x Else Func=y End If End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=...
【简答题】在窗体上面画一个命令按钮,然后编写如下程序: Function M(x As Integer,y As Integer)As Integer M=IIf(x>y,x,y) End Function Private Sub Command1_Click() Dim a As Integer,b As Integer a=1 b=2 Print M(a,B) End Sub 程序运行后,单击命令按钮,...