[单项选择]在窗体上画一个命令按钮(名称为Command1)，并编写如下代码：
Function Fun1 (ByVal a As Integer, b As Integer) As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1_Click（　）
Dim x As Integer
x=10
Print Fun1 (Fun1 (x, (Fun1 (x, x-1))), x-1)
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A. 10
B. 0
C. 11
D. 21

更多"在窗体上画一个命令按钮(名称为Command1)，并编写如下代码： "的相关试题:

[单项选择]在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：　　Function Fun1(ByVa1 a As Integer，b As Integer)As Integer 　　 Dim t As Integer 　　 t=a-b 　　 b=t+a 　　 Fun1=t+b 　　End Function 　　Private Sub Command1Click（　）　　Dim X As Integer 　　x=10 　　Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1) 　　End Sub 　　程序运行后，单击命令按钮，输出结果是( )。
A. 10
B. 0
C. 11
D. 21

查看答案

[单项选择]在窗体上画一个命令按钮，其名称为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=3 b=4 c=Func(a,B) Print "a="; a Print "b="; b Print "c="; c End Sub 程序运行后，单击命令按钮，其输出结果为______。
A. a=3 b=12 c=3
B. a=3 b=4 c=3
C. a=3 b=4 c=12
D. a=13 b=12 c=12

查看答案

[单项选择]在窗体上画一个命令按钮，其名称为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=3
b=4
c = Func(a, B )
Print "a="; a
Print "b="; b
Print "c="; c
End Sub
程序运行后，单击命令按钮，其输出结果为______。
A. a=3 b=12 c=3
B. a=3 b=4 c=3
C. a=3 b=4 c=12
D. a=13 b=12 c=12

查看答案

[填空题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序： 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=100 b=200 Print M(a，b) End Sub 程序运行后，单击命令按钮，输出结果为 ______。

查看答案

[填空题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer，y As Integer)
M=IIf(x＞y,x,y)
End Function
Private Sub Command1_Click（　）
Dim a As Integer, b As Integer
a=100
b=200
Print M(a,B)
End Sub
程序运行后，单击命令按钮，输出结果为【15】。

查看答案

我来回答:

提交