- 博客(14)
- 收藏
- 关注
RSS订阅原创 高级排序
Option Base 1Private Sub Command1_Click()ClsDim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim wzs() As IntegerReDim wzs(size)n = LBound(wzs)While n wzs(n) = In
2016-05-12 18:12:55
197
原创 选择法
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i
2016-05-12 18:12:13
153
原创 冒泡
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i
2016-05-12 18:11:11
301
原创 作业
Private Type studentname As String * 3stuNo As String * 11sex As Booleanage As Byteprof As String * 2grade As SingleEnd TypePrivate Sub Command1_Click()Dim qizhenhao As studentqizh
2016-05-12 18:09:57
227
原创 230转化成二进制
Private Sub Command1_Click()Me.Font.Size = 30Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 16Dim returns As StringDim s
2016-04-28 17:40:15
692
原创 15电气1班麻天骄
Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte Dim shang A
2016-04-21 17:41:09
196
原创 15电气1班麻天骄
Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu1 As Byte, yushu2 As Byte, yushu3 As Integ
2016-04-21 17:40:34
510
原创 15电气1班麻天骄
Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.
2016-04-21 17:30:18
222
原创 15电气1班麻天骄
a b c 排序作业ClsDim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "b" & bPrint "c" & cd = cc = bb = dPrint "b" & bPrint "c" & c
2016-03-31 17:46:43
262
原创 15电气1班麻天骄
红糖水白糖水作业Private Sub Command1_Click()Dim a As Stringa = Me.Label1.CaptionMe.Label1.Caption = Me.Label2.CaptionMe.Label2.Caption = aDim b As Stringb = Me.Label1.ForeColor Me.Label1.ForeC
2016-03-31 17:45:46
378
原创 15电气1班麻天骄
高级排序作业Option Base 1Private Sub Command1_Click()ClsDim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim wzs() As IntegerReDim wzs(size)n = LBound(wzs)While
2016-03-31 17:43:30
502
原创 15电气1班麻天骄作业
Private Sub Command1_Click()Dim a As IntegerDim b As Integera = Int(Rnd * 1000)b = Int(Rnd * 1000)If a Me.Text1.Text = "aElseIf a = b Then Me.Text1.Text = "a=b"ElseMe.Text1.Text
2016-03-31 17:42:03
530
原创 15电气1班麻天骄作业
把最小数放到最后的作业Private Sub Command1_Click()ClsDim n As IntegerDim wzs(10) As IntegerDim swap As Integern = 1While n wzs(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n If wzs(n
2016-03-31 17:40:07
220
原创 15电气1班麻天骄作业
生成10个数作业Private Sub Command1_Click()ClsDim n As IntegerDim wzs(10) As Integern = 1While n wzs(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print wzs(n)n = n + 1WendEnd S
2016-03-31 17:38:30
274
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人