第1个回答 2009-07-01
dim a(19) as double
for i=0 to 19
a(i)=inputbox("输入一个数")
next
dim zuixiaoshu as double
dim zuixiaoshuxiabiao as integer
for i = 0 to 19
if a(i)<zuixiaoshu then
zuixiaoshu=a(i)
zuixiaoshuxiabiao=i
next
print "最小数是:" & zuixiaoshu & " 其下标是:" & zuixiaoshuxiabiao
第2个回答 2009-07-01
Private Sub Command1_Click()
Dim a(5) As Single
For i = 0 To 5
a(i) = InputBox("请输入一个数:")
Next i
Dim Min As Single
Dim MinNum As Integer
Min = a(0)
For i = 0 To 5
If a(i) < Min Then
Min = a(i)
MinNum = i
End If
Next i
MsgBox "最小的数是:" & Min & " 下标是:" & MinNum
End Sub
第3个回答 2009-07-01
dim a(1 to 20)
dim min as double
dim xiabiao as integer
private command1_click()
for i=1 to 20
a(i)=val(inputbox("输入一个数"))
next i
min=a(1):xiabiao=1
for i = 2 to 20
if a(i)<min then
min=a(i)
xiabiao=i
next i
print "最小数是:" ;min
print "其下标是:" ;xiabiao
end sub