找出壹個4行5列的二位數組的鞍點，vb編程

Dim?a()

Private?Sub?Form_Click()

Dim?m?As?Integer,?n?As?Integer

m?=?Val(InputBox("請輸入行數"))

n?=?Val(InputBox("請輸入列數"))

ReDim?a(m,?n)

Randomize

Text1.Text?=?""

For?i?=?1?To?m

For?j?=?1?To?n

a(i,?j)?=?Int(Rnd?*?100?+?1)

Text1.Text?=?Text1.Text?&?Format(a(i,?j),?"!@@@@")

Next?j

Text1.Text?=?Text1.Text?&?vbCrLf

Next?i

find?=?0

For?i?=?1?To?m

big?=?a(i,?1)

col?=?1

For?j?=?1?To?n

If?big?<?a(i,?j)?Then

big?=?a(i,?j)

col?=?j

End?If

Next?j

flag?=?1

For?k?=?1?To?m

If?big?>?a(k,?col)?Then

flag?=?0

Exit?For

End?If

Next?k

If?flag?=?1?Then

find?=?1

Text2.Text?=?"鞍點在"?&?i?&?"行"?&?col?&?"列"

End?If

Next?i

If?find?=?0?Then?MsgBox?"無鞍點"

End?Sub

上一篇:CAD圖轉Autop編程

下一篇:java 界面編程