vb如何计算矩阵中点?

时间:2019-06-08 17:58 来源:365bet官网娱 作者:admin

展开全部
Dima()PrivateSubForm_Click()DimmAsInteger,nAsIntegerm = Val(输入框)n = Val(输入框)ReDima(m,n)RandomizeText1。
Text = Fori = 1TomForj = 1Tone(i,j)= Int(Rnd * 100 + 1)Text1。
文字=文字1
文字格式(a(i,j)!
@@ @ @)Nextj Text1。
文字=文字1
TextvbCrLfNextifind = 0Fori = 1(1)Tombig = 1(1)col = 1 Forj = 1 TonIfbiga(i,j)thenbig = a(i,j)col = jEndIf Iext_flatationPation Plation Plation Plation Plation Plation Plation Plation Plation Plation Plation Plation Plation P
鞍点i列EndIfNextiIffind = 0然后MsgBox在text = row列中返回EndSub


回到顶部