我是新手，求解答，是一道陣列題。
uj5u.com熱心網友回復：
dim arrdim max
arr = array(1,5,4,3,2,7,9,8,11,4)
max=0
dim i
for i =1 to 9
if arr(max)<arr(i) then max=i
next
dim t
if max > 0
t = arr(max)
arr(max)=arr(max-1)
arr(max-1)=t
msgbox arr(max) & "," & max
uj5u.com熱心網友回復：
我也寫了一個,代碼如下:
Option Explicit
Dim arr
arr = array(10,9,8,7,6,5,4,1,2,3)
printarray(arr)
Dim minIndex
minindex = 0
Dim i
For i = lbound(arr) To ubound(arr)
If arr(minindex) > arr(i) Then
minindex = i
End If
Next
msgbox "最小數:" & arr(minindex) & " 下標:" & minindex
If minindex > 0 Then
Dim temp
temp = arr(minindex)
arr(minindex) = arr(minindex-1)
arr(minindex-1) = temp
End If
printarray(arr)
Sub printarray(ByRef arr)
Dim msg
msg = ""
Dim i
For i=lbound(arr) To ubound(arr)
msg = msg & arr(i) & " "
Next
msgbox msg
End Sub
下載地址:
鏈接：https://pan.baidu.com/s/1txK1364SnWfUm4fn3BMaSA
提取碼：yytz
運行示例:
uj5u.com熱心網友回復：
這個對，我之前看錯了以為求最大
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/16811.html
標籤：VB基礎類