2009信息技术会考VB上机编程模拟题代码

2009信息技术会考VB上机编程模拟题代码

说明：下列练习题是模拟系统中的一部分，要求学生平时练习时为每道题建一个专用文件夹，文件夹的名称可与窗体的Caption属性相同。

A类（每题8分）

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

A01、编写加法器，在文本框中输入两个数，单击“计算”求和并显示结果；单击“清除”清除各项数值。

Private Sub Command1_Click()

a = Val()

b = Val()

c = a + b

n = c

End Sub

Private Sub Command2_Click()

= ""

= ""

n = ""

End Sub

A02、编写计算水果价钱的程序。在文本框中输入水果的购买量。单击“一级”时按2.5元/kg计价，单击“二级”按2元/kg计价，并在价钱框中显示价钱。单击“清除”清除各框数据；单击“退出”退出程序。

Private Sub

Command1_Click()

= ""

n = ""

End Sub

Private Sub

Command2_Click()

End

End Sub

Private Sub Option1_Click()

a = Val()

b = a * 2.5

n = b

End Sub

Private Sub Option2_Click()

a = Val()

b = a * 2

n = b

End Sub

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

Private Sub Command1_Click()

x = Val()

y = x ^ 3 + Abs(x - 10) + 4

n = y

End Sub

Private Sub Command2_Click()

End

End Sub

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

Private Sub Command1_Click()

r = Val()

c = 2 * 3.14 * r

s = 3.14 * r ^ 2

n = c

n = s

End Sub

A05、编程计算圆锥的体积。要求：输入圆锥的半径与高度，单击“计算”按钮可以计算出圆锥的体积并显示出来；单击“清除”按钮可以清除各项数值。提示：V =πhr2

，π取3.14

Private Sub Command1_Click()

r = Val()

h = Val()

v = 1 / 3 * r ^ 2 * h

n = v

End Sub

Private Sub Command2_Click()

= ""

= ""

n = ""

End Sub

A06、华氏温度（F）与摄氏温度（C）之间的转换关系为： 。编程实现：若用

户在文本框中输入一个摄氏温度，单击“转换”按钮可以换算成华氏温度，并显示出来；单击“清除”按钮可以清除各温度值。

Private Sub Command1_Click()

a = Val()

b = a * 9 / 5 + 32

n = b

End Sub

Private Sub Command2_Click()

= ""

n = ""

End Sub

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

Private Sub HScroll1_Change()

n =

z = 1000 * (1 + 0.05) ^ (n - 1)

n = n

n = z

End Sub

Private Sub Form_Load()

= 1

= 20

End Sub

A08、已知计算人口增长的公式是：

，其中pl为所求人口数，p为人口基数，r为年增长率，n为经过的年头。已知2000年我国有13.25亿人口，若年增长率固定为千分之1.5，请使用滚动条表示100年内我国的人口状况。

Private Sub HScroll1_Change()

n =

p = 13.25 * (1 + 0.0015) ^ (n - 2000)

n = n

n = p

End Sub

Private Sub Form_Load()

= 2000

= 2100

End Sub

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

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

Private Sub Command1_Click()

h = Val()

g = 9.8

t = Sqr(2 * h / g)

n = t

End Sub

Private Sub Command2_Click()

End

End Sub

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

Private Sub Command1_Click()

t = Val()

s = 10 * t + 2 * t ^ 2

n = s

End Sub

Private Sub Command2_Click()

= ""

n = ""

End Sub

A11：已知某日外汇牌价：1美元＝8.27元人民币，1欧元＝10.46元人民币。设计程序，使之能根据用户输入的人民币数额，计算出其相对应的外币数额。

Private Sub Command1_Click()

r = Val()

w = r / 8.27

n = w

End Sub

Private Sub Command2_Click()

r = Val()

w = r / 10.46

n = w

End Sub

Private Sub Command3_Click()

= ""

n = ""

End Sub

