分享信息技术会考VB上机编程模拟题.docx
《分享信息技术会考VB上机编程模拟题.docx》由会员分享，可在线阅读，更多相关《分享信息技术会考VB上机编程模拟题.docx（63页珍藏版）》请在冰豆网上搜索。
分享信息技术会考VB上机编程模拟题
[分享]信息技术会考VB上机编程模拟题
2009VB说明:
下列练习题是模拟系统中的一部分，要求学生平时练习时为每道题建一个专用文件夹，文件夹的名称可与窗体的Caption属性相同。
会考时共有四道编程题，其中A类题、B类题、C类题、D类题各一题。
A类（每题8分）说明:
A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。
用到的控件有:
标签框、文本框、滚动条、命令按钮等。
A01、编写加法器，在文本框中输入两个数，单击“计算”求和并显示结果;单击“清除”清除各项数值。
PrivateSub
Command1_Click（）
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a+b
Label4.Caption=c
EndSub
PrivateSub
Command2_Click（）
Text1.Text=""
Text2.Text=""
Label4.Caption=""
EndSub
A02、编写计算水果价钱的程序。
在文本框中输入水果的购买量。
单击“一级”时按2.5元/kg计价，单击“二级”按2元/kg计价，并在价钱框中显示价钱。
单击“清除”清除各框数据;单击“退出”退出程序。
PrivateSubb=a*2.5
Command1_ClicLabel3.Capti
k（）on=b
Text1.Text=EndSub
""PrivateSub
Label3.CaptioOption2_Click（）
n=""a=
EndSubVal（Text1.Text）
PrivateSubb=a*2Command2_ClicLabel3.Capti
k（）on=b
EndEndSubEndSub
PrivateSub
Option1_Click（）
a=
Val（Text1.Text）
3A03、已知y=x，|x,10|，4，编程求y的值。
要求:
在
文本框中输入x的值，单击“计算”按钮后在“y”框中显示y
的值;单击“退出”按钮退出程序。
PrivateSub
Command1_Click（）
x=Val（Text1.Text）
y=x^3+Abs（x-10）+
4
Label3.Caption=y
EndSub
PrivateSub
Command2_Click（）
End
EndSub
A04、编程实现:
在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。
PrivateSub
Command1_Click（）
r=Val（Text1.Text）
c=2*3.14*r
s=3.14*r^2
Label4.Caption=c
Label5.Caption=s
EndSub
A05、编程计算圆锥的体积。
要求:
输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来;单击
2“清除”按钮可以清除各项数值。
提示:
V=πhr，π取3.14
PrivateSub
Command1_Click（）
r=Val（Text1.Text）
h=Val（Text2.Text）
v=1/3*r^2*h
Label4.Caption=v
EndSub
PrivateSub
Command2_Click（）
Text1.Text=""
Text2.Text=""
Label4.Caption=""
EndSub
A06、华氏温度（F）与摄氏温度（C）之间的转换关系为:
。
编程实现:
若用户在文本框中输入
一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显
示出来;单击“清除”按钮可以清除各温度值。
PrivateSub
Command1_Click（）
a=Val（Text1.Text）
b=a*9/5+32
Label3.Caption=b
EndSub
PrivateSub
Command2_Click（）
Text1.Text=""
Label3.Caption=""
EndSub
A07、某市近20年的生产总值情况如下:
第1年是1000亿
元，以后平均每年以5%的速度增长，通过滚动条求各年份
该市生产总值是多少,提示:
某年生产总值,
PrivateSub
HScroll1_Change（）
n=HScroll1.Value
z=1000*（1+0.05）
^（n-1）
Label2.Caption=n
Label4.Caption=z
EndSub
PrivateSub
Form_Load（）
HScroll1.Min=1
HScroll1.Max=20
EndSub
A08、已知计算人口增长的公式是:
，其中pl为所求人口数，p为人口基数，r为年增长率，n为经过的年头。
已知2000年我国有13.25亿人口，若年增长率固定为千分之1.5，请使用滚动条表示100年内我国的人口状况。
PrivateSub
HScroll1_Change（）
n=HScroll1.Value
p=13.25*（1+
0.0015）^（n-2000）
Label1.Caption=n
Label3.Caption=p
EndSub
PrivateSub
Form_Load（）
HScroll1.Min=2000
HScroll1.Max=2100
EndSub
A09、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。
要求:
在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值;单击“退出”按钮退出程序。
（提示:
，其中g=9.8）。
PrivateSub
Command1_Click（）
h=Val（Text1.Text）
g=9.8
t=Sqr（2*h/g）
Label3.Caption=t
EndSub
PrivateSub
Command2_Click（）
End
EndSub
A10、一架雪橇沿一斜坡滑下，它在时间t（秒）滑下的距
2离s（米）由以下公式给出:
s=10t+2t。
编程实现:
若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来;单击“刷新”按钮可以清除各项数值。
PrivateSub
Command1_Click（）
t=Val（Text1.Text）
s=10*t+2*t^2
Label3.Caption=s
EndSub
PrivateSub
Command2_Click（）
Text1.Text=""
Label3.Caption=""
EndSub
A11:
已知某日外汇牌价:
1美元,8.27元人民币，1欧元,
10.46元人民币。
设计程序，使之能根据用户输入的人民币
数额，计算出其相对应的外币数额。
PrivateSub
Command1_Click（）
r=Val（Text1.Text）
w=r/8.27
Label3.Caption=w
EndSub
PrivateSub
Command2_Click（）
r=Val（Text1.Text）
w=r/10.46
Label3.Caption=w
EndSub
PrivateSub
Command3_Click（）
Text1.Text=""
Label3.Caption=""
EndSub
A12:
求并联电阻R的值。
要求:
在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”
框中显示并联电阻R的值;单击“清除”按钮清除数据;单击“退出”按钮退出程序。
（提示:
）
PrivateSub
Command1_Click（）
r1=Val（Text1.Text）
r2=Val（Text2.Text）
r=（r1*r2）/（r1+r2）
Label3.Caption=r
EndSub
PrivateSub
Command2_Click（）
Text1.Text=""
Text2.Text=""
Label3.Caption=""
EndSub
PrivateSubCommand3_Click（）
End
EndSub
A13:
两个同心圆构成一个圆环，编程求圆环的面积S。
公
式:
其中π=3.14，R1>R2
PrivateSubCommand1_Click（）
r1=Val（Text1.Text）
r2=Val（Text2.Text）
s=3.14*（r1^2-r2^2）
Label3.Caption=sEndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Label3.Caption=""
EndSub
A14:
按复利计算利息的一种储蓄，若年利率固定是2.25%，编程实现:
若用户在文本框中输入本金额和存期，单击“计算”按钮可以计算出存款到期后的本利和，并显示在如题所示的标签中;单击“清除”按钮可以清除各项数值。
提示:
计算本利和的公式是:
;
PrivateSub
Command1_Click（）
a=Val（Text1.Text）
b=Val（Text2.Text）
s=a*（1+0.0225）^b
Label3.Caption=s
EndSub
PrivateSub
Command2_Click（）
Text1.Text=""
Text2.Text=""
Label3.Caption=""
EndSub
A15:
在窗体上放置一个标签“新北京新奥运”，单击单选按钮“红色”时，“新北京新奥运”变为红色字，单击单选按钮“蓝色”时，“新北京新奥运”变为蓝色字。
PrivateSub
Option1_Click（）
Label1.ForeColor=
vbRed
EndSub
PrivateSub
Option2_Click（）
Label1.ForeColor=
vbBlue
EndSub
A16:
编写减法器，在文本框中输入两个数，单击“计算”求差并显示结果;单击“清除”清除各项数值。
PrivateSub
Command1_Click（）
a=Val（Text1.Text）
b=Val（Text2.Text）
c=a-b
Label4.Caption=c
EndSub
PrivateSub
Command2_Click（）
Text1.Text=""
Text2.Text=""
Label4.Caption=""
EndSub
B类（每题8分）
说明:
B类题以画图语句的应用、简单动画效果、随机函数、
截断函数、时间函数及逻辑运算的简单应用为主。
用到的控
件还有:
命令按钮、图片框、滚动条、计时器等。
B01、编程实现:
在文本框中输入文字，单击“粗体”、“下划
线”复选框可以选择或取消粗体、下划线。
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Text1.FontBold=True
Else
Text1.FontBold=False
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Text1.FontUnderline=
True
Else
Text1.FontUnderline=
False
EndIf
EndSub
B02、编程实现:
程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机;单击“结束”按钮，结束程序。
PrivateSub
Command1_Click（）
End
EndSub
PrivateSub
Timer1_Timer（）
Form1.BackColor=
RGB（256*Rnd,256*Rnd,
256*Rnd）
EndSub
PrivateSubForm_Load（）
Randomize
EndSub
B03、制作一个“改变窗口背景色”程序。
要求:
单击“变色”按钮，窗口背景色随机改变一次;单击“结束”按钮，结束程序。
PrivateSubCommand1_Click（）
Form1.BackColor=
RGB（256*Rnd,256*
Rnd,256*Rnd）
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
Randomize
EndSub
B04、编程实现:
程序运行后，在图片上每单击一次，图片
在窗体中的位置就随机变化一次。
PrivateSubForm_Load（）
Randomize
EndSub
PrivateSub
Image1_Click（）
Image1.Top=Rnd*
Form1.ScaleHeight
Image1.Left=Rnd*
Form1.ScaleWidth
EndSub
B05、编一个移动图片程序，每间隔0.1秒使图片从窗口左边向右边水平移动100个单位。
PrivateSub
Timer1_Timer（）
Image1.Left=
Image1.Left+100
EndSub
B06、单击“开始”按钮一只小鸟每隔0.5秒钟在窗体范围内随机移动一次，“单击“停止”按钮停止移动。
PrivateSubCommand1_Click（）
Timer1.Enabled=
True
最初在属性窗口中设置Timer1
EndSub
的Enabled为False
PrivateSubCommand2_Click（）
Timer1.Enabled=False
EndSub
PrivateSubForm_Load（）
Randomize
EndSub
PrivateSubTimer1_Timer（）
Image1.Left=Rnd*
Form1.ScaleWidth
Image1.Top=Rnd*
Form1.ScaleHeight
EndSub
B07、编程实现:
程序运行后，单击“变大”按钮，图片尺寸变大;单击“变小”按钮，图片尺寸变小。
PrivateSub
Command1_Click（）
Image1.Height=
最初在属性窗口中设置Image1.Height*2Image1的Stretch为TrueImage1.Width=
Image1.Width*2
EndSub
PrivateSub
Command2_Click（）
Image1.Height=
Image1.Height/2
Image1.Width=
Image1.Width/2
EndSub
B08、制作一个图片显示器，程序运行界面如图所示。
要求:
程序运行开始，屏幕出现“显示/隐藏”按钮和“退出”按钮。
单
击“显示/隐藏”按钮窗体中显示或隐藏图片，单击“退出”按钮结束程序。
PrivateSub
Command1_Click（）
Image1.Visible=Not
Image1.Visible
EndSub
PrivateSub
Command2_Click（）
End
EndSub
最初在属性窗口中设置
Image1的Stretch为TrueB09、制作一个拖动水平滚动条设置年龄的程序，如图所示。
要求:
程序运行开始，年龄框为空;当拖动水平滚动条时，年龄框中显示水平滚动条当前值。
PrivateSubForm_Load（）
HScroll1.Min=10
HScroll1.Max=18
EndSub
PrivateSub
HScroll1_Change（）
Text1.Text=
HScroll1.Value
EndSub
PrivateSub
Command1_Click（）
End
EndSub
B10、编程实现:
用垂直滚动条表示字号大小（1-48，单位:
磅），通过拖动滑块改变文本框中文字的大小，并通过恰当的控件显示出字号。
PrivateSubForm_Load（）
VScroll1.Max=48
VScroll1.Min=1
Text1.Text="字号"
EndSub
PrivateSub
VScroll1_Change（）
Text1.FontSize=
VScroll1.Value
Label2.Caption=
VScroll1.Value
EndSub
B11、制作一个能够显示当前系统日期和时间的程序。
要求:
单击“日期”按钮显示当前系统日期;单击“时间”按钮显示当前系统时间;单击“退出”按钮退出程序;窗体的背景色为黄色;标签背景为透明，显示的文字为蓝色，字号为“二号”字。
PrivateSubForm_Load（）
Label1.ForeColor=
vbBlue
EndSub
PrivateSubCommand1_Click（）
Label1.Caption=DateEndSub
PrivateSubCommand2_Click（）
Label1.Caption=TimeEndSub
PrivateSubCommand3_Click（）
End
EndSub
B12、在窗体的任意位置单击鼠标左键时，连接鼠标所在位
置与点（500，500）画一条颜色随机的线段。
PrivateSub
Form_MouseDown（ButtonAs
Integer,ShiftAsInteger,XAs
Single,YAsSingle）
IfButton=1Then
Line（500,500）-（X,Y）,
RGB（256*Rnd,256*Rnd,256*
Rnd）
EndIf
EndSub
B13、在窗体的任意位置单击鼠标左键时，在窗体上以
（800,200）为左上角，以鼠标单击位置为右下角，画一个颜
色随机的矩形。
PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,
YAsSingle）
Cls
IfButton=1Then
Line（800,200）-（X,Y）,RGB（256*Rnd,256*Rnd,256*Rnd）,B
EndIf
EndSub
B14、在窗体中任意移动鼠标时，在鼠标所在位置画一个半
径为500的绿色圆。
PrivateSubForm_MouseMove（Button
AsInteger,ShiftAsInteger,XAsSingle,
YAsSingle）
Circle（X,Y）,500,vbGreen
EndSub
B15、在窗口任意位置单击鼠标时，在单击处画出一个半径
随机（50?
半径?
500缇）、颜色随机的圆。
PrivateSubForm_MouseDown（Button
AsInteger,ShiftAsInteger,XAs
Single,YAsSingle）
r=50+Fix（Rnd*451）
c=RGB（256*Rnd,256*Rnd,256*
Rnd）
Circle（X,Y）,r,c
EndSub
B16、编程实现:
在窗体中每隔0.1秒钟随机画出一颗颜色随机的星星，画笔的宽度为5。
PrivateSubForm_Load（）
Form1.DrawWidth=5
Randomize
EndSub
PrivateSub
Timer1_Timer（）
x=Rnd*
Form1.ScaleWidth
y=Rnd*
Form1.ScaleHeight
c=RGB（256*Rnd,256
*Rnd,256*Rnd）
PSet（x,y）,c
EndSub
B17:
每单击一次“垂直移动”按钮使图片从窗口上边向下边垂直移动100个单位，单击“结束”按钮结束程序。
PrivateSub
Command1_Click（）
Image1.Top=Image1.Top
+100
EndSub
PrivateSub
Command2_Click（）
End
EndSub
B18:
在窗体的任意位置单击鼠标时，在窗体上以（800,200）
为左上角，以鼠标单击位置为右下角，画一个颜色随机的矩
形。
PrivateSub
Form_MouseDown（Button
AsInteger,ShiftAsInteger,
XAsSingle,YAsSingle）
Cls
c=RGB（256*Rnd,256*
Rnd,256*Rnd）
Line（800,200）-（X,Y）,c,
B
升级会员 