Option Base 1 '表單模塊通用宣告段設定陣列每一維的下界為1
Dim a() As Integer, b() As Integer, c() As Integer, i%, j% '表單模塊通用宣告段定義模塊級陣列和模塊級變數
Private Sub Command1_Click()
ReDim c(m, n)
Text3.Text = ""
p = ""
For i = 1 To m
For j = 1 To n
c(i, j) = a(i, j) + b(i, j) '矩陣相加
p = p & Str(a(i, j))
Next
p = p & vbCrLf
Next
Text3.Text = p
End Sub
Private Sub Form_click()
Dim i As Integer, j As Integer '定義變數
m = InputBox("輸入矩陣的行數", "資料輸入") '使用inputbox函式輸入矩陣的行數
n = InputBox("輸入矩陣的列數", "資料輸入") '使用inputbox函式輸入矩陣的列數
Rem 定義矩陣并輸出
ReDim a(m, n)
ReDim b(m, n)
Randomize
Text1 = ""
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 50 + 1)
Text1 = Text1 & Format(a(i, j), "@@@@")
Next j
Text1 = Text1 & Chr(13) & Chr(10)
Next i
Randomize
Text2 = ""
For i = 1 To m
For j = 1 To n
b(i, j) = Int(Rnd * 50 + 1)
Text2 = Text2 & Format(b(i, j), "@@@@")
Next j
Text2 = Text2 & Chr(13) & Chr(10)
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/10407.html
標籤：VB基礎類
上一篇：用VB打開EXCEL軟體時，excel里面的加載項功能不顯示也不啟動了，怎么辦，求大神
下一篇：VB