自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(22)
  • 收藏
  • 关注

原创 冒泡排序法

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

2016-05-19 17:03:55 148

原创 选择排序法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

2016-05-12 17:57:42 214

原创 选择排序法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

2016-05-12 17:55:42 227

原创 选择排序法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

2016-05-12 17:54:03 174

原创 选择排序法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

2016-05-12 17:51:44 163

原创 选择排序法

2016-05-12 17:15:47 190

原创 十进制改为十六进制

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) =

2016-05-07 17:22:07 183

原创 将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

2016-04-28 17:11:29 662

原创 将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

2016-04-28 16:55:02 370

原创 三位数乘以一位数

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

2016-04-21 17:16:14 355

原创 循环(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

2016-04-14 16:47:02 303

原创 循环(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

2016-04-14 16:43:07 143

原创 循环(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

2016-04-14 16:37:35 249

原创 随机出现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

2016-04-07 17:36:43 194

原创 循环(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

2016-04-07 17:31:28 127

原创 循环(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

2016-04-07 17:22:00 160

原创 循环(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

2016-04-07 17:16:04 135

原创 循环(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

2016-04-07 17:08:59 132

原创 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

2016-03-31 17:50:22 224

原创 计时器的制作

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

2016-03-31 17:34:51 288

原创 出现15个数

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

2016-03-31 17:29:56 196

原创 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

2016-03-31 16:22:19 153

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除