lang8689-CSDN博客

原创选择法排序

Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i)Next iPrintDim j As IntegerFor j = 1 To 9For i = j + 1

2016-05-07 17:58:39 176

原创 16进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Integera = 1230b = 16While a yushu = a Mod b s = f(yushu) & s a = a \ b Wend

2016-05-07 17:54:04 219

原创二进制

Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(23)End Sub Private Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringD

2016-04-28 16:42:24 247

原创作业

Private Sub Command1_Click() Cls Dim a() As Byte Dim r() As Byte Dim b As String Dim c As Byte Dim i As Long Dim L As Long L = Len(Me.Text1.Text) ReDim a(L

2016-04-21 17:13:57 134

原创阶乘

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

2016-04-21 16:19:39 176

原创两数相乘

Private Sub Command1_Click()ClsMe.Font.Size = 70Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text))n2 = Int(V

2016-04-14 17:08:52 268

原创 ????????

原搬硬套写下了程序，也能运行出来就是不知道啥意思Private Sub Command1_Click() Cls Font.Size = 70 Dim arr(5) As Integer For i = 1 To 5 arr(i) = i Next For Each t In arr

2016-04-14 16:21:29 151

原创随机生成10个数并求和方法二

Private Sub Command1_Click()ClsDim n As Integer, s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wends = 0

2016-04-07 16:59:25 542

原创随机生成10个数并求和法一

Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum = sum + a(i)

2016-04-07 16:29:17 2356

原创作业呀

按这个程序Private Sub Command1_Click()Cls Font.Size = 30 Dim n As Integer Dim sierdum(15) As Integer n = 1 While n sierdum(n) = Int(Rnd * 1000) n = n +

2016-03-31 17:06:24 163

原创 vb

Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDi

2016-03-28 14:17:05 152

lang8689的博客