当前位置:首页 >> 其它考试 >> 信息技术会考VB上机编程模拟题

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


2009 信息技术会考 VB 上 机编程模拟题
说明:下列练习题是模拟系统中的一部分, 说明:下列练习题是模拟系统中的一部分,要求学生平时练 习时为每道题建一个专用文件夹, 习时为每道题建一个专用文件夹,文件夹的名称可与窗体的 Caption 属性相同。会考时共有四道编程题,其中 A 类题、B 属性相同。会考时共有四道编程题, 各一题。 类题、C 类题、D 类题各一题。
A类

(每题 8 分)

说明: 类题以顺序结构的解析算法为主, A 解决学生在数学、 说明: 类题以顺序结构的解析算法为主, 解决学生在数学、 物理和生活中遇到的简单计算问题。 用到的控件有: 标签框、 物理和生活中遇到的简单计算问题。 用到的控件有: 标签框、 文本框、滚动条、命令按钮等。 文本框、滚动条、命令按钮等。 A01、编写加法器,在文本框中输入两个数,单击“计算 求 、编写加法器,在文本框中输入两个数,单击 计算 计算”求 和并显示结果;单击 清除 清除各项数值。 清除”清除各项数值 和并显示结果;单击“清除 清除各项数值。 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c=a+b Label4.Caption = c

End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label4.Caption = "" End Sub A02、编写计算水果价钱的程序。在文本框中输入水果的购 、编写计算水果价钱的程序。 买量。 单击“一级 时按 2.5 元/kg 计价, 一级”时按 计价, 单击“二级 二级”按 买量。 单击 一级 单击 二级 按 2 元/kg 计价,并在价钱框中显示价钱。单击 清除 清除各框数据; 清除”清除各框数据 计价,并在价钱框中显示价钱。单击“清除 清除各框数据; 单击“退出 退出程序 单击 退出”退出程序。 退出 退出程序。 Private Sub Command1_Clic k() Text1.Text = "" b = a * 2.5 Label3.Capti on = b End Sub Private Sub Label3.Captio Option2_Click() n = "" End Sub Private Sub a= Val(Text1.Text) b=a*2

Command2_Clic k() End End Sub Private Sub Option1_Click() a= Val(Text1.Text)

Label3.Capti on = b End Sub

A03、已知 y= x3+|x-10|+4, 编程求 y 的值 。要求:在 、 - + , 要求: 的值,单击“计算 按钮后在“y”框中显示 y 计算”按钮后在 框中显示 文本框中输入 x 的值,单击 计算 按钮后在 的值;单击 退出 按钮退出程序。 退出”按钮退出程序 的值;单击“退出 按钮退出程序。 Private Sub Command1_Click() x = Val(Text1.Text) y = x ^ 3 + Abs(x - 10) + 4 Label3.Caption = y End Sub Private Sub Command2_Click()

End End Sub A04、编程实现:在“半径 框中输入圆的半径,单击 确定 、编程实现: 半径”框中输入圆的半径 确定” 半径 框中输入圆的半径,单击“确定 按钮时, 周长 周长”、 面积 框中显示圆的周长和面积。 面积”框中显示圆的周长和面积 按钮时,“周长 、“面积 框中显示圆的周长和面积。 Private Sub Command1_Click() r = Val(Text1.Text) c = 2 * 3.14 * r s = 3.14 * r ^ 2 Label4.Caption = c Label5.Caption = s End Sub A05、编程计算圆锥的体积。要求:输入圆锥的半径与高度, 、编程计算圆锥的体积。要求:输入圆锥的半径与高度, 单击“计算 按钮可以计算出圆锥的体积并显示出来 单击 计算”按钮可以计算出圆锥的体积并显示出来;单击 计算 按钮可以计算出圆锥的体积并显示出来; “清除 按钮可以清除各项数值。提示:V = πhr2 ,π 取 3.14 清除”按钮可以清除各项数值 提示: 清除 按钮可以清除各项数值。 Private Sub Command1_Click() r = Val(Text1.Text) h = Val(Text2.Text)

v=1/3*r^2*h Label4.Caption = v End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label4.Caption = "" End Sub A06、华氏温度(F)与摄氏温度(C)之间的转换关系为: 、华氏温度( )与摄氏温度( )之间的转换关系为: 。编程实现:若用户在文本框中输入 编程实现: 一个摄氏温度,单击 转换 按钮可以换算成华氏温度, 转换”按钮可以换算成华氏温度 一个摄氏温度,单击“转换 按钮可以换算成华氏温度,并显 示出来;单击 清除 按钮可以清除各温度值。 清除”按钮可以清除各温度值 示出来;单击“清除 按钮可以清除各温度值。 Private Sub Command1_Click() a = Val(Text1.Text) b = a * 9 / 5 + 32 Label3.Caption = b End Sub

Private Sub Command2_Click() Text1.Text = "" Label3.Caption = "" End Sub A07、某市近 20 年的生产总值情况如下:第 1 年是 1000 亿 、 年的生产总值情况如下: 的速度增长, 元,以后平均每年以 5%的速度增长,通过滚动条求各年份 的速度增长 该市生产总值是多少?提示:某年生产总值= 该市生产总值是多少?提示:某年生产总值=

Private Sub HScroll1_Change() n = HScroll1.Value z = 1000 * (1 + 0.05) ^ (n - 1) Label2.Caption = n Label4.Caption = z End Sub Private Sub Form_Load() HScroll1.Min = 1

