- 博客(14)
- 收藏
- 关注
RSS订阅原创 高级排序
Option Base 1 Private Sub Command1_Click() Cls Dim n As Integer Dim size As Integer size = Int(Val(Me.Text1.Text)) Dim wzs() As Integer ReDim wzs(size) n = LBound(wzs) While n wzs(n) = In
2016-05-12 18:12:55
223
原创 选择法
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 1000) Print a(i); Next i Print For i = 1 To 9 For j = 1 To 10 - i
2016-05-12 18:12:13
174
原创 冒泡
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 1000) Print a(i); Next i Print For i = 1 To 9 For j = 1 To 10 - i
2016-05-12 18:11:11
319
原创 作业
Private Type student name As String * 3 stuNo As String * 11 sex As Boolean age As Byte prof As String * 2 grade As Single End Type Private Sub Command1_Click() Dim qizhenhao As student qizh
2016-05-12 18:09:57
250
原创 230转化成二进制
Private Sub Command1_Click() Me.Font.Size = 30 Print erjinzhi(230) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 16 Dim returns As String Dim s
2016-04-28 17:40:15
740
原创 15电气1班麻天骄
Option Base 1 Private 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
219
原创 15电气1班麻天骄
Option Base 1 Private 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
530
原创 15电气1班麻天骄
Private Sub Command1_Click() Dim c As Byte Dim a() As Byte Dim b As String Dim changdu As Integer, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To changdu b = Mid(Me.Text1.
2016-04-21 17:30:18
237
原创 15电气1班麻天骄
a b c 排序作业 Cls Dim b As Integer, c As Integer Dim d As Integer c = Int(Rnd() * 1000) b = Int(Rnd() * 1000) Print "b" & b Print "c" & c d = c c = b b = d Print "b" & b Print "c" & c
2016-03-31 17:46:43
279
原创 15电气1班麻天骄
红糖水白糖水作业 Private Sub Command1_Click() Dim a As String a = Me.Label1.Caption Me.Label1.Caption = Me.Label2.Caption Me.Label2.Caption = a Dim b As String b = Me.Label1.ForeColor Me.Label1.ForeC
2016-03-31 17:45:46
396
原创 15电气1班麻天骄
高级排序作业 Option Base 1 Private Sub Command1_Click() Cls Dim n As Integer Dim size As Integer size = Int(Val(Me.Text1.Text)) Dim wzs() As Integer ReDim wzs(size) n = LBound(wzs) While
2016-03-31 17:43:30
530
原创 15电气1班麻天骄作业
Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a Me.Text1.Text = "a Else If a = b Then Me.Text1.Text = "a=b" Else Me.Text1.Text
2016-03-31 17:42:03
555
原创 15电气1班麻天骄作业
把最小数放到最后的作业 Private Sub Command1_Click() Cls Dim n As Integer Dim wzs(10) As Integer Dim swap As Integer n = 1 While n wzs(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n If wzs(n
2016-03-31 17:40:07
248
原创 15电气1班麻天骄作业
生成10个数作业 Private Sub Command1_Click() Cls Dim n As Integer Dim wzs(10) As Integer n = 1 While n wzs(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print wzs(n) n = n + 1 Wend End S
2016-03-31 17:38:30
298
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人