![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
15电气下半年VB
郑明雨
这个作者很懒,什么都没留下…
展开
-
15电气一班郑明雨 1044 作业
Option Base 1Private Sub Command1_Click()ClsFont.size = 30Dim a As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1WendDim swap原创 2016-03-31 17:18:55 · 334 阅读 · 0 评论 -
15电气郑明雨作业2
Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDi原创 2016-03-24 18:57:44 · 349 阅读 · 0 评论 -
15电气郑明雨作业1
Private Sub Command1_Click()Dim s As StringDim s As LoadPictureColorConstantss = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColorLabel1.ForeColor = Lab原创 2016-03-24 18:57:07 · 394 阅读 · 0 评论