二级VB100套题答案全解.docx

二级VB100套题答案全解.docx

《二级VB100套题答案全解.docx》由会员分享，可在线阅读，更多相关《二级VB100套题答案全解.docx（24页珍藏版）》请在冰豆网上搜索。

二级VB100套题答案全解

在名称为Form1的窗体上绘制一个名称为Cmd1的命令按钮，其标题为“移动”，

位于窗体的左上部。

编写适当的事件过程，使程序运行后，每单击一次窗体，都使得命令按钮同时向右、向下移动100。

程序的运行情况如图50-2所示。

解答：

Privat

eSubCmd1_Click（）

Cmd1.Left=Cmd1.Left+100

Cmd1.Top=Cmd1.Top+100

EndSub

在名称为Form1的窗体中绘制一个名称为Lab1的标签，其标题为“0”，BorderStyle

属性为1；再添加一个名称为Tmr1的计时器。

请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔1秒钟标签中的数字加1。

解答：

PrivateSubTmr1_Timer（）

Lab1.Caption=Lab1.Caption+1

EndSub

在考生文件夹中有一个工程文件vbsj4.vbp及窗体文件vbsj4.frm。

在名称为Form1的窗体上有一个名称为Cmd1的命令按钮，其标题为“下一个”。

要求在窗体上建立一个单选按钮数组Opt1，含4个单选按钮，标题分别为“A”、“B”、“C”和“D”，初始状态下，“A”为选中状态。

程序运行效果如图50-4所示。

解答：

PrivateSubCmd1_Click（）

Fork=0To3

IfOpt1（k）.ValueThen

n=k

EndIf

Nextk

Opt1（n）.Value=False

n=n+1

Ifn=4Then

n=0

EndIf

Opt1（n）.Value=True

EndSub

在名为Form1的窗体上建立一个名为Hsb1的水平滚动条，其最大值为300，最小值为0。

要求程序运行后，每次移动滚动框时，都执行语句Form1.PrintHsb1.Value，运行效果如图51-1所示。

解答：

PrivateSubHSb1_Change（）

Form1.PrintHSb1.Value

EndSub

考生文件夹中有工程文件vbsj3.vbp及其窗体文件vbsj3.frm。

在名为Form1

的窗体上有3个名称分别为Txt1、Txt2和Txt3的文本框；1个名称为Cmd1的命令按钮，

其标题为“计算”。

要求程序运行后，在Txt1和Txt2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数（含两个整数）累加起来并在Txt3中显示出来，如图51-3所示。

解答：

PrivateSubCmd1_Click（）

a=Val（Txt1）

b=Val（Txt2）

Ifa>bThen

c=a

a=b

b=c

EndIf

Fori=aTob

Sum=Sum+i

Nexti

Txt3.Text=Sum

在考生文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。

在名

为Form1的窗体上有两个名称分别为Cmd1和Cmd2的命令按钮；一个名称为Lab1的标签控件；一个名称为Tmr1计时器控件。

程序运行后，在命令按钮Cmd1中显示为“开始”；在命令按钮Cmd2中显示为“停止”；标签中字号大小为18号、字体为粗体、显示为“欢迎光临”（标签的AutoSize属性为True）；计时器的Interval属性设置为100，Enabled属性设置为False。

此时如果单击“开始”命令按钮，则该按钮变为禁用，标题变为“继续”，同时标签自左至右移动（每个时间间隔移动50），如图51-4所示。

当标签移动出窗体右边界后，自动从左边界开始向右移动；如果单击“停止”命令按钮，则该按钮变为禁用，“继续”命令按钮变为有效，同时标签停止移动；再次单击“继续”命令按钮后，标签继续移动。

本程序不完整，请补充完整，并能正确运行。

解答：

PrivateSubCmd1_Click（）

Cmd1.Caption="继续"

Cmd1.Enabled=False

Cmd2.Enabled=True

Tmr1.Enabled=True

EndSub

PrivateSubCmd2_Click（）

