在窗体中先建立一个名称为label1的控件数组(它的index属性为0)，当执行以下程序段

：

PrivateSubForm_Load()

D．immtopAsInteger,mleftAsInteger,iAsInteger,jAsInteger

mtop=0

F．ori=1To8

mleft=50

F．orj=1To8

k=(i-1)*8+j

LoadLabel1(k)

Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))

Label1(k).Visible=True

Label1(k).Top=mtop

Label1(k).Left=mleft

mleft=mleft+Label1(0).Width

Nextj

mtop=mtop+Label1(0).Height

Nexti

E．ndSub

执行后的效果是( )

A．在窗体中显示16行的黑、白颜色相间的棋盘

B．在窗体中显示8行10列的黑色棋盘

C．在窗体中显示8行8列的黑、白颜色相间的棋盘

D．以上说法都不正确

[单选题]在窗体上画4个标签(如图所示)，并用这四个标签建立一个控件数组，名称为Label1(下标从0开始．自左至右顺序增大)，然后编写如下事件过程：程序运行后，单击命令按钮，四个标签框中显示的内容分别为 A．0 1 2 3B．0 2 4 6C．2 4 6 8D．出错信息

[单选题]在窗体中建立名称为command1的控件数组(index值分别为0，1，2和3)，单击它时发生如下事件：PrivateSubCommand1_Click(IndexAsInteger)Picture1.ClsSelectCaseIndexC．ase0Picture1.Print"画直线"Picture1.Line(2,2)-(7,7)C．ase1Picture1.Print"画矩形"Picture1.Line(2,2)-(7,7),,BFC．ase2Pic

[单选题]窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如下图所示。现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption="计算机等级考试" Else x.Picture=LoadPicture("piC.jpg") End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Pr

[单选题]在窗体上添加一个标签控件Label1，则执行Label1.Caption="VisualBasic"语句后，标签控件的Name和Caption属性为（）A . "Label"、"Label1"B . "Label1"、"VisualBasic"C . "Label1"、"Caption"D . "VisuaBasic"、"Label1"

[单选题]在窗体中添加一个名称为Command1的命令按钮、一个名称为Label1的标签，编写如下代码： Option Base 1 Private Sub Command1_Click( ) a=Array(23，34，25，46，35) ┊ End Sub 过程的功能是求数组a中是奇数的元素的个数，并把结果显示在标签中。为实现此功能，省略号处的程序段应该是A．For i=0 T0 4 If a(i)Mod 2＜>0 Then b=b+1 End lf Next i Label1.Caption=

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：Private x As Integer Private Sub Command1_Click()Static y As IntegerDim z As Integern = 10z = n + zy = y + zx = x + zLabel1.Caption = xLabel2.Caption = yLabel3.Caption = z End Sub运行程序后，

[单选题]当建立控件数组时，应将第一个控件数组元素的index值设为( )A．0B．1C．2D．3

[单选题]（ 21 ） 在窗体上画一个名称为List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干城市的名称 。 当单击列表框中的某个城市名时 ， 该城市名从列表框中消失 ， 并在标签中显示出来 。 下列能正确实现上述操作的程序是A． ） Private Sub List1_Click()Label1.Caption = List1.ListIndexList1.RemoveItem List1.TextE．nd SubB． ） Private Sub List1_Click()Labe

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click( ) S=0 For i=1 To 15 x=2*i-1 1fx Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是A．1B．5C．27D．45

[单选题]在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程： Private Sub Command1_Click()s = 0For i = 0 To 15X = 2 * i - 1If X Mod 3 = 0 Then s = s + 1Next iLabel1.Caption = s End Sub程序运行后，单击命令按钮，则标签中显示的内容为（）A . 1B . 5C . 27D . 45