vb14.docx
《vb14.docx》由会员分享，可在线阅读，更多相关《vb14.docx（15页珍藏版）》请在冰豆网上搜索。
vb14
三．
（1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'号）但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为"校验"的命令按钮。
其中文本框用来输入口令（如图所示），要求在文本框中输入的内容都必须以"*"显示（请考生自己通过属性窗口设置）。
要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。
如果输入的内容是"ABC"这3个大写字母，则用MsgBox信息框输出"正确"，否则输出"错误"（如图所示）。
***********************************************************************
（2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'号）但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有三个名称为Ch1、Ch2和Ch3的复选框，标题依次为"程序设计"、"数据库原理"、"计算机网络"，还有一个名称为C1，标题为"选课"的命令按钮（如图所示）。
要求程序运行后，如果选择某个复选框，则当单击命令按钮时在窗体上输出相应的信息。
例如：
如果选择"程序设计"和"数据库原理"复选框，则单击命令按钮后，将在窗体上显示"我选的课程是程序设计数据库原理"；如果选择"数据库原理"复选框，则单击命令按钮后，将在窗体上显示"我选的课程是数据库原理"。
解析：
1、考查考生对文本框属性PasswordChar的使用，本例中设置PasswordChar属性为"*"，然后在C1的Click事件中填入如下代码：
IfText1.Text="ABC"OrText1.Text="abc"ThenMsgBox"正确"ElseMsgBox"错误"
2、如图所示新建一窗口并建立相应的控件，在命令按钮的Click事件中加入如下代码：
DimsAsString
s="我选的课程是"
IfCh1.Value=1Then
s=s&"程序设计"
EndIf
IfCh2.Value=1Then
s=s&"数据库原理"
EndIf
IfCh3.Value=1Then
s=s&Ch3.Caption
EndIf
Prints
四.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为"输出"的命令按钮（如图所示）。
要求程序运行后，在文本框输入几个字符，在单击"输出"按钮，则在窗体上显示文本框中的的文字。
*注意：
1）在程序中不能使用任何变量。
2）保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。
**********************************************************************
（2）在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为"按钮一"、"按钮二"的命令按钮（如图所示）。
要求程序运行后，如果单击"按钮一"，则把"按钮二"移到"按钮一"上，使两个按钮重合。
*注意：
1）在程序中不得使用任何变量（必须通过属性设置来移动控件）。
2）保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。
解析：
1、考查基本控件的使用和对Print方法的使用，新建一工程，建立一名为Text1的文本框和名为Cmd，标题为"输出"的命令按钮，双击命令按钮加入如下代码：
Cls
PrintText1.Text
2、考查对控件的Top和Left属性的使用，在Cmd1的Click事件中加入如下代码：
Cmd2.Top=Cmd1.Top
Cmd2.Left=Cmd1.Left
五.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示"AAAA"（如图所示）；再建立一个名称为Cmd1，标题为"清除"的命令按钮，编写适当的事件过程。
要求程序运行后，如果单击"清除"命令按钮，则清除文本框中所显示的信息。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。
**********************************************************************
（2）在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"输入"和"连接"的命令按钮（如图所示）。
要求程序运行后，单击"输入"按钮，可通过输入对话框输入两个字符串，存入字符串变量a、b中（a、b应定义为窗体变量），如果单击"连接"按钮，则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来（在程序中不得使用任何其他变量）。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。
解析：
1、新建一个工程，在窗体上添加一个名为"Cmd1"的按钮和一个名为"Text1"的文本框，双击按钮在弹出的代码窗口中写入"Text1.Text="""，然后以文件名wy3.vbp和wy3.frm保存。
2.DimaAsString
DimbAsString
PrivateSubCommand1_Click（）
a=InputBox（"请输入第一个字符串：
","输入"）
b=InputBox（"请输入第二个字符串：
","输入"）
EndSub
PrivateSubCommand2_Click（）
MsgBoxa&b
EndSub
六.
（1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'号）但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为C1，标题为"复制"。
要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项，则单击"复制"按钮时，可以把该项复制到文本框中（如图所示）。
***********************************************************************
（2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'号）但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：
在窗体有三个复选框，名称分别为Ch1、Ch2和Ch3，标题依次为"体育"、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。
要求程序运行后，如果选中某个复选框，则当单击"显示"命令按钮时，则显示相应的信息。
例如，如果选中"体育"和"音乐"复选框，则单击"显示"命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果选中"体育"、"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"我的爱好是体育音乐美术"。
解析：
1、该题考查考生对ListBox控件的使用，该控件显示项目列表，从其中可以选择一项或多项。
如果项目总数超过了可显示的项目数，就自动在ListBox控件上添加滚动条。
语法：
ListBoxMultiSelect属性：
返回或设置一个值，该值指示是否能够在FileListBox或ListBox控件中进行复选以及如何进行复选。
在运行时是只读的。
PrivateSubC1_Click（）'单击时把选中的值给他
Text1.Text=List1.Text
EndSub
PrivateSubForm_Load（）
'自动增加
List1.AddItem"item1"
List1.AddItem"item2"
List1.AddItem"item3"
List1.AddItem"item4"
EndSub
2、CheckBox控件：
该控件可用来提供True/False或者Yes/No选项。
组中可以使用CheckBox控件显示多项选择，从而可选择其中的一项或多项。
也可以通过对Value属性编程设置CheckBox的值。
DimsAsString
s="我的爱好是"
IfCh1.Value=1Then
s=s&"体育"
EndIf
IfCh2.Value=1Then
s=s&"音乐"
EndIf
IfCh3.Value=1Then
s=s&Ch3.Caption
EndIf
Prints
七.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为"隐藏"、"显示"（如图所示）。
请编写适当的事件过程，使得在运行时，如果单击"隐藏"按钮，则文本框消失，而如果单击"显示"按钮，则文本框显示出来。
程序中不得使用任何变量。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
**********************************************************************
（2）在窗体上画二个文本框，名称分别为Text1、Text2。
请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个"*"，同时在Text2中显示输入的内容（如图所示）。
程序中不得使用任何变量。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
解析：
第1小题
文本框的Visible属性：
Visible属性用来设置对象的可见性，可以取True和False两种值，取值为True时，对象可见；取值为False时，将隐藏对象。
设置Visible属性的语法是：
对象名.Visible=True（-1）或False（0）
解题方法：
1.新建一个名为Form1的窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。
点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出两个命令按钮，通过属性窗口分别设置其Name属性为"C1"和"C2",Caption属性为"隐藏"和"显示"。
打开代码窗口，输入如下的代码：
PrivateSubC1_Click（）
Text1.Visible=False
EndSub
PrivateSubC2_Click（）
Text1.Visible=True
EndSub
按要求保存文件即完成本题。
第2小题
文本框的PasswordChar属性
用来设置文本框中所显示的内容。
在默认状态下，该属性的设置值是空字符串，此时文本框所显示的是键盘所输入的字符；如果将该属性的值设置为一个非空字符串，则从键盘向文本框输入字符时，文本框中的实际内容仍是键入的字符，但显示的是PasswordChar属性所设置的字符串的第一个字符。
文本框的Change事件
当用户向文本框中输入新信息，或当程序把Text属性设置为新值时，就会触发Change事件。
解题方法：
新建一个窗体，点击工具箱中的TextBox控件图标，然后在窗体上分别拖拉出两个文本框,通过属性窗口设置名为Text1的文本框的PasswordChar属性为"*"。
打开代码窗口，输入如下的代码：
PrivateSubText1_Change（）
Text2.Text=Text1.Text
EndSub
按要求保存文件即完成本题。
九.
（1）在名称为Form1的窗体中画一个名称为L1的标签，其标题为"0"，BorderStyle属性为1；再添加一个名称为Timer1的计时器。
请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。
如图所示的是程序刚启动时的情况。
程序中不得使用任何变量。
*注意：
存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。
**********************************************************************
（2）在考生文件夹下有一个工程文件sjt6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。
而如果单击"显示"按钮，则在窗体上输出所有选中的列表项（如图所示）。
要求：
修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的？
改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。
最后把修改后的程序以原来的文件名存盘。
解析：
第1小题
标签控件的BorderStyle属性
返回或设置标签控件的边框样式。
可以取0和1两种值，取值为0时，标签控件无边框；取值为1时，标签控件有边框。
其语法为：
控件名.BorderStyle=0或1
计时器控件的Interval属性
返回或设置计时器事件之间的间隔，以毫秒为单位，取值范围是0到65535
解题方法：
新建一个名为Form1的窗体，点击工具箱中的Timer控件图标，然后在窗体上拖拉出一个计时器，通过属性窗口设置其Interval属性为1000。
点击工具箱中的Label控件图标，然后在窗体上拖拉出一个标签控件，通过属性窗口设置其Name属性为"L1"，Caption属性为"0"，BorderStyle属性为1。
打开代码窗口，输入如下的代码：
PrivateSubTimer1_Timer（）
L1.Caption=L1.Caption+1
EndSub
按要求保存文件即完成本题。
第2小题
列表框的MultiSelect属性
用来设置列表框控件是否可以进行多重选择。
可以取0、1和2三种值，取值为0，不能进行多重选择；取值为1，用鼠标或空格键可以选中多个列表项；取值为2，按下Shift键，用鼠标单击要选择的第一个列表项，再单击要选择的最后一个列表项，可以连续选中两者之间的所有列表项；按下Ctrl键，用鼠标单击列表项，可以不连续的选中多个列表项。
解题方法：
打开工程文件sjt6.vbp，选中列表框控件，通过属性窗口设置其MultiSelect属性为1，并修改相应的代码。
修改后的代码如下：
PrivateSubC1_Click（）
Fori=0Tol1.ListCount-1
Ifl1.Selected（i）=TrueThen
Printl1.List（i）
EndIf
Nexti
EndSub
按要求保存文件即完成本题。
十.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体中建立一个名称为Cmd1，标题为"显示"的命令按钮（如图所示）。
要求程序运行后，如果单击"显示"按钮，则执行语句Form1.Print"显示"；如果单击窗体，则执行语句Form1.Cls。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。
**********************************************************************
（2）在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小值为0。
要求程序运行后，每次移动滚动框时，都执行语句Form1.PrintHS1.Value。
（如图所示）（程序中不能使用任何其他变量）
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。
解析：
1、新建一个工程，在窗体上添加一个名为"Cmd1"的按钮，
双击这个按钮在弹出的代码窗口中写入"Form1.Print"显示""，
在窗体空白部分双击，在弹出的窗口中写入"Form1.Cls"，
然后以文件名wy3.vbp和wy3.frm保存；
2、滚动条的属性用来标识滚动条的状态，本题中用到的属性有Max（滚动条所能表示的最大值，取值范围为-32768~32768），Min（滚动条所能表示的最小值，取值范围同Max），Value（该属性表示滚动框在滚动条上的当前位置）。
PrivateSubHS1_Change（）
Form1.PrintHS1.Value
EndSub
十一.
（1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个名为Image1的图像框，有一个名为Timer1的计时器，有一个名为HScroll1的滚动条，还有一个名为C1，标题为"开始"的命令按钮，要求程序运行后，点击开始按钮，则图像框中的图片根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。
***********************************************************************
（2）在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm，该程序是不完整的，请在有？
号的地方填入正确内容，然后删除？
及所有注释符（即'号），但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下：
在窗口中有一个名为Image1的图像框，还有两个命令按钮，名称分别是C1和C2，标题分别是"放大"和"缩小"。
要求程序运行后，点击C1按钮，则图像框变大；点击C2按钮，则图像框变小。
解析：
1、LoadPicture函数
用来将图形载入到窗体的Picture属性、PictureBox控件或Image控件。
其语法为：
对象名.Pictuer=LoadPictuer（"文件名"）
用该函数还可以把窗体或图像控件中的图像清除，其语法是：
对象名.Pictuer=LoadPictuer（）或
对象名.Pictuer=LoadPictuer（""）。
2、计时器控件的Interval属性
返回或设置对Timer控件的计时事件各调用间的毫秒数。
十二.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上建立一个名称为Cmd1，宽度为1500，高度为500，标题为"显示"的命令按钮（如图所示），编写适当的事件过程。
要求程序运行后，如果单击"显示"命令按钮，则在窗体上显示"祝你考试成功"运行结果如图所示（要求：
不要使用任何变量，直接显示字符串）。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。
**********************************************************************
（2）在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为"必修课"、"选修课"的命令按钮，编写适当的事件过程。
要求程序运行后，如果单击"必修课"命令按钮，在窗体上显示"高等数学必修课"；如果单击"选修课"命令按钮，在窗体上显示"多媒体技术选修课"（要求：
不要使用任何变量，直接显示字符串）。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。
解析：
1、新建一个工程，在窗体上添加一个名为"Cmd1"的按钮，单击这个按钮在属性窗口中选择Width填入1500，Height为500，Caption为"显示"，双击这个按钮在弹出的代码窗口中写入"Form1.Print"祝你考试成功""，然后以文件名wy1.vbp和wy1.frm保存；
2、新建一个工程，在窗体上添加两个名为"Cmd1"和"Cmd2"的按钮，双击按钮"Cmd1"在弹出的代码窗口中写入"Form1.Print"高等数学必修课""，双击按钮"Cmd2"在弹出的代码窗口中写入"Form1.Print"多媒体技术选修课""，然后以文件名wy2.vbp和wy2.frm保存。
十四.请根据以下各小题的要求设计VisualBasic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为"输出"、"清除"（如图所示）。
要求程序运行后，每单击一次"输出"按钮，不使用任何变量而直接在图片框中显示小写字母"red"；如果单击"清除"按钮，则清除图片框中的内容。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。
**********************************************************************
（2）在名称为Form1的窗体上建立一个名称为List1的列表框。
要求：
在程序运行后，通过Form_Load（）事件过程加载窗体时，执行语句List1.AddItem"AAA"之后，每当单击某个列表项时，都执行语句List1.AddItemList1.Text一次（如图所示）。
*注意：
保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。
解析：
1、PictureBox控件可以显示来自位图、图标或者源文件，以及来自增强的源文件、JPEG或GIF文件的图形。
如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。
也可以用PictureBox控件将OptionButton控件分组，并用该控件显示图形方法的输出和Print方法写入的文本。
Image控件用来显示图形，但是它只支持PictureBox控件的一部分属性、事件和方法。
2、使用AddItem或者RemoveItem方法可以添加或者删除ListBox控件中的项目。
语法为：
object.AddItemitem,index。
本题在list1_click事件中加入"List1.AddItemList1.Text"即可。
升级会员 