A12：求并联电阻R的值。要求：在两个文本框中分别输入电阻R1、R2的值，单击“计算”按钮在“R”

框中显示并联电阻R的值；单击“清除”按钮清除数据；单击“退出”按钮退出程序。（提示： ）

Private Sub Command1_Click()

r1 = Val()

r2 = Val()

r = (r1 * r2) / (r1 + r2)

n = r

End Sub

Private Sub Command2_Click()

= ""

= ""

n = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command1_Click()

r1 = Val()

A13：两个同心圆构成一个圆环，编程求圆环的面积S。公式： 其中π=3.14，R1>R2

r2 = Val()

s = 3.14 * (r1 ^ 2 - r2 ^ 2)

n = s

End Sub

Private Sub Command2_Click()

= ""

= ""

n = ""

End Sub

A14：按复利计算利息的一种储蓄，若年利率固定是2.25%，编程实现：若用户在文本框中输入本金额和存期，单击“计算”按钮可以计算出存款到期后的本利和，并显示在如题所示的标签中；单击“清除”按钮可以清除各项数值。提示：计算本利和的公式是： ;

Private Sub Command1_Click()

a = Val()

b = Val()

s = a * (1 + 0.0225) ^ b

n = s

End Sub

Private Sub Command2_Click()

= ""

= ""

n = ""

End Sub

B类（每题8分）

说明：B类题以画图语句的应用、简单动画效果、随机函数、截断函数、时间函数及逻辑运算的简单应用为主。用到的控件还有：命令按钮、图片框、滚动条、计时器等。

B01、编程实现：在文本框中输入文字，单击“粗体”、“下划线”复选框可以选择或取消粗体、下划线。

Private Sub Check1_Click()

If = 1 Then

ld = True

Else

ld = False

End If

End Sub

Private Sub Check2_Click()

If = 1 Then

derline = True

Else

derline = False

End If

End Sub

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

Private Sub Command1_Click()

End

End Sub

Private Sub Timer1_Timer()

lor = RGB(256 * Rnd, 256 * Rnd, 256

* Rnd)

End Sub

Private Sub Form_Load()

Randomize

End Sub

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

Private Sub Command1_Click()

lor = RGB(256 * Rnd, 256 * Rnd, 256

* Rnd)

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Randomize

End Sub

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

Private Sub Form_Load()

Randomize

End Sub

Private Sub Image1_Click()

= Rnd * eight

= Rnd * idth

End Sub

B05、编一个移动图片程序，每间隔0.1秒使图片从窗口左边向右边水平移动100个单位。

Private Sub Timer1_Timer()

= + 100

End Sub

B06、单击“开始”按钮一只小鸟每隔0.5秒钟在窗体范围内随机移动一次，“单击“停止”按钮停止移动。

最初设置Timer1的Enabled为False

Private Sub Command1_Click()

d = True

End Sub

Private Sub Command2_Click()

d = False

End Sub

Private Sub Form_Load()

Randomize

End Sub

Private Sub Timer1_Timer()

= Rnd * idth

= Rnd * eight

End Sub

B07、编程实现：程序运行后，单击“变大”按钮，图片尺寸变大；单击“变小”按钮，图片尺寸变小。

Private Sub Command1_Click()

= * 2

= * 2

End Sub

Private Sub Command2_Click() / 2

= / 2

End Sub

Private Sub Form_Load()

h = True

End Sub

B08、制作一个图片显示器，程序运行界面如图所示。要求：程序运行开始，屏幕出现“显示/隐藏”按钮和“退出”按钮。单击“显示/隐藏”按钮窗体中显示或隐藏图片，单击“退出”按钮结束程序。

Private Sub Command1_Click()

e = Not e

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

h = True

End Sub

B09、制作一个拖动水平滚动条设置年龄的程序，如图所示。要求：程序运行开始，年龄框为空；当拖动水平滚动条时，年龄框中显示水平滚动条当前值。

Private Sub Form_Load()

= 10

= 18

End Sub

Private Sub HScroll1_Change()

=

