如何用VB在一系列数中选出一个最大的数

定义一个数组，之后再用For循环比较数组大小，以下是我回答一个人的冒泡算法，你也可以参考一下：

求数组中的最大值

a(i)=array(1,2,3,4,5,6,7,8,9,0)

for i=1 to 9
for j=i+1 to 10 '将j的值加1
if a(i)>a(j) then '如果a(i)比a(j)的值大，则进行下面代码
t=a(i):a(i)=a(j):a(j)=t '将a(i)的值赋给t，将a(j)赋给a(i)，最后将t的值赋给a(j)

最后一句的意思就是比较a(i)与a(j)的大小，如果a(i)比a(j)大，则将a(j)的值赋给a(i)，再将a(i)的值赋给a(j)，相当于执行一次交换，这就是“冒泡”算法

当然，最后再用print语句输出，即可排列出所有的元素

顺便说一句，“:”的作用就是可以在一行执行多条语句，在执行多条类似的语句可以用":"，来分割每条单独的语句

以三个数为例:
Private Sub Commandl_ Click()
a=Val( InputBox("请输入第一个数a的值","a")
b=Val( InputBox("请输入第二个数b的值","b")
c= Val(InputBox("请输入第三个数c的值","c")
Ifa〉 b Then
max ＝a
Else: max＝b
End If
If c >max Then
max＝c
Else: max＝max
End If
Print"最大的数:”&max

不用冒泡，一次查找就行了
dim a(5) as integer
for i = 0 to 5
a(i)=int(rnd*10)
next i

imax=0