首頁(yè) 猿問(wèn) 懂VB的大佬請(qǐng)進(jìn)！急急急~

懂VB的大佬請(qǐng)進(jìn)！急急急~

.NET 正則表達(dá)式

qq_花開(kāi)花謝_0 2021-12-01 20:11:49

text1里面有一個(gè)0和1組成的N*N的數(shù)學(xué)矩陣（N不是定值，0和1也不一定間隔出現(xiàn)）先用下面的作比方010101101010010101101010010101101010上面這樣一個(gè)6*6的矩陣怎樣將它向右向下復(fù)制幾次成為一個(gè)aN*aN的新的矩陣輸出在text2里面

查看完整描述

2 回答

湖上湖

TA貢獻(xiàn)2003條經(jīng)驗(yàn) 獲得超2個(gè)贊

再窗體上畫(huà)出text1，text2，并設(shè)置可以多行（multiline=true）,一個(gè)Command1按鈕
用以下的算法，運(yùn)行時(shí)彈出輸入框，　輸入n就可以了。
Private Sub Command1_Click()
Dim a() As String
Dim str As String '用于輸出的字符串
Dim n, i, j, k As Integer 'i與j用于輸出n倍的每行，k用于輸出n倍的每列
Dim oldstr As String
n = InputBox("input n", "input a integer", 2) '這個(gè) n就是問(wèn)題中的n
a = Split(Text1.Text, Chr(13))
b = UBound(a) + 1 '獲取text的行數(shù)
For i = 0 To b - 1
For j = 1 To n
str = str & a(i) '在字符串末尾跟進(jìn)一行原來(lái)的字符
Next j
str = str & Chr(13) '換行
Next i
oldstr = str
For k = 1 To n - 1
str = str & vbCrLf & oldstr
Next k
Text2.Text = str
End Sub

Private Sub Form_Load()
Command1.Caption = "復(fù)制矩陣"
End Sub

反對(duì) 回復(fù) 2021-12-06

森林海

TA貢獻(xiàn)2011條經(jīng)驗(yàn) 獲得超2個(gè)贊

以復(fù)制3次為例的代碼：
Private Sub Command1_Click()
Dim R As String, A, I As Integer, N As Integer, J As Integer, S As String
N = 3
R = Text1.Text
A = Split(R, vbCrLf)
For I = LBound(A) To UBound(A)
S = ""
For J = 1 To N
S = S + A(I)
Next J
A(I) = S
Next I
R = Join(A, vbCrLf)
S = ""
For J = 1 To N
S = S + R
Next J
Text2.Text = S
End Sub