运行下列程序：Dim bPrivate Sub Form_Click（)a = 1: b = 1Call fun1（a)Print "X = &quo

运行下列程序：

Dim b

Private Sub Form_Click()

a = 1: b = 1

Call fun1(a)

Print "X = "; a; ",Y = "; b

End Sub

Private Sub fun1(a)

b = 2 * a

a = 3 * b

End Sub

单击窗体后，则在窗体上显示的结果是()。

A.X = 1，Y = 1

B.X = 2，Y = 6

C.X = 6，Y = 2

D.X = 6，Y = 1

参考答案

您可能感兴趣的试题

运行下列程序，单击窗体后输出的结果是（)。Private Sub Form_Click（)Dim aDim s As Intege

答案解析
运行下列程序：Private Sub Form_Click（)Dim sum As IntegerDim i As Integersum = 0For i =12

答案解析
下列程序运行后，信息框显示的内容是（)。Private Sub Command1_Click（)Dim s1 As StringDim s2

答案解析
运行下列程序：Private Sub Command1_Click（)Dim s1 As String * 1Dim s2 As Strings1 = &quo

答案解析
运行下列程序：Private Sub Form_Click（)Dim a As Integera = 1For i = 1 To 5Call fun1（a)Ne

答案解析
（28）阅读下列程序： Private Sub Commandl_Click（) Dim i As Integer,k As Integer k=2 For i=1 T

答案解析
（14）有下列程序，程序运行后单击命令按钮，则输出的结果是 Private Sub Command1_Click（) Dim a%（1

答案解析

运行下列程序：Dim bPrivate Sub Form_Click（)a = 1: b = 1Call fun1（a)Print "X = &amp;quo