VB中利用随机函数产生20个50～100范围内的随机数，用debug.write（）将其显示在输出窗口中

Private Sub Form_Click()
Dim 最大值 As Integer, 最小值 As Integer, 总和 As Integer
Dim a As Integer

最小值 = 1000
For i = 1 To 20
a = Rnd * 50 + 50
If a > 最大值 Then 最大值 = a
If a < 最小值 Then 最小值 = a
总和 = 总和 + a
Debug.Print a;
If i Mod 5 = 0 Then Debug.Print
Next
Debug.Print "最大值="; 最大值
Debug.Print "最小值="; 最小值
Debug.Print "总和="; 总和
End Sub

汗，用汉字做变量名，楼上的用过易语言？