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