HScroll1.Max = 20 End Sub A08、已知计算人口增长的公式是: 、已知计算人口增长的公式是: ,其中 pl 为

所求人口数, 为人口基数, 为年增长率, 为经过的年头。 p r n 所求人口数, 为人口基数, 为年增长率, 为经过的年头。 亿人口, 已知 2000 年我国有 13.25 亿人口, 若年增长率固定为千分之 1.5,请使用滚动条表示 100 年内我国的人口状况。 , 年内我国的人口状况 人口状况。 Private Sub HScroll1_Change() n = HScroll1.Value p = 13.25 * (1 + 0.0015) ^ (n - 2000) Label1.Caption = n Label3.Caption = p End Sub Private Sub Form_Load() HScroll1.Min = 2000 HScroll1.Max = 2100 End Sub

A09、一个物体从一座塔高为 h(米)的塔顶上自由落下, 、 的塔顶上自由落下, ( 要求: 求落地所需的时间 t(秒)。要求:在文本框中输入塔高 h, ( )。要求 , 单击“计算 按钮 时间”框中显示落地所需时间 的值; 单击 计算”按钮,在“时间 框中显示落地所需时间 t 的值; 计算 按钮, 时间 单击“退出 按钮退出程序 单击 退出”按钮退出程序。 退出 按钮退出程序。 (提示: 提示: ,其中 g=9.8 )。 Private Sub Command1_Click() h = Val(Text1.Text) g = 9.8 t = Sqr(2 * h / g) Label3.Caption = t End Sub Private Sub Command2_Click() End End Sub A10、一架雪橇沿一斜坡滑下,它在时间 t(秒)滑下的距 、一架雪橇沿一斜坡滑下, ( 由以下公式给出: 编程实现: 离 s(米)由以下公式给出:s=10t+2t2。编程实现:若用户 ( 在文本框中输入一个时间值,单击 计算 计算”按钮可以计算出下 在文本框中输入一个时间值,单击“计算 按钮可以计算出下

滑的距离,并将其显示出来;单击 刷新 刷新”按钮可以清除各项 滑的距离,并将其显示出来;单击“刷新 按钮可以清除各项 数值。 数值。 Private Sub Command1_Click() t = Val(Text1.Text) s = 10 * t + 2 * t ^ 2 Label3.Caption = s End Sub

Private Sub Command2_Click() Text1.Text = "" Label3.Caption = "" End Sub A11:已知某日外汇牌价:1 美元=8.27 元人民币,1 欧元= :已知某日外汇牌价: 美元= 元人民币, 欧元= 10.46 元人民币。设计程序,使之能根据用户输入的人民币 元人民币。设计程序, 数额,计算出其相对应的外币数额。 数额,计算出其相对应的外币数额。

Private Sub Command1_Click() r = Val(Text1.Text) w = r / 8.27 Label3.Caption = w End Sub Private Sub Command2_Click() r = Val(Text1.Text) w = r / 10.46 Label3.Caption = w End Sub Private Sub Command3_Click() Text1.Text = "" Label3.Caption = "" End Sub A12:求并联电阻 R 的值。要求:在两个文本框中分别输入 : 的值。要求: 计算”按钮在 电阻 R1、R2 的值,单击 计算 按钮在 、 的值,单击“计算 按钮在“R”

的值;单击“清除 按钮清除数据; 清除”按钮清除数据 框中显示并联电阻 R 的值;单击 清除 按钮清除数据;单击 “退出 按钮退出程序。(提示: 退出”按钮退出程序。(提示 退出 按钮退出程序。(提示: ) Private Sub Command1_Click() r1 = Val(Text1.Text) r2 = Val(Text2.Text) r = (r1 * r2) / (r1 + r2) Label3.Caption = r End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label3.Caption = "" End Sub Private Sub Command3_Click() End End Sub

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

Private Sub Command1_Click() r1 = Val(Text1.Text) r2 = Val(Text2.Text) s = 3.14 * (r1 ^ 2 - r2 ^ 2) Label3.Caption = s End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label3.Caption = "" End Sub A14: : 按复利计算利息的一种储蓄, 若年利率固定是 2.25%, 按复利计算利息的一种储蓄, , 编程实现:若用户在文本框中输入本金额和存期,单击 计 编程实现:若用户在文本框中输入本金额和存期,单击“计 按钮可以计算出存款到期后的本利和, 算”按钮可以计算出存款到期后的本利和,并显示在如题所 按钮可以计算出存款到期后的本利和

示的标签中;单击 清除 按钮可以清除各项数值。提示: 清除”按钮可以清除各项数值 示的标签中;单击“清除 按钮可以清除各项数值。提示:计 算本利和的公式是: 算本利和的公式是: ; Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) s = a * (1 + 0.0225) ^ b Label3.Caption = s End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label3.Caption = "" End Sub A15:在窗体上放置一个标签“新北京新奥运 ,单击单选按 :在窗体上放置一个标签 新北京新奥运 新北京新奥运”, 红色”时 “新北京新奥运 变为红色字, 新北京新奥运”变为红色字 单击单选按钮 蓝 单击单选按钮“蓝 钮“红色 时, 新北京新奥运 变为红色字, 红色 新北京新奥运”变为蓝色字 色”时,“新北京新奥运 变为蓝色字。 时 新北京新奥运 变为蓝色字。

Private Sub Option1_Click() Label1.ForeColor = vbRed End Sub

Private Sub Option2_Click() Label1.ForeColor = vbBlue End Sub A16:编写减法器,在文本框中输入两个数,单击“计算 求 :编写减法器,在文本框中输入两个数,单击 计算 计算”求 差并显示结果;单击 清除 清除各项数值。 清除”清除各项数值 差并显示结果;单击“清除 清除各项数值。

Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c=a-b

Label4.Caption = c End Sub

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

(每题 8 分)

说明: 类题以画图语句的应用、 B 简单动画效果、 随机函数、 说明: 类题以画图语句的应用、 简单动画效果、 随机函数、 截断函数、时间函数及逻辑运算的简单应用为主。 截断函数、时间函数及逻辑运算的简单应用为主。用到的控 件还有:命令按钮、图片框、滚动条、计时器等。 件还有:命令按钮、图片框、滚动条、计时器等。 B01、编程实现:在文本框中输入文字,单击“粗体 、“下划 、编程实现:在文本框中输入文字,单击 粗体 粗体”、 下划 复选框可以选择或取消粗体、 线”复选框可以选择或取消粗体、下划线。 复选框可以选择或取消粗体 下划线。 Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else

Text1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub B02、编程实现:程序运行后,窗体背景色每隔 0.1 秒自动 、编程实现:程序运行后, 改变一次,颜色随机;单击 结束 按钮,结束程序。 结束”按钮 改变一次,颜色随机;单击“结束 按钮,结束程序。 Private Sub Command1_Click() End End Sub

Private Sub Timer1_Timer() Form1.BackColor = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) End Sub Private Sub Form_Load() Randomize End Sub B03、制作一个“改变窗口背景色 程序。要求:单击 变色 、制作一个 改变窗口背景色 程序。要求:单击“变色 改变窗口背景色”程序 变色” 按钮,窗口背景色随机改变一次;单击 结束 按钮, 结束”按钮 按钮,窗口背景色随机改变一次;单击“结束 按钮,结束程 序。 Private Sub Command1_Click() Form1.BackColor = 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() Image1.Top = Rnd * Form1.ScaleHeight Image1.Left = Rnd * Form1.ScaleWidth End Sub

B05、编一个移动图片程序,每间隔 0.1 秒使图片从窗口左 、编一个移动图片程序, 个单位。 边向右边水平移动 100 个单位。 Private Sub Timer1_Timer() Image1.Left = Image1.Left + 100 End Sub B06、单击“开始 按钮一只小鸟每隔 0.5 秒钟在窗体范围内 、单击 开始 开始”按钮一只小鸟每隔 随机移动一次,“单击 停止”按钮停止移动。 随机移动一次, 单击“停止 按钮停止移动。 单击 停止 按钮停止移动 Private Sub Command1_Click() Timer1.Enabled = 最初在属性窗口中设置 Timer1 的 Enabled 为 False True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub

Form_Load() Randomize End Sub Private Sub Timer1_Timer() Image1.Left = Rnd * Form1.ScaleWidth Image1.Top = Rnd * Form1.ScaleHeight End Sub B07、编程实现:程序运行后,单击“变大 按钮,图片尺寸 、编程实现:程序运行后,单击 变大 按钮, 变大”按钮 变大;单击 变小 按钮,图片尺寸变小。 变小”按钮 变大;单击“变小 按钮,图片尺寸变小。 Private Sub Command1_Click() Image1.Height = 最初在属性窗口中设置 Image1 的 Stretch 为 True Image1.Height * 2 Image1.Width = Image1.Width * 2 End Sub Private Sub

Command2_Click() Image1.Height = Image1.Height/ 2 Image1.Width = Image1.Width / 2 End Sub

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

Private Sub Command1_Click() Image1.Visible = Not Image1.Visible End Sub

Private Sub Command2_Click()

End End Sub

最初在属性窗口中设置 Image1 的 Stretch 为 True B09、 、制作一个拖动水平滚动条设置年龄的程序, 如图所示。 制作一个拖动水平滚动条设置年龄的程序, 如图所示。 要求:程序运行开始,年龄框为空;当拖动水平滚动条时, 要求:程序运行开始,年龄框为空;当拖动水平滚动条时, 年龄框中显示水平滚动条当前值。 年龄框中显示水平滚动条当前值。 Private Sub Form_Load() HScroll1.Min = 10 HScroll1.Max = 18 End Sub Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End Sub Private Sub Command1_Click()

End End Sub B10、编程实现:用垂直滚动条表示字号大小(1-48,单位: 、编程实现:用垂直滚动条表示字号大小( ,单位: 磅),通过拖动滑块改变文本框中文字的大小,并通过恰当 ),通过拖动滑块改变文本框中文字的大小, 通过拖动滑块改变文本框中文字的大小 的控件显示出字号。 的控件显示出字号。 Private Sub Form_Load() VScroll1.Max = 48 VScroll1.Min = 1 Text1.Text = "字号 字号" 字号 End Sub

Private Sub VScroll1_Change() Text1.FontSize = VScroll1.Value Label2.Caption = VScroll1.Value End Sub

B11、 、制作一个能够显示当前系统日期和时间的程序。 制作一个能够显示当前系统日期和时间的程序。要求: 要求: 单击“日期 按钮显示当前系统日期 单击“时间 时间”按钮显示当 单击 日期”按钮显示当前系统日期;单击 时间 按钮显示当 日期 按钮显示当前系统日期; 前系统时间;单击 退出 按钮退出程序; 退出”按钮退出程序 前系统时间;单击“退出 按钮退出程序;窗体的背景色为黄 标签背景为透明, 显示的文字为蓝色, 字号为“二号 字。 二号”字 色; 标签背景为透明, 显示的文字为蓝色, 字号为 二号 Private Sub Form_Load() Label1.ForeColor = vbBlue End Sub Private Sub Command1_Click() Label1.Caption = Date End Sub Private Sub Command2_Click() Label1.Caption = 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 B14、在窗体中任意移动鼠标时,在鼠标所在位置画一个半 、在窗体中任意移动鼠标时, 的绿色圆。 径为 500 的绿色圆。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (X, Y), 500, vbGreen End Sub B15、在窗口任意位置单击鼠标时,在单击处画出一个半径 、在窗口任意位置单击鼠标时, 随机( 半径≤500 缇)、颜色随机的圆。 )、颜色随机的圆 颜色随机的圆。 随机(50≤半径 半径 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() Form1.DrawWidth = 5 Randomize End Sub Private Sub Timer1_Timer() x = Rnd * Form1.ScaleWidth y = Rnd * Form1.ScaleHeight c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) PSet (x, y), c End Sub

B17:每单击一次“垂直移动 按钮使图片从窗口上边向下边 :每单击一次 垂直移动 垂直移动”按钮使图片从窗口上边向下边 个单位, 结束”按钮结束程序 垂直移动 100 个单位,单击 “结束 按钮结束程序。 结束 按钮结束程序。 Private Sub Command1_Click() Image1.Top = Image1.Top + 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() Image1.Left = Image1.Left + 100 End Sub B20:制作一个拖动水平滚动条设置年份的程序。要求:程 :制作一个拖动水平滚动条设置年份的程序。要求: 序运行开始, 出生年份”框为空; 序运行开始, 出生年份 框为空; “出生年份 框为空 当拖动水平滚动条时, 出 当拖动水平滚动条时, “出 生年份”框中显示水平滚动条的当前值;单击 结束 结束”按钮退 生年份 框中显示水平滚动条的当前值;单击“结束 按钮退 框中显示水平滚动条的当前值 出程序。 出程序。 Private Sub Form_Load() HScroll1.Max = 2000 HScroll1.Min = 1970

End Sub Private Sub HScroll1_Change() Label2.Caption = HScroll1.Value End Sub Private Sub Command1_Click() End End Sub B21:程序运行后,单击“显示 按钮,窗体中显示图片,同 :程序运行后,单击 显示 按钮,窗体中显示图片, 显示”按钮 显示”按钮变成不可用 隐藏”按钮变成可用 时“显示 按钮变成不可用,“隐藏 按钮变成可用;单击 隐 显示 按钮变成不可用, 隐藏 按钮变成可用;单击“隐 按钮, 窗体中不显示图片, 同时“显示 按钮变成可用, 显示”按钮变成可用 “隐 藏”按钮, 按钮 窗体中不显示图片, 同时 显示 按钮变成可用, 隐 按钮变成不可用。 藏”按钮变成不可用。 按钮变成不可用 Private Sub Command1_Click() Image1.Visible = True Command1.Enabled = False Command2.Enabled =

True End Sub Private Sub Command2_Click() Image1.Visible = False Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Form_Load() Image1.Visible = False Command2.Enabled = False End Sub B22:单击 “红”或“绿”按钮时窗体的背景色分别改为红色或 : 红 或 绿 按钮时窗体的背景色分别改为红色或 绿色,单击 结束 按钮时结束程序。 结束”按钮时结束程序 绿色,单击“结束 按钮时结束程序。 Private Sub Command1_Click() Form1.BackColor =

vbRed End Sub Private Sub Command2_Click() Form1.BackColor = vbGreen End Sub Private Sub Command3_Click() End End Sub B23:制作一个显示系统当前日期的数字日历。要求:程序 :制作一个显示系统当前日期的数字日历。要求: 一开始运行,日期框为空;单击 显示 按钮, 显示”按钮 一开始运行,日期框为空;单击“显示 按钮,在日期框中显 示系统当前日期;单击 退出 按钮,退出程序。 退出”按钮 示系统当前日期;单击“退出 按钮,退出程序。 Private Sub Command1_Click() Label1.Caption = 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 B25:编写电子钟程序。单击“开始 按钮,电子表开始走时; :编写电子钟程序。单击 开始 按钮,电子表开始走时; 开始”按钮 单击“停止 按钮 电子表停止。程序一开始运行, 单击 停止”按钮,电子表停止。程序一开始运行,电子表框 停止 按钮, 为空。 为空。 Private Sub Private Sub

Command1_Click Form_Load() () Timer1.Enabl Timer1.Enable ed = False d = True End Sub Private Sub Command2_Click () End Sub Private Sub Timer1_Timer() Label1.Capti on = Time Timer1.Enable End Sub d = False End Sub B26:某公司卖光盘,50 片以上(含 50 片),每片 2 元。 :某公司卖光盘, 片以上( ),每片 50 片以下,每片 3 元。编程在 光盘数量 框中输入购买的光 片以下, 编程在“光盘数量 光盘数量”框中输入购买的光 盘数,单击 计算 按钮后在“应收金额 框中显示应收钱数。 计算”按钮后在 应收金额”框中显示应收钱数 盘数,单击“计算 按钮后在 应收金额 框中显示应收钱数。 单击“结束 按钮结束程序 单击 结束”按钮结束程序。 结束 按钮结束程序。

Private Sub

Private Sub

Command1_Cli Command2_Cli ck() a= ck() End

Val(Text1.Text) End Sub If a >= 50 Then b=2*a Else b=3*a End If Label3.Capti on = b End Sub B27:余额查询:假设银行存有 1000 元,设计一个程序,先 :余额查询 假设银行存有 设计一个程序, 在文本框中输入要取或存的款数,单击 取款 取款”或 存款 存款”按钮 在文本框中输入要取或存的款数,单击“取款 或“存款 按钮 时,可以显示余额,单击“退出 按钮结束程序。 可以显示余额,单击 退出”按钮结束程序。 退出 按钮结束程序

Dim s Private Sub Command1_Click() a = Val(Text1.Text) s=s-a Label2.Caption = s End Sub Private Sub Command2_Click() a = Val(Text1.Text) s=s+a Label2.Caption = s End Sub Private Sub Command3_Click() End End Sub

Private Sub Form_Load()

s = 1000 End Sub

C类

(每题 10 分)

说明: 类题以选择结构、循环结构的应用为主, 说明:C 类题以选择结构、循环结构的应用为主,并涉及累 加、累乘、函数的应用等。 累乘、函数的应用等。 C01、在文本框中任意输入两个数,单击“比较 按钮后,将 、在文本框中任意输入两个数,单击 比较 按钮后, 比较”按钮后 其中的最大值显示在下方标签中;单击 清除 清除”按钮清除各项 其中的最大值显示在下方标签中;单击“清除 按钮清除各项 数值。 数值。 Private Sub Private Sub

Command1_Clic Command2_Cli k() a= Val(Text1.Text) b= Val(Text2.Text) If a > b Then Label4.Ca ption = a "" Label4.Capt ion = "" End Sub "" Text2.Text = ck() Text1.Text =

Else Label4.Ca ption = b End If End Sub C02、卖葡萄。10 斤以上(含 10 斤)每斤 3 元,10 斤以下 、卖葡萄。 斤以上( 用户输入购买的斤数,单击“计算 计算”按钮显示总 每斤 3.5 元。用户输入购买的斤数,单击 计算 按钮显示总 价钱;单击 清除 按钮清除各项数值;单击“结束 清除”按钮清除各项数值 结束”按钮结束 价钱;单击“清除 按钮清除各项数值;单击 结束 按钮结束 程序。 程序。 Private Sub Private Sub

Command1_Cli Command2_Cli ck() L= Val(Text1.Text) "" If l >=10 Then s = 3 *L Else s = 3.5 *L End If Label3.Capti on = "" End Sub Private Sub Command3_Cli ck() ck() Text1.Text =

Label3.Caption =s End Sub

End End Sub

C03、设计一个密码判断程序。要求:用户输入密码时,输 、设计一个密码判断程序。要求:用户输入密码时, 入的密码在文本框中以“*”显示,用“确定 按钮核实密码是 显示, 确定 确定”按钮核实密码是 入的密码在文本框中以 显示 否正确,并弹出一个信息框告知结果; 取消 取消”按钮放弃输 否正确,并弹出一个信息框告知结果;用“取消 按钮放弃输 入的密码。 入的密码。 提示:密码值可定为 提示:密码值可定为“123456”,为了简单起见,设定的密码 ,为了简单起见, 值可以直接出现在程序代码中。 值可以直接出现在程序代码中。 Private Sub Command1_Click() If Text1.Text = "123456" Then MsgBox "密码正 密码正 确,请继续" 请继续 Else MsgBox "密码不正 密码不正 确,请重新输入" 请重新输入 Text1.Text = "" End If

End Sub Private Sub Command2_Click() Text1.Text = "" End Sub C04、编程:一只小鱼从左向右移动。当小鱼到达窗体右边 、编程:一只小鱼从左向右移动。 重新开始”按钮 时,停止移动;单击“重新开始 按钮,小鱼回到初始位置, 停止移动;单击 重新开始 按钮,小鱼回到初始位置, 然后再向右移动。 然后再向右移动。 Private Sub Command1_Click() Image1.Left = 0 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Image1.Left = Image1.Left + 50 If Image1.Left >= Form1.Width - Image1.Width Then

Timer1.Enabled = 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 (Form1.ScaleWidth / 2, Form1.ScaleHeight / 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 * Form1.Width, Rnd * Form1.Height), RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) Next i End Sub Private Sub Form_Load() Randomize Form1.DrawWidth = 5 End Sub C08、如图所示,编程求 1*2*3*…*X (1≤X≤20)。X 的值由 、如图所示, 。 水平滚动条的当前值所确定。 移动水平滚动条可以改变 X 的 水平滚动条的当前值所确定。 结果”框中 值,累乘结果显示在“结果 框中。 累乘结果显示在 结果 框中。 Private Sub Form_Load() HScroll1.Max = 20

HScroll1.Min = 1 End Sub Private Sub HScroll1_Change() Text1.Text = HScroll1.Value f=1 For i = 1 To HScroll1.Value f=f*i Next i Text2.Text = f End Sub C09、编程求累加 1+2+3……+X (1≤X≤100)。X 的值由水平 、 。 滚动条的当前值所确定。 的值, 滚动条的当前值所确定。移动水平滚动条可以改变 X 的值, 累加结果显示在“结果 框中 累加结果显示在 结果”框中。 结果 框中。 Private Sub HScroll1_Change() Text1.Text = HScroll1.Value

s=0 For i = 1 To HScroll1.Value s=s+i Next i Text2.Text = s End Sub C10、编一个“幸运开奖 程序。单击 开始 按钮时,屏幕滚 、编一个 幸运开奖 程序。单击“开始 按钮时, 幸运开奖”程序 开始”按钮时 动产生五个幸运号码[0, 单击 停止”按钮后 单击“停止 按钮后, 动产生五个幸运号码 ,9],单击 停止 按钮后,得到最后的 幸运号码。 幸运号码。 Private Sub Private Sub

Command1_Cli Timer1_Timer ck() Timer1.Enab led = True End Sub Private Sub () Label1.Cap tion = Fix(Rnd * 10) Label2.Cap

Command2_Cli tion = Fix(Rnd ck() Timer1.Enab * 10) Label3.Cap

led = False End Sub Private Sub Form_Load() Randomize Timer1.Enabled = False End Sub

tion = Fix(Rnd * 10) Label4.Cap tion = Fix(Rnd * 10) Label5.Cap tion = Fix(Rnd * 10) End Sub

C11、编一个“不好点的按钮 程序,程序运行后,一个 单击 、编一个 不好点的按钮 程序,程序运行后,一个“单击 不好点的按钮”程序 的按钮在屏幕上随机出现。 我!”的按钮在屏幕上随机出现。用鼠标单击该按钮,每击 的按钮在屏幕上随机出现 用鼠标单击该按钮, 屏幕上显示出得分。如图所示。 中一次计 1 分,屏幕上显示出得分。如图所示。 Dim s Private Sub Command1_Click() s=s+1 Label2.Caption = s End Sub Private Sub Timer1_Timer()

Command1.Left = Rnd * Form1.ScaleWidth Command1.Top = Rnd * Form1.ScaleHeight End Sub Private Sub Form_Load() Randomize End Sub

C12、 、 输入 a, b 的值 , 当 a×b>0 时计算表达式 y= = 否则弹出消息“wrong”。 。 否则弹出消息 Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) If a * b > 0 Then

的值, 的值,

y = (a + b) / Sqr(4 * a * b) Label4.Caption = y Else

MsgBox "wrong" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Label4.Caption = "" End Sub C13:猜一台照相机的价钱。该照相机的价钱为 4000,如果 :猜一台照相机的价钱。 , 判断”按钮后显示 正确”; 用户输入数值为 4000,单击 判断 按钮后显示 正确 ;如果 ,单击“判断 按钮后显示“正确 判断”按钮后显示 少了”; 输入数值少于 4000,单击 判断 按钮后显示 少了 ;如果输 ,单击“判断 按钮后显示“少了 判断”按钮后显示 多了”。 入数值多于 4000,单击 判断 按钮后显示 多了 。 ,单击“判断 按钮后显示“多了 Private Sub Command1_Click() a = Val(Text1.Text) If a = 4000 Then Label2.Caption = "正 正 确"

End If If a > 4000 Then Label2.Caption = "多 多 了" End If If a < 4000 Then Label2.Caption = "少 少 了" End If End Sub Private Sub Command2_Click() Text1.Text = "" Label2.Caption = "" End Sub C14:任意输入 x 的值,求表达式 : 的值, 的值, 的值,如果除数为

0, ,则弹出消息“除数为 0”。 单击“清除 清除”按钮可以清除各项数 则弹出消息 除数为 。单击 清除 按钮可以清除各项数 值。

Private Sub Command1_Click() x = Val(Text1.Text) If x ^ 2 - x = 0 Then MsgBox "除数为 0" 除数为 Else y = 1 / (x ^ 2 - x) Label3.Caption = y End If End Sub Private Sub Command2_Click() Text1.Text = "" Label3.Caption = "" End Sub

C15:输入 X,求以下分段函数 Y 的值。 : , 的值。

Private Sub Command1_Click() x = Val(Text1.Text) If x >= 0 Then y=3 Else y = -3 End If Label3.Caption = y End Sub Private Sub Command2_Click() Text1.Text = "" Label3.Caption = "" End Sub C16:输入 a,b,c 三个数,若 : 三个数, 无实根”。 示“无实根 。 无实根 则显示“有实根 , 则显示 有实根”,否则显 有实根

Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d=b^2-4*a*c If d >= 0 Then Label3.Caption = "有 有 实根" 实根 Else Label3.Caption = "无 无 实根" 实根 End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = ""

Label3.Caption = "" End Sub C17:在文本框中输入 0 或者 1,如果输入的是 0,在窗体中 : , , 为半径画一个圆; 以(2400, 1600)为圆心、以 400 为半径画一个圆;如果输 )为圆心、 入的是 1,在窗体中以(2400, 1600)为左上角、以 800 为边 ,在窗体中以( )为左上角、 长画一个正方形。画图前先清除窗体中的图形。 长画一个正方形。画图前先清除窗体中的图形。 Private Sub Text1_Change() If Text1.Text = "0" Then Cls Circle (2400, 1600), 400, RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) End If If Text1.Text = "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 = Form1.ScaleWidth /2 y= Form1.ScaleHeight / 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 Text1.Text = "Password" Then MsgBox "密码正确 密码正确" 密码正确 Timer1.Enabled = True Else MsgBox "密码错误 密码错误" 密码错误

