远天灬-CSDN博客

原创选择法排序

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

2016-05-07 17:53:45 278

原创 1230转化成十六进制

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

2016-05-07 17:52:50 276

原创 6666转化为十六进制

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

2016-05-03 08:54:12 684

原创 230转化为二进制

Private Sub Command1_Click()Me.Font.Size = 30Print 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-03 08:49:52 376

原创 23转化为二进制

Private Sub Command1_Click()Me.Font.Size = 30Dim n As Byten = 23Const er As Byte = 2Dim shang As ByteDim yushu(1 To 5) As ByteDim i As Bytei = 5shang = n \ eryushu(i) = n Mod erW

2016-05-03 08:48:52 1072

原创 n位数乘一位数

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

2016-05-01 17:02:21 240

原创三位数乘一位数

Option Base 1 Private 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, yushu3 As

2016-05-01 17:00:54 264

原创两位数乘一位数

Option Base 1 Private 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

2016-05-01 16:59:31 277

原创 15个数字由大到小排序

看到程序运行的时候特别开心，但是什么都不看只是自己背着写出来真的很困难Private Sub Command1_Click() Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n +

2016-04-03 14:14:08 1573

原创给15个数字排序

上课的时候听的挺认真的，一到自己做就不会，通过向同学求助，终于写出来了 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 Integer

2016-04-03 13:58:18 388

原创电气一班冯彬作业一

学习Vb 还没入门慢慢来路还长Private Sub Command1_Click()Dim s As StringDim s As LoadPictureColorConstantss = Label1.CaptionLabel1.Caption = Label2.CaptionLabel2.Caption = sa = Label1.ForeColo

2016-03-31 17:34:36 415

abcd12fg34567的博客