python编写程序:100到1000内10的任意整数并求出最大值
发布网友
发布时间：2022-04-23 00:42
共1个回答
热心网友
时间：2023-05-19 07:48
如果只是产生最大值和最小值的话,只添加一个command就可以了.
之后写这些代码 .
Private Sub Command1_Click()
Randomize '产生随机数种子 以防止每次生成结果都一样
Dim a(1 To 100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer '声明两个变量存最大值和最小值
min = 1000: max = 0 '设置初值
For i = 1 To 100 '循环100次
a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间
If a(i) >= max Then max = a(i) '如果当前数值大于最大值的变量就保存
If a(i) <= min Then min = a(i) '如果当前数值小于最小值的变量就保存
Next
MsgBox "最大值为" & max
MsgBox "最小值为" & min
End Sub
