中科新闻网中国国家安全部证件:请VB高手解决三道计等2级题目...在线等...急...
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 13:24:41
1,编写程序，计算并输出下面级数前n（设n=45）项中所有奇数项的和。
1*2+2*3+3*4+4*5+…+n*(n+1)+…
2,已知在正文文件test.dat中存放有120个记录，每个记录中只有一个数。在文件中，从第一个数开始，每四个数为一组，第一个数为不同商场的代号(顺序号)，其余三个数代表三类商品的营业额(万元)。编写程序，统计显示并向文件t2.dat输出前20个商场的营业额总和n2。
3, 编写程序，输入一段英文字母,统计并输出26个字母（不区分大小写）每一个字母出现
的次数。
在线等，急用，谢了！！
1*2+2*3+3*4+4*5+…+n*(n+1)+…
2,已知在正文文件test.dat中存放有120个记录，每个记录中只有一个数。在文件中，从第一个数开始，每四个数为一组，第一个数为不同商场的代号(顺序号)，其余三个数代表三类商品的营业额(万元)。编写程序，统计显示并向文件t2.dat输出前20个商场的营业额总和n2。
3, 编写程序，输入一段英文字母,统计并输出26个字母（不区分大小写）每一个字母出现
的次数。
在线等，急用，谢了！！
第一题:
Private Sub Form_click()
Dim sum%
sum = 0
For i = 1 To 45 step 2
sum = sum + i * (i + 1)
Next i
Print sum
End Sub
第二题好像要用随机文件
第3题我讲下思路：
设输入字符串的变量为A，共有N个字符N=LEN（A），从第一个字母开始挨个取数到最后一位，再通过函数转换成ASCII码，接着判断每一位是不是26个字母的某一个（注意每个字母有大小写两个编码），通过循环语句，每判断是某个字母就计数器变量自增1，最后打印输出结果。