单项选择题

标准模块中有如下程序代码：
Public x As Integer, y As Integer
Sub var_pub()
x=10:y=20
End Sub
在窗体上有一个命令按钮，并有如下事件过程：
Private Sub Command1_Click()
Dim x As Integer
Call var_pub
x=x+100:y=y+100
Print x;y
End Sub
运行程序后单击命令按钮，窗体上显示的是

A．100 100
B．100 120
C．110 100
D．110 120
<上一题 目录 下一题>
热门 试题

单项选择题
窗体的左右两端各有一条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上(如图2所示)；另有一个名称为Timer1的计时器控件，其属性值为True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序： Private Sub Timer1_Timer() For k=Line1.X1 To Line2.X1 Step 100 If Shape1.Left+Shape1.Width＜Line2.X1 Then Shape1.Left=Shape1.Left+100 End If Next k End Sub 运行程序时发现圆立即移动到右边的直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面的修改方案中正确的是
单项选择题
在窗体上画一个命令按钮，并编写如下事件过程： Private Sub Command1_Click() Dim a(3, 3) For m=1 To 3 For n=1 To 3 If n=m Or n=4-m Then a(m,n)=m+n Else a(m,n)=0 End If Print a(m,n)； Next n Print Next m End Sub 运行程序，单击命令按钮，窗体上显示的内容为
A．2 0 0
0 4 0
O 0 6
B．2 0 4
0 4 0
4 0 6
C．2 3 0
3 4 0
0 0 6
D．2 0 0
0 4 5
0 5 6
相关试题