VB编程当用户单击命令按扭适随机产生20个30-100之间的随机整数并输出,求它们的最大值最小值输出到图像框
来源:百度知道 编辑:UC知道 时间:2024/05/12 05:29:45
把编写的命令写下!!!谢谢了啊!急急急!!
Private Sub Command1_Click()
Dim k() As Long
Dim imin As Long, imax As Long, iaver As Double
iRnd 30, 100, 20, k
imin = k(0): imax = k(0)
For i = 0 To 9
imin = IIf(imin > k(i), k(i), imin)
imax = IIf(imax < k(i), k(i), imax)
iaver = iaver + k(i)
Print k(i)
Next
Picture1.Print "最小值:" & imin & " 最大值:" & imax
End Sub
'这是一个通用的生成随机数的函数,功能:生成iCount个imin到imax之间的随机数,并保存到数组k中
Private Sub iRnd(imin As Long, imax As Long, iCount As Long, k() As Long)
If imin > imax Then MsgBox "最小值大于最大值!": Exit Sub
If iCount > imax - imin + 1 Then MsgBox "生成个数超出实际能生成的总数!": Exit Sub
ReDim k(iCount - 1) As Long
For i = 0 To iCount - 1
DoEvents
Randomize
k(i) = Int(Rnd * (imax - imin + 1)) + imin
For j = 0 To i - 1
DoEvents
If k(i) = k(j) Then i = i - 1: Exit For
Next
Next
End Sub
基于Image图象框貌似没有Print方法,所以这里我用Pictu