Question

各位VB高手帮个忙啊

本人初学VB,版本是6.0的
有一题目是这样的..

编程产生50个-5~5之间的随机整数,存放到数组A中,将出现次数最多的那个数打印出来(注意,可能不止一个),并输出出现的次数.

建议以下程序段使用进程序中...
Dim a(11) As Integer
For i = 1 To 50
x = Int(Rnd * 11 - 5)
If x < 0 Then x = Abs(x) + 5
a(x) = a(x) + 1
Next i

Answer 1

'若要每次随机数不一样加:
Randomize Timer
Dim a(11) As Integer
For i = 1 To 50
x = Int(Rnd * 11 - 5)
'If x < 0 Then x = Abs(x) + 5 这句不需要
'用这句:
x=x+5
a(x) = a(x) + 1
Next i

s="-5"
max=a(0)
For i = 1 to 10
if a(i) = max then s=s+" " & (i-5) '若等于max的次数就加入该数
if a(i) > max then s="" & (i-5):max=a(i)
next
Debug.Print "出现次数最多:" + s '输出到即时窗口,可以改成文本框等
Debug.Print "出现:" & max & "次"
'想分离最多数用下面的代码:
' dim p() as string
'p=split(s," ")
'for i= 0 to ubound(p)
' Debug.Print val(p(i)) '输出
'next

Answer 2

50个随机数a()，你a()才定义了12个，开玩笑吧，你给的代码有问题

Answer 3

数组下标越界！