计算机VB大题训练集.pdfVIP

评分规章如下：

所建控件所在工程得分：4分

所建的窗体得分：11分

控件设计满分：15分

1.在考生文件夹中，完成以下要求：

（1）启动工程文件Sjt.Vbp,将工程文件的工程名称改为“Spks”,并将_L程中的窗体文件Sjt.frm

的窗体名称改为“vbbc”，窗体的标题为“二级VB考试二

2（）在窗体上增加以下控件:定时器Timeri,时间间隔值为10；图片框Picture1；标签Label」放

置在图片框中，标签的大小自动调整；标签Label2的标题为“快”；文本框Textl放置在图片框

下方；水平滚动条Scroll1,最小值为0,最大值为100。

（3）按如下要求编写代码：

文本框中输入的字符自动显示为标签的标题；标签自动向左移动，移出图片框后又从右边进入（提示:

编程使得当标签的LeftGlOOO时，重置Left=10000）；拖动水平滚动条时，将调整移动的速度。

4（）请先调试、运行，然后将工程、窗体保存。

参考程序如下：

PrivateSubHScrolll_Change）（

Timcrl.Interval=HScroill.Value

EndSub

PrivateSubTcxtl_Changc）（

LabelI.C叩lion=Textl.Text

EndSub

PrivateSubTimerl_Timer）（

LabelI.Left=Liibel1.Left-100

IfLabel1.Left-1000ThenLabel1.Left=10000

EndSub

2.在考生文件夹中，完成以下要求：

（1）启动工程文件Sjt.Vbp,将工程文件的工程名称改为“Spks”，并将工程中的窗体文件

Sjt.frm的窗体名称改为“vbbe”。

2（）请在适当位置添加控件:三个标签,Label1标题为“姓名:，Label2标题为“籍贯：”，La位13

标题为空；一个框架Framel标题为“性别”；两个单选按钮在框架Framel中，Optionl标题为

“男”，Style属性为1巨为选中状态,0ption2标题为“女”，Style属性为1；一个文本框Textl

内容为空，且Tabindex属性值为0；一个列表框Listl；一，个命令按钮Commandl,标题为“确

定”。（以上操作在属性窗口中完成）

（3）在窗体模块中声明全局变量xb,jg；在窗体的装载大事中完成：列表框添加三项内容：北京”，

“上海”，“合肥”，且“北京”选项默认被选中，xb变量的初始值为“男”。

⑷按如下要求编写代码：选中Optionl时，为变量xb赋值为“男”；选中0ption2时，为变量xb

赋值为“女”；选中列表框的某一项时，把选中的内容赋值给jg要（求在列表框的Click大事

中实现）；单击按钮Commandl时,在Label3中顺次显示姓名T（extl中的内容），籍贯（变量jg

的值），性别（变量xb的值）。

运行后如图所示：

(5)请先调试、运行，然后将工程、窗体保存。

参考程序如下，

Publicjg,xb

PrivateSubCommandl_Click()

Label3.Caption=Text1.Text：jgxb

EndSub

PrivateSubFonn_Load()

List1.Additem北京

List1.Additem上海”

List1.Additem”合肥”

xb二“男”

List1.Listindex=0

EndSub

PrivateSubListl_Click()

jg=List1.Text

EndSuh

PrivateSubOptionl_Click()

xb=男

EndSub

PrivateSubOption