题目内容

命令按钮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 运行程序，单击命令按钮，输出结果是______。

A. 20
B. 7
C. 16
D. 17

查看答案

搜索结果不匹配？点我反馈

更多问题

下面程序运行时，若输入“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

A. 0
B. 1
C. 2
D. 3

在窗体画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()的作用是______。

A. 计算矩阵外围一圈元素的累加和
B. 计算矩阵除外围一圈以外的所有元素的累加和
C. 计算矩阵第1列和最后一列元素的累加和
D. 计算矩阵第1行和最后一行元素的累加和

窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Sub prog(a()As Integer) Dim arr(5) As Integer n=UBound(a) For k=1 To 5 For i=n To 2 step-1 arr(k)=k For i=1 To n-1 Next k if a(j)＜a(j+1) Then Prog arr() t=a(j):a(j)=a(j+1)):a(j+1)=t Fork=1 To 5 End If Print arr(k); Next j Next k Next i End Sub End Sub 程序运行时，单击命令按钮后显示的是______。

A. 1 2 3 4
B. 5 4 3 2 1
C. 0 1 2 3 4
D. 4 3 2 1 0

在窗体画一个名为Command1的命令按钮，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4):j=1 For i=4 To 1 Step-1 s=s+a(i)j:j=j10 Next i Print s End Sub 运行上面的程序，其输出结果是______。

A. 1234
B. 12
C. 34
D. 4321