求VB大神帮忙！！
答案:2 悬赏:70 手机版
解决时间 2021-02-02 02:05
- 提问者网友：疯孩纸
- 2021-02-01 15:12
求VB大神帮忙！！
最佳答案
- 五星知识达人网友：轻熟杀无赦
- 2021-02-01 16:07
主要代码部分（自己写的，没有VB就可以调试，很久没用忘得差不多了，思路没问题，可能代码上有些出入，不确定能不能行）
生成字母
for i=1 to 10
randomize
list1.additem chr(65+int(rand*26))
next
排序：
for i=1 to list1.listitem.count
ar(i)=list1.listitem(i)
next i
for j=1 to i
for k=j+1 to i
if Asc(ar(j))>Asc(a(k)) then
temp=a(j)
a(j)=a(k)
a(k)=temp
end if
next k
next j
for i=1 to i
list1.additem ar(i)
next
生成字母
for i=1 to 10
randomize
list1.additem chr(65+int(rand*26))
next
排序：
for i=1 to list1.listitem.count
ar(i)=list1.listitem(i)
next i
for j=1 to i
for k=j+1 to i
if Asc(ar(j))>Asc(a(k)) then
temp=a(j)
a(j)=a(k)
a(k)=temp
end if
next k
next j
for i=1 to i
list1.additem ar(i)
next
全部回答
- 1楼网友：走死在岁月里
- 2021-02-01 17:32
上传到附件了
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