Question

怎么用vb设计 随机产生10个100到200之间的数，求出最大值与最小值

Answer 1

1、首先需要启动VB6.0，新建一个标准exe工程。

2、打开VB6.0之后，在窗体上绘制一个命令按钮。

3、接下来需要双击命令按钮进入代码窗口。

4、接下来开始编辑按钮的单击事件。

5、最后就可以按F5运行测试。求出最大值与最小值。

Answer 2

Dim a(9) As integer '定义一个整数变量数组，大小为10
for i = 0 to 9
Randomize '
a(i) = int(Rnd * 100 + 100) '随机生成10个数字
Next
Dim b As Integer '定义一个临时变量
for i = 0 to 8
for j = i + 1 to 9
if a(j) < a(i) then '将9个数按照大小排序
b = a(j)
a(j) = a(i)
a(i) = b
End If
Next
Next
最大值为a(9),最小值为a(0)

Answer 3

如图所示，望采纳。。。。

Answer 4

Private Sub Form_Load()
Dim n, a, max As Integer
n = 1
max = Int(Rnd * 101 + 100)
Print max;
Do
n = n + 1
a = Int(Rnd * 101 + 100)
Print a;
If a > max Then max = a
Loop While n < 10
Print
Print max
End Sub
应当可以

Answer 5

如图所示，望~~。。。。