- 博客(12)
- 收藏
- 关注
原创 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 515
原创 选择法排序
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 391 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 535
原创 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 886
原创 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 1358
原创 两位数乘一位数
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 384
原创 三位数乘一位数
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 349
原创 多位数乘一位数
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 383
原创 九种求和方法
经过一节课的学习,向同学问问题,写出来了一些我并不是很懂得程序(一) 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 377
原创 排序
感觉只能把老师上课写的程序拍下来复制到电脑上,这并不是真正属于我自己的东西,还是要自己课下多研究多看书啊!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 336
原创 VB感受
初次接触VB,本来以为VB和C语言差不多,学好C语言就够了,后来觉得并不一样,不了解VB是用来做什么,对以后的学习或工作有什么帮助,也不知道应该如何去学,用什么方法学,可能是自己课下没有好好的看课本才会觉得难学。
2016-03-25 20:30:08 334
原创 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 370
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人