YSY1590-CSDN博客

原创 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:47:17 509

原创选择法排序

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:46:20 380 2

原创 2138转化成十六进制

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

2016-04-28 17:38:01 523

原创 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-04-28 17:10:47 871

原创 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-04-28 17:10:10 1339

原创两位数乘一位数

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 A

2016-04-21 17:44:01 376

原创三位数乘一位数

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, yushu3 As Integ

2016-04-21 17:43:21 342

原创多位数乘一位数

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:42:22 375

原创九种求和方法

经过一节课的学习，向同学问问题，写出来了一些我并不是很懂得程序（一） Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = Int(R

2016-04-13 22:06:51 361

原创排序

感觉只能把老师上课写的程序拍下来复制到电脑上，这并不是真正属于我自己的东西，还是要自己课下多研究多看书啊！Private Sub Command1_Click() Dim n As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000)

2016-04-03 14:08:17 326

原创 VB感受

初次接触VB，本来以为VB和C语言差不多，学好C语言就够了，后来觉得并不一样，不了解VB是用来做什么，对以后的学习或工作有什么帮助，也不知道应该如何去学，用什么方法学，可能是自己课下没有好好的看课本才会觉得难学。

2016-03-25 20:30:08 321

原创 VB编程

给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 IntegerDim g As IntegerDim h As

2016-03-25 20:18:45 357

YSY1590的博客