单项选择题

在窗体上画一个命令按钮(名称为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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序： Private Sub rune(L AS Labe1) L．Caption= 1234 End Sub Private Sub Form Load() Labe11．Caption= ABCDE Labe12．Caption=10 End Sub Private Sub Command1Click() a=Va1(Label2．Caption) Call func(Label1) Label2．Caption a End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为( )。

A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10

单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写下列代码： Option Base 0 Private Sub Command1 Click() Dim A1(4)As Integer，A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(”请输入一个整数”) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为( )。

A．0
B．1
C．2
D．3

相关试题