编程论坛 → VB6论坛

一道vb编程题，求解。

qq2541213430 发布于 2017-11-26 21:01， 2171 次点击

声明一个有10个元素的一维数组，使用inputbox函数为其所有元素赋值，然后将其中最小元素的值及其下标显示出来。求解这到题怎么编

9 回复

xyxcc1772017-11-26 21:40

程序代码：

Sub ss()
Dim i(10)  As Integer
Dim minValue As Integer
Dim num As Integer
Dim k As Integer
For k = 0 To 9
i(k) = InputBox("请输入数字: ", "测试 ", 0)
Next
  minValue = i(0)

num = 0

For k = 1 To 9
   If i(k) < minValue Then
    minValue = i(k)
    num = k
    End If

Next

MsgBox "最小的数是:" & minValue & ",下标是:" & num

End Sub

qq25412134302017-11-26 21:45

回复 2楼 xyxcc177

谢谢

qq25412134302017-11-26 21:48

回复 2楼 xyxcc177

怎么显示出来啊

xiangyue05102017-11-26 23:25

最简单的冒泡法。就是认真学了两个小时都应该会了。都不学习也不用脑子么

qq25412134302017-11-27 19:23

回复 5楼 xiangyue0510

纯小白，老师也没有教叫我自己做我能怎么办我也很绝望

wp2319572017-11-27 19:28

回复 6楼 qq2541213430

有教材有度娘管他老师教不教有关系吗

qq25412134302017-11-27 20:11

回复 7楼 wp231957

是是是，大佬说什么就是什么

xyxcc1772017-11-27 20:57

回复 4楼 qq2541213430

你运行程序不就显示出来了吗?

#10

qq25412134302017-11-27 21:26

回复 9楼 xyxcc177

运行不起来