单项选择题

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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text= Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为

A．abcdefg
B．不显示任何信息
C．ABCDEFG
D．出错

单项选择题

在窗体上画一个命令按钮，然后编写如下代码： Private Type Record ID As Integer Name As String *20 End Type Private Sub Command1_Click() Dim Maxsize, NextChar, MyChar Open d: temp female.txt For Input As #1 Maxsize = LOF(1) For NextChar = Maxsize To 1 Step -1 Seek #1, NextChar MyChar = Input(1, #1) Next NextChar Print EOF(I) Close 31 End Sub 程序运行后，单击命令按钮，其输出的结果为

A．True
B．False
C．0
D．Null

相关试题