单项选择题

有如下程序： Private Sub Form_Click() Dim Check, Counter Check=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

<上一题目录下一题>

热门试题

单项选择题

设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1. Text= Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sinqle) Print 程序设计 End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print Visual Basic ; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上最示的内容是

A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计

单项选择题

假定在窗体(名称为Form1)的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上面一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim rec As animal Open c: vbTest. dat For Random As #1 Len=Len(rec) rec. animalName= Cat rec. aColor= White Put #1, , rec End Sub 则以下叙述中正确的是______。

A．记录类型animal不能在Form1中定义，必须在标准模块中定义
B．如果文件"c:\vbTes dat"不存在，则Open命令执行失败
C．由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
D．语句“Put #1, , rec”将animal类型的两个数据元素写到文件中

相关试题