单项选择题

在窗体上画一个名称为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) 死笔循环

<上一题目录下一题>

热门试题

单项选择题

执行下面的程序后，输出的结果是 K=1 For j=1 To 4 X=X - 1: y=0 For k=1 To 4 X=X + 1: y=y + 1 Next k Next j Print X；yA) 1 4 B) 13 4C) 12 8 D) 20 6

单项选择题

窗体上有1个名为List1的列表框，其中已经输入了若干个项目(如图所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str= For k=List1.ListCount-1 To 0 Step-1 If InStr(List1.List(k),s)＞0 Then str=str & List1.List(k)& End If Next k If str= Then Text2= 没有匹配项目 Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是( )。

A) 京
B) 北京南京
C) 南京北京 D) 没有匹配的项目

相关试题