安丘实验中学信息技术公2013高二信息技术下学期考试试题.doc

安丘实验中学信息技术公2013高二信息技术下学期考试试题
第一套
1、'填空完成程序，使得当单击窗体后，Label1上显示100以内（含100）偶数之和。
PrivateSubForm_Click()
DimiAsInteger'定义变量i
DimsAsInteger'定义变量s，用于存放100以内（含100）偶数的和
s=0
Fori=2To100Step2
s=s+i
Nexti
Label1.Caption=Str(s)
EndSub
2、'填空完成程序，使得当在Text1中输入圆的半径后，单击"计算"按钮，计算圆的周长，并在Text2中显示出来。
PrivateSubCommand1_Click()
Constpi=3.14'定义符号常量
DimcAsSingle'定义周长c为单精度型
DimrAsSingle'定义半径r为单精度型
r=Val(text1.text)
c=pi*2*r
text2.text=c
EndSub
第二套
'填空完成程序，计算s=1!+2!+3!+…+8!的值并在窗体上打印出结果。
PrivateSubForm_Click()
DimsAsSingle's变量用于存放计算结果
DimpAsSingle
DimiAsInteger'定义一个循环变量
'给s赋初值
s=0
'给p赋初值
p=1
Fori=1To8
p=p*i
s=s+p
Nexti
Print"s=";s
EndSub
'填空完成程序，使得当单击窗体后，计算1+2+3+…+N>500的N的最小值，并在文本框Text1中显示出来。
PrivateSubForm_Click()
DimsAsInteger'变量s存放和
DimnAsInteger
'为s赋初值
s=0
'为n赋初值
n=0
Do
n=n+1
s=s+n
LoopWhiles<=500
Text1.Text=Str(n)
EndSub
第三套
'举重比赛中，60公斤级选手体重不能超过60公斤。
'填空完成程序，使得在文本Text1中输入一个大于60的数时，标签Label1显示"超重！不能参赛！"；
'当输入一个小于等于60的数时，标签Label1显示"合格，可以参赛！"。
PrivateSubCommand1_Click()
DimtAsSingle'定义变量t，值由文本框Text1读入
t=Val(text1.text)
If>Then
Label1.Caption="超重！不能参赛！"
Else
Label1.Caption="合格，可以参赛！"
Endif
EndSub
'填空完成程序，使得单击窗体后，计算出1+2+3+…+N<500的N的最大值，并在文本框Text1中显示出来。
PrivateSubForm_Click()
DimsAsInteger'变量s存放和
DimnAsInteger
'为n赋初值
n=0
'为s赋初值
s=0
DoWhiles<500
n=n+1
s=s+n
Loop
Text1.Text=Str(n-1)
EndSub
第四套
'这是一个简单的显示评语程序，填空完成程序，在文本框Text1中输入一个数后，单击"评语"按钮，在标签Label1显示评语。
'当输入一个小于60的数时，显示"不及格"；
'当输入一个大于等于60且小于85的数时，显示"良好"；
'当输入一个大于等于85的数时，显示"优秀"。
PrivateSubCommand1_Click()
DimCjAsSingle'定义变量Cj，值由文本框Text1读入
Cj=Val(text1.text)
IfCj<60then
Label1.Caption="不及格"
EndIf
IfCj>=60AndCj<85Then
Label1.Caption="良好"
EndIf
IfCj>=85Then
Label1.Caption="优秀"
EndIf
EndSub
'某公司2005年的总产值为2000万元，若总产值以每年5%的速度增长，多少年后总产值翻一倍？
'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。
PrivateSubForm_Click()
DimpAsSingle'变量p保存年产值
DimnAsInteger'整型变量n为所求年数
P=2000
n=0
DoWhilep<4000
p=p*1.05
n=n+1
Loop
Print"n=";n
EndSub
第五套
'填空完成程序，使得当单击"计算7！"按钮后，Text1显示7！的值。
PrivateSubCommand1_Click()
DimaAsInteger
DimiAsInteger
a=1
Fori=1To7Step1
a=a*i
Nexti
Text1.Text=Str((3))
EndSub
'