题目内容
（请给出正确答案）
程序段如下，当发生Form_Click事件时，窗体上输出的结果是()。 Option Explicit Private x As Integer Public y As Integer Sub Test() Dim y as integer x=2：y=2 Print"x1=";x;"y1=";y End Sub Private Sub Form_Click() x=1：y=1 Test Print "X2="；x；"y2="；y End Sub
A．x1=2 y1=2 x2=2 y2=1
B．x1=2 y1=2 x2=2 y2=2
C．x1=2 y1=1 x2=2 y2=2
D．x1=2 y1=1 x2=2 y2=1
如果结果不匹配，请 联系老师 获取答案
更多“程序段如下，当发生Form_Click事件时，窗体上输出的结…”相关的问题
A.2
B.3
C.4
D.5
当发生Form_Click事件时，下列程序的输出结果是()。 Private m As Integer,n As Integer Private Sub Form_Click() Dim k As Integer，p As Integer k=6：p=60 Call sub1(k,p) Print m,n,m,k,p Call sub1(k,p) Print m,n,k,p End Sub Private Sub Form_Load() m=7 n=70 End Sub Public Sub sub1(x As Integer,ByVal y As Integer) Dim m As Integer n=n+5 m=n+x+y x=x+y y=x+y End Sub
A．7 75 66 60 7 80 126 60
B．7 75 66 60 7 75 126 60
C．7 75 66 60 7 80 66 60
D．7 75 66 60 7 75 66 60
设有如下程序：
Private Sub Form_Click()
Dim i As Integer，x As String,Y As String
x=”ABCDEFG”
For i=4 To 1 Step-1
y=Mid(x，i，i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为
A．ABCCDEDEFG
B．AABBCDEFG
C．ABCDEFG
D．AABBCCDDEEFFGG
有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
A．12
B．30
C．24
D．18
有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为
A．12
B．30
C．24
D．18
9）设有如下程序：
Private Sub Form_Click()
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
有如下程序:
Private Sub Form_Click()
Dim i As Integer, Sum As Integer
Sum=0
For i=2 To 10
If i Mod 2＜＞0 And i Mod 3=0 Then
Sum=Sum+i
End If
Next
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
A．12
B．30
C．24
D．18
有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=True Counter=0 Do Do While Counter＜20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为______。
A．15 0
B．20 -1
C．10 True
D．10 False
假定有如下的窗体事件过程： Private Sub Form_Click() a$="Microsoft Visual Basic" b$=Right(a$，5) c$=Mid(a$，1，9) MsgBoxa$，34，b$，c$，5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是()。
A．Microsoft Visual
B．Microsoft
C．Basic
D．5
在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Click()
Textl.Text="VB程序设计"
End Sub
Private Sub Textl_Change()
Picturel.Print"VB programming"
End Sub
程序运行后，单击窗体，则在文本框中显示的内容是【 】，而在图片框中显示的内容是【 】。
