要求做一個四因素三水平的正交表
下面是代碼
我0基礎，考試要考，已經研究很久了
最后點擊commond 的時候沒有錯誤但是生成不了真的不知道為什么啊？
還有那個最后用MESHGRID控制元件來顯示是怎么調啊 ？
感激不盡！
Private Sub Command1_Click()
'第一個因素的水平排列
Dim zs, ma
For j = 1 To Form1.Text4.Text
For k = j * zs - zs + 1 To j * zs
ma(k, 1) = j
Next k
Next j
'第二個因素的水平排列
For j = 1 To zs
For k = j * Form1.Text3.Text - Form1.Text3.Text To (j * Form1.Text3.Text)
ma(k, 2) = k - j * Form1.Text3.Text
Next k
Next j
'找前一因素試驗排列中某一水平的位置
Dim ec, st
For l = 3 To Form1.Text2.Text
For i = 1 To Form1.Text4.Text
k = 0
For j = 1 To ec
If ma(j, l - 1) = i Then
k = k + 1
st(k + 1) = j
End If
Next j
Next i
Next l
'對當前因素下的水平進行隨機排列
Dim ss
For j = 1 To zs
For i = 1 To Form1.Text4.Text
ss(i, j) = j + i - 1
Do While (ss(j, i) > Form1.Text4.Text)
ss(j, i) = ss(j, i) - Form1.Text4.Text
Loop
ma(st(j, i), l) = ss(j, i)
Next i
Next j
'利用MESHGRID控制元件來顯示正交表
For l = 1 To Form1.Text2.Text
For i = 1 To (ec)
Form1.MSFlexGrid1.TextMatrix(i, l) = ma(i, l)
Next i
Next l
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/95254.html
標籤：VB基礎類