中科新闻网神幻之恋2.6神殇专属:请问各位VB编程高手,小女子急求VB编程题目1、 求1+1/2+1/3+……+1/50的和
来源：百度文库 编辑：中科新闻网 时间：2024/05/18 01:43:50
求1+1/2+1/3+……+1/50的和
随机产生10个100到200之间的整数，从大到小排列
将下列矩阵a的行和列元素进行互换，存放到另一个数组b中。
34 15
34 21 50
A= B= 21 74
15 47 26
50 26
编写程序：根据用户输入的考试成绩（百分制，若有小数则四舍五入），按分数划分等级，并输出其等级。分数段划分如下表：
分数段划分表
分数段 100 85～99 75～84 60～74 0～59
等级 A B C D E
随机产生10个100到200之间的整数，从大到小排列
将下列矩阵a的行和列元素进行互换，存放到另一个数组b中。
34 15
34 21 50
A= B= 21 74
15 47 26
50 26
编写程序：根据用户输入的考试成绩（百分制，若有小数则四舍五入），按分数划分等级，并输出其等级。分数段划分如下表：
分数段划分表
分数段 100 85～99 75～84 60～74 0～59
等级 A B C D E
答一下第一题：
Dim a
Dim b(1 to 50)
Dim c
for a=1 to 50
b(a)=1/a
Next
for a=1 to 50
c=c+b(a)
Next
好了，c 就是答案了。
我测试的结果是：4.49920533832942
很简单的，低手就能解决
?
dim i,sum ,
i=0
i=i+1
s=s+i
printf s