Question

vb里面 生成10个10到80之间的随机整数存入一维数组a中,找到其中的最小数和最大数,将两者交换

用vb编程

Answer 1

Dim myArray(10) As Integer '定义一个长度为11的一维数组用来存放10个随机的整形数据
Dim nI As Integer '定义一个循环变量nI
For nI=1 to 10
myArray (nI)=Int((80-10)*Rnd()+10)
Next
Dim max,min As Integer '定义max,min分别记入最大值和最小值的位置
For nI =1 to 9
max= myArray(nI)>myArray(nI+1)?nI:nI+1
min=myArray(nI)<myArray(nI+1)?nI:nI+1
Next
Dim a as Integer '中间变量
a=myArray(min)
myArray(min)=myArray(max)
myArray(max)=a '最大值与最小值交换完成

追问

这个不行 用两个文本框 两个命令按钮来

追答

你说你两个按钮的功能是什么呀？