在窗体上面1个名称为Co mmand1的命令按钮,然后编写下列事件过程
Option Base 1
Private Sub Co mmand1_Click()
Di ma(5,5)As Integer
For i =1To 5 For j=1To 5
a(i ,j)=(i +j )*5\10
Next j
Next i
s =0
For i =1To 5
s =s +a(i ,i)
Next i
Print s
End Sub
程序运行后,单击命令按钮,输出结果是( )。
发布于 2022-05-11 09:58:58
登录后免费查看答案
关注者
0
被浏览
16
1 个回答
推荐阅读
-
在窗体上面1个名称为Command1的命令按钮,然后编写下列事件过程Option Base 1Private Sub,Command1 Click( )Dim a(5,5)ks IntegerFor i=1 To jFor j=1 To 5a(i,j)=(i+j)*5\10Next jNext iS=0For i=1 To js=s+a(i,i)Next iPrint sEnd Sub程序运行后,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程Option Base 1Pribate Sub Command1_Click()Dim a(5.5) As IntegerFor i=1 To 5a(I,j)*5\10Next jNext iS=0For i=1 To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后,单击命令按钮,输出结果是( )
2022-05-11 关注 0 浏览14 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答案
-
在窗体上有一个命令按钮,然后编写如下事件过程:Private Sub Co mmand1_Click() Di ma(5)As Stri ng For i =1To 5 a(i)=Chr(Asc("A")+(i -1)) Next i For Each b In a Print b ; NextEnd Sub程序运行后,单击命令按钮,输出结果是( )。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画2个命令按钮,名称分别为Co mmand1、Co mmand2,然后编写下列事件过程。Const n =5,m=4Di ma(m,n)Private Sub Co mmand1_Click()k =1For i =1To mFor j=1To na(i ,j)=kk =k +1Next jNext iEnd SubPrivate Sub Co mmand2_Click()summ=0For i =1To mFor j=1To nIf i =1Or i =m Thensumm=summ+a(i ,j)ElseIf j=1Or j=n Thensumm=summ+a(i ,j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click()的作用是在二维数组a 中存放1个m 行n 列的矩阵;过程Command2_Click()的作用是( )。
2022-05-11 关注 0 浏览14 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*10NextiPrint SEnd Sub运行上面的程序,其输出结果是( )。
2022-05-11 关注 0 浏览9 1答案
-
窗体上有一个名称为Co mmand1的命令按钮,其事件过程如下:Private Sub Co mmand1_Click()Di mi As Integer ,j As Integer ,k As IntegerDi ms As Doubles =0:i =1:j=0:k =-1Do While i <6s =s +k*(j/i)i =i +1j=j+1k =-kLoopPrint sEnd Sub以上程序所计算的表达式是( )。
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个命令按钮,其名称为Command1,然后编写下列代码:Option Base lPrivate 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 浏览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答案
-
在窗体上画一个命令按钮,其名称为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答案