在窗体中添加一个列表框(ListBox1)和一个命令按钮，并编写如下代码： Private Sub Commandl_Click() Dim a, i, msg msg="Choose OK to add 100 items to your listbox." MsgBox msg For i＝l To 100 a="a：" &i ListAddltem a Next i End Sub 程序完成的功能是 ( )

A．本程序使用Addltem方法增加100项给一个列表框

B．本程序使用Addltem方法向一个列表框中添加100项，其内容是数字1～100

C．本程序使用Addltem方法向一个列表框中添加的内容是1～100的和

D．本程序使用Addhem方法增加100个列表框

[单选题]在窗体中添加一个列表框(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 IEnd Sub程序完成的功能是______。A．本示例使用

[单选题]在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：PrivateSubCommand1_Click()a=1.2c=Len(Str( )+Space(10))Text1.Text=cE．ndSub程序运行后，单击命令按钮，在文本框中显示( )A．3B．8C．14D．10

[单选题]在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是A．7B．15C．21D．538

[单选题]在窗体中添加一个命令按钮(名称为Commandl)，然后编写如下代码：窗体打开运行后，三次单击命令按钮后，变量b的值是（ ）。A． 1B． 2C． 3D． 4

[单选题]在窗体中添加一个命令按钮(名称为Commandl)，然后编写如下代码：窗体打开运行后，如果单击命令按钮，则消息框的输出结果为（ ）。A．)0B．)9C．)a=9D．)False

[单选题]在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。A．11B．a=11C．0D．False

[单选题]在窗体中添加一个命令按钮(名称为Command1) ，然后编写如下代码： Private Sub Command1_Click( ) A=95 If A＞60 Then I=1 If A＞70 Then I=2 If A＞80 Then I=3 If A＞90 Then I=4 MsgBox I End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A．1B．2C．3D．4

[单选题]在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=3:b=4:c=5 MsgBox a=b+c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为( )。A．0B．9C．a=9D．假

[单选题]往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItem i Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性______。A．List1. ListB．List1. ListIndexC．List1. MultiSelectD．List1. Text

[单选题]往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItemi Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性 ______。A．List1.ListB．List1.ListIndexC．List1. MultiSelectD．List1.Text