单项选择题

在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For i=0 To 50
i=j+3
n=n+1
If i＞10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的是( )。

A．2
B．3
C．4
D．5

<上一题目录下一题>

热门试题

单项选择题

在窗体上有一个名称为Command1的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Dim rec As animal Open c: vbTest.dat For Random As #1 Len=Len(ree) rec.animalName= cat rec.aColor= White Put #1,,rec Close #1 End Sub 记录类型定义如下： Private Type animal animalName As String*20 aColor As String*10 End Type 下列叙述中正确的是( )。

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

单项选择题

在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) Text1.Text=String(6,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为( )。

A．a
B．A
C．aaaaaa
D．AAAAAA

相关试题