VB：利用数组进行分类统计【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,269贴子：
VB：利用数组进行分类统计收藏
'===================================================='EX-23：分类统计问题'====================================================Private Sub Command1_Click()
Dim n%(10), maths%(59), i%, x%
Print "60人的数学成绩："
Print "==============="
For i = 0 To 59
maths(i) = Int(101 * Rnd)
'削弱随机性，使其更接近一般情况下考试成绩的分布情况
If maths(i) & 10 Then maths(i) = maths(i) * 10
If maths(i) & 20 Then maths(i) = maths(i) * 5
If maths(i) & 30 Then maths(i) = maths(i) * 3
If maths(i) & 50 Then maths(i) = maths(i) * 2
Print Tab(5 * x + 1); maths(i);
x = (x + 1) Mod 10
If x = 0 Then Print
Print: Print
For i = 0 To 59
x = maths(i) \ 10
n(x) = n(x) + 1
Print "分数段", "人数"
Print "======", "===="
Print "0～59", n(5) + n(4) + n(3) + n(2) + n(1) + n(0)
Print "60～69", n(6)
Print "70～79", n(7)
Print "80～89", n(8)
Print "90～99", n(9)
Print "100", n(10)End Sub从 maths(i) = Int(101 * Rnd)这条语句开始到之后都看不懂了，求解~~
多看看书，自然就懂了
登录百度帐号网站已改版，请使用新地址访问：
VB数组运用 一些ＶＢ中 的例子，囊括了 的大部分知识点．可供参考和调用． Windows Develop 240万源代码下载- www.pudn.com
&文件名称: VB数组运用
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 324 KB
&&上传时间:
&&下载次数: 35
&&提 供 者:
&详细说明：一些ＶＢ中数组运用的例子，囊括了ＶＢ数组的大部分知识点．可供参考和调用．-some VB examples of the use of the array, the array includes most of the VB knowledge point. For reference, and use.
文件列表(日期：~)(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&VB10&&....\V10_1_1&&....\.......\&&....\.......\BIN&&....\.......\...\V10_1_1.EXE&&....\.......\...\V10_1_1.PDB&&....\.......\&&....\.......\&&....\.......\&&....\.......\OBJ&&....\.......\...\DEBUG&&....\.......\V10_1_1.SLN&&....\.......\V10_1_1.sln.old&&....\.......\V10_1_1.VBPROJ&&....\.......\V10_1_1.vbproj.user&&....\.......\V10_1_1VBPROJ.USER&&....\V10_2_1&&....\.......\&&....\.......\BIN&&....\.......\...\V10_2_1.EXE&&....\.......\...\V10_2_1.PDB&&....\.......\&&....\.......\&&....\.......\&&....\.......\OBJ&&....\.......\...\DEBUG&&....\.......\V10_2_1.SLN&&....\.......\V10_2_1.sln.old&&....\.......\V10_2_1.VBPROJ&&....\.......\v10_2_1.vbproj.user&&....\.......\V10_2_1VBPROJ.USER&&....\V10_3_1&&....\.......\&&....\.......\BIN&&....\.......\...\V10_3_1.EXE&&....\.......\...\V10_3_1.PDB&&....\.......\&&....\.......\&&....\.......\&&....\.......\OBJ&&....\.......\...\DEBUG&&....\.......\V10_3_1.SLN&&....\.......\V10_3_1.sln.old&&....\.......\V10_3_1.VBPROJ&&....\.......\V10_3_1.vbproj.user&&....\.......\V10_3_1VBPROJ.USER&&....\V10_3_2&&....\.......\&&....\.......\BIN&&....\.......\...\V10_3_2.EXE&&....\.......\...\V10_3_2.PDB&&....\.......\&&....\.......\&&....\.......\&&....\.......\OBJ&&....\.......\...\DEBUG&&....\.......\V10_3_2.SLN&&....\.......\V10_3_2.sln.old&&....\.......\V10_3_2.VBPROJ&&....\.......\V10_3_2.vbproj.user&&....\.......\V10_3_2VBPROJ.USER&&....\V10_3_3&&....\.......\&&....\.......\BIN&&....\.......\...\V10_3_3.EXE&&....\.......\...\V10_3_3.PDB&&....\.......\&&....\.......\&&....\.......\&&....\.......\OBJ&&....\.......\...\DEBUG&&....\.......\V10_3_3.SLN&&....\.......\V10_3_3.sln.old&&....\.......\V10_3_3.VBPROJ&&....\.......\V10_3_3.vbproj.user&&....\.......\V10_3_3VBPROJ.USER&&....\V10_4_1A&&....\........\&&....\........\BIN&&....\........\...\V10_4_1A.EXE&&....\........\...\V10_4_1A.PDB&&....\........\&&....\........\&&....\........\&&....\........\OBJ&&....\........\...\DEBUG&&....\........\V10_4_1A.SLN&&....\........\V10_4_1A.sln.old&&....\........\V10_4_1A.VBPROJ&&....\........\V10_4_1a.vbproj.user&&....\........\V10_4_1AVBPROJ.USER&&....\V10_4_1B&&....\........\&&....\........\BIN&&....\........\...\V10_4_1B.EXE&&....\........\...\V10_4_1B.PDB&&....\........\&&....\........\&&....\........\&&....\........\OBJ
&近期下载过的用户:
&相关搜索:
&输入关键字，在本站240万海量源码库中尽情搜索：
&[] - 本软件有两种成绩录入方式：
1， 手工录入：
本软件将根据输入的应考学生的人数产生一个文本框数组，然后手动输入成绩。
2，文件录入：
先将成绩输入到一个文本文件中，然后又软件读入后，再对成绩进行分析，统计。
&[] - 如何实现图像的马赛克效果！用VC做的图像处理。
&[] - java异常情形的一些实例．里面列举了一些java异常种类，可供参考
&[] - vb编程实现摄像头图像的捕获,将摄像头的图象保存在一个二进制数组中
&[] - vb数据库树型结构查询
&[] - vb波形显示程序
估计很多学VB的朋友对使用VB做波形显示感兴趣
不过网上类似的源码的确不地很多
前不久我很一个虚拟仪器项目时，写了个个程序
发上来的源码是用于测试显示性能的，如要引用请注明作者及出处
程序不很完善，使用时请自己加入代码实现同步显示。
数据源是数组构成的缓冲区
&[] - vb实验教程源码，初学者可看看，学校的实验源码。
&[] - vb以及SQL的学生信息系统
软件简介: 学生信息管理系统
&[] - 不要错过这个使用ADO编的代码，它是为公司设计的，包括销售、购买、回收、库存数据库报表功能，并有完善的安全功能，推荐。需要另外下载水晶报表控件（商业）您所在位置： &
&nbsp&&nbsp&nbsp&&nbsp
数组的应用.doc 3页
本文档一共被下载：
次 ,您可全文免费在线阅读后下载本文档。
下载提示
1.本站不保证该用户上传的文档完整性，不预览、不比对内容而直接下载产生的反悔问题本站不予受理。
2.该文档所得收入(下载+内容+预览三)归上传者、原创者。
3.登录后可充值，立即自动返金币，充值渠道很便利
数组的应用
你可能关注的文档：
··········
··········
数组的应用（一）
1、验证实验一。
假定学生的成绩在数组XS_CJ(1 to 10)中，对应的姓名在数组XS_XM(1 To 10)中，单击按钮“排序”时，能按分数从高到低的排列，即排序后XS_CJ(1)和XS_XM(1)为第一名的成绩、姓名。
题目分析：本实验是完成一个对数组元素从大到小的排序。可以采用教材中中介绍的冒泡法完成排序，在此介绍另一种简单的排序方法——比较交换法。
假设对A(N)数组中的数据从大到小排序，比较交换法的排序步骤如下：
（1）将第一个数与第2个到第10个数依次比较，如果A(1)<A(J)(J=2,3,…,10)，则交换A(1)和A(J)；
（2）将第2个数与第3个到第10个依次比较，如果A(2)<A(J)(J=3,…,10)，则交换A(2)和A(J)；
（3）重复以上方法，将第I个数与第I+1个数到第10个数依次比较，如果A(I)<A(J)(J=3,…,10)，则交换A(I)和A(J)；
共重复N-1轮。
在本实验中，每次对成绩的比较中，需要交换的不仅XS_CJ数组中的元素，而且对应的XS_XM数组中对应的元素也要进行交换。
（1）设计界面可参考如下图8.1所示。
用列表框LstOldMark和LstNewMark分别来显示排序前后学生的姓名和成绩。
（2）编写代码
在窗体模块的声明段声明
Option Base 1
Dim XS_XM(10) As string
Dim XS_CJ(10) As Single
在窗体的Load事件过程中完成对数据的输入。
For I = 1 To 10
XS_XM(I) = InputBox("请输入第" & Str(I) & "个学生的姓名", "成绩排序")
XS_CJ(I)=val(InputBox("请输入第" & Str(I) & "个学生的成绩", "成绩排序"))
LstOldMark.AddItem
XS_XM(I) & "
" &XS_CJ(I)
在“排序”按钮的Click事件过程中完成排序，部分代码如下：
‘用比较交换法进行排序
For I=1 To 9
For J=I+1 To 10
If XS_CJ(I)<XS_CJ(J) Then
‘交换学生成绩
T=XS_CJ(I) :XS_CJ(I)=XS_CJ(J): XS_CJ(J)=T
‘交换学生姓名
T=XS_XM(I) : XS_XM (I)= XS_XM (J): XS_XM (J)=T
‘排序的结果显示于列表框LstNewMark中，请自行补充完成。
2、验证实验二。
在列表框中生成某包含有两位随机整数的6行5列的矩阵,单击“转置”按钮对该矩阵进行转置,结果显示于另一个列表框中。
题目分析：矩阵的转置就是将矩阵的行和列交换。定义两个二维数组A(6,5)和B(5,6)，用二重循环和随机函数产生二维数组A(6,5)的各元素。
设计界面如下：
列表框LstA中显示原矩阵A，列表框LstB中显示转置后的矩阵B，命令按钮“输入”完成矩阵A的生成和显示，“转置”完成矩阵A的转置，并将结果显示在LstB中。
在窗体模块的声明段声明数组：
Dim A(6,5) As Integer, B(5,6) As Integer
“输入”命令按钮的Click事件过程中，用二重循环和随机函数产生二维数组A(6,5)的各元素。请自行完成。
“转置”命令按钮的Click事件过程代码
For n = 1 To 5
For m = 1 To 6
B(n, m) = A(m, n)
s = s & Format(B(n, m), "@@@")
LstB.AddItem ""
LstB.AddItem
3、程序设计一。
随机产生20名同学的身高，编写程序求最高身高、最低身高和平均身高。假定同学的身高范围是1.55米到1.80米。
程序设计二。
修改验证实验一的界面，增加查找功能。在排好序的数组中查找某个学生的成绩，如果找到，则显示找到显示该学生的成绩以及名次，如果没有找到，则给出提示。
题目分析：这个一个顺序查找的问题。将要查找的学生姓名依次与XS_XM数组中的元素比较，如果与第I个元素相等，表示找到，XS_CJ(I)和I分别是该学生的成绩和名次。如果遍历完所有的姓名，仍没相等的元素，表明没有该学生的成绩，给出提示信息。
5、程序设计三。
编写程序求一个3行3列矩阵的三行中元素之和最大的那一行。
题目分析：用二维
正在加载中，请稍后...扫二维码下载作业帮
3亿+用户的选择
下载作业帮安装包
扫二维码下载作业帮
3亿+用户的选择
一道简单的VB题目关于（Array函数）&我想知道 为什么 9 还有array .怎么应用 最好举个简单的例子
作业帮用户
扫二维码下载作业帮
3亿+用户的选择
Private Sub Command1_Click()
a1 = Array("1", "2", "3")
For i = 0 To 2
Print a1(i)
NextEnd Sub '简单的例子
为您推荐：
其他类似问题
扫描下载二维码电力系统 嵌入式开发 行业应用解决方案 多年电力行业开发 承接重庆软硬件开发...
Vb6里面数组的使用的小例子
Vb6里面数组的使用的小例子
（1）：动态数组的使用
(1.1)：首先声明数组的类型
语法为dim a() as integer
(1.2)：使用的时候定义数祖的下标和上标
语法为redim a(1 to 5)，表示数组的小标为1，上标为5。
(1.3)：赋值
dim I as integer
for i=0 to 5
(1.4)：动态数组的使用
dim j as integer
for j=0 to 5
me.list1.additem a(i)
注意重新使用的时候不用重新分配数组的上标和下标
动态数组的使用中有几个要点：
分配数组的下标和上标的时候必须要在赋值以前，否则出现值为0的情况
dim I as interger
for i=0 to 5
redim a(0 to 5)
出来的值为（0，0，0，0，0，5）原因未知。
没有更多推荐了，
加入CSDN，享受更精准的内容推荐，与500万程序员共同成长！