自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(11)
  • 收藏
  • 关注

原创 个人信息

Type Student      name as String      stuNo as String      sex as Boolean      age as Byte      prof as String      grade as SingleEnd Typedim zhaoxinyue as Studentzhaoxinyue.name=

2016-05-12 18:05:20 313

原创 将1230转化为16进制数

Private Sub Command1_Click()Me.Font.Size = 70Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses

2016-05-07 17:51:40 612

原创 将230转化为16进制数

Private Sub Command1_Click()   Me.Font.Size = 30   Print shiliujinzhi(230)End SubPrivate Function shiliujinzhi(m As Byte) As String    Dim n As Byte    n = m    Const shiliu As Byte = 16

2016-04-28 17:40:37 1172

原创 任一个数用二进制表示

Private Sub Command1_Click()   Me.Font.Size = 30   Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As String    Dim n As Byte    n = m    Const er As Byte = 2   Dim retu

2016-04-28 17:02:42 554

原创 将23转化为二进制数

Private Sub Command1_Click()   Dim n As Byte   n = 23   Const er As Byte = 2      Dim shang As Byte   Dim yushu(1 To 5) As Byte   Dim i As Byte   i = 5   shang = n \ er   yushu(i)

2016-04-28 16:36:55 2348

原创 n*1

一位数*一位数Private Sub cmdmulti_Click()Me.Font.Size = 40Dim a As Byte, c As IntegerDim b As Stringb = Me.Text1.Texta = Int(Val(b))b = Me.Text2.Textc = Int(Val(b))Dim r As Byte

2016-04-21 16:47:33 248

原创 12的阶乘

终于把三个作业都做完啦Private Sub Command1_Click()    Font.Size = 70    Print 阶乘(12)End SubPrivate Function 阶乘(n As Integer) As Long   If n = 1 Then   阶乘 = 1   Else   阶乘 = n * 阶乘(n - 1)

2016-04-14 17:35:56 2815

原创 一位数乘以一位数

Private Sub Command1_Click()    Dim n1 As Byte    Dim n2 As Byte    Dim yushu As Byte    Dim shang As Byte        Dim tempresult As Byte    n1 = Int(Val(Me.Text1.Text))    n2 = Int(Val

2016-04-14 17:29:00 295

原创 两位数乘以一位数

一节半课的成果呀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    Dim yushu2

2016-04-14 17:19:34 342

原创 随机生成10个数,并求出这10个数的和

终于做完了,真心不容易方法1Option ExplicitPrivate Sub Command1_Click()     Dim i As Integer     Dim a(10) As Integer          Dim sum As Integer          Randomize     For i = 1 To

2016-04-07 16:18:57 3092

原创 vb

Private Sub Command1_Click()ClsFont.Size = 30Dim n As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print sierdun(n)n

2016-03-31 16:55:30 259

空空如也

空空如也

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

TA关注的人

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