高中信息技术考试vb程序题及答案.docx
- 文档编号:26046859
- 上传时间:2023-06-17
- 格式:DOCX
- 页数:16
- 大小:17.88KB
高中信息技术考试vb程序题及答案.docx
《高中信息技术考试vb程序题及答案.docx》由会员分享,可在线阅读,更多相关《高中信息技术考试vb程序题及答案.docx(16页珍藏版)》请在冰豆网上搜索。
高中信息技术考试vb程序题及答案
第一套
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
'填空完成程序,编程计算1-1/2+1/3-1/4+...+1/99-1/100,单击窗体后,在窗体上显示结果。
PrivateSubForm_Click()
DimsAsSingle
DimiAsInteger
s=0
Fori=1To100Step1
IfiMod2<>0Then
s=s+1/i
Else
s=s-1/i
EndIf
Nexti
Print"s=";s
EndSub
第六套
'填空完成程序,编程计算1+1/2+1/3+1/4...+1/99+1/100,单击窗体后,在窗体上显示结果。
PrivateSubForm_Click()
DimsAsSingle'定义变量s为单精度型
DimiAsInteger'定义循环变量
s=0
Fori=1To100Step1
s=s+1/i
Nexti
Print"s=";s
EndSub
'填空完成程序,使得当单击"计算1+2+3+…+100"按钮后,文本框Text1显示1+2+3+…+100的值。
PrivateSubCommand1_Click()
DimaAsInteger
DimiAsInteger
a=0
Fori=1To100Step1
a=a+i
Nexti
Text1.Text=Str((4))
EndSub
第七套
'填空完成程序,使得单击"显示"按钮后,随机产生10个属于区间[0,100)的自然数,并保存于数组a中。
'然后在窗体上显示这10个数的平均值。
'注:
学生运算结果有可能跟样图中数值不一致。
PrivateSubCommand1_Click()
Dima(9)AsInteger
DimsAsSingle
DimiAsInteger
Me.Cls
s=0
Randomize
Fori=0To9Step1
a(i)=Int(Rnd*100)
Printa(i)
Nexti
Fori=0To9
s=s+a(i)
Nexti
Print"这10个自然数的平均值=";s/10
EndSub
'填空完成程序,左键单击窗体时打印下面所示的图案。
'****
'***
'**
'*
PrivateSubForm_Click()
DimiAsInteger
DimjAsInteger
Fori=4To1Step-1
Forj=1ToiStep1
Print"*";
Nextj
Nexti
EndSub
第八套
'填空完成程序,问:
鸡兔同笼,共有100条腿,40个头,问鸡有几只,兔有几只?
'单击窗体后,在窗体上显示结果。
PrivateSubForm_Click()
DimJiAsInteger'Ji变量表示鸡的个数
DimTuAsInteger'Tu变量表示兔的个数
DimLegAsInteger'Leg变量表示腿数
ForJi=1To40
Tu=40-ji
'计算腿数
Leg=ji*2+Tu*4
'如果腿正好100只,则打印。
IfLeg=100Then
Print"鸡=";Ji;"只","兔=";Tu;"只"
EndIf
NextJi
EndSub
'填空完成程序,使得单击"显示"按钮后,显示下面的图形:
'@
'@@
'@@@
'@@@@
'@@@@@
'@@@@@@
PrivateSubCommand1_Click()
DimiAsInteger'定义i为整型变量
DimjAsInteger'定义j为整型变量
Fori=1To6Step1
Forj=1ToIStep1
Print"@";
Nextj
Nexti
EndSub
第九套
'填空完成程序,使得单击"显示"按钮时,Text1、Text2分别显示变量x、y的值。
PrivateSubCommand1_Click()
Dimx,yAsInteger
x=10
y=100
Ifx '以下三条语句交换x,y的值 t=x x=y y=t EndIf Text1.Text=Str(x) Text2.Text=Str(y) EndSub '填空完成程序,使得单击"显示"按钮后,在窗体上显示如图99乘法表。 PrivateSubCommand1_Click() DimiAsInteger DimjAsInteger Fori=1To9Step1 Print""; Forj=1To9 Printi*j PrintvbTab; Nextj print Nexti EndSub 第十套 '填空完成程序,使得在Text1中输入一个数,单击"判断"按钮后,判断这个数是奇数还是偶数 '并在Label1中显示"奇数"或"偶数"出来。 PrivateSubCommand1_Click() DimaAsSingle DimbAsSingle '从Text1中读入这个数,并保存在变量a中 a=Val(text1.text) b=aMod2 Ifb=0Then Label1.Caption="偶数" Else Label1.Caption="奇数" endif EndSub '填空完成程序,使得单击"显示"按钮后,随机产生10个属于区间[0,100)的自然数, '并保存于数组a中,然后在窗体上显示这10个数中的最大值。 PrivateSubCommand1_Click() Dima(9)AsInteger DimmaxAsInteger DimIAsInteger Me.Cls Print Randomize Fori=0To9Step1 a(i)=Int(Rnd*100) Printa(i) Nexti max=a(0) Fori=1To9
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高中 信息技术 考试 vb 程序 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)