单项选择题

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：
Private Sub Command1_Click()
Dim X As Integer, Y As Integer
X=5
Y=3
Call proc(X,Y)
Label1.Caption=X
Label2.Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是

A．25和3
B．5和3
C．25和6
D．5和6

<上一题目录下一题>

热门试题

单项选择题

某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k=2 To 10 If a(k)＞a(max) Then max=k End If Next k MaxValue=max End Function 程序运行时，发现函数过程的返回值是错的，需要修改。下面的修改方案中正确的是

A．语句max=1应改为max=a(1)
B．语句For k=2 To 10应改为For k=1 To 10
C．If语句中的条件a(k)＞a(max)应改为a(k)＞max
D．语句MaxValue=max应改为MaxValue=a(max)

单项选择题

现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If X＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是

A．38
B．49
C．61
D．70

相关试题