在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
发布于 2022-05-11 10:19:26
登录后免费查看答案
关注者
0
被浏览
15
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答案
-
下事件过程:Private Sub Co mmand1_Click()Di marray1(10,10)As IntegerDi mi ,j As IntegerFor i =1To 3For j=2To 4array1(i ,j)=i +jNext jNext iText1.Text =array1(2,3)+array1(3,4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是( )。
2022-05-11 关注 0 浏览13 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答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后,单击命令按钮,在窗体上输出的是
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:Private Sub Command1_Click()n = Val(Text1.Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是
2022-05-11 关注 0 浏览15 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答案
-
在窗体上有一个命令按钮Command1和一个文本框Text1,编写事件代码如下:Private Sub Command1_Click(.Dim i, j, xFor i = 1 To 20 Step 2x = 0For j = i To 20 Step 3x = x + 1Next jNext iText1.Value = Str(x.End Sub打开窗体运行后,单击命令按钮,文本框中显示的结果是
2022-05-13 关注 0 浏览16 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序运行后,单击命令按钮,其输出结果是( )。
2022-05-11 关注 0 浏览17 1答案