Cavaen-CSDN博客

原创冒泡法排序

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

2016-05-07 18:02:59 236

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

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

2016-05-07 17:33:48 912

原创十进制转十六进制

Private Sub Command1_Click() Me.Font.Size = 30 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 1230: b = 16 While a yushu = a Mod b If yushu s = yushu & s Else s

2016-05-07 17:10:26 196

原创多位数乘一位数

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 236

原创积不超过四位数

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

2016-04-14 16:59:55 273

原创画一个圈圈

Private Sub Command2_Click() Form1.Cls Text1.Text = "清除实心圆" End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() End Sub

2016-04-14 16:41:28 316

原创一加一加到无穷

Option Explicit Dim i As Integer Dim sum As Integer Private Sub Command1_Click() Cls Font.Size = 70 Static i As Integer i = i + 1 Print i End Sub Function f(x As Integer) As Long Dim i

2016-04-14 16:26:44 1144

原创 A和B比大小

Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b = Int(Rnd * 1000) If a swap = a a = b b = swap End If

2016-03-31 17:35:23 440

原创 VVVVVB

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

2016-03-31 17:20:47 1099

原创 15个数排序！

Private Sub Command1_Click() Cls Font.Size = 30 Dim a As Integer Dim sierdun(15) As Integer n = 1 While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer m = 1 While

2016-03-31 17:03:30 425

cavaen的博客