（ 35 ）在窗体上画 2 个命令按钮，名称分别为 Command1 、 command2 ，并编写如下程序

C．onst n=5,m=4

D．im a （ m,n ）

Private Sub Command1_Click （）

K=1

F．or i=1 To m

F．or j=1 To n

a （ i,j ） =k

k=k+1

Next j

Next i

E．nd Sub

Private Sub Command2_Click （）

Summ=0

F．or i=1 To m

F．or j=1 To n

If i=1 Or i=m Then

Summ=summ+a （ i,j ）

E．lse

If j=I Or j=n Then

Summ=summ+a （ i,j ）

E．nd If

E．nd If

Next j

Next i

Print summ

E．nd Sub

过程 Command1_Click （）的作用是二维数组 a 中存放 1 个 m 行 n 列的矩阵；过程 Command2_Click （ ） 的作用是（ ）

A． ） 计算矩阵外围一圈元素的累加和

B． ） 计算矩阵除外一圈以外的所有元素的累加和

C． ） 计算矩阵第 1 列和最后一列元素的累加和

D． ） 计算矩阵第 1 行和最后一行元素的累加和

[单选题]在窗体上画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、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

[试题]在窗体上画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的命令按钮和两个名称分别为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和Text1，然后编写如下程序： Private Sub Command1_Click() a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序

[单选题]（ 20 ）在窗体上画一个命令按钮和两个标签，其名称分别为 Command1 、 Label1 和 Label2 ，然后编写如下事件过程：Private Sub Command1_Click()a = 0F．or i = 1 To 10a = a + 1b = 0F．or j = 1 To 10a = a + 1b = b + 2Next jNext iLabel1.Caption = Str(a ）Label2.Caption = Str(b ）E．nd Sub程序运行后，单击命令按钮，在标签

[试题]在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：Private Sub Command1_Click（）C．ommonDialog1.______="打开文件"C．ommonDialog1.Filter="All Files（*.*）|*.*"C．ommonDialog1.InitDir="c:/"C．ommonDialog1.ShowOpenE．nd Sub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”

[单选题]在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：D．im S1 As String, S2 As StringPrivate Sub Form_Load（）Text1. Text=””Text2. Text=””E．nd SubPrivate Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）S2=s2 & Chr（KeyCode）E．nd SubPrivat

[主观题]在窗体上画两个名称分别为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

[单选题]（ 20 ） 在窗体上画 1 个命令按钮 （ 名称为 Command1 ） 和 1 个文本框 （ 名称为 Text1 ） ， 然后编写下列事过程：Private Sub Command1_Click( )x=Val(Text1.Text)Select Case xC．ase 1,3y=x*xC．ase Is>=10,Is<=-10y=xC．ase -10 To 10y=-xE．nd SelectE．nd Sub程序运行后，在文本框中输入 3 ，然后单击命令按钮，则下列叙述中正确的是（