Question

vb 执行下面的程序的结果是————

.执行下面程序,单击Commandl,则数组元素a(1,2)的数值是 ( ), a(2,3)的数值 是( ),a(4,3)的数值是( )
Option Explicit
Private Sub Commandl_Click()
Dim a(4,4)As Integer,i As Integer
Dim j As Integer,k As Integer,n As Integer
n=6：k=2
Do
For i=1 To 4
For j=1 To 4
If i+j=k Then
a(i,j)=n
n=n-1
End If
Next j
Next i
k=k+1
Loop Until k>8
For i=1 To 4
For j=1 To 4
print Right(“ “ & a(i,j),3);
Next j
Print
Next i
End Sub

Answer 1

执行下面程序,单击Command1,则数组元素a(1,2)的数值是  ( 5 ), a(2,3)的数值 是( -1 ),a(4,3)的数值是( -8 )

程序中有二处错了：

Private Sub Commandl_Click() ，应为Private Sub Command1_Click()

               print Right(“  “ & a(i,j),3);    

应为        print Right("  " & a(i,j),3);              

追问

不懂，你只给了一个结果，完全不懂塞，我想要求得结果的过程
还有程序中你说的俩处哪里错了，你改的不是和我给的代码一模一样吗

追答

你仔细看看，字母l与数字1是不一样的。

英文的双引号与中文的双引号是不一样的。

还认不出的话把它贴到记事本或Word里，换一种字体看看？

亲，你完全不懂这个事情就比较难办了。

求得结果的过程可以用模拟程序运行的办法来求的。

追问

亲，我会模拟答案，但是我现在想问问你具体的过程，是怎样算的的结果。我也不能算完全不懂，只是不太懂，你可以帮我解释解释吗？？一步一步的解释可以否？？

追答

列变量清单，进入循环进行模拟。再要细说的话，打字太多，吃不消了。

Answer 2

a(1,2) = 5，
a(2,3) = -1，
a(4,3) = -8。

Answer 3

执行情况如下：