Cmd2.Enabled=False

Cmd1.Enabled=True

Tmr1.Enabled=False

EndSub

PrivateSubTmr1_Timer（）

IfLab1.Left

Lab1.Left=Lab1.Left+50

Else

Lab1.Left=0

EndIf

EndSub

在考生文件夹中有一个工程文件vbsj3.vbp及窗体文件vbsj3.frm。

在名为Form1

的窗体中有两个图片框，名称分别为Pic1和Pic2，其中的图片分别是火箭和云层；有一个计时器，名为Tmr1，有一个命令按钮，名为Cmd1，标题为“发射”。

并给出了两个事件过程，但并不完整，请补充完整。

要求：

①设置计时器的属性，使其在初始状态下不计时。

②设置计时器的属性，使其

每隔0.1秒调用Timer事件过程一次。

③去掉程序中的注释符“'”，把程序中的问号“？

”改为正确的内容，使得在运行时单击“发射”按钮，则火箭每隔0.1秒向上移动一次，当到达云层的下方时停止移动，如图52-3所示。

解答：

PrivateSubCmd1_Click（）

Tmr1.Enabled=True

EndSub

PrivateSubTmr1_Timer（）

Pic2.Top=Pic2.Top-50

IfPic2.Top<=Pic1.Top+Pic1.HeightThen

Tmr1.Enabled=False

Cmd1.Enabled=False

Pic2.Top=Pic2.Top

EndIf

Tmr1.Interval=Tmr1.Interval-30

IfTmr1.Interval<30Then

Tmr1.Interval=30

EndIf

EndSub

在考生文件夹中有一个工程文件vbsj4.vbp和窗体文件vbsj4.frm。

在名为Form1

的窗体上，有一个名为Cmd1的命令按钮，其标题为“移动”；一个名为Vsb1的垂直滚动条；一个名为Txt1的文本框，它的初始内容为空。

程序的功能是在文本框中输入一个整数，单击“移动”按钮后，如果输入的是正数，滚动条中的滚动框向下移动与该数相符的刻度，如图52-4所示；但如果超过了滚动条的最大刻度，则不移动，并且显示“输入的数值太大”；如果输入的是负数，滚动条中的滚动框向上移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且显示“输入的数值太小”。

解答：

PrivateSubCmd1_Click（）

a=Val（Txt1.Text）

a=VSb1.Value+a

Ifa>VSb1.MaxThen

x=MsgBox（"输入的数值太大",vbOKOnly,"vbsj3"）

Else

Ifa

x=MsgBox（"输入的数值太小",vbOKOnly,"vbsj3"）

Else

VSb1.Value=a

EndIf

EndIf

EndSub

在窗体上绘制一个名为Txt1的文本框，其Text属性为空白；再绘制一个名为Lst1的列表框，通过属性窗口向列表框中添加4个项目，分别为“项目1”、“项目2”、“项目3”和“项目4”。

编写适当的事件过程，使程序运行后，在文本框中输入一个字符串，若双击列表框中的任何一项，则把文本框的中的字符串添加到列表框中。

程序的运行效果

如图54-1所示。

解答：

PrivateSubList1_DblClick（）

List1.AddItemTxt1.Text

EndSub

文件夹中有一个工程文件vbsj3.vbp及其窗体文件vbsj3.frm，含有Form1

和Form2两个窗体，Form1为启动窗体。

两个窗体上的控件如图..

程序运行后，在Form1窗体的文本框中输入有关信息（“密码”框中显示“*”字符），然后单击“提交”按钮则弹出“确认”对话框（即Form2窗体），并在对话框中显示输入的信息。

单击“确认”按钮则程序结束；单击“返回”按钮，则对话框消失，回到Form1.

解答：

PrivateSubCmd1_Click（）

msg1$="用户名"

msg2$="密码"

msg3$="姓名"

msg4$="性别"

msg5$=Txt1.Text

msg6$=Txt2.Text

