浙江省计算机二级VB上机考试设计题及答案

B．程序设计题 程序设计01

1、在窗体上放置一个命令按钮，命名为CmdMaxSize.

2、取消窗体（Form）的最大化和最小化按钮

3、当单击CmdMaxSize按钮时，实现窗口放大功能，放大后再单击该按钮则还原窗口。 4、同时可能使用热键Alt+L和Alt+B实现窗口放大或还原。

5、当窗体大小改变后，总是让CmdMaxSize按钮位于窗口的中央。 6、界面及功能设计请参考cx01.exe文件。

程序设计02

1、窗体上有三个文体框，上面两个分别用于输入商品单价和商品数量，单击“计算”，将应付款显示在下面一个文本框中。

2、最下面一个文本框不能直接输入。

3、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框获得焦点。 4、界面及功能设计请参考cx02.exe文件。

程序设计03

1、按照Cx.exe所示在窗体上放置按钮和控件。

2、当单击“确定”按钮后，首先比较“用户名”和“原始密码”是否一致，若一致且都为“admin”，则继续执行步骤4；否则弹出消息框，提示用户出错，并让用户重新输入。 3、比较“新密码（N）”和“新密码（S）”，若两者一致，弹出密码修改成功消息框，程序终止执行。否则弹出错误消息，并让用户重新输入。 4、所有消息框按Cx.exe所示设计。

5、当单击“取消”按钮时，程序终止执行。 6、当按“Tab”键时，保证按照“用户名”、“原密码”、“新密码（N）”、“新密码（S）”、“确定”按钮和“取消”按钮顺序访问各控件。 7、界面及功能设计请参考cx03.exe文件。

程序设计04

1、在窗体上放置4个单选按钮，分别用于显示星期、年份、月份和日期。 2、在窗台上放置一个文本框，选中单选按钮时，显示相应的信息。 3、在窗体上放置一个命令按钮，单击按钮时退出应用程序。 4、界面及功能设计请参考cx04.exe 文件。

程序设计05

1、单击“坐标系”按钮，将图片框的坐标系统设置为原点在中央，x轴[-10,10]，y 轴[-10,10]，并画出该坐标系统；

2、单击“扇形”按钮,在图片框中画一个圆心在原点，半径为5,圆周为红色，线宽为2，内

部为绿色，起始角为π/6，终止角为5π/6的扇形； 3、界面及功能设计请参考cx05.exe文件。

程序设计06

1、按照cx06.exe所示在窗体上放置按钮和控件。

2、在输入或修改单科成绩的同时计算平均分，即在“高数”、“英语”和“计算机”文本框内容发生改变时，就要立即重新计算平均分，并将计算结果在平均成绩文本框中显示。 3、“平均成绩”文本框不允许编辑，即不能手工修改。 4、各单科成绩框中只能输入数字，不能输入字母或汉字，否则不显示字母并发出错误提示音。

5、界面及功能设计请参考cx06.exe文件。

程序设计07

1、窗体上三个文本框，上面两个用输入加数，单击“=”按钮，将两个数的和显示在下面一个文本框中。

2、三个文本框的对齐方式均为右对齐，设置相关属性使得下面一个文本框不能进行编辑操作。

3、设置相关属性使得上面两个文本框均不接受非数字键。

4、单击“清空”按钮，三个文本框内容被清空，同时第一个文本框得焦点。 5、界面及功能设计请参考cx07.exe文件。

程序设计08

1、左边一个简单组合框，对文本框的字体进行设置；

2、右边一个简单组合框，对文本框的文字大小进行设置； 3、文本框中文字为“心想事成”

4、界面及功能设计请参考cx08.exe文件。

程序设计09

1、单击“添加”按钮，将本文框中的内容加到列表框中的第一项，如果文本框有内容,则给出提示“没有内容，不予贴加”

2、单击“删除”按钮，将选红表项删除，如果没有选择要删除的表项，则给出提示“请选择输出的项目”。 3、界面及功能设计请参考cx09.exe文件

程序设计10

1、在窗体上放置两个列表框控件，在它的Iist中输入一些内容。

2、当单击“ <”按钮时，把Iist2中的一项放到list1中，并且在list2中删除该项。 3、当单击“ <<”按钮时，把list1中，并且清空list2。

4、当单击“>”按钮时，把list2中选中的一项放到list2中，并且在list1中，并且在list1

中删除该项。

5、当单击“>>”按钮时，把list1中所有的项放到list2中，并且清空list1。 6、当单击“结素“按钮时，退出应用程序。 7、界 面及功能设计请参考cx10.exe文件。

