网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0 To 6 List1.AddItemi Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性 ______。
A．List1.List
B．List1.ListIndex
C．List1. MultiSelect
D．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 ” 相关考题
考题
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）For i=1 To 100If i Mod 7 =0 Then________End IfNextEnd SubPrivate Sub Command1_Click（）Sum = 0For i = 0 To ________Sum = Sum + ________NextText1.Text = SumEnd Sub
考题
（ 15 ）设在窗体 Form1 上有一个列表框 List1 ，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A)Prvate Sub List1_Click()Print List1.TextEnd SubB)Private Sub Form1_Click()Print List1.TextEnd SubC)Private Sub List1_Click()Print Form1.TextEnd SubD)Private Sub Form1_Click()List1.Print List1.TextEnd Sub
考题
在窗体中添加一个命令按钮(名称为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
考题
在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Sum =0For i=3 T0 7Sum =i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。
考题
在窗体上添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()sum=0For i=1 To 100 step 2sum=sum+iNext iMsgBox sumEnd Sub打开窗体运行后，单击命令按钮，则消息框的输出结果为_______。
考题
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click()sum=0For i=1 To 100 step 2Next iMsgBox sumEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
考题
在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码： Private Sub Command1_Click() a=0:b=5:c=6 MsgBox a=b＋c End Sub 窗体打开运行后，如果单击命令按钮，则消息框的输出结果为______。A．11B．a=11C．0D．False
考题
往窗体Form1上添加一个列表框控件List1，并编写如下代码： Private Sub Form_Load() For i=0T06 Listl.AddItem i Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置Listl的属性______。A．Lial.ListB．Listl.ListlndexC．Listl.MultiSelectD．Listl.Text
考题
设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Modulel.bas。两个窗体上分别只有一个名称为Command1的命令按钮。 Forml的代码如下： Public x As Integer Privme Sub Form_Load() x=1 y=5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2的代码如下： Private Sub Command1_Click() Print Form1.x，y End Sub Modulel的代码如下： Public y As Integer 运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是( )。A．1 5B．0 5C．0 0D．程序有错
考题
往窗体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
考题
窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。 Priate Sub Form_Click() For i=0 To List1．ListCount-1 If i Mod 2=0 Then Print List1．List(i)； End If Next i End Sub Private Sub Form_Load() List1．AddItem"中国" List1．AddItem"日本" List1．AddItem"韩国" List1．AddItem"新加坡" List1．AddItem"香港" End SubA．中国韩国B．日本新加坡C．中国韩国香港D．中国日本韩国新加坡香港
考题
在窗体上添加十个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()sum＝0For i＝3 To 7sum＝i+2Next iMsgBox sum+iEnd Sub打开窗体后，单击命令按钮，消息框的输出结果是______。
考题
在窗体上画一个列表框、一个文本框及一个按钮，然后编写如下两个事件过程： Private Sub Form_Load() For i=1 To 10 List1.AddItem i * 10 Next i Text1.Text=" " End Sub Private Sub List1_Click() Print List1.Text + Text1.Text End Sub 程序运行后，在文本框中输入“123”，然后双击列表框中的第四行，则在窗体上输出的结果为A．40123B．163C．123D．30123
考题
假定窗体的名称为Form1，对该窗体编写如下代码： Private Sub Form_Load() Form1．Caption="计算机" Me．Caption="等级" Caption="考试" End Sub 程序运行后，窗体的标题是A．计算机B．等级C．考试D．Form1
考题
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Sub fun() Static a As Integer a=a+2 Print a； End Sub Private Sub Command1_Click() Dim m As Integer For m=1 To 3 Call fun Next m End SubA．2 2 2B．0 0 0C．2 4 8D．2 4 6
考题
在窗体中添加—个名称为Command1的命令按钮，然后编写如下代码： Function F(a As Integer) b=0 Static c b=b+1 C=c+1 F=a+b+c End Function Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a=2 For i=l To 3 b=F(A)Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是A．4 4 4B．4 5 6C．5 6 7D．5 5 5
考题
往窗体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
考题
在窗体中添加一个命令按钮（名称为Commandl），然后编写如下代码。 Private Sub Commandl Click（ ） a=0：b=5：c=6MsgBox a=b+cEndSub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为（ ）。A.11B.a=11C.0D.False
考题
在窗体中添加一个命令按钮，然后编写如下代码： 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
考题
在窗体中添加一个列表框(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～100C．本程序使用Addltem方法向一个列表框中添加的内容是1～100的和D．本程序使用Addhem方法增加100个列表框
考题
窗体上有一个命令按钮Command1和一个列表框List1，其中List1有0、1、2、3、4的内容，有下列程序： Private Sub Command1_Click() Dim i，s For i=0 To List1．ListCount s=s+List1．List(i) Next i Print s End Sub 程序运行后，单击命令按钮，则窗体上显示的是A．0B．10C．01234D．程序出错
考题
在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：Private Sub C1_Click()str＝"ABAABAAABABBA"For i＝6 To 2 Step-2x＝Mid(str,i,i)y＝Left(str,i)z＝Right(str,i)Next iMsgBox xyzEnd Sub单击命令按钮，则消息框的输出结果是( )。A．ABBAABB．ABBABAC．BABABAD．BAABBA
考题
在窗体上添加按钮cmd，并编写如下事件代码： Private sub crud_Click( ) For i=1 to4 x=4 For j=1 to 3 x=3 For k=1 to 2 x=x+6 Next k Next j Next i Msgbox x End sub 打开窗体，单击按钮后，消息框中显示的信息为( )。A．7B．15C．157D．538
考题
在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是：单击命令按钮后，程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意，填空处应选择Option Base 1 Dim a(100)As Integer Private Sub Command1_Click() n = 100 For i = 2 To Sqr(n) For j = i + 1 To n If j Mod i = 0 And a(j)＜＞ 0 Then a(j)= 0 Next j Next i For i = 1 To n If a(i)＜＞ 0# Then Next i End Sub Private Sub Form_Load () For i = 1 To 100 a (i)=i Next i End SubA．List1.Text=Str(a(i))+ vbCrLfB．List1.Text=Str(a(i))+ vbCrLfC．List1.AddItem a(i)D．List1.AddItem=a(i)
考题
在窗体上画一个名称为C1的命令按钮，然后编写如下事件过程： Private Sub C1 Click() a=0 n=InputBox(” ”) For i=l To n For j=1 To i a=a+1 Next j Next i Print a End Sub 程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是( )。A．5B．6C．9D．10
考题
（ 30 ）在窗体中添加一个命令按钮（名称为 Command1 ），然后编写如下代码：Private Sub Command1_Click( )a=0 : b=5 : c=6MsgBox a=b+cEnd Sub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为A ） l1B ） a=11C ） 0D ） False
考题
（ 34 ）在窗体中添加一个名称为 Command1 的命令按钮，然后编写如下事件代码：Private Sub Command1_Click( )s="ABBACDDCBA"For I=6 To 2 Step -2x=Mid(s,I,I)y=Left(s,I)z=Right(s,I)z=x y zNext IMsgBox zEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是A ） AABAABB ） ABBABAC ） BABBAD ） BBABBA
热门标签
最新试卷