0 返回首页
1. 数学家高斯十岁时秒算出了自然数1〜100的和是5050，我们也可以编写程序秒算自然数“1〜n”的和。请根据左边框内设计的算法将右边框内编写的程序代码补充完整。

等差级数求和的算法：

①令和s的初值为“0”;

②令自然数i的初值为“0”;

③输入n的值；

④如果is100，则执行第⑤步，否则执行第⑧步；

⑤累加自然数i的值；

⑥累加和s的值；

⑦转到第④步执行；

⑧打印输出计算结果“s”的值；

⑨程序结束。

程序代码:

Private Sub Command1_ Click ( )

    s=0

   

    N=Val (Text1.Text)

    Do While i<=n

        i=

        s=s+i

    Loop

     "s="; s

End Sub
【考点】
循环结构语句及程序实现;
【答案】

您现在未登录，无法查看试题答案与解析。 登录
填空题 普通
能力提升
变式训练
拓展培优
真题演练
换一批
1. 代码一：

s=["JavaScript","Java","C++","Php","C","PYTHON"]

max=s[0]

i=1

while i<len(s):

  if max<s[i]:

    max=s[i]

    i+=1

print(max)

程序执行后，输出的结果是。

代码二：

某航空公司对于行李托运费的计费规则是：10公斤内免费，超过10公斤的部分按每公斤单价为机票全额的1.2%收取托运费。创建一个函数，要求输入机票价格和行李重量，计算需要支付的托运费。请在划线处填入合适的代码。

Def cost(p, w)

  If w<=10:

    money=0

  else:

      money=

  return money

  price=int(input("输入机票价格："))

  weight=int(input("输入行李重量（kg）："))

print（"需要支付托运费：", ）
填空题 普通
2. 下列VB程序运行时，单击命令按钮Command1后，语句①被执行了次，文本框Text1中显示的内容是。

Private Sub Command1_Click()

  Dim a(1 To 5) As Integer.i As Integer

  a(1)＝1

  a(2)＝1

  For i＝3 To 5

    a(i)＝2*a(i－1)＋a(i－2)     ′语句①

  Next i

  Text1.Text＝Str(a(5))

End Sub
填空题 普通
3. 运行以下VB程序，结果是。

Dim m As Integer, s As Integer, t As Integer

s=0

t=4

For m=t To 10 Step 2

    s=s+m

Next m

Print s
填空题 普通