dianqi03-优快云博客

原创二维数组m*n的鞍点

Option Base 1Dim anma() As IntegerDim m As Byte, n As BytePrivate Sub Command1_Click() Cls Me.Font.Size = 30 m = 5: n = 6 ReDim anma(m, n) Dim i As Byte, j As Byte

2016-06-16 13:20:09 341

原创十进制与十六进制

Private Sub Command1_Click()Me.Font.Size = 20 Dim n As Byte n = 23 Const er As Byte = 16 Dim shang As Byte Dim yushu(1 To 2) As Byte Dim i As Byte i = 2 shang

2016-05-29 19:31:27 341

原创十六进制

Private Sub Command1_Click() Me.Font = 70 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Integer a = 1230: b = 16 While a yushu = a Mod b

2016-05-29 19:29:40 266

原创排序，计时

Private Sub Command1_Click() Open "D:\ccc\ccc.txt" For Output As #1 Write #1, "start", Time Dim a(100) As Integer Dim i As Integer For i = 1 To 100 a(i) = 10 +

2016-05-29 19:26:26 356

原创 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 = 16Dim returns As StringDim s

2016-04-28 17:43:46 484

原创乘法

Private Sub Command1_Click()Dim c As ByteDim a() As ByteDim b As StringDim changdu As Integer, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.

2016-04-21 17:40:16 400

原创两个数相乘

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 shan

2016-04-14 17:42:17 484

原创 9种求和

1. Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum = sum + a(

2016-04-13 22:40:50 274

原创比较大小

ClsFont.Size=24Dim n as integerdim sierdum(15) as integern=1while nsierdun(n)=int(rnd*1000)n=n+1wenddim swap as integerm=1while mn=1while nif ierdun(nswap=sierdun(n)

2016-04-04 10:35:19 325

原创学习vb的感受

感觉vb就是将计算机程序可视化的过程。通过小图标让计算机完成相应程序的启动，然后用计算机语言指示以后的步骤，计算机按编好的程序往下进行。初学感觉药剂好多东西，，，，，，，，

2016-03-31 12:55:32 379

原创 15个数的大小

Private Sub cmbSort_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 IntegerDim

2016-03-24 20:50:32 307

dianqi03的博客