总复习编程题答案

第三部分 Visaul Basic程序设计（编程题）—2008年

A类（每题8分）

说明：A类题以顺序结构的解析算法为主，解决学生在数学、物理和生活中遇到的简单计算问题。用到的控件有：标签框、文本框、滚动条、命令按钮等。

A01、制作一个加法器，在文本框中输入两个数值后，单击“计算”按钮可以计算出两数之和并显示在标签中；单击“清除”按钮可以清除各项数值。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) Label4.Caption = a + b End Sub

Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label4.Caption = "" End Sub

A02、编一个计算水果价钱的程序。在文本框中输入水果的购买量（单位：kg），单击“一级”按钮，按2.5元/kg计价，并在价钱框中显示出价钱；单击“二级”按钮，按2元/kg计价，并在价钱框中显示出价钱。单击“清除”按钮，清除各框中的数据；单击“退出”按钮，退出程序。 private Sub Command1_Click() Label3.Caption = "" Text1.Text = "" End Sub

Private Sub Command2_Click() End End Sub

Private Sub Option1_Click()

Label3.Caption = Val(Text1.Text) * 2.5 End Sub

Private Sub Option2_Click()

Label3.Caption = Val(Text1.Text) * 2

End Sub

A03、已知y= x3＋|x－10|＋4， 编程求y的值 。要求：在文本框中输入x的值，单击“计算”按钮后在“y”框中显示y的值；单击“退出”按钮退出程序。 Private Sub Command1_Click()

X= Val(Text1.Text)

Label3.Caption = x ^ 3 + Abs(x - 10) + 4 End Sub

Private Sub Command2_Click() End End Sub

A04、编程实现：在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”框中显示圆的周长和面积。

Private Sub Command1_Click() r=val(text1.text) Label3.caption=2*3.14*r Label5.caption=3.14*r*r End Sub

A05、编程计算圆锥的体积。要求：输入圆锥的半径与高

度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。

提示：V =

13

πhr2 ，π取3.14

Private Sub Command1_Click() r= Val(Text1.Text) h= Val(Text2.Text)

Label4.Caption = 1 / 3 * 3.14 * h * r ^ 2 End Sub

Private Sub Command2_Click() Label4.Caption = "" Text2.Text = "" Text1.Text = "" End Sub

A06、华氏温度（F）与摄氏温度（C）之间的转换关系为：华氏温度

摄氏温度

95

＋32

。编程

实现：若用户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。 Private Sub Command1_Click()

Label3.Caption = 9 / 5 * Val(Text1.Text) + 32 End Sub

Private Sub Command2_Click() Text1.Text = "" Label3.Caption = "" End Sub

A07、某市近20年的生产总值情况如下：第1年是1000亿元，以后平均每年以5%的速度增长，通过滚动条求各年份该市生产总值是多少？

提

示

：

某

年

生

产

年数

总

值＝

基准年生产总值 （1＋增长率）

提示：必须设置HScroll1的Max属性为20，Mix属性为1 Private Sub HScroll1_Change()

Label2.Caption = HScroll1.Value

Label4.Caption = 1000 * (1 + 0.05) ^ (HScroll1.Value - 1) End Sub

A08、求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。

（提示：R

R1 R2R1 R2

）

Private Sub Command1_Click() r1=val(text1.text) r2=val(text1.text)

Label4.caption=r1*r2/(r1+r2) End Sub

Private Sub Command2_Click() Text1.Text = "" Text2.Text = ""

Label4.Caption = ""

End Sub

A09、一个物体从一座塔高为h（米）的塔顶上自由落下，求落地所需的时间t（秒）。要求：在文本框中输入塔高h，单击“计算”按钮，在“时间”框中显示落地所需时间t的值；单击“退出”按钮退出程序。

t

2hg

（提示： ，其中g=9.8 ）。

Private Sub Command1_Click() h=val(text1.text)

Label3.caption=sqr(2*h/9.8) End Sub

Private Sub Command2_Click() end

End Sub

A10、一架雪橇沿一斜坡滑下，它在时间t（秒）滑下的距离s（米）由以下公式给出：s=10t+2t。编程实现：若用户在文本框中输入一个时间值，单击“计算”按钮可以计算出下滑的距离，并将其显示出来；单击“刷新”按钮可以清除各项数值。 Private Sub Command1_Click() t=val(text1.text)

Label3.caption=10*t+2*t*t End Sub

Private Sub Command1_Click() text1.text= "" Label3.caption= "" End Sub

2

B类（每题8分）

说明：B类题以画图语句的应用、简单动画效果、随机函数、截断函数、时间函数及逻辑运算的简单应用为主。用到的控件还有：命令按钮、图片框、滚动条、计时器等。 B01、编程实现：在文本框中输入文字，单击“粗体”、“下划线”复选钮可以选择或取消粗体、下划线。

Private Sub Check1_Click()

Text1.FontBold = Not Text1.FontBold

End Sub

Private Sub Check2_Click()

Text1.FontUnderline = Not Text1.FontUnderline

End Sub

B02、编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。

Private Sub Timer1_Timer() Randomize

Form1.BackColor = RGB(fix(Rnd * 256),fix(Rnd * 256), fix(Rnd * 256)) End Sub

切记：Timer1的Interval设为100

Private Sub Command2_Click() End End Sub

B03、制作一个“改变窗口背景色”程序。要求：单击“变色”按钮，窗口背景色随机改变一次；单击“结束”按钮，结束程序。 Private Sub Command1_Click()

Randomize

Form1.BackColor = RGB(fix(Rnd * 256),fix(Rnd * 256), fix(Rnd * 256)) End Sub

Private Sub Command2_Click() End End Sub

B04、编程实现：程序运行后，在图片上每单击一次，图片在窗体中的位置就随机变化一次。 Private Sub Command1_Click() End

End Sub

Private Sub Image1_Click()

Randomize

Image1.Left = Fix(Rnd * Form1.Width) Image1.top = Fix(Rnd * Form1.Height) End Sub

B05、编一个移动图片程序，每间隔0.1

秒使图片从窗口左边向

右边水平移动100个单位。 Private Sub Timer1_Timer()

Image1.Left = Image1.Left+100

End Sub 切记：Timer1的Interval设为100

B06 …… 此处隐藏：10428字，全部文档内容请下载后查看。喜欢就下载吧 ……