孙启鹏-CSDN博客

原创比较数的大小（比较法）

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

2016-05-12 16:51:03 1007

原创比较数的大小（冒泡法）

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

2016-05-12 16:50:10 532

原创转化为16进制

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &

2016-05-12 16:49:18 482

原创 16进制的转换

Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) &

2016-05-07 17:06:25 276

原创十六进制

Private Sub Command1_Click()Me.Font.Size = 50Print shiliujinzhi(4545)End SubPrivate Function shiliujinzhi(m As Integer)As StringDim n As Integern = mConst shiliu As Byte = 16Dim return

2016-04-28 17:29:44 287

原创 2进制

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

2016-04-28 17:29:09 217

原创 n*1，并将结果保存到文件夹中

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:19:47 272

原创 2位数乘1位数

Option Base 1Private 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:22:59 717

原创 1乘1

Option Base 1Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu As Byte Dim shang As Byte Dim temp

2016-04-14 17:02:13 263

原创 1*1

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

2016-04-14 16:42:40 207

原创十个随机数相加（9种方法）

1.Option ExplicitPrivate Sub Command1_Click()ClsDim i As Integer, Sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1Sum = Sum + a(i)Next iPrint

2016-04-07 17:01:39 2676

原创 n个随机数的排列

Option Base 1Private Sub Command1_Click()ClsFont.size = 30Dim n As IntegerDim size As Integersize = Int(Val(Me.Text1.Text))Dim sierdun() As IntegerReDim sierdun(size) As Integern =

2016-03-31 17:15:25 362

原创 VB15个数字作业

Private Sub cmdSort_Click() Dim A(14) As Integer Dim I, J As Integer Dim Temp As Integer Form1.Cls Randomize For I = 0 To 14 A(I) = Int(Rnd * 1000) Print A(I); Ne

2016-03-24 17:39:59 234

原创比较大小

Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a

2016-03-24 17:30:06 311

原创红糖水，白糖水交换

Private Sub 变换_Click()Dim a As Stringa = Me.Label1.CaptionMe.Label1.Caption = Me.Label2.CaptionMe.Label2.Caption = aDim b As Stringb = Me.Label1.ForeColorMe.Label1.ForeColor = Me.Label2.

2016-03-17 17:27:52 257

转载数据变量

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim b As Integer, c As IntegerDim d As Integerc = Int(Rnd() * 1000)b = Int(Rnd() * 1000)Print "b=" & bPrint "c=" & cd = cc = bb

2016-03-17 17:06:31 236

原创我的大学同学王晶晶

王晶晶，一个神奇的物种，是我在大学里遇到过的最屌丝的·人之一，个子很高，头发很长，但是智商却跟它们不成正比。今天在博客里发现了她，竟然起了个LHWJJ的名字，一看他这个名字就知道有多屌丝，起什么不好，非要起一个“路滑王晶晶”。我也是醉了，至于她的其他壮举，就等我接下来几天的详细报道吧！！！

2016-03-17 16:37:33 647 2

原创大飞哥我来了！

今天我第一次开通了博客，好开心啊！终于加入了博客大军，可以和我的大飞哥一起玩博客，一起刷评论，大飞哥你在哪里？快来点赞！

2016-03-10 17:33:17 457 1

sunqipeng555的博客