1、首先需要启动VB6.0，新建一个标准exe工程。
2、打开VB6.0之后，在窗体上绘制一个命令按钮。
3、接下来需要双击命令按钮进入代码窗口。
4、接下来开始编辑按钮的单击事件。
5、最后就可以按F5运行测试。求出最大值与最小值。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2017-08-21
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)本回答被网友采纳
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)本回答被网友采纳
第2个回答 2015-12-24
如图所示，望采纳。。。。
第3个回答 2017-08-12
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
应当可以
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 max
End Sub
应当可以
第4个回答 2017-08-12
如图所示，望~~。。。。
相似回答