UC知道这个VB题目怎么做 关于随机函数
来源：百度知道 编辑：UC知道 时间：2024/06/14 10:14:04
2．单击"产生成绩"菜单项，在列表框1和列表框2内随机产生10对100以内的正整数，在标签内显示成绩对之和的最大值，并设置列表框的当前项为该成绩对。
1.产生随机数到listbox
2.遍历两listbox求“和”并记录到动态数组
3.遍历动态数组求最大值，并根据找到的最大值下标设置两listbox
如果重点是随机函数，那么，帮你写段代码：
Function GetRnd() As Double
Randomize Time
GetRnd = Int((100 - 20) * Rnd()) + 20
End Function
遍历ListBox框架：
For i = 0 To List1.ListCount - 1
next
遍历数组框架：
For i = 0 To ubound(arry)
next
具体的内容自己搞定吧，...
双击产生成绩控件，编辑。
dim a() as integer
randomize
redim a(20) as integer
for i=1 to 20
a(i)=int(rnd*100+1)
next
for j=1 to 10
list1.additem a(j)
next
for j=11 to 20
list1.additem a(j)
next
dim max1=a(1)
dim max2=a(2)
for j=1 to 20
if a(j)>max1 then
max1=a(j)
end if
next
for j=1 to 20
if a(j)<=max1 and a(j)>a(1) then
max2=a(j)
end if
next
lable1.caption=max1+max2
print max1,max2