帮我解一下这道VB编程题：“随机产生10个两位整数，找出其中的最大值、最小值和平均值”帮帮忙啦！

vb随机10个两位整数，找出其中最大，最小值~

Private Sub Command1_Click()
Randomize
Max = 0
Min = 100
Print "10个随机整数为："
For i = 1 To 10
x = Int(Rnd * 90) + 10
Print x;
If x > Max Then Max = x
If x < Min Then Min = x
Next i
Print
Print "最大值："; Max
Print "最小值："; Min
End Sub

Private Sub Form_Click()
Cls '清除屏幕
Dim a As Integer '定义 a 为整形
a = Val(InputBox("请决定需要排多少组组数值？", "排序数值数")) 'a的等于输入框所返回的数值，决定排序数组的个数
Dim i(100) '定义i 为数组 ，100个元素 （每个元素都是整形的变量）
For j = 1 To a
i(j) = Val(InputBox("请输入第" & j & "组数值", "输入数据")) '为每个数组赋值
Print i(j) ' 打印每组数组的值
Next j '结束for循环
Print " -----------------排序结果"
For j = 1 To a
For k = j + 1 To a
If i(j) > i(k) Then
p = i(j)
i(j) = i(k)
i(k) = p
End If
Next k
Next j
For j = 1 To a
Print i(j) '打印出排序过的数组
Next
End Sub

dim a(0 to 9), max,min,i as integer
dim avg as single

randomize
for i=0 to 9
a(i)=int(rnd*90+10)
next
max=a(0)
min=a(0)
for i=0 to 9
if a(i)>max then max=a(i)
if a(i)<min then min=a(i)
avg=avg+a(i)
next
avg = avg /10
print "最大值为" & max & ",最小值为" & min & ", 平均值为" & avg

Private Sub Command1_Click()
  Randomize
  Max = 0
  Min = 100
  Print "10个随机整数为："
  For i = 1 To 10
    x = Int(Rnd * 90) + 10
    Print x;
    If x > Max Then Max = x
    If x < Min Then Min = x
  Next i
  Print
  Print "最大值："; Max
  Print "最小值："; Min
End Sub

command和list请加一下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer, m As Integer, max As Integer, min As Integer, ave As Double
a(1) = 90 * Rnd() + 10
ave = a(1)
max = a(1)
min = a(1)
List1.AddItem a(1)
For m = 2 To 10
a(m) = 90 * Rnd() + 10
ave = ave + a(m)
If a(m) > max Then
max = a(m)
ElseIf a(m) < min Then
min = a(m)
End If
List1.AddItem a(m)
Next m
ave = ave / 10
List1.AddItem "平均数为" & ave
List1.AddItem "最大值为" & max
List1.AddItem "最小值为" & min
End Sub

望采纳
Private Sub Command1_Click()
Randomize
Max = 0
Min = 100
Print "10个随机整数为："
For i = 1 To 10
x = Int(Rnd * 90) + 10
Print x;
If x > Max Then Max = x
If x < Min Then Min = x
Next i
Print
Print "最大值："; Max
Print "最小值："; Min
End Sub

---

苏仙区15195526202： 帮我解一下这道VB编程题:“随机产生10个两位整数,找出其中的最大值、最小值和平均值”帮帮忙啦! - ？
包韩琦玥：[答案] dim a(0 to 9), max,min,i as integerdim avg as singlerandomizefor i=0 to 9a(i)=int(rnd*90+10)nextmax=a(0)min=a(0)for i=0 to 9if a(i)>max then max=a(i)if a(i)

苏仙区15195526202： 谁能把我用VB程序语言做出这道题:随机产生100个0到300间的整数,要求啊这些整数没有相同的! - ？
包韩琦玥： Private Sub Command1_Click() Dim i%, j%, s(), m% ReDim s(300) Randomize For i = 0 To 300 '数组中放0-300中所有数 s(i) = i Next For i = 0 To 99 '移动随机的数到前100个元素中 j = Int((300 - i) * Rnd + i) m = s(i) s(i) = s(j) s(j) = m Next ReDim ...

