zxyssy1314-CSDN博客

原创个人信息

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 1174

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

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 249

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

zxyssy1314的博客