网友您好, 请在下方输入框内输入要搜索的题目:

题目内容 (请给出正确答案)

往窗体Form1上励口—个列表框控件List1,并编写如下代码: Private Sub Form_Load() For i=0 To 6 List1.AddItem i 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.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=0T06 Listl.AddItem i Next i End Sub 为了在程序运行时,按住Ctrl键单击列表中的项目可以选中多个项目,可以设置Listl的属性______。A.Lial.ListB.Listl.ListlndexC.Listl.MultiSelectD.Listl.Text

考题 在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为ComTest1。设窗体Form1标题为“MyForm1”.双击控件数组中的第3个按钮,打开代码编辑器,编写如下代码: Privae Sub ComTest 1_Click(Index As Integer) Form1.Caption=”MyForm2” End Sub 运行时,单击按钮数组中的第1个按钮,则窗体标题显示为( )。A. Form1B. ComTest1C. MyForm1D. MyForm2

考题 往窗体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

考题 程序代码如下,当单击窗体上的Command1控件时,在窗体上输出的结果是( )。 Private Sub Command1_Click() Dim aa(3,3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i,j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i,1) Next i Print s End SubA.32B.28C.30D.36

考题 在名为Form1的窗体上绘制一个列表框,其名称为List1;一个水平滚动条,其名称为 HS1,smallChange属性为2,LargeChange属性为10,Min属性为0,Max属性为100。编写适当的事件过程,使程序运行后,若把滚动框滚到某个位置,然后单击窗体,则在列表框中添加一个项目,其内容是“××”,其中××是滚动框所在的位置,如下图所示。注意:程序中不要使用变量:文件必须存放在考生文件夹中,工程文件名为execise97.vbp,窗体文件名为execise97.frm。

考题 程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是( )。 Private Sub Command1_Click() Dim i As Integer,a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5);a(8) End SubA.2 5 8B.7 4 1C.8 5 2D.3 6 9

考题 窗体上有一个命令按钮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.程序出错

考题 程序代码如下,当单击窗体上的Command1控件时,窗体上输出的结果是( )。 Private Sub Command1_Click() Dim Y As Integer,I As Integer Dim A(7)As Integer Y=18:I=0 Do A(I)=Y Mod 2 I=I+1 Y=Y\2 Loop Until Y<1 For j=I-1 To 0 Step-1 Print A(j); Next j End SubA.1 0 0 0B.1 0 0 1 0C.0 0 1 1 0D.1 0 1 0 0