第1题
设有如下通用过程: Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程: Private Sub Commandl_Click() Dim arr(5)As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是______。
A. 30
B.25
C.20
D.15
第2题
设有如下通用过程: Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim arr(5)As Integer, n As Integer For i=1 To 5 art(i)=i+i Next Fun arr, n Text1. Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的内容是______。
A.30
B.25
C.20
D.15
第3题
设有如下通用过程: Public Sub Fun(a()As Integer,x As Integer) For i=1 TO 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Cliek() Dim arr(5) As Integer,n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是
A.30
B.25
C.20
D.15
第4题
设有如下通用过程: Public Sub Fun(a()As Integer,x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上绘制一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程: Private Sub Command1_Click() Dim arr(5) As Integer,n AsInteger For i=1 To 5 arr(i)=i+i Next Fun arr,n Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是()。
A.30
B.25
C.20
D.15
第5题
有如下函数过程。
Function Fun(By Val x As Integer,By Val y As Integer)As Integer
Do While y<>0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下调用函数的事件过程,该程序的运行结果是
Private Sub Command7_Click()
Dim a As Integer,b As Integer
a=100:b=25
x=Fun(a,B)
Print x
End Sub
A.0
B.25
C.50
D.100
第6题
设有如下通用过程: Public Sub Fun(a(),ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程: Private Sub Command1_Click() Dim arr(5)As Variant For i=1 To 5 arr(i)= i Next n=10 Call Fun(arr(),n) Text1.Text=n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是 ______。
A.10
B.15
C.25
D.24
第7题
有如下函数过程。 Function Fun(By Val x As Integer,By Val y As Integer) As Integer Do While y <> 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程,该程序的运行结果是 Private Sub CommandT_Click() Dim a As Integer,b As Integer a = 100:b =25 x =Fun(a,B)Print x End Sub
A.0
B.25
C.50
D.100
第8题
有如下函数过程: Function Fun(By Val x As Integer,By Val y As Integer)As Integer Do While Y<>0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程,该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer,b As Integer a=100:b=25 x=Fun(a,B) Print x End Sub
A.0
B.25
C.50
D.100
第9题
设有如下通用过程: Public Sub Fun(a(), ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim art(5)As Variant For i=1 To 5 art(i)=i Next n=10 Call Fun(art(), n) Text1. Text=n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是______。
A.10
B.15
C.25
D.24
第10题
设有如下通用过程: Public Sub Fun(a(),ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下的事件过程: Private Sub Command1_Click() Dimsn(5)As Variant For i=1 To 5 arc(i)=i Next n=10 Call Fun(arr(),n) Textl.Text=n End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是
A.10
B.15
C.25
D.24
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!