msg7$=Txt3.Text

IfOpt1.Value=TrueThen

msg8$=Opt1.Caption

Else

msg8$=Opt2.Caption

EndIf

msg$=msg1$+msg5$+msg2$+msg6$+msg3$+msg7$+msg4$+msg8$

x=MsgBox（msg$,vbOKCancel,"确认"）

EndSub

在名为Form1的窗体上绘制一个名为Hsb1的水平滚动条，其最小值为0，最大值

为100；再绘制3个名称分别为Cmd1、Cmd2和Cmd3的命令按钮，它们的标题分别为“左端”、“居中”和“右端”。

编写适当的事件过程，使程序运行后，若单击“左端”命令按钮，则滚动框位于滚动条最左端处；如果单击“居中”命令按钮，则滚动框位于滚动条中间；如果单击“右端”命令按钮，则滚动框位于滚动条最右端处。

解答：

PrivateSubCmd1_Click（）

HSb1.Value=HSb1.Min

EndSub

PrivateSubCmd2_Click（）

HSb1.Value=（HSb1.Min+HSb1.Max）/2

EndSub

PrivateSubCmd3_Click（）

HSb1.Value=HSb1.Max

EndSub

考生文件夹中有一个工程文件vbsj3.vbp及窗体文件vbsj3.frm。

在名为Form1的窗体上有两个框架，其中一个框架有两个单选按钮，另一个框架中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。

程序的功能是：

在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置。

解答：

PrivateSubCmd1_Click（）

IfOpt1.Value=TrueThen

Txt1.Font="宋体"

Else

Txt1.Font="隶书"

EndIf

IfCheck1.ValueThen

Txt1.FontUnderline=True

Else

Txt1.FontUnderline=False

EndIf

IfCheck2.ValueThen

Txt1.FontItalic=True

Else

Txt1.FontItalic=False

EndIf

EndSub

在考生文件夹中有一个工程文件vbsj4.vbp及其窗体文件vbsj4.frm。

请在名为

Form1的窗体上绘制两个名称分别为Txt1和Txt2的文本框，文本框的内容分别设置为“计算机考试”、“VisualBasic”；然后绘制一个名称为Labl的标签，其高度为300，宽度为2500；再绘制两个名称分别为Opt1和Opt2的单选按钮，它们的标题分别为“交换”和“连接”；最后再绘制一个名称为Cmd1的命令按钮，其标题为“确定”。

编写适当的事件程序。

使得程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则Txt1文本框中内容与Txt2文本框中内容进行交换，并在标签处显示“交换完成”；如果选中“连接”单选按钮并单击“确定”按钮后，则把交换后的Txt1和Txt2的内容连接起来，并在标签处显示连接的内容。

解答：

PrivateSubCmd1_Click（）

IfOpt1.Value=TrueThen

c=Txt1.Text

Txt1.Text=Txt2.Text

Txt2.Text=c

Lab1.Caption="交换成功"

Else

Lab1.Caption=Txt1.Text+Txt2.Text

EndIf

EndSub

在名为Form1的窗体上绘制一个名为Lab1的标签，其标题为空白，BorderStyle

属性为1，Visible属性为False；一个名为Txt1的文本框，其Text属性为空白；一个名为Cmd1的命令按钮，其标题为“显示”。

编写命令按钮Click事件过程，使得程序运行后，在文本框中输入“计算机VB等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容。

运行后的窗体如图57-1所示。

解答：

PrivateSubCmd1_Click（）

Txt1.Visible=False

Lab1.Visible=True

Lab1.Caption=Txt1.Text

EndSub

窗体中有一个名为Txt1的文本框；请在窗体上绘制两个名称分别为Fra1和Fra2的框架，其标题分别为“性别”和“身份”；在Fra1中绘制两个名称分别为Opt1和Opt2的单选按钮，其标题分别为“男”和“女”；在Fra2中绘制两个名称分别为Opt3和Opt4的单选按钮，其标题分别为“学生”和“老师”；再绘制一个名为Cmd1的命令按钮，其标题为“确定”。

