vb基础编程代码大全（VB数组操作程序代码）
本文目录
VB数组操作程序代码
程序如下：
Private Sub Command1_Click()
Dim a%(1 To 20), max%, min%
max = 0
min = 100
Randomize
Cls
For i = 1 To 20
a(i) = Int(Rnd * 101) ’产生20个0到100的随机数
Print Tab(4 * ((i - 1) Mod 10) + 1); a(i); ’加tab是为了使打印出来的数对齐
If i Mod 10 = 0 Then Print
If a(i) 》= max Then max = a(i)
If a(i) 《= min Then min = a(i)
Next i
Print "最小值是：" & min
Print "最大值是：" & max
Print "排序后" ’用选择排序法按升序排序
For i = 1 To 19
k = i
For j = i + 1 To 20
If a(j) 《 a(k) Then k = j ’找出最小数的下标
Next j
temp = a(i): a(i) = a(k): a(k) = temp
Next i
For i = 1 To 20
Print Tab(4 * ((i - 1) Mod 10) + 1); a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub
vb简单程序代码
我做的，你看看，自己修改修改吧，附件传不上，就贴代码吧，控件就几个
2个command，2个label，1个text,1个timer。直接放就行
Dim sj As Integer, jia As Integer, bjia As Integer, total As Integer
Private Sub Command1_Click()
Call chou
Timer1.Enabled = True
Command2.Top = Command1.Top
Command2.Left = Command1.Left
Command1.Visible = False
Command2.Visible = True
End Sub
Private Sub Command2_Click()
If Val(Text1) = jia + bjia Then
total = total + 10
Else
total = total - 10
End If
Label2.Caption = "总分：" + Str(total)
Call chou
Text1 = ""
If total 《 0 Then
MsgBox "分数低于0，GameOver！", vbExclamation, "游戏"
Timer1.Enabled = False
Command1.Visible = True
Command2.Visible = False
total = 0
Exit Sub
ElseIf total = 100 Then
MsgBox "分数满100分，游戏结束！", vbExclamation, "游戏"
Timer1.Enabled = False
total = 0
Exit Sub
End If
sj = 10
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Me.Caption = "小游戏"
Command1.Caption = "开始"
Command2.Caption = "确定"
Command2.Visible = False
Text1 = ""
Label2.Caption = "总分：？"
Label1.Caption = "？+？"
sj = 10
End Sub
Sub chou()
Randomize
jia = Int(Rnd(1) * 89 + 10)
bjia = Int(Rnd(1) * 89 + 10)
Label1.Caption = Str(jia) + "+" + CStr(bjia) + "= ?"
Text1.SetFocus
End Sub
Private Sub Timer1_Timer()
If sj = 0 Then
total = total - 10
sj = 10
Call chou
End If
Me.Caption = "小游戏 " + Str(sj) + "秒"
sj = sj - 1
End Sub
更多文章：
flex嵌套flex（flex怎么嵌入外部网页，比如在flex的容器中（如panel）显示出新浪、百度首页 最好能有直接运行的例子）
2026年9月23日 03:30
2026年9月23日 03:00
appletv3最新破解2019（apple tv3按遥控器指示灯快闪3次，机顶盒不开机）
2026年9月23日 02:00
netstat命令工作原理（高赏--socks2http 和sockscap工作原理大神们帮帮忙）
2026年9月23日 01:10
2026年9月22日 23:00
2026年9月22日 22:50
通配符怎么打出来excel（excel里，完成高级筛选条件的时候，通配符前面要加等号，可以等号前面的单引号是怎么打出来的）
2026年9月22日 21:20
2026年9月22日 21:00
进制转换器c++（用C++输入一个十进制数，将其转换为二进制数输出）
2026年9月22日 20:30
docker cp拷贝文件（怎么把docker镜像文件 复制到主机）
2026年9月22日 20:00
