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