- 博客(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 317
原创 将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 618
原创 将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 1181
原创 任一个数用二进制表示
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 557
原创 将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 2371
原创 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 252
原创 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 2826
原创 一位数乘以一位数
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 298
原创 两位数乘以一位数
一节半课的成果呀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 343
原创 随机生成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 3104
原创 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 262
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人