两éå®ä¾å¸æå¯¹ä½ çé®é¢ææ帮å©(VBï¼ï¼
1.éæºäº§ç10个100~200ä¹é´çæ´æ°ï¼æ±æ大å¼
Private Sub Command1-Click()
Max = 100
For i =1 To 100
x=Int(Rnd*101+100)
Print x;
If x > Max Then Max = x
Next i
Print
Print"æ大å¼âï¼ Max
End Sub
2ç¨Array å½æ°å»ºç«çå«æ8个æ°ç»å
ç´ çæ°ç»ï¼ç¶åæ¥æ¾å¹¶è¾åºæ°ç»ä¸æ大å¼
Option Base 1
Private Sub Command1-Click()
Dim arrl , Max as Integer
arrl = Array(12,435,76,24,78,54,866,43)
Max= arrl(1)
For i =1 To 8
If arrl(i) > Then Max =arrl(i)
Next i
Print"æ大å¼âï¼ Max
End Sub
温馨提示:答案为网友推荐,仅供参考