VB题目 1、求一百个随机数的和，平均值，最大值。 2、编写程序，要求通过调用SUB过程实现两个数的交换。

如果是要随机产生双色球的话，参考如下代码：
Private Sub Command1_Click()
Dim a(6) As Integer
Dim b As Integer

For i = 1 To 6
a(i) = Int(Rnd() * (1 + (33 - 1))) + 1
For j = 1 To i - 1
If a(i) = a(j) Then
i = i - 1
End If
Next

Next

For i = 1 To 6
For j = i + 1 To 6
If a(i) < a(j) Then
T = a(i): a(i) = a(j): a(j) = T
End If
Next
Next

b = Int(Rnd() * (1 + (16 - 1))) + 1

Text1.Text = a(6) & " " & a(5) & " " & a(4) _
& " " & a(3) & " " & a(2) & " " & a(1) & " +" & b

End Sub

孩子，去看看 如何 写sub ，如何调用 sub过程
和，平均值，最大值 VB 都内置了函数
刚入门记得多看书。

用数组保存着100个的随机数的数据。再进行相应的计算就好了。rnd是返回随机数的函数。
应该明白怎么做了吧？

1
Private Sub Form_Click()
Dim i, max, s, num As Integer
Randomize
num = Rnd(10)
s = num
max = s
For i = 2 To 100
num = Rnd(10)
s = s + num
If num > max Then max = num
Next i
Print s, s / 100, max
End Sub
2
Sub swap(a, b)
Dim t As Integer
t = a: a = b: b = t
End Sub

Private Sub Form_Click()

Dim a, b As Integer
a = Val(InputBox("a="))
b = Val(InputBox("b="))
swap a, b
Print a, b

End Sub