End End If End Sub Private Sub Timer1_Timer() Form1.BackColor = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) End Sub Private Sub Form_Load() Randomize Timer1.Enabled = False End Sub C20:单击“画星星 按钮时在窗体上画出 300 个颜色随机位 :单击 画星星 画星星”按钮时在窗体上画出 置随机的点, 置随机的点,笔粗为 4。 。 Private Sub Command1_Click() Form1.DrawWidth = 4 Form1.Cls

For i = 1 To 300 x = Rnd * Form1.Width y = Rnd * Form1.Height c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) PSet (x, y), c Next i End Sub Private Sub Form_Load() Randomize End Sub C21:做一个小时钟,同时单击复选框“粗体 时,显示时间 :做一个小时钟,同时单击复选框 粗体 粗体”时 的数字变为粗体,单击复选框 斜体 斜体”时 的数字变为粗体,单击复选框“斜体 时,显示时间的数字变 为斜体。 为斜体。 If Check1.Value = 1 Then Label1.FontBold = True

事先设置在属性窗口中设置 Timer1 的 Interval 为 1000

Else Label1.FontBold = False End If End Sub

Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub

Private Sub Timer1_Timer()

Label1.Caption = Time End Sub

D类

(每题 10 分)

说明: 类题涉及三种程序结构的综合应用, 说明:D 类题涉及三种程序结构的综合应用,并涉及函数及 函数画图的应用等。 函数画图的应用等。 D01、分别计算在[1~1000]上能被 3 和 7 整除的数的整数个 、分别计算在 上能被 数,结果显示如图所示。要求:必须使用循环语句实现。 结果显示如图所示。要求:必须使用循环语句实现。

