摘要：
疑问1:如果一个数组变量未定义维度(一维或二维),则其默认为一维?二维?更或多维?两个方面:①若接下来直接对数组赋组的话,则会提示下标超界1 Dim arr() As Integer2 3 arr(1) = 14 5 arr(1, 1) = 1第3句:提示下标超界;第5句:提示下标超界.原因就是未使用Redim语句指定其下界和上界,改为下面的代码1 Dim arr() As Integer2 ReDim arr(3)3 arr(1) = 14 MsgBox arr(1)5 ReDim arr(3, 2)6 arr(1, 1... 阅读全文
摘要：
受命编写考试成绩的对比分析程序.一个下午写完,发现程序运行时间太长,竟然需要将近10分钟的时间(可能是电脑配置太低).不再过多解释,直接上程序吧,一看就知道太麻烦. 1 Option Explicit 2 Option Base 1 3 Sub A上线数据分析() 4 Dim i As Integer, j As Integer, mySheet() As String, k As Integer, m As Integer 5 Dim bjshu As Integer, dkcj(), totalR As Integer, fs() As Double, mc() ... 阅读全文
摘要：
前面已经写过两个成绩处理程序了,但运行速度实在太慢,处理一个年级的成绩约需5分钟,根本没法体会到在VFP中的那种快感,现在又重新改写了原程序,在前面编写学分认定的程序时,慢慢体会到了在VBA中应用数组的方便与简洁,所以这次出发点从数组的角度考虑问题.由于没做界面所以也没法让用户(其实用户就是我自己)选择,只能做一点点的硬性要求:将原始成绩放置到第1个工作表,第1列必须是班级号,从第4列起为依次为单科和总分成绩,(第2列/第3列为姓名/考试号).工作表的名称随便起,存储成绩分析的工作表名字必须为"成绩分析",否则报错.以下是源程序: 1 Option Base 1 2 Sub 阅读全文