End Sub

Private Sub Command1_Click()

End

End Sub

B10、编程实现：用垂直滚动条表示字号大小（1-48，单位：磅），通过拖动滑块改变文本框中文字的大小，并通过恰当的控件显示出字号。

Private Sub Form_Load()

= 48

= 1

= "字号"

End Sub

Private Sub VScroll1_Change()

ze =

n =

End Sub

B11、制作一个能够显示当前系统日期和时间的程序。要求：单击“日期”按钮显示当前系统日期；单击“时间”按钮显示当前系统时间；单击“退出”按钮退出程序；窗体的背景色为黄色；标签背景为透明，显示的文字为蓝色，字号为“二号”字。

Private Sub Form_Load()

lor = vbBlue

End Sub

Private Sub Command1_Click()

n = Date

End Sub

Private Sub Command2_Click()

n = Time

End Sub

Private Sub Command3_Click()

End

End Sub

B12、在窗体的任意位置单击鼠标左键时，连接鼠标所在位置与点（500，500）画一条颜色随机的线段。

Private Sub Form_MouseDown(Button As Integer, Shift As

Integer, X As Single, Y As Single)

If Button = 1 Then

Line (500, 500)-(X, Y), RGB(256 * Rnd, 256 * Rnd, 256

* Rnd)

End If

End Sub

B13、在窗体的任意位置单击鼠标左键时，在窗体上以（800,200）为左上角，以鼠标单击位置为右下角，画一个颜色随机的矩形。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As

Single, Y As Single)

Cls

If Button = 1 Then

Line (800, 200)-(X, Y), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd), B

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As

Single, Y As Single)

Circle (X, Y), 500, vbGreen

End Sub

B14、在窗体中任意移动鼠标时，在鼠标所在位置画一个半径为500的绿色圆。

B15、在窗口任意位置单击鼠标时，在单击处画出一个半径随机（50≤半径≤500缇）、颜色随机的圆。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As

Single, Y As Single)

r = 50 + Fix(Rnd * 451)

c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

Circle (X, Y), r, c

End Sub

B16、编程实现：在窗体中每隔0.1秒钟随机画出一颗颜色随机的星星，画笔的宽度为5。

Private Sub Form_Load()

dth = 5

Randomize

End Sub

Private Sub Timer1_Timer()

x = Rnd * idth

y = Rnd * eight

c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

PSet (x, y), c

End Sub

B17：每单击一次“垂直移动”按钮使图片从窗口上边向下边垂直移动100个单位，单击 “结束”按钮结束程序。

Private Sub Command1_Click()

= + 100

End Sub

Private Sub Command2_Click()

End

End Sub

B18：在窗体的任意位置单击鼠标时，在窗体上以（800,200）为左上角，以鼠标单击位置为右下角，画一个颜色随机的矩形。

Private Sub Form_MouseDown(Button As

Integer, Shift As Integer, X As

Single, Y As Single)

Cls

c = RGB(256 * Rnd, 256 * Rnd, 256

* Rnd)

Line (800, 200)-(X, Y), c, B

End Sub

B19：编一个移动图片程序，单击“移动”按钮使图片向右水平移动100个单位。

Private Sub Command1_Click()

= + 100

End Sub

B20：制作一个拖动水平滚动条设置年份的程序。要求：程序运行开始，“出生年份”框为空；当拖动水平滚动条时，“出生年份”框中显示水平滚动条的当前值；单击“结束”按钮退出程序。

Private Sub Form_Load()

= 2000

= 1970

End Sub

Private Sub HScroll1_Change()

n =

End Sub

Private Sub Command1_Click()

End

End Sub

B21：程序运行后，单击“显示”按钮，窗体中显示图片，同时“显示”按钮变成不可用，“隐藏”按钮变成可用；单击“隐藏”按钮，窗体中不显示图片，同时“显示”按钮变成可用，“隐藏”按钮变成不可用。

Private Sub Command1_Click()

e = True

d = False

d = True

End Sub

