ssdncjcjj的博客

原创 冒泡排序法

Private Sub Command1_Click() Me.FontSize = 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 p As String Dim j As Int

原创 选择排序法1-10000

Private Sub Command1_Click() Cls Me.Font.Size = 10 Dim a(10000) As Integer Dim i As Integer For i = 1 To 10000 a(i) = 10 + Int(Rnd() * 10000) Print a(i) Next i Print Dim j As Integer For j

原创 选择排序法1-1000

Private Sub Command1_Click() Cls Me.Font.Size = 10 Dim a(1000) As Integer Dim i As Integer For i = 1 To 1000 a(i) = 10 + Int(Rnd() * 1000) Print a(i) Next i Print Dim j As Integer For j = 1

原创 选择排序法1-100

Private Sub Command1_Click() Cls Me.Font.Size = 10 Dim a(100) As Integer Dim i As Integer For i = 1 To 100 a(i) = 10 + Int(Rnd() * 1000) Print a(i) Next i Print Dim j As Integer For j = 1 T

原创 选择排序法1-10

Private Sub Command1_Click() Cls Me.Font.Size = 10 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

原创 选择排序法

原创 十进制改为十六进制

Private Sub Command1_Click() Me.Font.Size = 50 Dim n As Byte n = 118 Dim shang As Byte Dim yushu(1 To 2) As Byte Const shiliu As Byte = 16 Dim i As Byte i = 2 shang = n \ shiliu yushu(i) =

原创 将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) = n Mod er While shang i = i

原创 将230改为二进制

Private Sub Command1_Click() Dim n As Byte n = 230 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 8) As Byte Dim i As Byte i = 8 shang = n \ er yushu(i) = n Mod er While shang i = i

原创 三位数乘以一位数

Dim a As Byte Dim b As String Dim c As Byte   b = Mid(Me.Text1.Text, 1, 1) a1 = Int(Val(b)) b = Mid(Me.Text1.Text, 2, 1) a2 = Int(Val(b)) b = Mid(Me.Text1.Text, 3, 1) a3 = Int(Val(b)) b = Me

原创 循环（7）

Dim n As Integer Dim a(10) As Integer Dim sum As Integer Private Sub Command1_Click() sum = 0 n = 1 Do Until n > 10 Randomize a(n) = Int(Rnd * 1000) sum = sum + a(n) n = n + 1 Loop Print s

原创 循环（6）

Dim n As Integer Dim a(10) As Integer Dim sum As Integer Private Sub Command1_Click() sum = 0 n = 1 Do Randomize a(n) = Int(Rnd * 1000) sum = sum + a(n) n = n + 1 Loop Until n > 10 Print s

原创 循环（5 ）

Private Sub Command1_Click() Dim sum As Integer Dim n As Integer Dim a(10) As Integer Randomize For n = 1 To 10 a(n) = (Rnd * 1000) sum = sum + a(n) Next n Print sum For n = 1 To 10 Print a

原创 随机出现15个数，最小数在最后

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

原创 循环（4）

Private Sub Command1_Click() Cls Font.Size = 70 Print f(100)   End Sub Private Function f(x As Integer) As Long If x = 1 Then f = x Else f = x + f(x - 1) End If End

原创 循环（3）

Private Sub Command1_Click() Cls Dim n As Integer, s As Integer Dim a(10) As Integer n = 1 While n a(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print a(n) n = n + 1 Wend s = 0

原创 循环（2）

Option Explicit   Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer Dim sum As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum = sum + a(i) Next i Print su

原创 循环（1）

Dim i As Integer Dim a As Integer Private Sub Command1_Click() sum = 0 For i = 1 To 10 Randomize a = Int(1000 * Rnd) sum = sum + a MsgBox "10个随机数和为：" & sum Next End Sub

原创 15个数排序（2）

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

原创 计时器的制作

1.      打开Microsoft Visual Basic 2.      点击左侧的时钟，在Form1上点击拉伸，窗体上会出现一个时钟 3.      双击时钟，在光标处输入”屏幕1.caption=time()” 4.      将右侧属性栏Interval后面的数字改成1000，同时检查一下Enabled后面是否为True 5.      点击工程栏下面的按钮切换到初始界面

原创 出现15个数

做vb真的是心好累啊，要知道我们近视眼是不太容易看清"."的！！真是差一个符号都不行啊！！！

原创 15个数排序（1）

这种方法太麻烦了，虽然麻烦，但重要的是做出来了 Me.Font.Size = 50    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