用VB编写程序:随机产生三个数,求出其中最小的那个数

hz230107 1年前 已收到1个回答 举报

叶颐龄 幼苗

共回答了23个问题采纳率:100% 举报

Private Sub Form_Click()
Dim i, min, n
Cls
For i = 1 To 3
Randomize
n = Int(Rnd * 100) + 1
Print n,
If i = 1 Then
min = n
Else
If min > n Then min = n
End If
Next
Print vbNewLine & "最小值:"; min
End Su

1年前

2
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.391 s. - webmaster@yulucn.com