题目内容
在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程： Option Base 1 Private Sub Command1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 5 a(i,j)=(i+j)*5\10 Next j,i s=0 For i=1 To 5 s=s+a(i,i) Next i Print s End Sub 程序运行后，单击命令按钮，输出结果是______。
查看答案
搜索结果不匹配？点我反馈
更多问题
请阅读程序： Option Base 1 Private Sub Form_Click() Dim art(4,4)As Integer For i=1 To 4 For j=1 To 4 arr(i,j)=(i-1)*2+j Next Next For i=3 To 4 For j=3 To 4 Print arr(j,i); Next j Print Next End Sub 程序运行后，单击窗体，则输出结果是______。
命令按钮Command1的单击事件过程的代码下列： Private Sub Command1_Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j,i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是______。
下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。 Privae Sub Command1_Click() Dim count(25) As Integer,ch As String ch=UCase(InputBox("请输入字母字符串")) For k=1 To Len(ch) n=Asc(Mid(ch,k,1))-Asc("A") If n＞=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If m＜count(k)Then m=count(k) End If Next k Print m End Sub
在窗体画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程： Const n=5, m=4 Dim a(m, n) Private Sub Command1_Click() k=1 For i=1 To m For j=1 To n a(i,j)=k:k=k+1 Next j,i End Sub Private Sub Command2_Click() summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then summ=summ+a(i,j) Else If j=1 Or j=n Then summ=summ+a(i,j) End If End If Next j,i Print sum End Sub 过程Command1_Click()的作用是在二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是______。
微信支付 
支付宝支付