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