高中信息技术考试vb程序题及答案Word格式文档下载.docx
《高中信息技术考试vb程序题及答案Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《高中信息技术考试vb程序题及答案Word格式文档下载.docx(14页珍藏版)》请在冰豆网上搜索。
'
填空完成程序,计算s=1!
+2!
+3!
+…+8!
的值并在窗体上打印出结果。
DimsAsSingle'
s变量用于存放计算结果
DimpAsSingle
DimiAsInteger'
定义一个循环变量
'
给s赋初值
给p赋初值
p=1
Fori=1To8
p=p*i
s=s+p
Nexti
Print"
s="
;
s
填空完成程序,使得当单击窗体后,计算1+2+3+…+N>
500的N的最小值,并在文本框Text1中显示出来。
变量s存放和
DimnAsInteger
为s赋初值
为n赋初值
n=0
Do
n=n+1
s=s+n
LoopWhiles<
=500
Text1.Text=Str(n)
第三套
举重比赛中,60公斤级选手体重不能超过60公斤。
填空完成程序,使得在文本Text1中输入一个大于60的数时,标签Label1显示"
超重!
不能参赛!
"
;
当输入一个小于等于60的数时,标签Label1显示"
合格,可以参赛!
。
DimtAsSingle'
定义变量t,值由文本框Text1读入
t=Val(text1.text)
If>
Then
Label1.Caption="
Else
Label1.Caption="
Endif
填空完成程序,使得单击窗体后,计算出1+2+3+…+N<
500的N的最大值,并在文本框Text1中显示出来。
n=0
DoWhiles<
500
s=s+n
Loop
Text1.Text=Str(n-1)
第四套
这是一个简单的显示评语程序,填空完成程序,在文本框Text1中输入一个数后,单击"
评语"
按钮,在标签Label1显示评语。
当输入一个小于60的数时,显示"
不及格"
当输入一个大于等于60且小于85的数时,显示"
良好"
当输入一个大于等于85的数时,显示"
优秀"
DimCjAsSingle'
定义变量Cj,值由文本框Text1读入
Cj=Val(text1.text)
IfCj<
60then
EndIf
IfCj>
=60AndCj<
85Then
IfCj>
=85Then
某公司2005年的总产值为2000万元,若总产值以每年5%的速度增长,多少年后总产值翻一倍?
填空完成程序,使得当单击窗体后,在窗体上输出问题答案。
DimpAsSingle'
变量p保存年产值
DimnAsInteger'
整型变量n为所求年数
P=2000
DoWhilep<
4000
p=p*1.05
n=n+1
n="
n
第五套
填空完成程序,使得当单击"
计算7!
按钮后,Text1显示7!
的值。
DimaAsInteger
DimiAsInteger
a=1
Fori=1To7Step1
a=a*i
Text1.Text=Str((3))
填空完成程序,编程计算1-1/2+1/3-1/4+...+1/99-1/100,单击窗体后,在窗体上显示结果。
DimsAsSingle
DimiAsInteger
s=0
Fori=1To100Step1
IfiMod2<
>
0Then
s=s+1/i
s=s-1/i
第六套
填空完成程序,编程计算1+1/2+1/3+1/4...+1/99+1/100,单击窗体后,在窗体上显示结果。
定义变量s为单精度型
定义循环变量
s=s+1/i
计算1+2+3+…+100"
按钮后,文本框Text1显示1+2+3+…+100的值。
a=0
a=a+i
Text1.Text=Str((4))
第七套
填空完成程序,使得单击"
显示"
按钮后,随机产生10个属于区间[0,100)的自然数,并保存于数组a中。
然后在窗体上显示这10个数的平均值。
注:
学生运算结果有可能跟样图中数值不一致。
Dima(9)AsInteger
Me.Cls
Randomize
Fori=0To9Step1
a(i)=Int(Rnd*100)
Printa(i)
Fori=0To9
s=s+a(i)
Print"
这10个自然数的平均值="
s/10
填空完成程序,左键单击窗体时打印下面所示的图案。
****
***
**
*
PrivateSubForm_Click()
DimjAsInteger
Fori=4To1Step-1
Forj=1ToiStep1
*"
Nextj
print
第八套
填空完成程序,问:
鸡兔同笼,共有100条腿,40个头,问鸡有几只,兔有几只?
单击窗体后,在窗体上显示结果。
DimJiAsInteger'
Ji变量表示鸡的个数
DimTuAsInteger'
Tu变量表示兔的个数
DimLegAsInteger'
Leg变量表示腿数
ForJi=1To40
Tu=40-ji
计算腿数
Leg=ji*2+Tu*4
如果腿正好100只,则打印。
IfLeg=100Then
鸡="
Ji;
"
只"
"
兔="
Tu;
NextJi
按钮后,显示下面的图形:
@
@@
@@@
@@@@
@@@@@
@@@@@@
定义i为整型变量
DimjAsInteger'
定义j为整型变量
Fori=1To6Step1
Forj=1ToIStep1
@"
;
Nextj
Print
第九套
按钮时,Text1、Text2分别显示变量x、y的值。
Dimx,yAsInteger
x=10
y=100
Ifx<
yThen
'
以下三条语句交换x,y的值
t=x
x=y
y=t
Text1.Text=Str(x)
Text2.Text=Str(y)
按钮后,在窗体上显示如图99乘法表。
Fori=1To9Step1
Forj=1To9
Printi*j
PrintvbTab;
第十套
填空完成程序,使得在Text1中输入一个数,单击"
判断"
按钮后,判断这个数是奇数还是偶数
并在Label1中显示"
奇数"
或"
偶数"
出来。
DimaAsSingle
DimbAsSingle
从Text1中读入这个数,并保存在变量a中
a=Val(text1.text)
b=aMod2
Ifb=0Then
endif
按钮后,随机产生10个属于区间[0,100)的自然数,
并保存于数组a中,然后在窗体上显示这10个数中的最大值。
DimmaxAsInteger
DimIAsInteger
Fori=0To9Step1
max=a(0)
Fori=1To9
Ifmax<
a(i)Then
max=a(i)
这10个自然数中的最大值="
Str((3))
填空完成程序:
单击"
计算5!
按钮后,Text1显示5!
Fori=2To5
Next__i___
Text1.Text=Str(a)
第十四套
某公司每年的销售收入均比前一年增长10个百分点,按此速度,需要多少年可以实现销售收入翻两番(即4倍)的目标。
DimiAsSingle
设s为所求年数,定义为整型,结果由窗体输出
i=1
DoWhile___i<
=4_____
i=_i*1.1_______
s=s+1
在横线处添加代码实现单击该按钮,窗体的背景色由原来的默认色变为红色(红:
&
HFF&
)
backcolor=&
第十五套
已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c,其中a不等于0。
填空完成程序,求方程的根。
要求:
如果方程无实数根,则输出"
无实数根"
,否则输出两个实数根。
Dima,b,c,dAsSingle
Dimx1,x2AsSingle
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
Ifa<
>
0Then'
判断a是否等于0
d=b^2-4*a*c
Ifd>
=0Then'
判断是否有实数根
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Label1.Caption=Str(x1)
Label2.Caption=Str(x2)
Label3.Caption=”无实数根”
填空完成程序,打印如图所示的图案。
*
**
***
DimiAsInteger'
DimjAsInteger'
Fori=-2To2
Forj=1To3-abs(i)
Print“*”;
Print'
换行
Nexti
第十八套
p=1
p=p*i
第十九套
a=0