单项选择题

在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, n As Integer
For j=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
<上一题 目录 下一题>
热门 试题

单项选择题
下列程序的运行结果是( )。 Private Function myfun(m, n) Do While m ＞ n Do While m＞n:m=m-n:Loop Do while n＞m:n=n-m:Loop Loop myfun=m End Function Private Sub Command1_Click() Print myfun(9, 8) End Sub
A．2
B．1
C．4
D．3
单项选择题
某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。 Private Sub Command2_Click() HScro111.Min=0 HSero111.Max=List1.ListCount HScro111.Value=0 Timer1.Interval= Timer1.Enabled=True End SubPrivate Sub Timer1_Timer() If List1.ListCount＞0 Then List1.RemoveItem 0 HScro111.Value=HScrolll.Max-List1.ListCount Else Timer1.Enabled= End If End Sub
相关试题