程序设计11

1、窗体上有二个CheckBox，当这两个选项未被选定时，它们所在框架的其它控件不能使用。 2、如果单击“确定”按钮，则在按钮下面的标签中显示用户所选择的信息。 3、界面及功能设计请参考cx11.exe文件。

程序设计12

1、按照cx12.exe所示在窗体上放置按钮和控件。

2、在“请输入”文本框中输入一个数字后，单击判断，可在“结果为显示判断结果。 3、若输入的不是数字，则弹出消息框，提示信息是“输入的不是数字，无法计算”。 4、界面及功能设计请参考cx12.exe文件。

程序设计13

1、可以在查找文本框中输入查找文字；

2、可以在替换为文本框中输入替换文字；

3、单击“替换”按钮，对文本框Text1中与查找内容匹配的文字进行替换操作； 4、文本框Text1可以多行显示文字；

5、界面及功能设计请参考cx13.exe文件。

程序设计14

1、在窗体上创建一个label1控件用于显示程序名“简单动画”

2、在窗体上创建一个label2的控件数组，数组长度为6，用于显示动画图象“--?” 3、在窗体上放置timer控件，用它来控制label2上的图象位置的变化。

4、单击“开始”按钮时label2上的图象开始移动，单击“结束”按钮图象停止移动，设置每一秒移动一个箭头。

5、界面及功能设置请参考cx14.exe文件。

程序设计15

1、单击“开始”按扭,标签“祝您考试成功”文字在定时器控制下自动地从左向右移动，移动速度为每个时间间隔右移100缇,当标签移动到窗体外时,再从窗体的左边进入。同时“开始”按扭变为“停止”按扭。

2、单击“停止”按扭，标签“祝您考试成功”文字停止滚动。同时“停止”按扭变为“开始”按扭。

3、要求程序开始运行时，标签文字的字体为“宋体”、字形为“粗体”、大小为“二号”。 4、定时器的时间间隔为０.１秒。

5、界面及功能设计请参考cx15.exe文件。

程序设计16

1、单击“开始”按钮，标签“欢迎光临”文字在定时器控制下字号自动增加2。同时“开始”按钮变为“停止”按钮。

2、单击“停止”按钮，标签“欢迎光临”文字停止放大。同时“停止”按钮变为“开始”按钮。

3、要求标签文字在放大时保持水平居中。 4、定时器的时间间隔为0.2秒。

5、界面及功能设计请参考cx16.exe文件。

程序设计17

1、水平滚动条的取值范围[12，72]。改变滚动条可以控制标签文字的大小，并同时在文本框中显示标签的字号；

2、标签文字为“心想事成”，要求在改变字号时标签保持在窗体中水平居中；

3、文本框最多接受两个字符，当输入一个∈[12，72]的两位整数后，也可以改变标签文字的大小，并同时调整水平滚动条的滚动框位置； 4、界面及功能设计请参考cx17.exe文件。

程序设计18

1、在窗体上放置一个水平滚动条、一个标签框和一个命令按钮。

2、单击滚动条左右箭头时，标签上的字可以左右移动，标签移动范围等于滚动条的范围。 3、界面及功能设计请参考cx18.exe文件。

程序设计19

1、窗体上引入一个红色的圆形形状控体，圆的直径为3400Twips。

2、水平滚动条的最大值与圆的直径相同，初始值为最大值，SmallChange和LargeChange均为100Twips.

3、改变条的值可以控制圆形的直径，同时在标签Labe12中动态显示圆形的直径。 4、要求圆形的直径在变化时要保持圆形的位置不变。 5、界面及功能设计请参考cx19.exe文件。

程序设计20

1、窗体上放置两个文本框，分别用于输入身高和体重。

2、设置相关属性使得两个文本框文字对起方式均为右对起，最多接受3个字符，不接受数字键。

3、单击“健康状况”按纽，根据计算公式分别将提示信息显示在Labe15中。 计算公式为：标准体重=身高-105；体重高于标准体重*1.1为偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.9为偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续

保持”。

4、界面及功能设计请参考cx20.exe文件。

程序设计21

1、设计2个定时器，一个用于控制时间显示，时间间隔为一秒；一个用于判断闹钟时间，时间间隔为0.5秒，并且在未输入闹钟时间前不可使用。

2、标签Labell用于显示时间，宋体，粗体，斜体，二号，背景白色，字体居中对齐，固定边框。

3、在文本框中输入闹钟时间并按回车后，启动判断闹钟时间的定时器，如果时间超过闹钟时间，则标签的背景色用红白两色交替变换。 4、界面及功能设计请参考cx21.exe文件。

