VB程序设计：随机产生10个10—99之间（含10，99）的整数，找出其中最大、最小的元素。

以下是关键代码，其他的我就不打了
dim i as Integer
dim max as integer
dim min as integer
dim temp as integer

'定义变量，i为循环变量，max为最大数，min为最小数，temp为每一次生成数时使用的临时变量

temp=Int(90*rnd()+10)
max=temp
min=temp

'生成第一个数，并且第一个数既是最大数又是最小数

for i=2 to 10 step 1
temp=Int(90*rnd()+10)
if temp > max then max=temp
if temp < min then min=temp
next i

label1.caption=max
label2.caption=min

把上面的代码复制到一个button的click事件，在窗体上画两个label然后运行就可以了，label1显示最大数，label2显示最小数。

说明：由于并没有要求找出最大最小是第几个元素，所以不使用数组。

给你基本思路：
利用VB内部函数 Rnd() 产生随机函数---为0--1之间的随即数字，转换成10--99之间的随机数字 然后利用交换法来找出最大和最小数字，最后输出就可以了

使用数组存储,随机函数使用,最小值最大值检索

15