- 博客(4)
- 收藏
- 关注
原创 作业
Option Base 1 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
2016-05-16 16:15:54 201
原创 选择排序法
选择排序法 Private Sub Command1_Click() 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
2016-05-16 16:14:33 199
原创 冒泡排序法
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 1000) Print a(i); Next i Print For i = 1 To 9 For j = 1 To 10 - i
2016-05-16 16:12:26 189
原创 第一次课 定时器的制作
1. 打开vb 2. 点击定时器,选定一块区域, 3. 选定A 选定一个区域,在右侧找到名称修改后面名字 修改为屏幕1 4. 选定commond 选1块区域改名(见红字)停止;同理弄出来开始。 5. 单击定时器,在右侧找到Interval ,修改Interval 该成1000 6. 双击定时器,在空格处写屏幕1.出现一系列选择c
2016-03-24 17:14:51 352
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人