一鹿伴晗-优快云博客

原创平行四边形

Private Sub Form_Click()ClsPrintFor n = 1 To 8 Print Tab(n + 20); For m = 1 To 10 Print Spc(1); "*"; Next m Print Next nEnd Sub

2016-05-26 18:13:49 198

原创任意255以内的十进制数向二进制数的转化

Private Sub Command1_Click()Me.Font.Size = 35Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returnS As StringDim sh

2016-05-26 18:13:03 959

原创 1000以内任意10个整数之和

Option ExplicitPrivate Sub Command1_Click() Font.Size = 30 Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 10

2016-05-26 18:11:57 326

原创登录

登录--Form-frmLoginStartUpPosition=2账号---Label TextBox-txtUserID密码---Label TextBox-txtPassword登录、取消---CommandButtoncmdLogin--default:true---ENTERcmdCancel--cancel:true---ESC字体：大小：小一所有控

2016-05-26 18:10:01 158

原创排序

1.随机生成100个数排序Private Function swap(a As Integer, b As Integer)Dim t As Integert = aa = bb = tEnd FunctionPrivate Sub Command1_Click() Dim a(100) As Integer Dim i As Integer

2016-05-12 17:34:36 156

原创选择排序

Private Function swap(a As Integer, b As Integer)Dim t As Integert = aa = bb = tEnd FunctionPrivate Sub Command1_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10

2016-05-07 17:23:50 128

原创转化十六进制

Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim yushu As Integer a = 1230: b = 16 While a yushu = a Mod b If yushu s = yushu & s Else

2016-05-07 17:01:35 346

原创多位数乘1位数

Private Sub Command1_Click() Dim a() As Long, i As Long Dim b As String Dim c As Long Dim changdu As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To changdu

2016-04-21 17:20:05 212

原创多位数乘一位数

太难了！！！我都做懵了！！！照片照的都太乱了！！！ Private Sub Command1_Click() Dim a() As Long, i As Long Dim b As String Dim c As Long Dim changdu As Long changdu = Len(Text1.Text) ReDim a(changdu)

2016-04-21 17:17:27 197

原创单数乘单数

Private Sub Command1_Click() Dim a As Byte, c As Integer Dim b As String b = Me.Text1.Text a = Int(Val(b)) b = Me.Text2.Text c = Int(Val(b)) Dim r As Byte r = a * c Print r

2016-04-21 16:19:06 586

原创单位数乘以单位数

Private Sub Command1_Click() Dim n1 As Integer Dim n2 As Integer Dim yushu As Byte Dim shang As Byte n1 = Int(Val(Me.Text1.Text)) n2 = Int(Val(Me.Text2.Text)) tempresult = n1

2016-04-14 17:29:27 313

原创利用小闹钟计算1~100求和

这是第一次做作业感觉这么成功！！！！！！Option ExplicitDim i As IntegerDim sum As IntegerPrivate Sub Command1_Click() Cls Font.Size = 50 End SubPrivate Sub Timer1_Timer()sum = sum + 1i = i + 1If i

2016-04-14 17:16:50 202

原创 10的阶乘

Private Sub Command1_Click() Font.Size = 70 Print 阶乘(10) End SubPrivate Function 阶乘(n As Integer) As Long If n = 1 Then 阶乘 = 1 Else 阶乘 = n * 阶乘(n - 1) End If End Function

2016-04-14 16:46:24 372

原创第八个循环

Private Sub Command1_Click() Font.Size = 70 Dim arr(5) As Integer For i = 1 To 5 arr(i) = i Next For Each t In arr Print t Next End Sub

2016-04-14 16:23:35 132

原创 2

2.将最小数放在最后一个Private Sub Command1_Click() Font.Size = 30 Dim n As Integer Dim xinhua(10) As Integer n = 1While n xinhua(n) = Int(Rnd * 1000)n = n + 1Wend Dim swap As In

2016-03-31 17:47:21 134

原创 1

老师！太！难！了！！！！！！！！ 1.10个数排序Private Sub Command1_Click() Font.Size = 30 Dim n As Integer Dim sierdun(10) As Integer n = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1W

2016-03-31 17:45:40 150

qq_34242561的博客