单项选择题

某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。
Private Sub Command2_Click() HScroll1.Min=0 HScroll1.Max=List1.ListCount HScroll1.Value=0 Timer1.Interval= Timer1.Enabled=True End Sub Private Sub Timer1_Timern If List1.ListCount＞0 Then List1.RemoveItem 0 HScroll1.Value=HScroll1.Max--Listl.ListCount Else Timer1.Enabled= MsgBox"全部删除!" End If End Sub

A．100 False
B．0.1 True
C．100 True
D．0.1 False

<上一题目录下一题>

热门试题

单项选择题

下列程序的功能是：调用字体对话框来设置文本框中的字体，单击Command1按钮弹出对话框，进行相应的字体、字号等的设置，然后单击。“确定”按钮退出对话框，则将发生哪些变化( )。 Private Sub Command1_Click() CommonDialogl.CancelError=True CommonDialogl.Flags=3 On Error Resume Next CommonDialogl.ShowFont Textl.Font.Name=CommonDialogl.FontName Textl.Font.Size=CommonDialogl.FontSize Textl.Font.Bold=CommonDialogl.FontBold Textl.Font.Italic=CommonDialogl.FontItalic Textl.Font.Underline=CommonDialogl.FontUnderline Textl.FontStrikethru=CommonDialogl.FontStrikethru Textl.ForeColor=CommonDialogl.Color End Sub

A．Text1的字体不发生变化
B．Text1的字体发生变化
C．Text1的字体和颜色发生变化
D．程序出错

单项选择题

在窗体上有文本框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

相关试题