form1.frm

vb 的例子

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   2760
      TabIndex        =   0
      Top             =   2640
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim a(1 To 2, 1 To 5) As Single, b(1 To 5, 1 To 3) As Single
    Dim c(1 To 2, 1 To 3) As Single
    a(1, 1) = 1: a(1, 2) = 3: a(1, 3) = 5: a(1, 4) = 7: a(1, 5) = 9
    a(2, 1) = 2: a(2, 2) = 4: a(2, 3) = 6: a(2, 4) = 8: a(2, 5) = 10
    
    b(1, 1) = 1: b(1, 2) = 6: b(1, 3) = 5
    b(2, 1) = 2: b(2, 2) = 7: b(2, 3) = 4
    b(3, 1) = 3: b(3, 2) = 8: b(3, 3) = 3
    b(4, 1) = 4: b(4, 2) = 9: b(4, 3) = 2
    b(5, 1) = 5: b(5, 2) = 10: b(5, 3) = 1
    
    MatrixMultiple a, b, c                    '调用计算矩阵乘积的过程
    
    For i = 1 To 2                            '显示结果
        For j = 1 To 3
            Print c(i, j),
        Next
        Print
    Next
End Sub

Private Sub MatrixMultiple(a() As Single, b() As Single, c() As Single)
    Dim i As Integer, j As Integer, k As Integer
    For i = 1 To UBound(a, 1)
        For j = 1 To UBound(b, 2)
            For k = 1 To UBound(a, 2)
                c(i, j) = c(i, j) + a(i, k) * b(k, j)
            Next
        Next
    Next
End Sub