求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