vb程式雙回圈陳述句 十個數輸出最大數并指明位置
uj5u.com熱心網友回復：
參考啦：Sub Test()
Dim i As Integer, j As Integer, b(9) As Integer, iMax As Integer
''b(0)=0,b(1)=2,...這里賦值
j = 0 ''默認是第一個位置
iMax = b(0) ''默認最大值
For i = 1 To 9
If b(i) > iMax Then
j = i ''更新最大值位置
iMax = b(i) ''更新最大值
End If
Next
Debug.Print j, iMax ''輸出最大值位置，值
End Sub
。。。
uj5u.com熱心網友回復：
Option Explicit
Option Base 1
Sub Main()
Dim a(10) As Integer
Dim iMax As Long
Dim i As Long
'生成測驗資料'
Randomize
For i = 1 To 10
a(i) = CInt(Rnd() * 100)
Debug.Print i, a(i)
Next
'查找最大值'
iMax = 1
For i = 2 To 10
If a(i) > a(iMax) Then
iMax = i
End If
Next
Debug.Print "最大值：" & a(iMax) & "，下標：" & iMax
End Sub
1 4
2 45
3 6
4 16
5 81
6 94
7 52
8 30
9 6
10 39
最大值：94，下標：6
uj5u.com熱心網友回復：
這個 ……請提出意見uj5u.com熱心網友回復：
有沒有雙陳述句回圈滴呀！uj5u.com熱心網友回復：
寫這個還要雙重回圈???uj5u.com熱心網友回復：
不好意思 我們現在學習for雙回圈陳述句在uj5u.com熱心網友回復：
我覺得，他要這樣做，就好比：
工廠里生產某種產品，本來每件產品在一個人的手里只要幾步簡單的操作就能完工；
但是，工廠中的生產工藝，卻非要把流程拆分成幾個工序、并把這些工序劃分到兩個車間（甚至兩個分廠）去做。
結果是徒增程序的復雜性，但是并沒有節約成本、提高效率，反而是直接造成一些“隱形”的浪費。
樓主這樣的想法，只是“為寫代碼而寫代碼”而已。
如果他老師要求這樣做，只能說明他老師對編程一竅不通、誤人子弟。
uj5u.com熱心網友回復：
雙回圈應該找個回圈對抗賽的例子啊！找最大值用雙回圈太SB了！
uj5u.com熱心網友回復：
哈哈，看來是典型的考試題啊。uj5u.com熱心網友回復：
是 我們考試主要雙回圈
uj5u.com熱心網友回復：
你就和你們老師說我優化了下.轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/81831.html
標籤：VB基礎類
上一篇：通信程式，用的什么校驗方法