If i / 7 = Fix(i Private Sub / 7) Then Command1_Click() s3 = 0 End If s7 = 0 Next i For i = 1 To 1000 If i / 3 = Fix(i = s3 / 3) Then s3 = s3 + 1 = s7 End If End Sub

s7 = s7 + 1

Label2.Caption

Label4.Caption

Private Sub

Command2_Click End End Sub D02 画 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 D03、画颜色随机、边长为 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 Label2.Caption = s If s >= 10 Then End End Sub

D04、编程求 100 个两位数的随机整数之和。单击 计算 按 、 个两位数的随机整数之和。单击“计算 计算”按 钮显示结果。单击 清除 按钮清除。 清除”按钮清除 钮显示结果。单击“清除 按钮清除。要求必须使用循环语句 实现。 实现。 Private Sub s=s+X Form_Load() Next i Randomize Label2.Cap End Sub tion = s Private Sub End Sub Command1_Cli ck() S=0 ck() For i = 1 To Label2.Capt 100 ion = "" X = 10 + End Sub Fix(Rnd * 90) D05、设计减法练习器。要求:单击“出题 按钮随机产生两 、设计减法练习器。要求:单击 出题 出题”按钮随机产生两 的整数,两个数中较大的作为被减数;单击“判 个不超过 20 的整数,两个数中较大的作为被减数;单击 判 按钮判断用户计算是否正确, 断”按钮判断用户计算是否正确,正确在积分栏加 10 分,反 按钮判断用户计算是否正确 出下一道题前单击“清除 按钮清除相关数据。 清除”按钮清除相关数据 之减 10 分;出下一道题前单击 清除 按钮清除相关数据。 Private Sub Command2_Cli

