06 春 江苏.doc

对2006年(春)江苏省计算机等级考试VB二级试卷笔试部分填空题第4题的分析　2007-03-14 23:05 分类：默认分类 字号： 大大? 中中? 小小 4。执行下面程序，单击命令按钮Command1后，显示在窗体第一行的内容是?????? ，A(2,1)的值是???? ， A(3,3)的值是????? 。 Option Base 1Private Sub Command1_Click()??? Dim A(3, 3) As Integer，?K As Integer??? Dim I As Integer, J As Integer??? Call SUB1(A)?????? For I = 1 To 3????????? For J = 1 To 3???????????? Print Right(0 A(I, J) , 3);????????? Next J????????? Print?????? Next I End SubPrivate Sub SUB1(A() As Integer)?? Dim N As Integer, K As Integer, J As Integer?? Dim I As Integer, st As String?? N = UBound(A, 1)?? For I = 1 To N - 2????? For J = I To N - I???????? A(I, J) = K + 1?????????????? A(I, N + 1 - I) = K + 2???????????????? A(N + 1 - I, N + 1 - J) = K + 3?????????A(N + 1 - J, I) = K + 4?????????K = K + 4????? Next J? Next I? If N Mod 2 0 Then???? A((N + 1) / 2, (N + 1) / 2) = K + 1? End If?End Sub 我经过流程分析得出的数组A(3,3)的值应该为： 1，5，2 8，9，6 4，7，3 也就是说答案应该是01 05 02，A(2,1）＝8，A(3,3)=3, 但是我从网上下载的资料上给的标准答案却是：00 00 02，A(2,1)=08,A(3,3)=03 于是我在VB6上输入代码，亲自运行了一下，发现运行的结果如下图： 和我算出的有点出入A(1,3）和A(2,3) 难道我算错了? 于是又在纸上计算了2遍，确认我没有出错。在代码中添加断点，进行单步调试，结果证明了我的答案是正确的。 修改代码如下： Option Base 1Private Sub Command1_Click()??? Dim A(3, 3) As Integer??? DIM K As Integer??? Dim I As Integer, J As Integer??? Call SUB1(A)?????? For I = 1 To 3????????? For J = 1 To 3???????????? Print Right(0 A(I, J) , 3);????????? Next J????????? Print?????? Next I End SubPrivate Sub SUB1(A() As Integer)?? Dim N As Integer, K As Integer, J As Integer?? Dim I As Integer, st As String?? N = UBound(A, 1)?? For I = 1 To N - 2????? For J = I To N - I???????? A(I, J) = K + 1?????????? A(I, N + 1 - I) = K + 2?????????? A(N + 1 - I, N + 1 - J) = K + 3???????????A(N + 1 - J, I) = K + 4???????????K = K + 4????? Next J? Next I? If N Mod 2 0 Then???? A((N + 1) / 2, (N + 1) / 2) = K + 1? End If? For I = 1 To 3???? For J = 1 To 3??????? Text1.Text = Text1.Text A(I, J) ,???? Next J???? Text1.Text = Text1.Text vbCrLf? Ne