单项选择题

在窗体上画—个名称为Text1的文本框和—个名为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+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

<上一题目录下一题>

热门试题

单项选择题

在窗体上有两个名称分别为Text1、Text2的文本框，—个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明： Private Type Person name As String*8 major As String*20 End Type Dim p As Person 设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是______。

A．Open "c:\Test2.dat" For Output As #1 Put #1,1,p Close #1
B．Open "c:\Test2.dat" For Random As #1 Get #1, 1, p Close #1
C．Open "c:\Test2.dat" For Random As #1 ten=ten( Put #1,1,p Close #1
D．Open "c:\Test2.dat" For Random As #1 Len=Len( Get #1, 1, p Close #1

单项选择题

在窗体上画—个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim I, Num Randomize Do For I=1 To 1000 Num=Int(Rnd*100) Print Num； Select Case Num Case 12 Exit For Case 58 Exit Do Case 65,68,92 End End Select Next I Loop End Sub 上述事件过程执行后，下列描述中正确的是______。

A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束

相关试题