苏仙区15195526202： 帮我看一下,用VB编程,程序要求:随机产生15个大写字母,放到一个数组里. - ？
包韩琦玥： Private Sub Form_Click() Dim a(15) As String Dim i As Integer Randomize Timer i=1 Do a(i) = Chr(Int((90 - 65 + 1) * Rnd + 65)) i=i+1 Loop Until i End Sub

苏仙区15195526202： 一道编程问题,是vb的:“随机产生3个数,按从小到大排序” - ？
包韩琦玥： Private Sub Command1_Click() X1 = Int(Rnd * 900 + 100) X2 = Int(Rnd * 900 + 100) X3 = Int(Rnd * 900 + 100) If X1 > X2 Then t = X1: X1 = X2: X2 = t If X2 > X3 Then t = X2: X2 = X3: X3 = t If X1 > X2 Then t = X1: X1 = X2: X2 = t If X1 > X3 Then t = X1: X1 = X3: X3 = t Print X1, X2, X3 End Sub

苏仙区15195526202： vb编程题~~随机产生20个不重复的A~Z之间的英文字母,按字母顺序输出,每行6个. - ？
包韩琦玥： 给你个思路.首先,定义20个数组. 然后在过程里弄个for循环,比如for i = 1 to 20 利用随机函数,生成65~90之间的函数,赋值到变量,比如 str=Int((90 - 65 + 1) * Rnd + 65) 再弄个for循环,比如for j = 1 to i 判断是否重复 if 数组名(j)=str then call 过程 exit sub end if next 然后给数组赋值 比如数组名(i)=chr(str) next end sub

苏仙区15195526202： vb编程随机产生10个1 - 10之间的整数写到顺序文件 - ？
包韩琦玥： abc,dat改为abc.dat,a(i) = Int(Rnd * 10)改为a(i) = Int(Rnd * 11)(否则只能产生0-9的随机数) Write #10, a(10)改为Write #1, a(i),正确的代码如下:Private Sub Command1_Click() Dim a(10) As Integer, i% Open ＂abc.dat＂ For Output As #1 For i = 1 To 10 a(i) = Int(Rnd * 11) Write #1, a(i) Next i Close #1 End Sub

苏仙区15195526202： VB编程随机产生“10到129”的数,形成一个4*5 的二维数组,按升序排列. - ？
包韩琦玥： Private Sub Command1_Click() Dim a(3, 4) Randomize Print ＂排列前数据:＂ For i = 0 To 3 For j = 0 To 4 a(i, j) = Int(Rnd * 120) + 10 Print a(i, j); Next Print Next Print ＂冒泡法升序输出＂ For i = 0 To (4 * 5 - 1) For j = 0 To (4 * 5 - 1) - 1 - i If a(j \ 5, j...

苏仙区15195526202： vb编程大题:随机产生20个10~99的正整数,用冒泡法求出最大值,最小值 - ？
包韩琦玥： Option Explicit Dim myvalue(19) As Integer Private Sub Command1_Click() '单击按钮开始冒泡法 Dim i As Integer, y As Integer, temp As Integer For i = 0 To 18 For y = i + 1 To 19 If myvalue(i) > myvalue(y) Then temp = myvalue(i) myvalue(i) = ...

苏仙区15195526202： vb循环语句 随机产生10个数 - ？
包韩琦玥： for j=1 to i-1 不用说了 if x=a(j) then yes=1:exit for 检测x是否=a(j),r如果=重新生成x,其实这是判断在生成的10个随机数中有无重复的数,如果有,就是这句,重新生成.其他就不用说了,你应该明白.

苏仙区15195526202： VB随机产生10个两位数整数(正整数),要求分别用选择排序法和冒泡排序法将这10个数降序排列输出在窗体上 - ？
包韩琦玥： Option Base 1 Dim a(20) Private Sub Form_Load() Randomize For i = 1 To 10 a(i) = Int(10 + 90 * Rnd) Next End SubPrivate Sub Command1_Click() '选择排序法For i = 1 To 9 For j = i + 1 To 10 If a(j) > a(i) Then t = a(i): a(i) = a(j): a(j) = t Next j ...