往窗体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.AddItem i Next i End Sub 为了在程序运行时，按住Ctrl键单击列表中的项目可以选中多个项目，可以设置List1的属性 ______。

A．List1.List

B．List1.ListIndex

C．List1.MultiSelect

D．List1.Text

相似考题

1.往窗体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

2.往窗体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

3.往窗体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

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

参考答案和解析
正确答案：C
解析：Load事件是在窗体被装入工作区时触发的事件。当应用程序启动时，自动执行该事件，所以该事件通常用来在启动应用时对属性和变量进行初始化。而MouseDown、MouseUp是鼠标指针在某个对象上按键时激发的，Click是鼠标单击时激发的。
更多“往窗体Form1上励口—个列表框控件List1,并编写如下代码:Private Sub Form_Load() For i=0 To 6 Li ”相关问题

  • 第1题：

    程序代码如下，当单击窗体上的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 Sub

    A．32

    B．28

    C．30

    D．36


    正确答案：A
    解析：当发生Command1_click事件时，将定义一个4行4列的数组aa(数组下标从0开始)，然后通过一个两层For循环给它的各个元素赋值，赋值规律是给每一个元素赋它的行下标值乘以4，再加上列下标值再加1。然后通过一个For循环把数组元素aa(0，1)、aa(1，1)、aa(2，1)和aa(3，1)的值2、6、10、14加到s中，s的值为32。

  • 第2题：

    程序代码如下，当单击窗体上的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 Sub

    A．2 5 8

    B．7 4 1

    C．8 5 2

    D．3 6 9


    正确答案：C
    解析：本题首先定义了一个一维数组a，它具有10个元素，分别是a(0)～a(9)。然后通过一个For循环给它的各个元素赋值，赋值规律是“10-元素下标”，赋值过后，元素a(0)～a(9)的值依次是10～1。最后输出的a(2)、a(5)和a(8)的值分别是852。

  • 第3题：

    程序代码如下，当单击窗体上的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 Sub

    A．1 0 0 0

    B．1 0 0 1 0

    C．0 0 1 1 0

    D．1 0 1 0 0


    正确答案：B
    解析：程序中Do-Loop循环的执行过程是：第一次I=0，Y=18，把YMod2的值0存入a(0)，I加1使I值变成1，Y\2存入Y，从而使Y变成9，Y为9不小于1，依旧循环：第二次I=1，Y=9，把YMod2的值1存入a(1)，i加1变成2，Y\2存入Y，从而使Y变成4，Y为4不小于1，依旧循环：第三次I=2，Y=4，把YMod2的值0存入a(2)，i值加1变成3，Y\2存入Y，从而使Y变成2，Y为2不小于1，依旧循环；第四次I=3，Y=2，把YMod2的值0存入a(3)，i值加1变成4，Y\2存入Y，从而使Y变成1，Y为1不小于1，依旧循环：第五次I=4，Y=1，把YMod2的值1存入a(4)，i值的加1变成5，Y/2存入Y，从而使Y变成0，Y为0小于1，循环退出。再通过For循环从a(4)到a(0)输出数组元素，结果是“10010”。

  • 第4题：

    在名为Form1的窗体上绘制一个列表框，其名称为List1；一个水平滚动条，其名称为 HS1，smallChange属性为2，LargeChange属性为10，Min属性为0，Max属性为100。编写适当的事件过程，使程序运行后，若把滚动框滚到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“××”，其中××是滚动框所在的位置，如下图所示。

    注意：

    程序中不要使用变量：文件必须存放在考生文件夹中，工程文件名为execise97.vbp，窗体文件名为execise97.frm。


    正确答案：

  • 第5题：

    窗体上有一个命令按钮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．0

    B．10

    C．01234

    D．程序出错


    正确答案：C
    解析：ListCount属性返回控件列表部分项目的个数。要对列表框中的每个项目都能进行处理，必须要用到List(Index)属性，而该属性的下标值是从0开始的。变量s为变体型变量，List属性内的内容是字符型的，所以加号(+)起到了连接作用。上述程序运行的结果只是将列表框中的内容连接起来。选项C是正确的。

相关内容