Private Sub Command2_Click()

e = False

d = True

d = False

End Sub

Private Sub Form_Load()

e = False

d = False

End Sub

B22：单击 “红”或“绿”按钮时窗体的背景色分别改为红色或绿色，单击“结束”按钮时结束程序。

Private Sub Command1_Click()

lor = vbRed

End Sub

Private Sub Command2_Click()

lor = vbGreen

End Sub

Private Sub Command3_Click()

End

End Sub

B23：制作一个显示系统当前日期的数字日历。要求：程序一开始运行，日期框为空；单击“显示”按钮，在日期框中显示系统当前日期；单击“退出”按钮，退出程序。

Private Sub Command1_Click()

n = Date

End Sub

Private Sub Command2_Click()

End

End Sub

B24：单击‘画图’按钮时在屏幕上以（1000,200）为左上角，（1400，600）为右下角画一颜色随机的矩形, 单击‘退出’按钮时程序退出运行。

Private Sub Command1_Click()

c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

Line (1000, 200)-(1400, 600), c, B

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Randomize

End Sub

B26：编写电子钟程序。单击“开始”按钮，电子表开始走时；单击“停止”按钮，电子表停止。程序一开始运行，电子表框为空。

Private Sub

Command1_Click()

d = True

End Sub

Private Sub

Command2_Click()

d = False

End Sub

Private Sub Form_Load()

d = False

End Sub

Private Sub

Timer1_Timer()

n = Time

End Sub

B27：某公司卖光盘，50片以上（含50片），每片2元。50片以下，每片3元。编程在“光盘数量”框中输入购买的光盘数，单击“计算”按钮后在“应收金额”框中显示应收钱数。单击“结束”按钮结束程序。

Private Sub

Command1_Click()

a = Val()

If a >= 50 Then

b = 2 * a

Else

b = 3 * a

End If

n = b

End Sub

Private Sub

Command2_Click()

End

End Sub

C类（每题10分）

说明：C类题以选择结构、循环结构的应用为主，并涉及累加、累乘、函数的应用等。

C01、在文本框中任意输入两个数，单击“比较”按钮后，将其中的最大值显示在下方标签中；单击“清除”按钮清除各项数值。

Private Sub

Command1_Click()

a = Val()

b = Val()

If a > b Then

n = a

Else

n = b

End If

End Sub

Private Sub

Command2_Click()

= ""

= ""

n = ""

End Sub

C02、卖葡萄。10斤以上（含10斤）每斤3元，10斤以下每斤3.5元。用户输入购买的斤数，单击“计算”按钮显示总价钱；单击“清除”按钮清除各项数值；单击“结束”按钮结束程序。

Private Sub

Command1_Click()

L = Val()

If l >=10 Then

s = 3 *L

Else

s = 3.5 *L

End If

n = s

End Sub

Private Sub Command2_Click()

= ""

n = ""

End Sub

Private Sub Command3_Click()

End

End Sub

C03、设计一个密码判断程序。要求：用户输入密码时，输入的密码在文本框中以“*”显示，用“确定”按钮核实密码是否正确，并弹出一个信息框告知结果；用“取消”按钮放弃输入的密码。

提示：密码值可定为“123456”，为了简单起见，设定的密码值可以直接出现在程序代码中。

Private Sub Command1_Click()

If = "123456" Then

MsgBox "密码正确，请继续"

Else

MsgBox "密码不正确，请重新输入"

= ""

End If

End Sub

Private Sub Command2_Click()

= ""

End Sub

C04、编程：一只小鱼从左向右移动。当小鱼到达窗体右边时，停止移动；单击“重新开始”按钮，小鱼回到初始位置，然后再向右移动。

Private Sub Command1_Click()

= 0

d = True

End Sub

Private Sub Timer1_Timer()

= + 50

If >= －

Then

d = False

End If

End Sub

C05、编程实现：在窗体上单击鼠标左键，在鼠标位置画一个颜色随机半径为500的圆；单击鼠标右键在鼠标位置画一个边长为800、颜色随机正方形；画图前先清除窗体中的图形。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,

