sadamchen-优快云博客

原创冒泡排序法

Private Sub Command1_Click() Cls Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Print a(i); Next i Print For i = 1 To 9 For j = 1 To 10

2016-05-07 18:07:07 229

原创选择排序法

Private Sub Command1_Click() Cls Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Print a(i); Next i Print For i = 1 To 9 For j = i + 1 To 10

2016-05-07 18:01:10 207

原创 16进制

Private Sub Command1_Click() 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 a = a \ b If yushu s = yushu & s Else

2016-05-07 17:46:38 187

原创 16进制

Private Sub Command1_Click() 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 a = a \ b If yushu s = yushu & s Else

2016-05-07 17:40:47 335

原创二进制

Private Sub Command1_Click() Print erjin(230) End Sub Private Function erjin(m As byte) As String Dim n As byte Dim shang As Byte n = m Const er As Byte = 2Dim returnS As String Dim yushu(1 To

2016-04-28 17:15:56 283

原创 10个随机数的和

Private Sub Command1_Click() Cls Dim i As Integer Dim x(10) As Integer Dim sun As Integer Randomize For i = 1 To 10 x(i) = Int(1000 * Rnd) Sum = Sum + x(i) Next i Print Sum End Sub for 这

2016-04-09 19:27:53 517

原创任意输出15个数字

Cls Dim n As Integer Dim xier(15) As Integer n = 1 While n xier(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print xier(n) n = n + 1 Wend End Sub 1.不要忘记 xier(15) 的

2016-04-01 15:13:07 386

原创任意数字的排列

Option Base 1 Private Sub Command1_Click() Cls Font.size = 20 Dim n As Integer Dim size As Integer size = Int(Val(Me.Text1.Text)) Dim xier() As Integer ReDim xier(size) n = LBound(xier)

2016-04-01 14:55:58 697

原创 15个数字排列从小到大

Private Sub Command1_Click() Cls Dim a As Integer Dim xier(15) As Integer n = 1 While n xier(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer m = 1 While m n = 1 While n If

2016-03-31 21:04:56 1674

原创 15数字排序最后一个最小

Private Sub Command1_Click() Cls Dim a As Integer Dim xier(15) As Integer n = 1 While n xier(n) = Int(Rnd * 1000) n = n + 1 Wend Dim swap As Integer n = 1 While n If xier(n) swap =

2016-03-31 20:43:44 295

原创 15

Private Sub Command1_Click() Cls Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer Dim i As Integer Dim

2016-03-24 17:28:18 253

原创红糖水白糖水的交换

1.点击右侧按钮，在窗体上拖动，进行两次，分别显示Label1 Label2 。 2.点击Label1，在右侧属性区域，将Caption 改为白糖水，背景颜色BackColor改为黑色，字体颜色 Forecolor 改为白色。类似的步骤更改Label2，将字体颜色改为红色。 3.点击按钮，在窗体上拖动，出现。在右侧属性栏，将Caption 改为交换。 4.在窗体双击交

2016-03-23 19:39:17 246