关于随机选的一个小程序●●

来源：百度知道 编辑：UC知道 时间：2024/09/28 14:46:30
想在“苹果 桔子 桃 犁 葡萄 西瓜 椰子 杏 香蕉”中随机选择三种水果，程序应该怎样写？
另：如果在记事本写完，怎样加至网页？

cls
dim a$(1 to 9)
randomize timer ’重置随机数种子
for i=1 to 9
read a$(i) '输入那些水果
next i
x=int(rnd*9+1)
do
y=int(rnd*9+1)
loop while y=x
do
z=int(rnd*9+1)
loop while z=x or z=y
'这两个do循环是为了不重复选择
print a$(x);a$(y);a$(z) '打印水果
data 苹果,橘子,桃,梨,葡萄,西瓜,椰子,杏,香蕉
end
关于放到网页里，我就不知道了，你得琢磨琢磨。