Cavaen-优快云博客

原创冒泡法排序

Private Sub Command1_Click()Me.Font.Size = 30Dim a(10) As IntegerDim i As IntegerDim t As IntegerDim p As StringFor i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i);Next iPrin

2016-05-07 18:02:59 276

原创十个数排大小选择排序法

Private Sub Command1_Click()Me.Font.Size = 30Dim a(10) As IntegerDim i As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 100)Print a(i);Next iPrintDim j As IntegerFor j = 1 To 9Fo

2016-05-07 17:33:48 953

原创十进制转十六进制

Private Sub Command1_Click()Me.Font.Size = 30Dim 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:10:26 228

原创多位数乘一位数

Private Sub Command1_Click() Cls Dim a() As Long, i As Long Dim b As String Dim c As Long Dim changdu As Long changdu = Len(Text1.Text) ReDim a(changdu) For i = 1 To ch

2016-04-21 17:25:21 274

原创积不超过四位数

Private Sub Command1_Click()Me.Font.Size = 70Dim n1 As ByteDim n2 As ByteDim yushu As ByteDim shang As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Val(Me.Text2.Text))tempresult = n1 * n

2016-04-14 16:59:55 308

原创画一个圈圈

Private Sub Command2_Click()Form1.ClsText1.Text = "清除实心圆"End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()End Sub

2016-04-14 16:41:28 350

原创一加一加到无穷

Option ExplicitDim i As IntegerDim sum As IntegerPrivate Sub Command1_Click()ClsFont.Size = 70Static i As Integeri = i + 1Print iEnd Sub Function f(x As Integer) As Long Dim i

2016-04-14 16:26:44 1194

原创 A和B比大小

Private Sub Command1_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim swap As Integera = Int(Rnd * 1000)b = Int(Rnd * 1000)If a swap = aa = bb = swapEnd If

2016-03-31 17:35:23 469

原创 VVVVVB

Visual basic听起来满高大上的！学之前，满满的骄傲。当我听了第一节课，呵呵。坑爹有木有啊！听不懂，听不懂啊！但上机写出我人生中第一个VB程序，自己还是蛮厉害的。哈哈哈，

2016-03-31 17:20:47 1156

原创 15个数排序！

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

2016-03-31 17:03:30 456

cavaen的博客