单项选择题

在窗体中添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下代码：
　　　　 Private Sub Command1_Click( )
Dimaarray1(10，10)As Integer
Dim i，j As Integer
For i=1 To 3
For j=2 T0 4
Array1(i，j)=i+j
Next j
Next i
Text1.Text=array1 (2，3)+array1(3，4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是

A．12
B．13
C．14
D．15

<上一题目录下一题>

热门试题

单项选择题

下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1= abcdef Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub

A．fedcba
B．abcdef
C．afbecd
D．defabc

单项选择题

单击—次命令按钮后，下列程序的执行结果是 Private Sub Command1_Click( ) S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function

A．15
B．25
C．35
D．45

相关试题