用随机函数产生100个三位数的整数，并按从大到小的顺序输出，每行输出10个数.这个题目用vb怎么编。
请大家帮忙。

rnd*(999-100)+100是产生三位数,排序自己做吧,看你也是新学VB,不动手永远学不会的

谢谢你的提示。

编制程序，进行职工档案管理。给出窗体，完成如下功能：
1、 输入职工信息，至少包括：职工代号、姓名、性别、工资和奖金；
2、 将信息保存在文件中；
3、 查询职工信息：按姓名、按职工代号；
4、 按总收入升序排序。

要求：
提交综合报告，报告内容包括：
A、窗体设计画面；
B、设计窗体的详细操作步骤；
C、程序的代码。

哪位高手能帮忙啊 着急用的

option base 1

dim a(100) as integer

private sub form_clic()

dim i as integer, j as integer ,k as integer,t as integer

for i=1 to 100

a(i)=int(900*rnd)+100

next i

for j=1 to 99

for k=1 to 99-i

if a(k)<a(k+1) then

t=a(k)
a(k)=a(k+1)
a(k+1)=a(k)
endif
next k,j
for i=1 to 100
if i mod 10 =0 then

print a(i)

else

print a(i); ' look the ; behand a(i)

end if

next i

end sub

Private Sub Form_Click()
Dim I, N, MAX, MIN, MAXW, MINW As Integer, S$
MAX = 0 '给变量赋初值
MIN = 1000
I = 0
FontSize = 10 '设置窗体中文字的大小
ForeColor = RGB(0, 0, 255) '设置窗体中文字的颜色为蓝色
Randomize
While I < 100
N = Int(Rnd * 900) + 100 '产生随机的三位数
S$ = ""
If I Mod 10 = 0 Then Print: '如果一行已经显示了10个数字，则换行
Print Tab((I Mod 10) * 6 + 1); S$ & LTrim$(Str(N));
If N > MAX Then MAX = N
If N < MIN Then MIN = N
I = I + 1 '数字序号自动加1
Wend
ForeColor = RGB(255, 0, 0)
Print: Print: Print Tab(6); "最大的数是："; MAX
Print: Print Tab(6); "最小的数是："; MIN
End Sub


参考一下吧

[此贴子已经被作者于2007-4-8 19:29:06编辑过]

谢谢大家的帮助。