qq_34327106-CSDN博客

原创 p96验证

Private Sub Command1_Click()clsPrintFor 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 17:23:50 2151

原创选择排序

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

2016-05-07 17:24:33 144

原创十进制转换十六进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim yushu As Integera = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & s Else s = Chr(yushu + 55) & s End If

2016-05-07 17:23:42 285

原创多位数乘一位数

Private Sub Command1_Click()ClsDim a As ByteDim b As ByteDim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub

2016-04-21 17:44:04 152

原创单个数相乘

Private Sub Command1_Click()Dim n1 As IntegerDim n2 As IntegerDim yushu As ByteDim shang As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n1 * n2yushu = temp

2016-04-14 17:26:08 201

原创用闹钟运算

Option ExplicitDim I As IntegerDim sum As IntegerPrivate Sub Command1_Click()ClsFont.Size = 70End SubPrivate Sub Timer1_Timer()sum = sum + II = I + 1If I > 100 ThenMe.Timer1.Enab

2016-04-14 16:53:49 191

原创十的阶乘

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

2016-04-14 16:53:08 269

翻译第八种循环

Private Sub Command1_Click()Font.Size = 70Dim arr(5) As IntegerFor i = 1 To 5arr(i) = iNextFor Each t In arrPrint tNextEnd SubPrivate Sub Text1_Change()End Sub

2016-04-14 16:51:29 126

原创写不对 = =

Private Sub Command1_Click()Font.Size = 30Dim n As IntegerDim sierdun(10) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print sierdun(n)n = n + 1

2016-03-31 17:24:32 160

qq_34327106的博客