- 博客(6)
- 收藏
- 关注
原创 123
Private Sub Command1_Click() Me.Font.Size = 60 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 5) As Byte Dim i As Byte i = 5
2016-04-28 16:59:45
164
原创 余数和商
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 As B
2016-04-14 17:30:01
263
原创 一乘一
Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim n1 As Byte Dim n2 As Byte Dim yushu As Byte Dim shang As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text)) n2 = Int(Val(Me.Text2.
2016-04-14 17:06:46
226
原创 这叫啥事
Private Sub Command2_Click() C1s Font.size = 30 Dim n As Integer Dim size As Integer size = Int(Va1(Me.Text1.Text)) size = Int(Va1(Me.Text1.Text)) Dim sierdun() As
2016-03-31 16:57:38
157
原创 比较大小
Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer 'Dim swap As Integer'用来交换的 a
2016-03-24 17:41:50
180
原创 红糖水与白糖水
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-03-24 17:37:56
208
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人