Y As Single)

Cls

If Button = 1 Then

Circle (X, Y), 500, RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

End If

If Button = 2 Then

Line (X - 400, Y - 400)-(X + 400, Y + 400), RGB(256 * Rnd, 256 *

Rnd, 256 * Rnd), B

End If

End Sub

C06、制作一个画同心圆的程序，每隔0.5秒钟在窗体中央画20个颜色随机的同心圆（两圆间距为50），当有鼠标按下时结束程序。

Private Sub Form_Click()

End

End Sub

Private Sub Timer1_Timer()

For i = 1 To 20

Circle (idth / 2, eight / 2), i * 50, RGB(256 * Rnd, 256

* Rnd, 256 * Rnd)

Next i

End Sub

Private Sub Form_Load()

Randomize

End Sub

C07、在窗体上单击鼠标，画出200个颜色随机的星星（画笔的宽度为5），画图前先清除窗体中的图形。

Private Sub Form_Click()

For i = 1 To 200

PSet (Rnd * , Rnd * ), RGB(256 * Rnd, 256 * Rnd, 256

* Rnd)

Next i

End Sub

Private Sub Form_Load()

Randomize

dth = 5

End Sub

C08、如图所示，编程求1*2*3*„*X (1≤X≤20)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累乘结果显示在“结果”框中。

Private Sub Form_Load()

= 20

= 1

End Sub

Private Sub HScroll1_Change()

=

f = 1

For i = 1 To

f = f * i

Next i

= f

End Sub

C09、编程求累加1+2+3„„+X (1≤X≤100)。X的值由水平滚动条的当前值所确定。移动水平滚动条可以改变X的值，累加结果显示在“结果”框中。

Private Sub HScroll1_Change()

=

s = 0

For i = 1 To

s = s + i

Next i

= s

End Sub

C10、编一个“幸运开奖”程序。单击“开始”按钮时，屏幕滚动产生五个幸运号码[0，9],

Private Sub Command1_Click()

d = True

End Sub

Private Sub Command2_Click()

d = False

End Sub

Private Sub Form_Load()

Randomize

d = False

End Sub

Private Sub Timer1_Timer()

n = Fix(Rnd * 10)

n = Fix(Rnd * 10)

n = Fix(Rnd * 10)

n = Fix(Rnd * 10)

n = Fix(Rnd * 10)

End Sub

单击“停止”按钮后，得到最后的幸运号码。

C11、编一个“不好点的按钮”程序，程序运行后，一个“单击我！”的按钮在屏幕上随机出现。用鼠标单击该按钮，每击中一次计1分，屏幕上显示出得分。如图所示。

Dim s

Private Sub Command1_Click()

s = s + 1

n = s

End Sub

Private Sub Timer1_Timer()

= Rnd * idth

= Rnd * eight

End Sub

C12、输入a, b的值 , 当a×b>0时计算表达式y＝的值，否则弹出消息“wrong”。

Private Sub Command1_Click()

a = Val()

b = Val()

If a * b > 0 Then

y = (a + b) / Sqr(4 * a * b)

n = y

Else

MsgBox "wrong"

End If

End Sub

Private Sub Command2_Click()

= ""

= ""

n = ""

End Sub

C13：猜一台照相机的价钱。该照相机的价钱为4000，如果用户输入数值为4000，单击“判断”按钮后显示“正确”；如果输入数值少于4000，单击“判断”按钮后显示“少了”；如果输入数值多于4000，单击“判断”按钮后显示“多了”。

Private Sub Command1_Click()

a = Val()

If a = 4000 Then

n = "正确"

End If

If a > 4000 Then

n = "多了"

End If

If a < 4000 Then

n = "少了"

End If

End Sub

Private Sub Command2_Click()

= ""

n = ""

End Sub

C14：任意输入x的值，求表达式 的值，如果除数为0，则弹出消息“除数为0”。单击“清除”按钮可以清除各项数值。

