下事件过程:
Private Sub Co mmand1_Click()
Di marray1(10,10)As Integer
Di mi ,j As Integer
For i =1To 3
For j=2To 4
array1(i ,j)=i +j
Next j
Next i
Text1.Text =array1(2,3)+array1(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是( )。
发布于 2022-05-11 10:00:29
登录后免费查看答案
关注者
0
被浏览
13
1 个回答
推荐阅读
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim array1(10,10) As IntegerDim i,j As IntegerFor i=1 To 3For j=2 To 4array1(i,j)=i+jNext jNext IText1.Text=array1(2,3)+array1(3,4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是
2022-05-11 关注 0 浏览10 1答案
-
在窗体上画一个名称为Label1的标签,然后编写如下事件过程:Private Sub Form_Click()Di marr(10,10)As IntegerDi mi As Integer ,j As IntegerFor i =2To 4For j=2To 4arr(i ,j)=j*jNext jNext iLabel1.Caption =Str(arr(2,2)+arr(3,3))End Sub程序运行后,单击窗体,在标签中显示的内容是( )。
2022-05-11 关注 0 浏览9 1答案
-
在窗体上面1个名称为Co mmand1的命令按钮,然后编写下列事件过程Option Base 1Private Sub Co mmand1_Click()Di ma(5,5)As IntegerFor i =1To 5 For j=1To 5a(i ,j)=(i +j )*5\10Next jNext is =0For i =1To 5s =s +a(i ,i)Next iPrint sEnd Sub程序运行后,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后,单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览20 1答案
-
有以下程序:Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer,j As IntegerReDim arr(3,2)For i=1 To 3For j=1 To 2arr (i,j)=i*2+jNext jNext iReDim Preserve arr(1,4)For j=3 To 4arr(3,j)=j+9Next jPrint arr(3,2);arr(3,4)End Sub程序运行后,单击窗体,输出结果为 ( ) 。
2022-05-11 关注 0 浏览13 1答案
-
在窗体上画一个命令按钮,其名称为Co mmand1,然后编写下列代码:Option Base 1Private Sub Co mmand1_Click()Di maa=Array(1,2,3,4)j=1For i =4To 1Step -1s =s +a(i)*jj=j*10Next iPrint SEnd Sub程序运行后,单击命令按钮,其输出结果是( )。
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画一个名称为 Commandl 的命令按钮,然后编写如下程序:Private Sub Commandl Click()Dim i As Integer, j As IntegerDim a (10,10)As IntegerFor i=1 To 3For j= i To 3a(i,j)=(i-1)*3+jPrint a (i,j);Next jPrintNext iEnd Sub程序运行后,单击命令按钮,窗体上显示的是 ( ) 。
2022-05-11 关注 0 浏览15 1答案
-
阅读程序:Option Base 1Dim arr() As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerReDim arr(3, 2)For i = 1 To 3For j = 1 To 2arr(i, j) = i * 2 + jNext jNext iReDim Preserve arr(3, 4)For j = 3 To 4arr(3, j) = j + 9Next jPrint arr(3, 2) + arr(3, 4)End Sub程序运行后,单击窗体,输入结果为( )。
2022-05-11 关注 0 浏览21 1答案