请编写适当的事件过程，使得在运行时，在Fra1、Fra2中选一个单选按钮，然后单击“确定”按钮，就可以按照下表把结果显示在文本框中。

解答：

PrivateSubCmd1_Click（）

IfOpt1.Value=TrueThen

IfOpt3.Value=TrueThen

Txt1.Text=Opt1.Caption+Opt3.Caption

Else

Txt1.Text=Opt1.Caption+Opt4.Caption

EndIf

Else

IfOpt3.Value=TrueThen

Txt1.Text=Opt2.Caption+Opt3.Caption

Else

Txt1.Text=Opt2.Caption+Opt4.Caption

EndIf

EndIf

EndSub

在名为Form1的窗体上建立一个名为Txt1的文本框；建立一个名为Cmd1的命令

按钮，其标题为“计算”。

要求程序运行后，如果单击“计算”按钮，则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来

解答：

PrivateSubCmd1_Click（）

m=1

Fori=1To30

IfiMod7=0Then

m=m*i

EndIf

Nexti

Txt1.Text=Str$（m）

EndSub

在名为Form1的窗体上建立一个名为Cmd1的命令按钮，其标题为“显示”。

请编写适当的事件过程，使程序运行后，若单击“显示”命令按钮，则在窗体上显示“VisualBasic考试”。

解答：

PrivateSubCmd1_Click（）

Form1.Print"VISUALBASIC考试"

EndSub

在名为Form1的窗体上绘制一个命令按钮，其名称为Cmd1，然后通过属性窗

口设置窗体和命令按钮的属性，实现如下功能：

①窗体标题为“设置按钮属性”。

②命令按钮的标题为“计算机VB考试”。

③程序运行后，命令按钮不显示。

④命令按钮的标题用小三号楷体显示。

PrivateSubCmd1_Click（）

Cmd1.Visible=False

EndSub

在名为Form1的窗体上绘制两个名称分别为Txt1和Txt2的文本框，它们都显

示垂直滚动条和水平滚动条，都可以显示多行文本；再绘制一个名为Cmd1的命令按钮，其标题为“复制”。

请编写适当的事件过程，使得程序在运行时，在Txt1中输入多行文本后，单击“复制”按钮，就把Txt1中的文本全部复制到Txt2中

PrivateSubCmd1_Click（）

Txt2.Text=Txt1.Text

EndSub

在窗体上绘制两个名称分别为Lab1和Lab2的标签，它们的标题分别为“请输

入一个正整数N”和“1+2+3+…+N=”；绘制两个名称分别为Txt1和Txt2的文本框，它们的内容都设为空白；绘制一个名为Cmd1的命令按钮，其标题为“计算”。

编写适当的程序，使程序运行时，在Txt1中输入一个正整数N，单击“计算”按钮，计算出1+2+3+…+N的和显示在Txt2中。

解答：

PrivateSubCmd1_Click（）

a=Val（Txt1）

Fori=1Toa

Sum=Sum+i

Nexti

Txt2.Text=Str$（Sum）

EndSub

在考生文件夹中有工程文件vbsj3.vbp及其窗体文件vbsj3.frm。

在窗体上有3个

名称分别为Opt1、Opt2和Opt3的单选按钮，标题分别为“楷体”、“隶书”和“黑体”；一个名称为Txt1的文本框，字体为“宋体”，字号为三号字；还有一个名称为Cmd1的命令按钮，标题为“更改字体”。

要求程序运行后，在文本框中显示“计算机VB考试”。

选择一个单选按钮，在单击“更改字体”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图63-3所示。

解答：

PrivateSubCmd1_Click（）

IfOpt1.ValueThen

Txt1.Font="宋体"

Else

IfOpt2.Value=TrueThen

Txt1.Font="隶书"

Else

Txt1.Font="楷体"

EndIf

EndIf

EndSub

