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

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

大家好,今天小编来为大家解答以下的问题，关于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的问题谢谢帮忙！）

更多文章：

java调用dubbo接口（java dubbo配置文件中的“$”是哪个目录）

其实java调用dubbo接口的问题并不复杂，但是又很多的朋友都不太了解java dubbo配置文件中的“$”是哪个目录，因此呢，今天小编就来为大家分享java调用dubbo接口的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分

2026年11月7日 10:30

递归算法解决兔子问题（java用递归编程（兔子问题））

这篇文章给大家聊聊关于递归算法解决兔子问题，以及java用递归编程(兔子问题)对应的知识点，希望对各位有所帮助，不要忘了收藏本站哦。

2026年11月7日 09:20

安装配置eclipse（安装并配置eclipse出现各种问题怎么办）

大家好，安装配置eclipse相信很多的网友都不是很明白，包括安装并配置eclipse出现各种问题怎么办也是一样，不过没有关系，接下来就来为大家分享关于安装配置eclipse和安装并配置eclipse出现各种问题怎么办的一些知识点，大家可以

2026年11月7日 08:20

base软件（base. apk.1怎么打开）

大家好，base软件相信很多的网友都不是很明白，包括base. apk.1怎么打开也是一样，不过没有关系，接下来就来为大家分享关于base软件和base. apk.1怎么打开的一些知识点，大家可以关注收藏，免得下次来找不到哦，下面我们开始吧

2026年11月7日 08:10

类和对象的概念（类和对象有什么区别）

大家好,今天小编来为大家解答以下的问题，关于类和对象的概念，类和对象有什么区别这个很多人还不知道，现在让我们一起来看看吧！

2026年11月7日 08:00

颜色搭配表及效果图片衣服（女装颜色搭配表及效果图片）

本篇文章给大家谈谈颜色搭配表及效果图片衣服，以及女装颜色搭配表及效果图片对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。

2026年11月7日 06:50

sqlite格式的视频怎么打开（.sqlite是什么文件，用什么工具打开）

大家好,今天小编来为大家解答以下的问题，关于sqlite格式的视频怎么打开，.sqlite是什么文件，用什么工具打开这个很多人还不知道，现在让我们一起来看看吧！

2026年11月7日 05:30

element ui面试题（用element-ui ELDialog和ELTable遇见的坑）

各位老铁们好，相信很多人对element ui面试题都不是特别的了解，因此呢，今天就来为大家分享下关于element ui面试题以及用element-ui ELDialog和ELTable遇见的坑的问题知识，还望可以帮助大家，解决大家的一些

2026年11月7日 04:40

blob视频下载器（blob链接的图片如何调用下载）

各位老铁们，大家好，今天由我来为大家分享blob视频下载器，以及blob链接的图片如何调用下载的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

2026年11月7日 03:30

中文自动翻译成英语的输入法（有没有一种输入法能将打出来的中文自动变成英文）

各位老铁们，大家好，今天由我来为大家分享中文自动翻译成英语的输入法，以及有没有一种输入法能将打出来的中文自动变成英文的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们

2026年11月7日 02:10