会VB的快来
选项基本1
暗淡了（20）作为整数
私人小Command1_Click（）
模糊我，作为整数，j的整数，k由于整数，温度为INTEGER
文本1 =“”
'成一个随机数组
对于k = 1至20
随机化
一（K）= INT（*的Rnd 100）
文本1 =文本1＆A（K）＆“”
接下来，K
排序
对于i = 1到19
对于J = I + 1;为20
如果第（j）<A（I ）然后
温度=一（十）
第（j）= A（I）
A（I）=温度
结束如果
下面j
接下来我
List1.Clear
对于k = 1至20
清单1。 ADDITEM一（K）
往下K
完子
私人小Command2_Click（）
文本1 =“”
List1.Clear
完子
的 zhidao/pic/item/4bed2e738bd4b31ca87442f787d6277f9e2ff836.jpg”目标=“_blank”称号=“点击放大”级=“ikqb_img_alink”> “http://h.hiphotos.baidu。com /志道/ WH％3D600％2C800/sign = 4f2cc651d42a283443f33e0d6b85e5d2 / 4bed2e738bd4b31ca87442f787d6277f9e2ff836.jpg“ESRC =”http://www.baidu.com/p / niao12316？从=志道“目标=”_blank“数据IMG =”http://img.iknow.bdimg.com/avatar/48/r6s1g6.gif“>
“http://www.baidu.com/p/niao12316 ？从=志道“目标=”_blank“> niao12316
|
6
28％ 采用率
擅长：
VB
图像处理软体
的C / C + +
数据库DB
一般软体
其他类似的问题
-
2011-01-11
<A HREF =“/ question/214890309.html？QBL = relate_question_0”目标=“_blank”
？？？？？？？？？？？？？？？？？？？？登录=“FR：QRL，PMS：newqb，页：QB-新，POS：relative_title，指标：1，CID：867”！ ！类=“相关链接”数据标题=“VB高手快来啊急！！！”>
2
-
2014年1月10日
<A HREF =“/ question/616023929497218892.html？QBL = relate_question_1”目标=“_blank”
？？？？？？？？？？？？？？？？？？？？登录=“FR：QRL，PMS：newqb，页：QB-新，POS：relative_title，指数：2，CID：867”类=“相关链接”数据标题=“vb的帮助，高手请进”>
1
-
2011-01-04
<A HREF =“/ question/212319558.html？QBL = relate_question_2”目标=“_blank”
？？？？？？？？？？？？？？？？？？？？登录=“FR：QRL，PMS：newqb，页：QB-新，POS：relative_title，指数：3，CID：867”类=“相关链接”数据标题=“vb的标题会做快来帮帮我，谢谢你！”>
1
-
2010-12-15
<A HREF =“/ question/206584420.html？QBL = relate_question_3”目标=“_blank”
？？？？？？？？？？？？？？？？？？？？登录=“FR：QRL，PMS：newqb，页：QB-新，POS：relative_title，指数：4，CID：867”类=“相关链接”数据标题=“快来帮我做一个简单的VB问题！”>
2
-
2009-06-24
<A HREF =“/ question/103059633.html？QBL = relate_question_4”目标=“_blank”
？？？？？？？？？？？？？？？？？？？？登录=“FR：QRL，PMS：newqb，页：QB-新，POS：relative_title，指数：5，CID：867”类=“相关链接”数据标题=“VB专家会更快”>
“nofollow的”HREF =“/搜索词= VB高手请进＆IE = GBK＆FR = QRL＆cid = 867＆QBL = relate_question_more”>
更多问题>>
AiPPT
2024-09-19 广告
Image1.Height = Form1.ScaleHeight
这两句的意思就是Image1的宽和高分别等于Form1的宽和高
第二个问题是用Timer，首先设置好Timer的属性，enabled为false，Interval为时间间隔，可以设置为1000，表示1秒
Private Sub Form_Click()
Timer1.Enabled = True
End Sub
表示激活Timer
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
End Sub
label移动