程序设计22

1、当在文本框中输入密码“1234567”，并按回车后，显示标签labe12为“欢迎光临！”。 如果输入的密码与“1234567”不吻合，显示标签Labe12为“密码不符，请再输入一遍！”，同时清空文本框的内容，允许再输入一遍；

如果第二次输入的密码仍然与“1234567”不吻合，显示标签Labe12为“非法用户，请退出程序！”，文本框就不能使用了。

2、文本框中输入的字符显示为*，并且最多可以接受7个字符。

3、标签控件Labe12的文字对齐方式为居中对齐，文字颜色红色，宋体、常规、三号；标签的大小随字体自动调整，一开始不可见。 4、界面及功能设计请参考cx22.exe

程序设计23

1、窗体上放置驱动器列表框、目录列表框和文件列表框三个控件，设置属性使得三个控件能够联动。

2、设置文件列表框只显示*.bap 和*.jpg类型的图片文件。

3、编写相关代码使得单击文件列表框上的图片文件名时，图片显示在图片框中 4、界面及功能设计请参考cx23.exe文件。

程序设计24

1、文件列表框能过滤文本文件。

2、当单击某文本文件名后，在Textl显示文件名（包括路径），在Text2显示该文件内容。 3、当单击某文件文件名后，调用记事本程序对文件文件进行编辑。 4、界面及功能设计请参考cx24.exe文件。

程序设计25

1、窗体上引入一个通用对话框控件。 2、单击菜单“字体”，通用对话框，并对文本框字体进行修饰。

3、单击菜单“文字颜色”，通用对话框控件显示为颜色对话框，并对文体框文字颜色进行修饰。

4、单击菜单“背景颜色”，通用对话框控件显示为颜色对话框，并对文本框背景颜色进行修饰。

5、文本框设计为带垂直滚动条。

6、界面及功能设计请参考cx25.exe文件。

程序设计26

1、设计4个命令按钮，分别实现“复制”、“剪切”、“粘贴”和“删除”功能； 2、文本框Text1可以多行显示文字； 3、界面及功能设计请参考cx26.exe文件。

程序设计27

1、在窗体上放置一个文本框控件数组，用于输入用户信息。

2、在文本框控件数组中输入相应信息后，点击“添加”后在组合框中会出现该项的姓名。 3、在组合框中选中某项，可以在文本框数组中显示该项的用户信息，点击“删除”，可以删除该项的所有信息。

4、界面及功能设计请参考cx27.exe文件。

程序设计28

1、“菜单”框架中由复选框数组提供选择三种套餐，右边的文本框数组中可以输入数量； 2、要求文本框只能接受数字键；并且只有选取了相应的套餐后才可以进行输入， 3、单击“确定”按钮，统计点餐的金额，并用消息框显示出来； 4、界面及功能设计请参考cx28.exe文件。

程序设计29

1、窗体的右部是图片框，可以用鼠标左键进行绘图。 2、“选项”框中有两个单选钮控件，选择“细”时，绘图的线宽设置为1，选择“粗”时，绘图的线宽设置为5。 3、“选项”框中的“颜色”按钮打开通用对话框为颜色对话框，并设置绘图的颜色。 4、“选项”框架中的“清除”按钮用于清除图片框中的内容。 5、界面及功能设计请参考cx29.exe.文件。

程序设计30

1、框架Frame1中有一个复选框数组，可以选择粗体，斜体对标签中的文字进行修饰。 2、框架Frame2中有一个单选钮数组，可以选择宋体或楷体对标签中的文字进行修饰。 3、标签Labe11的文字内容为“Visual Basic程序设计”。宋体，常规，三号；文字对齐方式为居中。

4、界面及功能设计请参考cx30.exe文件。

程序设计31

1、单击“开始计时”按钮后,程序根据选择的时间开始倒计时，命令按钮变为不可使用。 2、倒计时过程是将剩余的时间显示在标签Labell中，直到0分0秒为止，改为显示“时间到！”：

3、框架“选择时间”内有一组单选钮控件数组，分别选择不同的时间值。只有选择时间后，命令按钮才可以使用。

4、界面及功能设计请参考cx31.exe文件。

程序设计32

1、要求命令按钮数组构成数字键，单击数字按钮，将拨号的内容显示在文本框Text1中； 2、单击“重拨“按钮，再现原来的拨号过程：（提示：再现过程由定时器实现） 3、定时器的时间间隔为0.5秒；

4、文本框最多接受10个字符：宋体，粗体，三号，兰色号； 5、界面及功能设计请参考cx32.exe文件。

