2016年04月_lv8830

原创任意0到255内的数转换为2进制

Private Sub Command1_Click()Me.Font.Size = 60Dim b As Integerb = Int(Val(Me.Text1.Text))Print erjinzhi(b)End SubPrivate Function erjinzhi(m As Integer) As StringMe.Font.Size = 60ClsD

2016-04-28 17:42:54 1455

原创 23转化为二进制数

Private Sub Command1_Click()Me.Font.Size = 60Dim i As IntegerDim b As IntegerConst a As Integer = 2Dim shang As IntegerDim yushu(1 To 5) As Doubleb = 23i = 5shang = b \ ayushu(i) =

2016-04-28 16:42:18 1228

原创任意一个n位数乘一位数

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim c As IntegerDim a() As IntegerDim b As StringDim changdu As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To

2016-04-21 17:24:26 241

原创三位数成一位数

Private Sub Command1_Click()ClsDim a1 As IntegerDim a2 As IntegerDim a3 As IntegerDim b1 As StringDim b2 As StringDim b3 As StringDim c As IntegerDim d1 As IntegerDim d2 As Integer

2016-04-21 16:25:42 361

原创简单数的乘法结果

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim n1 As IntegerDim n2 As IntegerDim yushu As IntegerDim shang As IntegerDim tempresult As Doublen1 = (Val(Me.Text1.Text))n2 = (Val(M

2016-04-14 17:05:01 284

原创求1到10的和

Private Sub Command7_Click()ClsPrint f(10)End SubPrivate Function g(x As Integer) As LongIf x = 1 Theng = xElseg = x + g(x - 1)End IfEnd Function

2016-04-11 14:45:35 1048

原创用do-until语句求随机十个数的和

Private Sub Command4_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do Until n > 10a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd Sub Private Sub Command

2016-04-11 14:44:11 725

原创用do-while语句求随机是个数的和

Private Sub Command3_Click()ClsDim n As IntegerDim a(10) As Integern = 1Do While n a(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sumEnd SubPrivate Sub Command6

2016-04-11 14:42:58 378

原创用while语句求随机十个数个的和

Private Sub Command1_Click()ClsDim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)Print a(n)n = n + 1WendDim sum As Integers = 0n = 1While n sum = sum +

2016-04-11 14:41:09 1396

原创用if语句随机生成十个数，排序

Private Sub 排序_Click()ClsDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i As IntegerDim j As

2016-04-11 14:39:18 608

vb是一门计算机及编程语言，也算是一项知识含量较高的东西。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程时一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程。我们每学一点，就赶快把他用到实际的程序中去，自己多学，多用多实践，水平才能不断提高，这既是“学以致用”。多看别人的代码，及时看不懂也没关系，可以把这些大妈输入到机子里运行，然后根据运行结果去体会程序的

2016-04-10 17:31:30 9730

原创随机生成十个数，排顺序

Option ExplicitPrivate Sub Command1_Click()ClsDim i As IntegerDim sum As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000)sum = sum + a(i)Next iPrint sum

2016-04-10 17:23:00 1427

原创随机生成任意个数，然后排大小

Option Base 1Private Sub Command1_Click()ClsDim a As IntegerDim b As Integerb = Int(Val(Me.Text1.Text))Dim hello() As IntegerReDim hello(b)a = LBound(hello)While a hello(a) = Int(R

2016-04-10 17:16:31 199

lv8830的博客