求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
第1个回答 2019-10-13
答一下第一题：
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
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
