高一信息技术练习题(vb).doc
《高一信息技术练习题(vb).doc》由会员分享，可在线阅读，更多相关《高一信息技术练习题(vb).doc（6页珍藏版）》请在冰豆网上搜索。
高一信息技术练习题
算法与程序设计（VB）----基本语句
一、根据要求完成下列各题
1、PrivateSubCommand1_Click（）
A=12
B=15
C=A+B
Print"C=";C
EndSub
结果为：
___________________
2、PrivateSubCommand1_Click（）
A=12
B=15
C=B
C=C-A
Print"C=";C
EndSub
结果为：
___________________
3、PrivateSubCommand1_Click（）
X=3
Y=4
Z=Sqr（Y）
Y=X+Z
Print"Y=";Y
EndSub
结果为：
___________________
4、PrivateSubCommand1_Click（）
X=-3
Y=9
Y=Sqr（Y）
Y=Abs（X）+Y
Print"Y=";Y
EndSub
结果为：
___________________
5、PrivateSubCommand1_Click（）
I=120
J=110
PrintI;J
K=I
I=J
J=K
Print"I=";I，"J=";J
EndSub
结果为：
_________________
_________________
6、PrivateSubCommand1_Click（）
I=120
J=110
I=I+J
J=I-J
I=I-J
Print"I=";I，"J=";J
EndSub
结果为：
___________________
7、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
IfA>=0Then
PrintA
Else
PrintAbs（A）
EndIf
EndSub
单击按钮，输入-9，
运行结果为：
_____________
8、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
B=Val（InputBox（"请输入一个数"））
IfA>=BThen
Y=A
Else
Y=B
EndIf
PrintY
EndSub
单击按钮，输入100和90
运行结果为：
_____________
9、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
IfInt（A/2）=A/2Then
A=A
Else
A=A+1
EndIf
Print"A=";A
EndSub
单击按钮，输入2
运行结果为：
_____________
单击按钮，输入9
运行结果为：
_____________
10、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
IfAMod2=0Then
Label1.Caption="您输入的是一个偶数"
Else
Label1.Caption="您输入的是一个奇数"
EndIf
EndSub
单击按钮，输入37
运行结果为：
_____________________
11、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
S=0
ForI=1ToA
S=S+I
NextI
Print"S=";S
EndSub
单击按钮，输入5
运行结果为：
__________________
12、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
S=0
ForK=1ToAStep3
S=S+2
NextK
Print"S=";S
EndSub
单击按钮，输入15
运行结果为：
__________________
13、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
S=0
ForK=1ToAStep3
S=S+2
NextK
S="S="+Str（S）
Label1.Caption=S
EndSub
单击按钮，输入27
运行结果为：
__________________
14、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
S=2
ForK=1ToA
S=S*K
NextK
S="S="+Str（S）
Label1.Caption=S
EndSub
单击按钮，输入4
运行结果为：
__________________
15、PrivateSubCommand1_Click（）
A=Val（InputBox（"请输入一个数"））
S=1
ForK=1ToAStep5
S=S*2
NextK
S="S="+Str（S）
Label1.Caption=S
EndSub
单击按钮，输入25
运行结果为：
__________________
16、写出下列语句的基本格式
（1）、赋值语句：
__________________实例：
__________________
（2）、输入语句：
__________________实例：
__________________
（3）、输出语句：
___________________实例：
__________________
17、写出下列语句的基本格式，并画出执行过程的流程图。
（1）、条件语句（If）
基本格式：
流程图：
格式：
流程图：
18、填空完成程序，使之能够完成以下功能：
并画出程序流程图。
计算s=1!
+2!
+3!
+…+8!
的值并在窗体上打印出结果。
PrivateSubCommand1_Click（）
DimSAsSingle,PAsSingle,IAsInteger
S=____________流程图：
P=____________
ForI=1To8
P=___________
S=___________
_________
Print"S=",S
EndSub
19、填空完成程序，使之能够完成以下功能：
并画出程序流程图。
计算1-1/2+1/3-1/4+...+1/99-1/100的值。
DimsAsSingle
DimiAsInteger
s=_____________
Fori=1To_________Step____________
IfiMod2=0____________
s=___________
______
s=___________
EndIf
Nexti
EndSub
流程图：
升级会员 