单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 6: y = 7
Do
y = y - x
Debug. Print y;
x=x+1
Loop While x＜= 0
Print y; x
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是

A．7 9
B．34 0
C．1 7
D．死笔循环
<上一题 目录 下一题>
热门 试题

单项选择题
阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function. Private Sub Command1_Click () Dim a As Integer a= 5 s = func (
A．
Print s
End Sub
程序运行后，单击命令按钮，输出的结果为A) 80
B．60
C．70
D．15
单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer Dim sum As Integer Dim sum1 As Integer Dim a(1 To 20)，x For i = 1 To 10 a(i)=i Next i For Each x In a If x Mod 2 = 0 Then sum1=sum1+x Else sum = sum+x End If Next x Print sum；sum1 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．25 30
B．10 20
C．20 30
D．1 10
相关试题