vb基础编程代码大全（VB数组操作程序代码）

：暂无数据 2026-09-14 05:00:07 ：2

大家好,今天小编来为大家解答以下的问题，关于vb基础编程代码大全，VB数组操作程序代码这个很多人还不知道，现在让我们一起来看看吧！

本文目录

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

以上就是我们为大家找到的有关“vb基础编程代码大全（VB数组操作程序代码）”的所有内容了，希望可以帮助到你。如果对我们网站的其他内容感兴趣请持续关注本站。

vb基础编程代码大全（VB数组操作程序代码）

本文编辑：admin

： vb基础编程代码大全

上一篇：reaction英语（前台用英语怎么说）

下一篇：arm9开发板加载程序慢（新手请教Arm9的问题谢谢帮忙！）

更多文章：

idea控制台乱码（idea 输出 System.out.println（）控制台乱码）

各位老铁们，大家好，今天由我来为大家分享idea控制台乱码，以及idea 输出 System.out.println() 控制台乱码的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大

2026年10月14日 07:30

抹茶冰皮月饼（冰皮月饼的做法）

大家好，抹茶冰皮月饼相信很多的网友都不是很明白，包括冰皮月饼的做法也是一样，不过没有关系，接下来就来为大家分享关于抹茶冰皮月饼和冰皮月饼的做法的一些知识点，大家可以关注收藏，免得下次来找不到哦，下面我们开始吧！

2026年10月14日 06:20

spring事务的作用（为什么要使用spring的事务，一般在什么情况下使用）

“spring事务的作用”相关信息最新大全有哪些，这是大家都非常关心的，接下来就一起看看spring事务的作用（为什么要使用spring的事务，一般在什么情况下使用）！

2026年10月14日 05:40

网站开发项目计划书（网站建设项目策划书）

大家好，关于网站开发项目计划书很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于网站建设项目策划书的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站哦，希望对各位有所帮助！

2026年10月14日 04:50

linux怎么进入命令行（怎么样配置linux使其启动时直接登录到命令行模式）

大家好，关于linux怎么进入命令行很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于怎么样配置linux使其启动时直接登录到命令行模式的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站哦

2026年10月14日 02:00

java培训机构好还是大学好（大学生想转行学java，该去java培训班还是自学呢）

其实java培训机构好还是大学好的问题并不复杂，但是又很多的朋友都不太了解大学生想转行学java，该去java培训班还是自学呢，因此呢，今天小编就来为大家分享java培训机构好还是大学好的一些知识，希望可以帮助到大家，下面我们一起来看看这个

2026年10月13日 23:30

各种花边图案（花边怎么画简单易学的花边绘画教程）

各位老铁们，大家好，今天由我来为大家分享各种花边图案，以及花边怎么画简单易学的花边绘画教程的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

2026年10月13日 19:10

stewardess读音（空姐的英文读音）

本篇文章给大家谈谈stewardess读音，以及空姐的英文读音对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

2026年10月13日 19:00

前端面试必背十个点（资深HR揭秘：Web前端面试技巧有哪些）

“前端面试必背十个点”相关信息最新大全有哪些，这是大家都非常关心的，接下来就一起看看前端面试必背十个点（资深HR揭秘：Web前端面试技巧有哪些）！

2026年10月13日 17:50

sqlplus重置用户名密码（Oracle中的plus的用户名和密码忘了怎么办）

大家好，关于sqlplus重置用户名密码很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于Oracle中的plus的用户名和密码忘了怎么办的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站

2026年10月13日 17:40