VisualBasic复习.pptVIP

Visual Basic复习;Visual Basic简介;相关知识点;示例;界面设计;相关知识点;相关知识点;相关知识点;相关知识点;注意点;示例;示例;语言基础;相关知识点;相关知识点;相关知识点;相关知识点;相关知识点;注意点;示例;示例;示例;示例;程序控制结构;程序的三种结构;选择结构-If;选择结构-Select Case;For-Next循环;Do-Loop循环;示例;示例;示例;数组;注意点;注意点;示例;示例;5、执行下面的程序，单击按钮 Command1 ,A(1 ,1)的值是 _____ ，A(1,4)的值是 _____ ， A(4,1)的值是 ____，A(4,4)的值是 ______ 。 Option Base 1 Private Sub Command1_Click() Dim a() As Integer, i As Integer, j As Integer Dim k As Integer, n As Integer n = 4 ReDim a(n, n) i = 1: j = n: a(i, j) = 1 For k = 2 To n * n If i + 1 n Then i = n - j + 2: j = 1 ElseIf i + 1 = n And j + 1 n Then j = j - i: i = 1 Else i = i + 1: j = j + 1 End If a(i, j) = k Next k For i = 1 To n For j = 1 To n Print a(i, j); Next j Print Next i End Sub;6、执行下面的程序，单击按钮 Command1 ,A(1,1)的值是 ____ ,A(2,3)的值是 ____ ,A(3,2)的值是 ___。 Option Explicit Private Sub Command1_Click() Dim A(3, 3) As Integer, I As Integer, J As Integer, K As Integer I = 3: J = 1: A(I, J) = 1 For K = 2 To 9 If I + 1 3 Or J + 1 3 Then If J = 1 Then I = I - 1 ElseIf A(I - 1, J - 1) = 0 Then I = I - 1: J = J - 1 ElseIf J = 3 Then I = I - 1 Else J = J + 1 End If ElseIf J = 1 Or I = 1 Then If A(I + 1, J + 1) = 0 Then I = I + 1: J = J + 1 Else J = J + 1 End If Else If A(I - 1, J - 1) = 0 Then I = I - 1: J = J - 1 End If End If A(I, J) = K Next K End Sub;过程;知识点;知识点;知识点;知识点;知识点;示例;示例;示例;示例;示例;示例;文件;知识点;知识点;知识点;示例;常用算法;常用算法;常用算法