自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(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 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 868

原创 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 1337

原创 两位数乘一位数

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 340

原创 多位数乘一位数

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 374

原创 九种求和方法

经过一节课的学习,向同学问问题,写出来了一些我并不是很懂得程序(一) 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 360

原创 排序

感觉只能把老师上课写的程序拍下来复制到电脑上,这并不是真正属于我自己的东西,还是要自己课下多研究多看书啊!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 325

原创 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 356

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除