Private Sub Command1_Click()

x = Val()

If x ^ 2 - x = 0 Then

MsgBox "除数为0"

Else

y = 1 / (x ^ 2 - x)

n = y

End If

End Sub

Private Sub Command2_Click()

= ""

n = ""

End Sub

Private Sub Command1_Click()

x = Val()

If x >= 0 Then

y = 3

Else

y = -3

End If

n = y

End Sub

Private Sub Command2_Click()

= ""

n = ""

End Sub

C15：输入X，求以下分段函数Y的值。

C16：输入a,b,c 三个数，若 则显示“有实根”，否则显示“无实根”。

Private Sub Command1_Click()

a = Val()

b = Val()

c = Val()

d = b ^ 2 - 4 * a * c

If d >= 0 Then

n = "有实根"

Else

n = "无实根"

End If

End Sub

Private Sub Command2_Click()

= ""

= ""

= ""

n = ""

End Sub

C17：在文本框中输入0或者1，如果输入的是0，在窗体中以（2400, 1600）为圆心、以400为半径画一个圆；如果输入的是1，在窗体中以（2400, 1600）为左上角、以800为边长画一个正方形。画图前先清除窗体中的图形。

Private Sub Text1_Change()

If = "0" Then

Cls

Circle (2400, 1600), 400, RGB(256 * Rnd,

256 * Rnd, 256 * Rnd)

End If

If = "1" Then

Cls

Line (2400, 1600)-(2400 + 800, 1600 +

800), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd), B

End If

End Sub

Private Sub Form_Load()

Randomize

End Sub

C18：单击“画同心圆”按钮时在窗体中心上画出10个颜色不同的同心圆，两圆间距为100（要求用FOR循环实现）。

Private Sub Command1_Click()

For i = 1 To 10

x = idth / 2

y = eight / 2

r = i * 100

c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

Circle (x, y), r, c

Next i

End Sub

Private Sub Form_Load()

Randomize

End Sub

C19：设计一个密码判断程序，用户输入的密码要求以“*”显示，判断的码值为“Password”，如果用户输入正确，则给出正确信息，并且窗体的背景色随机变化；反之，给出错误信息，并结束程序运行。

Private Sub Command1_Click()

If = "Password" Then

MsgBox "密码正确"

d = True

Else

MsgBox "密码错误"

End

End If

End Sub

Private Sub Timer1_Timer()

lor = RGB(256 * Rnd, 256 * Rnd, 256

* Rnd)

End Sub

Private Sub Form_Load()

d = False

End Sub

D类（每题10分）

说明：D类题涉及三种程序结构的综合应用，并涉及函数及函数画图的应用等。

D03、分别计算在[1~1000]上能被3和7整除的数的整数个数，结果显示如图所示。要求：必须使用循环语句实现。

Private Sub Command1_Click()

s3 = 0

s7 = 0

For i = 1 To 1000

If i / 3 = Fix(i / 3) Then

s3 = s3 + 1

End If

If i / 7 = Fix(i / 7) Then

s7 = s7 + 1

End If

Next i

n = s3

n = s7

End Sub

Private Sub Command2_Click()

End

End Sub

D04、画10个颜色随机的同心圆，相邻两个同心圆的半径之差为100；圆心为单击鼠标位置，同时显示圆心坐标。

Private Sub Form_MouseDown(Button As Integer, Shift

As Integer, X As Single, Y As Single)

Cls

For i = 1 To 10

r = 100 * i

c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

Circle (X, Y), r, c

Next i

End Sub

Private Sub Form_Load()

Randomize

End Sub

D05、画颜色随机、边长为200的正方形，正方形中心为单击鼠标位置，同时显示正方形个数，当个数超过10结束程序。

Dim s

Private Sub Form_Load()

Randomize

s = 0

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,

Y As Single)

Line (X, Y)-(X + 200, Y + 200), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd), B

s = s + 1

n = s

