利用VB6制作一个“随机生成二十个数字（1-100之间的整数）求极值（最大最小值）和平均值以及平均数个数等 vb.net程序，利用随机函数产生100个1到100之间的整...
Dim ss(1 To 20) As Integer, I As Integer, J As Integer
Private Sub Command1_Click()
For I = 0 To 2
Text2(I).Text = ""
Next I
For I = 1 To 19
For J = I + 1 To 20
If ss(I) < ss(J) Then
TT = ss(I)
ss(I) = ss(J)
ss(J) = TT
End If
Next J
Next I
Text2(0).Text = ss(1)
Text2(1).Text = ss(20)
Dim NN As Integer
For I = 1 To 20
NN = NN + ss(I)
Next I
Text2(2).Text = NN / 20
End Sub
Private Sub Form_Load()
For I = 1 To 20
Randomize
ss(I) = Int(Rnd * 99 + 1)
Text1(I).Text = ss(I)
Next I
End Sub
比较简单
马上
vb.net程序，利用随机函数产生100个1到100之间的整数，求其中的最大最小值。~
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize() '产生随机数种子 以防止每次生成结果都一样
Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果
Dim max As Integer, min As Integer '声明两个变量存最大值和最小值
min = 1000 : max = 0 '设置初值
For i = 0 To 99 '循环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
程序基本正确。
随机生成十个数字（1-100之间的整数）
应该是：
1+Int(Rnd * 100)
相关要点总结：
17053842103：VB6.0随机数
萧点答：Dim num As Single Randomize (Time()) '初始化随机数种子，使得后面的Rnd函数产生的是真随机数 Do num = Rnd()Text1.Text = num Loop Until num > 0.2
17053842103：vb6.0 生成不重复的随机数(急!)
萧点答：Private Sub Command1_Click()Dim Aa(10) As Integer Cls Randomize For I = 1 To 10 A = Int(Rnd * 10)Print A Aa(I) = A Next I End Sub 再看运行结果，就知道这个程序是对的，我运行了好多遍，结果都是0-9间。只是我用的是10次，如果想产生100次，也只要改一点程序。如果你只想...
17053842103：随机产生n个100以内的正整数的VB代码
萧点答：If n > 100 Or Val(n) = 0 Then n = Int(Rnd * 100) + 1 End If Dim a(0 To 100) As Variant For i = 0 To n - 1 a(i) = Int(Rnd * 100) + 1 t = t + a(i)Next Print "本次共有" & n & "个随机数据正整数产生，平均值为：" & t / n End Sub vb6测试...
17053842103：谁帮我做下作业?VB。按钮事件,我每点击一次按钮,FORM上就随机生成...
萧点答：Dim a(10)Private Sub Command1_Click()For i = 1 To 10 a(i) = Int(Rnd(1) * 100)Print a(i)Next i End Sub 新建一个VB6工程，exe文件 在form里添加一个command1 然后编辑代码 把以上代码复制过去即可
17053842103：[VB6]显示随机数
萧点答：Private Sub Command1_Click()Randomize Text1 = Int(Rnd * 9) + 1 Text2 = Int(Rnd * 9) + 1 Text3 = Int(Rnd * 9) + 1 Text4 = Int(Rnd * 9) + 1 Text5 = Int(Rnd * 9) + 1 End Sub
17053842103：用VB6.0设计简单程序
萧点答：VB6.0测试通过 '利用随机函数产生60个100～200之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出。'1．将随机产生的60个整数按每行10个数输出到窗体或文本框中。'2．将排好序的偶数和奇数分别输出到两个文本框中。Dim RndArray(6, 10) As Integer Di...
17053842103：vb6.0用do while循环产生10个0-100之间的随机整数求它们的和并输出_百...
萧点答：dim i as Integer,x as Integer dim s as Long s=0 i=1 randomize() do while i<11 x=101*rnd() s=s+x i=i+1 console.writeline(x) loop console.writeline(s)
17053842103：vb6中,当程序运行后,随机产生一个数,并且判断奇数偶数。程序怎么写...
萧点答：PrivateSubForm_Load()Command1.Caption="产生随机数"Command2.Caption="判断"Text1.Locked=False a=False EndSub PrivateSubCommand1_Click()Text1.Text=Int(Rnd()*100)EndSub PrivateSubCommand2_Click()IfNotaThen MsgBox"请产生一个随机数！",vbExclamation ExitSub Else MsgBoxIIf(Val(Text1.Text)...
17053842103：vb6.0用do while循环产生10个0-100之间的随机整数求它们的和并输出...
萧点答：dim i as Integer,x as Integer dim s as Long s=0 i=1 randomize() do while i<11 x=101*rnd() s=s+x i=i+1 console.writeline(x) loop console.writeline(s)
17053842103：如何用Vb6生成随机字符串
萧点答：Private Sub Command1_Click()zfc="..." '自己填,放不下 cd = InputBox("长度")Randomize jg = ""For i = 1 To cd jg = jg & Mid(zfc, 1 + Int(Len(zfc) * Rnd), 1)Next i Print cd,jg End Sub