贵州省贵阳市普通中学2020-2021学年高一下学期信息技术期末监测考试试题

2021年贵阳“数博会”信息采集表

信息的类型

采集的设备

保存的文件

文本

平板电脑

数博会介绍.doc、

图

手机

声音

录音笔

视频

数码摄像机

等差级数求和的算法：

①令和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