如下事件：
PrivateSubCommand1_Click(IndexAsInteger)
Picture1.Cls
SelectCaseIndex
C．ase0
Picture1.Print"画直线"
Picture1.Line(2,2)-(7,7)
C．ase1
Picture1.Print"画矩形"
Picture1.Line(2,2)-(7,7),,BF
C．ase2
Picture1.Print"画圆"
Picture1.Circle(4.5, 4.5),3.5,,,,1.4
C．aseElse
E．nd
E．ndSelect
E．ndSub
当选择index=2的按钮时，在图片框picture1中显示( )
A．"画直线"文字和一条直线
B．"画矩形"文字和一个矩形
C．"画圆"文字和一个椭圆
D．程序运行结束
[试题]在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：F．unction Fun（x As Integer,ByVal y As Integer）As Integerx=x+yIf x<0 ThenF．un=xE．lseF．un=yE．nd IfE．nd FunctionPrivate Sub Command1_Click（）D．im a As Integer,b As Integera=-10：b=5Text1.Text=
[主观题]在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。Option Base 1D．im a（3,2）As IntegerPrivate Sub Command1_Click（）F．or i = 1 To 3F．or j = 1 To 2________ = i + jNext jNext iE
[单选题]（ 35 ）在窗体上画 2 个命令按钮，名称分别为 Command1 、 command2 ，并编写如下程序C．onst n=5,m=4D．im a （ m,n ）Private Sub Command1_Click （）K=1F．or i=1 To mF．or j=1 To na （ i,j ） =kk=k+1Next jNext iE．nd SubPrivate Sub Command2_Click （）Summ=0F．or i=1 To mF．or j=1 To nIf i=1 Or i=
[单选题]在窗体中先建立一个名称为label1的控件数组(它的index属性为0)，当执行以下程序段：PrivateSubForm_Load()D．immtopAsInteger,mleftAsInteger,iAsInteger,jAsIntegermtop=0F．ori=1To8mleft=50F．orj=1To8k=(i-1)*8+jLoadLabel1(k)Label1(k).BackColor=IIf((i+j)Mod2=0,QBColor(0),QBColor(15))Label1(k).Vi
[单选题]在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序C．onst n=5,m=4D．im a（m,n）Private Sub Command1_Click（）K=1F．or i=1 To mF．or j=1 To na（i,j）=kk=k+1Next jNext iPrivate Sub Command2_Click（）Summ=0F．or i=1 To mF．or j=1 To nIf i=1 Or i=m ThenSumm=summ+a（i,j）E．lseIf
[单选题]在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： PrivateSubCommand1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本眶Text1中输入10，然后单击命令按钮，则在Text2中显示
[单选题]在窗体上画两个命令按钮，名称分别为Command1、Command2，并编写如下程序 Const n=5,m=4 Dim a(m,n) Private Sub Command1_Click() k=1 For i=1 To m Forj=1 To n a(i,j)=k k=k+1 Next j Next i End Sub Private Sub Command2_Click() summ=0 For i=1 Tom For j=1 To n If i=1 Or i=m Then summ=su
[单选题]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签，然后编写如下代码： Private x AS Integer Private Sub Command1_Click( ) Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x LabelCaption=y LabelCaption=z End Sub 运行程序，连续三次单击命令按钮后，则三
[单选题]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中
[单选题]在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码： Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 运行程序，连续三次单击命令按钮后