一鹿伴晗-CSDN博客

原创平行四边形

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

2016-05-26 18:13:49 183

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

Private Sub Command1_Click() Me.Font.Size = 35 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 sh

2016-05-26 18:13:03 903

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

Option Explicit Private 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 301

原创登录

登录--Form-frmLogin StartUpPosition=2 账号---Label TextBox-txtUserID 密码---Label TextBox-txtPassword 登录、取消---CommandButton cmdLogin--default:true---ENTER cmdCancel--cancel:true---ESC 字体：大小：小一所有控

2016-05-26 18:10:01 146

原创排序

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

2016-05-12 17:34:36 142

原创选择排序

Private Function swap(a As Integer, b As Integer) Dim t As Integer t = a a = b b = t End Function Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10

2016-05-07 17:23:50 109

原创转化十六进制

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 323

原创多位数乘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 179

原创多位数乘一位数

太难了！！！我都做懵了！！！照片照的都太乱了！！！ 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 173

原创单数乘单数

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 541

原创单位数乘以单位数

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 280

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

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

2016-04-14 17:16:50 186

原创 10的阶乘

Private Sub Command1_Click() Font.Size = 70 Print 阶乘(10) End Sub Private 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 342

原创第八个循环

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 116

原创 2

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

2016-03-31 17:47:21 114

原创 1

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

2016-03-31 17:45:40 133

qq_34242561的博客