程序设计33

1、在窗体上放置一个“三原色配比与预览”的框架，框架内有三个水平滚动条构成的控件数组，滚动条的取值范围为0——255；还有一个长方形形状控件。

2、拖动滚动条的滚动框来选择红、绿、兰三原色的配色取值，配色通过形状控件的填充效果动态显示。

3、单击“应用”按钮，将调配好的颜色作为标签文字“坚持就是胜利！”的文字颜色。 4、标签文字“坚持就是胜利！”字体为“楷体GB2312”。大小“二号”，设置相关属性使得标签在窗体中水平居中并且标签的大小随显示内容自动调整。 5、界面及功能设计请参考cx33.exe文件。

程序设计34

1、程序启动后窗体正中央有一个直径为500Twips的红色圆球。

2、第一次单击菜单“启动”，圆球先向右上角方向运动，碰壁后改变方向。水平、垂直方向的移动速度均为100Twips/间隔。

3、单击菜单“停止”，圆球停止运动，再单击菜单“启动”，圆球继续运动。 4、定时器时间间隔为0.1秒。

5、界面及功能设计请参考cx34.exe文件。

程序设计01题解：

一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Form1 属性 Caption 属性值 Form1 备注 最大化(&L) Command1 Caption 二、根据题意，对命令按钮Command1的Click事件编写如下事件过程代码： Private Sub Command1_Click()

If Command1.Caption = \最大化(&L)\ Form1.WindowState = 2

Command1.Caption = \还原(&B)\ Else

Form1.WindowState = 0

Command1.Caption = \最大化(&L)\

End If

Command1.Left = (Form1.Width - Command1.Width) / 2 Command1.Top = (Form1.Height - Command1.Height) / 2 End Sub

程序设计02题解：

一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Text1 Text2 Text3 Label1 Label2 Label3 Command1 属性 text text text Enabled Caption Caption Caption Caption 属性值 空 空 空 False 商品单价： 商品数量： 应付款： 清除 备注 计算 Command2 Caption 二、根据题意，对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码：

Private Sub Command1_Click() Text1.Text = \Text1.SetFocus Text2.Text = \Text3.Text = \End Sub

Private Sub Command2_Click() Dim a, b, sum As Integer Text3.Enabled = True a = Val(Text1.Text) b = Val(Text2.Text) sum = a * b

Text3.Text = sum

End Sub

程序设计03题解：

一、根据题目要求，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Text1 Text2 属性 text TabIndex text PassWordChar TabIndex text Text3 Text4 PassWordChar TabIndex text PassWordChar Label1 Label2 Label3 Label4 Command1 Command2 TabIndex Caption Caption Caption Caption Caption TabIndex Caption TabIndex 属性值 0 * 1 * 2 * 3 用户名 原密码 新密码 新密码 确定 4 取消 5 备注 二、根据题意，对命令按钮Command1的Click事件和Command2的Click事件编写如下事件过程代码：

Private Sub Command1_Click()

If Text1.Text = \ If Text3.Text = Text4.Text Then

B=MsgBox (\密码修改成功!\”修改密码”) Else

B=MsgBox(\新密码有误，请重试\“修改密码”) Text3.Text = \ Text4.Text = \

End If

Else

B=MsgBox( \用户名或密码无效，请重试！\“修改密码”) Text1.Text = \ Text2.Text = \ End If End Sub

Private Sub Command2_Click() end End Sub

程序设计04题解：

一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 Option1 Option2 Option3 Option4 Text1 Caption Caption Caption Caption text 属性值 显示星期几 显示年份 显示月份 显示日期 备注 结束 Command1 Caption 二、根据题意，对命令按钮Command1的Click事件编写如下事件过程代码： Private Sub Command1_Click() End End Sub

Private Sub Option1_Click()

Text1.Text = \今天是星期\End Sub

Private Sub Option2_Click()

Text1.Text = \今天是\ear(Date)) &\年\ End Sub

Private Sub Option3_Click()

Text1.Text = \今天是\月\ End Sub

Private Sub Option4_Click()

Text1.Text = \今天是\号\ End Sub

程序设计05题解：

一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 Form1 Command1 Command2 Caption Caption Caption 属性值 作图 坐标系 扇形 备注

结束 Command3 Caption 二、根据题意，对命令按钮的Click事件编写如下事件过程代码：

注：因本题单位不明确，故对x轴、y轴和圆半径乘以100后按默认单位处理 Const PI = 3.1415926

Private Sub Command1_Click()

