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、I
升级会员 