- 博客(13)
- 收藏
- 关注
RSS订阅原创 QP2
Private Sub Command1_Click() Cls Dim a(100) As Integer Dim i As Integer Dim j As Integer For i = 1 To 20 a(i) = Int(Rnd * 1000) Print a(i) Next i Print For i = 1 To 19 For j = 1 T
2016-05-12 17:13:16
374
原创 QP
Private Sub Command1_Click() Cls Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Print a(i) Next i Print For i = 1 To 9 For j = 1 To 1
2016-05-12 17:10:42
571
原创 几进制的转化
Private Sub Command1_Click() Me.Font.Size = 60 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 230: b = 2 While a yushu = a Mod b s = yushu & s a = a \ b Wend Pr
2016-05-07 17:10:42
315
原创 整数变化为二进制
Private Sub Command1_Click() Me.Font.Size = 60 Print erjinzhi(230) End Sub Private Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returns As String Dim
2016-04-28 17:08:30
368
原创 1*1 1位相乘
Private Sub Command1_Click() Dim a As Byte Dim b As Byte Dim c As Byte Dim r As Byte b = Me.Text1.Text a = Int(Val(b)) b = Me.Text2.Text c = Int(Val(b)) r = a * c Print r End Sub
2016-04-21 17:02:03
325
原创 一位相乘
Private Sub Command1_Click() Dim a As Byte Dim b As Byte Dim c As Byte Dim r As Byte b = Me.Text1.Text a = Int(Val(b)) b = Me.Text2.Text c = Int(Val(b)) r = a * c Print r End Sub
2016-04-21 17:01:35
251
原创 比较大小
Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a
2016-04-21 16:41:39
260
原创 红糖水白糖水交换
Private Sub 变换_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.ForeColor = Me.Label2.
2016-04-21 16:40:48
247
原创 比较大小
Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a
2016-04-21 16:39:35
274
原创 排序
Private Sub Command1_Click() Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer
2016-03-31 17:45:52
272
原创 vb2
Private Sub Command1_Click() Dim a(1 To 10) For i = 1 To 10 a(i) = Val(InputBox("a(" & i & ")=")) Print a(i); Next i Print For i = 1 To 9 For j = 10 To i + 1 Step -1 If a(i) < a(j) Then
2016-03-31 17:00:46
357
原创 vb
Dim a(15) As Integer Dim str As String str = "" Dim temp As Integer For i = 1 To 15 a(i) = Int(Rnd() * 90) + 10 Next For i = 1 To 15
2016-03-31 16:54:03
316
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人