If s >= 10 Then End

End Sub

D06、编程求100个两位数的随机整数之和。单击“计算”按钮显示结果。单击“清除”按钮清除。要求必须使用循环语句实现。

Private Sub Form_Load()

Randomize

End Sub

Private Sub Command1_Click()

S=0

For i = 1 To 100

X = 10 + Fix(Rnd * 90)

s = s + X

Next i

n = s

End Sub

Private Sub Command2_Click()

n = ""

End Sub

D07、设计减法练习器。要求：单击“出题”按钮随机产生两个不超过20的整数，两个数中较大的作为被减数；单击“判断”按钮判断用户计算是否正确，正确在积分栏加10分，反之减10分；出下一道题前单击“清除”按钮清除相关数据。

Dim s, x, y

Private Sub

Command3_Click()

n = ""

n = ""

= ""

End Sub

Private Sub Form_Load()

s = 0

Randomize

End Sub

Private Sub

Command1_Click()

x = Fix(21 * Rnd)

y = Fix(21 * Rnd)

If x < y Then

c = x

x = y

y = c

End If

n = x

n = y

End Sub

Private Sub

Command2_Click()

a = Val()

If a = x - y Then

s = s + 10

Else

s = s - 10

End If

n = s

End Sub

D08、编写猜数游戏。系统产生[0，3]间随机整数，用户输入所猜数字，如果猜对了，在“得分”框中加10分；反之减去10分。单击“下一个”按钮产生一个新的随机数，继续游戏。

Dim s, x, y

Private Sub Form_Load()

Randomize

x = Fix(Rnd * 4)

s = 0

End Sub

PrivateSub

Command1_Click()

y = Val()

If y = x Then

s = s + 10

Else

s = s - 10

End If

n = s

End Sub

PrivateSub

Command2_Click()

x = Fix(Rnd * 4)

= ""

End Sub

D09、单击“计算”按钮显示结果；单击“退出”按钮结束。

Private Sub Command1_Click()

s = 0

n = Val()

For i = 1 To n

s = s + 1 / (2 ^ (i - 1))

Next i

n = s

End Sub

Private Sub Command2_Click()

End

End Sub

D10：设计一个计算等差数列前N项积的程序，等差数列的首项为2，公差为1，最大项的值为12；N的取值通过滚动条来确定。

Private Sub Form_Load()

= 12

= 2

End Sub

Private Sub HScroll1_Change()

n =

f = 1

For i = 1 To n

f = f * i

Next i

n = n

n = f

End Sub

D11：画颜色随机、笔触大小为5的点 ，画点的位置由用户在窗体上单击鼠标确定，并在窗体中将所画点的个数显示出来；所画点数不超过30个，达到30个时结束程序的运行。

Dim s

Private Sub Form_Load()

dth = 5

Randomize

End Sub

Private Sub Form_MouseDown(Button As Integer,

Shift As Integer, X As Single, Y As Single)

c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

PSet (X, Y), c

s = s + 1

If s > 30 Then

End

End If

End Sub

D12：设计一个两位数加法练习器，要求：随机产生两个加数，如果用户计算正确，给出计算正确的消息，并加10分；反之，给出计算错误的消息，并减10分。

Dim s, x, y

n = x

Private Sub n = y

Command3_Click()

n = ""

n = ""

= ""

End Sub

Private Sub Form_Load()

s = 0

Randomize

End Sub

Private Sub

Command1_Click()

x = 10 + Fix(90 * Rnd)

y = 10 + Fix(90 * Rnd)

End Sub

Private Sub

Command2_Click()

a = Val()

If a = x ＋y Then

s = s + 10

Else

s = s - 10

End If

n = s

End Sub

D14：设计一个计算等差数列前N项和的程序，等差数列的首项为100，公差为1，最大项的值为1000；N的取值通过滚动条来确定。

Private Sub HScroll1_Change()

n =

n = n

s = 0

For i = 100 To n

s = s + i

Next i

n = s

End Sub