两道VB题。答得好追加分数

来源：百度知道 编辑：UC知道 时间：2024/05/30 00:10:39
1.首先产生十个随机数，然后把他们排序。产生随机数运行没问题，排序总是不对，我是按书上的代码一模一样打得。
Private Sub Command1_Click()
For i = 1 To 10
r = Int(Rnd * 90 + 10)
score(9) = r
Print score(9);
Next i
End Sub

Private Sub Command2_Click()
Print " "
For n = 0 To 8
Max = n
For j = n + 1 To 9
If score(j) >= score(Max) Then Max = j
Next j
t = score(n): score(n) = score(Max): score(Max) = t
Print score(n);
Next n
End Sub
哪错了？
2.一道列表框，组合框的问题。
设计要求：在组合框中选择花卉的类型，在列表框中显示所选类型的花名；选择花名，图像框中显示相应的图片。
代码都没问题，就是要显示的图片怎么导入？
我每次选了花名，就提示该图片不存在。
入门级学生，如果问题太白痴请各位高手见谅。

第一题懒得看了，
第二题用LoadPicture函数就行了

1、Dim score(10) As Integer
Private Sub Command1_Click()
For i = 1 To 10
r = Int(Rnd * 90 + 10)
score(i) = r
Print score(i);
Next i
End Sub

Private Sub Command2_Click()
Print " "
For n = 1 To 9
Max = n
For j = n + 1 To 10
If score(j) >= score(Max) Then Max = j
Next j
t = score(n): score(n) = score(Max): score(Max) = t
Print score(n);
Next n
Print score(n);

End Sub

2、你可以用两个数组，分别储存 花名和花图片（文件名），两者一一对应。
在点击 花名时查找 花名 数组，找出对应的 花图片（文件名），调用即可

第一个问题：（1）r = Int(Rnd * 90 + 10)
score(9) = r
Print score(9);
改成：r = Int(Rnd * 90 + 10)
score(i-1) = r
Print score(i-1);
（2）记得要在所有事件的前边进行：
dim score（8） as integer
第二个问题：给你提供个办法，首先你会把会loadpicture和获取listindex吗？
另外把你要加载的图片名字改成0-9.jpg
在combo1.click事中picture1.picture=loadpictur