单项选择题

在窗体中添加一个列表框(listBox1)和一个命令按钮，并编写如下代码：
Private Sub Command1_ Click()
Dim Entry, I, Msg
Msg = "Choose Ok to add 100 items to your list box."
MsgBox Msg
for I = 1 To 100
Entry = "Entry" & I
List1. AddItem Entry
Next I
End Sub
程序完成的功能是______。

A．本示例使用AddItem方法增加100项给一个列表框
B．本示例使用AddItem方法向一个列表框中添加的内容是1～100的列
C．本示例使用AddItem方法向一个列表框中添加的内容是1～100的和
D．本示例使用AddItem方法增加101项给一个列表框
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上画一个命令按钮，然后编写如下代码：Private Type Record ID As Integer Name As String * 20End TypePrivate Sub command1 _ Click( Open c: file. txt for Input As MaxSize = LOF (1) for NextChar =MaxSize To Step-1 Seek #1, NextChar MyChar=Input(1，#1) Next NextChar Print EOF(1) Close #1 End Sub程序运行后，单击命令按钮，其输出结果为______。
A．True
B．False
C．0
D．Null
单项选择题
有过程如下：Sub fact (m As Integer, total As Long) Dim i As Integer total = 1 for i = 1 To m total = total*i Next iEnd Sub调用它的事件过程如下：Private Sub Command1_ Click () Dim tot As Long Dim a As Integer a = Val InputBox (“请输入数据”)) Call fact (a, tot) Print totEnd Sub则输入数据5，运行结果为 ______。
A．100
B．120
C．200
D．50
相关试题