原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
读程序练习.doc
读程序练习
1、写出以下流程图实现的功能：
（1）该流程图功能s=1+2+…+___
（2）该流程图功能s=1+2+…+____
（3）该流程图实现的功能s=______________
2、求出10个数中最大数,? 处应该
填入_____________
3、下面两个程序运行结果是 （1）________（2）___________（3）___________
(1)
4、下面的程序运行结果分别为（1）________（2）_____________
5、下面的程序运行结果为________
a = Val(InputBox(a))
b = Val(InputBox(b))
a=a+b
b=a+b
msgbox(“a=”+str(a))
msgbox(“b=”+str(b))
注意：输入数据为3,4
6、下面的程序运行结果为________
a = Val(InputBox(请输入一个三位数))
a1 = a \ 100
a2 = (a - a1 * 100) \ 10
a3 = (a - a1 * 100) Mod 10
MsgBox (a1 + a2 * 10 + a3 * 100)
注意：输入数据为123
7、下面的程序运行结果为_______
a = Val(InputBox(请输入0~100的数据))
b = a \ 10
If b = 9 Then
MsgBox (A)
ElseIf b = 8 Then
MsgBox (B)
ElseIf b = 7 Then
MsgBox (C)
ElseIf b = 6 Then
MsgBox (D)
Else
MsgBox (E)
End If
注意：输入数据为86
SUM=SUM+C
N
Y
C=0
C=C+1
sum=0
结束
C=100
开始
输出SUM
输出SUM
SUM=SUM+C
N
Y
C=0
C=C+1
sum=0
结束
C=100
开始
（1）SUM=0
C=0
Do While C=9
SUM=SUM+C
C=C+1
Loop
MsgBox (sum)
Max = -10000
Min = 10000
Do While C = 5
b = Val(InputBox(B))
C = C + 1
If b Max Then Max = b
If b Min Then Min = b
Loop
MsgBox (Max= + Str(Max))
MsgBox (Min= + Str(Min))
(2)Max = -10000
Do While C = 5
b = InputBox(B)
C = C + 1
If b Max Then Max = b
Loop
MsgBox (Max= + Str(Max))
注意：输入数据为1,2,0,5,10,9
输出SUM
SUM=SUM*C
N
Y
累加器C=0
C=C+1
计数器 sum=1
开始
Max=-10000(设定MAX为足够小的数据)
C=C+1
N
Y
N
Y
结束
MAX
MAX=B
BMAX
C=?
输入B
结束
C=9
开始
（2）SUM=0
C=0
Do While C=9
C=C+1
SUM=SUM+C
Loop
MsgBox (sum)
(3)Max = -10000
Min = 10000
Do While C 5
b =val( InputBox(B))
C = C + 1
If b Max Then Max = b
If b Min Then Min = b
Loop
MsgBox (Max= + Str(Max))
MsgBox (Min= + Str(Min))
文档评论（0）