Picture1.Scale (-10, 10)-(10, -10) Picture1.Line (-10, 0)-(10, 0) Picture1.Line (0, -10)-(0, 10) Picture1.CurrentX = 0 Picture1.CurrentY = 0 Picture1.Print \End Sub

Private Sub Command2_Click() Picture1.FillStyle = 0

Picture1.FillColor = vbGreen

Picture1.DrawWidth = 2

Picture1.Circle (0, 0), 5, vbRed, -PI / 6, -5 * PI / 6 End Sub

Private Sub Command3_Click() End End Sub

程序设计06题解：

一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 Label1 Label2 Label3 Label4 Text1 Text2 Text3 Text4 属性 Caption Caption Caption Caption Text Text Text Locked 属性值 高数 英语 计算机 平均成绩 True 备注 二、根据题意，对文本text1，text2，text3的Change事件编写如下事件过程代码： Private Sub Form_Load() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

Private Sub Text2_Change()

If Val(Text2.Text) > 0 Then Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End If End Sub

Private Sub Text3_Change()

If Val(Text3.Text) > 0 Then Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End If End Sub

Private Sub Text1_Change() If Val(Text1.Text) > 0 Then

Text4.Text = Trim(Str((Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)) End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > Asc(\ MsgBox \不能输入非数字字符\ KeyAscii = 0 End If End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii > Asc(\ MsgBox \不能输入非数字字符\ KeyAscii = 0 End If End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii > Asc(\ MsgBox \不能输入非数字字符\ KeyAscii = 0 End If End Sub

程序设计07题解：

一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 属性值 备注 Form1 Label1 Command1 Command2 Text1、Text2、Text3 Text3 码：

Caption Caption Caption Caption Caption Alignment Locked 加法器 + = 清空 清空 1---Right Justify True 二、根据题意，对各命令按钮的Click事件和各文本框的Change事件编写如下事件过程代Private Sub Command1_Click() Text3.Text = Trim(Str(Val(Text1.Text) + Val(Text2.Text))) End Sub

Private Sub Command2_Click() Text3.Text = \ Text2.Text = \ Text1.Text = \ Text1.SetFocus End Sub

Private Sub Form_Load() Text3.Locked = True End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc(\ KeyAscii = 0 End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc(\ KeyAscii = 0 End If End Sub

程序设计08题解：

一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 Form1 caption MinButton MaxButton 属性值 字体设置 False False 备注 窗体中各控件的位置按样例画好 Text1 Combo1 Combo2 Text Style Text Style 心想事称 1-simple combo 1-simple combo Text 二、根题意，编写如下事件过程代码： Private Sub Form_Load() combo1.AddItem \宋体\combo1.AddItem \黑体\

combo1.AddItem \楷体_GB2312\combo2.AddItem 8 combo2.AddItem 9 combo2.AddItem 10 combo2.AddItem 11 combo2.AddItem 12 combo2.AddItem 14 combo2.AddItem 16 End Sub

Private Sub combo1_Click() Text1.FontName = Combo1.Text End Sub

Private Sub combo1_Click()

Text1.FontSize = Val(Combo2.Text) End Sub

程序设计09题解：

一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 属性 Form1 Text1 List1 Command1 caption MinButton MaxButton Text Caption 属性值 添加和删除 False False 添加 删除 备注 窗体中各控件的位置按样例画好 Command2 caption 二、根题意，编写如下事件过程代码： Private Sub Command1_Click() If Text1.Text = \

MsgBox (\没有内容，不予添加\Else

List1.AddItem Text1.Text, 0 End If End Sub

Private Sub Command2_Click() If List1.ListIndex = -1 Then

MsgBox (\请选择输出的项目\Else

List1.RemoveItem List1.ListIndex End If End Sub

Private Sub Form_Load() List1.AddItem \List1.AddItem \

List1.AddItem \List1.AddItem \End Sub

程序设计10题解：

一、根据题目要求及样例，在Form1窗体上画出各控件，并根据题意按下表对窗体和各控件设置属性值。 控件名称 List1 List2 Command1 Command2 Command3 Command4 属性 list list caption caption caption caption 属性值 111,222 333,444 > >> << < 结束 备注 增加列表项 增加列表项 Command5 caption 二、根据题意，编写如下事件过程代码： Private Sub Command1_Click() If List1.ListIndex = -1 Then

MsgBox \请选择一列表项\

Else

List2.AddItem List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex End If End Sub

Private Sub Command2_Click() While List1.ListCount > 0

List2.AddItem List1.List(0)

本文来源：https://www.bwwdw.com/article/slst.html