在名为Form1的窗体上绘制一个名称为Txt1的文本框，Text属性为“人民”，Font

属性为“楷体”；一个名称为Hsb1的水平滚动条，其Min属性设置为10，Max属性设置为50，LargeChange属性设置为5，SmallChange属性设置为2。

编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框中的“人民”二字。

解答：

PrivateSubHSb1_Change（）

Txt1.FontSize=HSb1.Value

EndSub

在名为Form1的窗体上绘制一个名称为Lab1的标签，其标题为“输入”；一个

名称为Txt1的文本框，其Text属性为空白；一个名称为Cmd1的命令按钮，其标题为“显示”。

请编写命令按钮的Click事件过程，使程序运行后，在文本框中输入VisualBasic，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。

解答：

PrivateSubCmd1_Click（）

Lab1.Visible=False

Form1.PrintTxt1.Text

Txt1.Visible=False

EndSub

在考生文件夹中有工程文件vbsj3.vbp及其窗体文件vbsj3.frm。

在名为Form1的窗

体上有一个名称为Txt1的文件框；还有两个名称分别为Chk1和Chk2的复选框，它们的标题分别为“电子商务”和“物流管理”；一个名称为Cmd1的命令按钮，其标题为“确定”。

编写适当的事件过程，使程序运行后，如果只选中“电子商务”，然后单击“确定”命令按钮，则在文本框中显示“学习电子商务”；如果同时选中“电子商务”和“物流管理”，然后单击“确定”命令按钮，则在文本框中显示“学习电子商务和物流管理”，如图65-3所示；如果“电子商务”和“物流管理”都不选，然后单击“确定”命令按钮，则文本框中什么都不显示。

本程序不完整，请补充完整，并能正确运行。

解答：

PrivateSubCmd1_Click（）

IfChk1.Value&Chk2.ValueThen

msg1$="学习"

Else

msg1$=""

EndIf

IfChk1.ValueThen

msg2$="电子商务"

Else

msg2$=""

EndIf

IfChk2.ValueThen

msg3$="物流管理"

Else

msg3$=""

EndIf

Txt1.Text=msg1$+msg2$+msg3$

EndSub

在考生文件夹中有工程文件vbsj3.vbp及其窗体文件vbsj3.frm。

在名为Form1

的窗体上有一个名为Txt1的文本框；一个名称为Cmd1的命令按钮，其标题为“密码验证”。

其中文本框用来输入密码，要求在文本框中输入的内容都必须以“*”显示（通过属性窗口设置）。

程序运行后，输入密码，单击命令按钮后，对密码进行校验。

如果输入的内容是“123456”这6个数字，则用MsgBox信息框输出“输入密码正确”，否则输出“输入密码错误”，如图70-4所示。

解答：

PrivateSubCmd1_Click（）

IfTxt1.Text="123456"Then

MsgBox"输入密码正确"

Else

MsgBox"输入密码错误"

EndIf

EndSub

文件夹中有一个工程文件vbsj4.vbp，相应的窗体文件名为vbsj4.frm。

该

程序用来对在文本框中输入的英文字母串（称为“明文”）加密，加密结果（称为“密文”）显示在下面的文本框中，如图70-5所示。

加密的方法是：

选中一个单选按钮，单击“加密”按钮后，程序根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母（“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”。

解答：

PrivateSubCmd1_Click（）

IfOpt1.Value=TrueThen

Fori=1ToLen（Txt1）

IfMid（Txt1.Text,i,1）="z"Then

Txt2.Text=Txt2.Text+"a"

Else

IfMid（Txt1.Text,i,1）="z"Then

Txt2.Text=Txt2.Text+"A"

Else

Txt2.Text=Txt2.Text+Chr（Asc（Mid（Txt1.Text,i,1））+1）

EndIf

EndIf

Nexti

EndIf

在窗体绘制一个名为Lst1的列表框，通过属性窗口向列表框中添加4个项目，

分别为Item1、Item2、Ite