VB程序设计课件以及作业8章节幻灯片.pptVIP

* 【例8-5】将数Num插在数组A中指定的位置Pos 。 如果Pos≤0，则将Num插在第1个位置 如果Pos＞0，则将Num插在最后一个位置 分析: pos Num (1) 对数组中原Pos位置的元素到最后一个元素全部向后移动一个位置: A(N+1)=A(N) A(N)=A(N-1) …… A(Pos+1)=A(Pos) (2) A(Pos)=Num * 设计界面: 在“通用”位置声明: Option Base 1 Dim N As Integer, A() As Integer * 在窗体的Load事件过程中生成20个0到100之间的随机整数，显示于文本框Text1中: Private Sub Form_Load() Text1.Text = N = 20 ReDim A(N) For I = 1 To N A(I) = Int(Rnd * 101) Text1.Text = Text1.Text Str(A(I)) Next I End Sub * Private Sub Command1_Click() 插入 Text4.Text = N = N + 1 Num = Val(Text2.Text) Pos = Val(Text3.Text) ReDim Preserve A(N) Select Case Pos Case Is = 0 For I = N To 2 Step -1 A(I) = A(I - 1) Next I A(1) = Num Case Is = N A(N) = Num * Case Else For I = N To Pos + 1 Step -1 A(I) = A(I - 1) Next I A(Pos) = Num End Select 显示插入后的结果 For I = 1 To N Text4.Text = Text4.Text Str(A(I)) Next I End Sub * 【例8-6】在窗体上输出一个N行、N列、主对角线 和次对角线元素为1，其余元素均为零的矩阵。N由用户指定。 分析: …… 在窗体模块的声明段声明: Option Base 1 Dim A() As Integer 窗体的Click事件过程如下: Private Sub Form_Click() Cls Dim N As Integer, I As Integer, J As Integer N = Val(InputBox(请输入N值, 生成矩阵, _ 4)) ReDim A(N, N) As Integer 根据N定义数组大小 * 生成矩阵 For I = 1 To N For J = 1 To N A(I, J) = 0 If I = J Then A(I, J) = 1 主对角线元素 End If If I + J = N + 1 Then A(I, J) = 1 次对角线元素 End If Next J, I * 按N行N列的格式显示矩阵 For I = 1 To N CurrentY = I * 300 For J = 1 To N CurrentX = J * 300 Print A(I, J); Next J Next I End Sub 运行时单击窗体，输入N值6，在窗体上打印结果如图所示。 * 【例8-7】求两个矩阵的积。 分析: M行N列的矩阵A与N行M列的矩阵B相乘，结果为一个M行M列的矩阵C，C矩阵中第I行第J列的元素，等于A矩阵中第I行的元素与B矩阵中第J列的元素分别相乘后再相加。即: List1 List2 List3 * Dim M As Integer, N As Integer Dim A() As Integer, B() As Integer, C() As Integer Private Sub Form_Load() M = Inpu