Dim s, x, y Private Sub Command3_Cli ck() Label1.Capt ion = ""

If x < y Then c=x x=y y=c End If Label1.Caption

Label3.Capt = x ion = "" Label3.Capt

Text1.Text = ion = y "" End Sub Private Sub Form_Load() s=0 Randomize End Sub Private Sub Command1_Cli ck() x = Fix(21 * End Sub Private Sub Command2_Cli ck() a= Val(Text1.Text) If a = x - y Then s = s + 10 Else s = s - 10

Rnd) y = Fix(21 * Rnd)

End If Label6.Capt ion = s End Sub

D06、编写猜数游戏。系统产生[0,3]间随机整数,用户输 、编写猜数游戏。系统产生 , 间随机整数 间随机整数, 入所猜数字,如果猜对了, 得分”框中加 入所猜数字,如果猜对了,在“得分 框中加 10 分;反之减 得分 单击“下一个 按钮产生一个新的随机数, 下一个”按钮产生一个新的随机数 去 10 分。单击 下一个 按钮产生一个新的随机数,继续游 戏。 Dim s, x, y Private Sub Form_Load() Randomize x = Fix(Rnd * 4) s=0 End Sub PrivateSub Command1_Cli ck() * 4) Else s = s - 10 End If Label3.Capt ion = s End Sub PrivateSub Command2_Cli ck() x = Fix(Rnd

y=

Text1.Text

Val(Text1.Text) = "" If y = x Then s = s + 10 D07、 、 退出”按钮结束 果;单击“退出 按钮结束。 单击 退出 按钮结束。 Private Sub Command1_Click() s=0 n = Val(Text1.Text) For i = 1 To n s = s + 1 / (2 ^ (i - 1)) Next i Label3.Caption = s End Sub Private Sub Command2_Click() End 单击“计算 按钮显示结 单击 计算”按钮显示结 计算 End Sub

End Sub D08:设计一个计算等差数列前 N 项积的程序,等差数列的 :设计一个计算等差数列前 项积的程序, 首项为 2,公差为 1,最大项的值为 12;N 的取值通过滚动 , , ; 条来确定。 条来确定。 Private Sub Form_Load() HScroll1.Max = 12 HScroll1.Min = 2 End Sub Private Sub HScroll1_Change() n = HScroll1.Value f=1 For i = 1 To n f=f*i Next i Label4.Caption = n Label6.Caption = f End Sub

D09:画颜色随机、笔触大小为 5 的点 ,画点的位置由用户 :画颜色随机、 在窗体上单击鼠标确定, 在窗体上单击鼠标确定,并在窗体中将所画点的个数显示出 个时结束程序的运行 序的运行。 来;所画点数不超过 30 个,达到 30 个时结束程序的运行。 Dim s Private Sub Form_Load() Form1.DrawWidth = 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

D10:设计一个两位数加法练习器,要求:随机产生两个加 :设计一个两位数加法练习器,要求: 数,如果用户计算正确,给出计算正确的消息,并加 10 分; 如果用户计算正确,给出计算正确的消息, 反之,给出计算错误的消息, 反之,给出计算错误的消息,并减 10 分。 Dim s, x, y Private Sub Command3_Cli ck() Label1.Capt ion = x Label3.Capt ion = y

Label1.Capt End Sub ion = "" Private Sub

Label3.Capt Command2_Cli ion = "" Text1.Text = "" End Sub Private Sub Form_Load() s=0 Randomize End Sub Private Sub ck() a= Val(Text1.Text) If a = x +y Then s = s + 10 Else s = s - 10 End If Label6.Capt

Command1_Cli ion = s ck() x = 10 + Fix(90 * Rnd) y = 10 + Fix(90 * Rnd) End Sub

D11:设计一个计算等差数列前 N 项和的程序,等差数列的 : 项和的程序, 首项为 100,公差为 1,最大项的值为 1000;N 的取值通过 , , ; 滚动条来确定。 滚动条来确定。 Private Sub HScroll1_Change() n = HScroll1.Value Label4.Caption = n s=0 For i = 100 To n s=s+i Next i Label6.Caption = s

End Sub D12:设计一个累加程序,最小项为 101,公差为 1,最大项 :设计一个累加程序, , , 的值为 200;N 的取值通过滚动条来确定。 ; 的取值通过滚动条来确定。 Private Sub Form_Load() HScroll1.Min = 101 HScroll1.Max = 200 End Sub

Private Sub HScroll1_Change() s=0 Label4.Caption = HScroll1.Value For i = 101 To HScroll1.Value s=s+i Next i Label5.Caption = s End Sub

D13:编写一个“抓不到我 的程序,让一个小鸟在窗体上随 :编写一个 抓不到我 的程序, 抓不到我”的程序 机出现,当鼠标单击击中后,计数并统计加分。 机出现,当鼠标单击击中后,计数并统计加分。 Dim s, t Private Sub Form_Load() Randomize Timer1.Interval = 800 End Sub

Private Sub Image1_Click() s=s+1 t = t + 10 Label2.Caption = s Label4.Caption = t End Sub

Private Sub Timer1_Timer() Image1.Left = Rnd *

Form1.ScaleWidth Image1.Top = Rnd * Form1.ScaleHeight End Sub


更多相关文档:

信息会考vb上机模拟题1

信息会考vb上机模拟题1_专业资料。2011年高一信息会考vb上机模拟题1 第1题: ...S End Sub 第13题: 编写程序: 打开"Z:\VB\509"文件夹中的文件:"k2.vbp...

信息技术会考模拟练习vb操作题答案

信息技术会考模拟练习vb操作题答案_其它_工作范文_实用文档。信息技术会考模拟练习...信息技术会考VB上机编程... 72页 免费 高一信息技术会考vb操作... 3页 免费...

高中信息技术会考(VB部分)练习

高中信息技术会考 VB 复习题一、单选题 1. 计算机...通常应对 B.窗体 D.有事件的对象 编写程序代码。 ...教师资格考试《幼儿教育学》模拟试题 2015年教师资格...

大一VB编程计算机期末考试试题库.

大一VB编程计算机期末考试试题库._电脑基础知识_IT/计算机_专业资料 暂无评价|0人阅读|0次下载大一VB编程计算机期末考试试题库._电脑基础知识_IT/计算机_专业资料。...

2016年计算机等级考试二级VB上机试题

2016 年计算机等级考试二级 VB 上机试题 计算机等级考试题库。窗体中已经给出了所有控件(如图所示)。请编写适当的事件过程 完成以下功能:单击"读数"按钮,则把考生...

高中信息技术VB试题及答案

高中信息技术VB试题及答案_其它课程_高中教育_教育...以下描述中最适合用计算机编程来处理的是( A.确定...高中信息技术会考(VB部分... 8页 免费 高中信息...

高中信息技术会考(VB部分)

计算机程序的三种结构是顺序结构、 A 高中信息技术会考 VB 复习题一、单选题 B...在 VB 应用程序设计中,通常应对 B.窗体 D.有事件的对象 编写程序代码。 5....

信息技术水平测试第一次模拟试题(vb)

信息技术水平测试第一次模拟试题(vb)_IT认证_资格考试/认证_教育专区。省句中...3 D. 4 37、 信息的数字化技术是计算机多媒体技术的一个核心技术, 计算机...

2016计算机二级vb考试题及答案

2016 计算机二级 vb 考试题及答案 计算机二级 vb 的学习内容:按照新大纲,需要学习的内容有:VB 基本概念、集成 开发环境、 可视化编程方法、 基本输入输出、 常用...

大学计算机VB程序设计考试题目

大学计算机VB程序设计考试题目_院校资料_高等教育_...如果第二个数是零,在消息框中显示信息“除数为零”...第 1 题 完全数编写程序,找出 2~2000 之间的所有...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com