vb14.docx

1、vb14三 （1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为校验的命令按钮。其中文本框用来输入口令（如图所示）， 要求在文本框中输入的内容都必须以*显示（请考生自己通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。 如果输入的内容是ABC这3个大写字母，则用MsgBox信息框输出正确，否则输出错误（如图所示）。 *（2）在考生文件夹中有工程文

2、件wy6.vbp及其窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有三个名称为Ch1、Ch2和Ch3的复选框，标题依次为程序设计、数据库原理、计算机网络，还有一个名称为C1，标题为选课的命令按钮（如图所示）。要求程序运行后，如果选择某个复选框， 则当单击命令按钮时在窗体上输出相应的信息。例如：如果选择程序设计和数据库原理复选框，则单击命令按钮后，将在窗体上显示我选的课程是程序设计数据库原理；如果选择数据库原理复选框，则单击命令按钮后，将在窗体上显示我选的课程是数据库原

3、理。 解析：1、考查考生对文本框属性PasswordChar的使用，本例中设置PasswordChar属性为*，然后在C1的Click事件中填入如下代码： If Text1.Text = ABC Or Text1.Text = abc Then MsgBox 正确 Else MsgBox 错误2、如图所示新建一窗口并建立相应的控件，在命令按钮的Click事件中加入如下代码： Dim s As String s = 我选的课程是 If Ch1.Value = 1 Then s = s & 程序设计 End If If Ch2.Value = 1 Then s = s & 数据库原理 End If

4、 If Ch3.Value = 1 Then s = s & Ch3.Caption End If Print s四.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为输出的命令按钮（如图所示）。要求程序运行后，在文本框输入几个字符，在单击输出按钮，则在窗体上显示文本框中的的文字。*注意：1）在程序中不能使用任何变量。2）保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。 *（2）在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd

5、2，标题为按钮一、按钮二的命令按钮（如图所示）。要求程序运行后，如果单击按钮一，则把按钮二移到按钮一上，使两个按钮重合。*注意：1）在程序中不得使用任何变量（必须通过属性设置来移动控件）。2）保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。 解析：1、考查基本控件的使用和对Print方法的使用，新建一工程，建立一名为Text1的文本框和名为Cmd，标题为输出的命令按钮，双击命令按钮加入如下代码：ClsPrint Text1.Text2、考查对控件的Top和Left属性的使用，在Cmd1的Click事件中加入如下代码：Cmd2.Top=Cmd1.TopCmd

6、2.Left=Cmd1.Left五. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示AAAA（如图所示）；再建立一个名称为Cmd1，标题为清除的命令按钮，编写适当的事件过程。要求程序运行后，如果单击清除命令按钮，则清除文本框中所显示的信息。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。 *（2）在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为输入和连接的命令按钮（如图所示）。 要求程序

7、运行后， 单击输入按钮， 可通过输入对话框输入两个字符串，存入字符串变量a、b中（a、b应定义为窗体变量），如果单击连接按钮， 则把两个字符串连接为一个字符串（顺序不限）并在信息框中显示出来（在程序中不得使用任何其他变量）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。解析：1、新建一个工程，在窗体上添加一个名为Cmd1的按钮和一个名为Text1的文本框，双击按钮在弹出的代码窗口中写入Text1.Text=，然后以文件名wy3.vbp和wy3.frm保存。2. Dim a As String Dim b As String Private Sub

8、 Command1_Click() a = InputBox(请输入第一个字符串：, 输入) b = InputBox(请输入第二个字符串：, 输入) End Sub Private Sub Command2_Click() MsgBox a & b End Sub六. （1）在考生文件夹中有工程文件wy5.vbp及其窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为复制。要

9、求程序运行后，在列表框中自动建立四个列表项，分别为Item1、Item2、Item3、Item4如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本框中（如图所示）。 *（2）在考生文件夹中有工程文件wy6.vbp及其窗体文件wy6.frm ，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为体育、音乐、美术，还有一个命令按钮，名称为C1，标题为显示。要求程序运行后，如果选中某个复选框，则当单击显示命令按钮时，则显示相应的信息。

10、例如，如果选中体育和音乐复选框，则单击显示命令按钮后，在窗体上显示我的爱好是体育音乐（如图所示）；而如果选中体育、音乐和美术复选框，则单击显示按钮后，在窗体上显示我的爱好是体育音乐美术。解析：1、该题考查考生对ListBox控件的使用，该控件显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目数，就自动在 ListBox控件上添加滚动条。语法：ListBox MultiSelect属性：返回或设置一个值，该值指示是否能够在 FileListBox或ListBox控件中进行复选以及如何进行复选。在运行时是只读的。Private Sub C1_Click() 单击时把选中的值给他

11、 Text1.Text = List1.TextEnd SubPrivate Sub Form_Load() 自动增加 List1.AddItem item1 List1.AddItem item2 List1.AddItem item3 List1.AddItem item4End Sub2、CheckBox控件：该控件可用来提供True/False或者Yes/No选项。组中可以使用CheckBox控件显示多项选择，从而可选择其中的一项或多项。也可以通过对Value属性编程设置CheckBox的值。 Dim s As String s = 我的爱好是 If Ch1.Value = 1 The

12、n s = s & 体育 End If If Ch2.Value = 1 Then s = s & 音乐 End If If Ch3.Value = 1 Then s = s & Ch3.Caption End If Print s七. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个文本框，名称为Text1；再画二个命令按钮，名称分别为C1、C2，标题分别为隐藏、显示（如图所示）。请编写适当的事件过程，使得在运行时，如果单击隐藏按钮，则文本框消失，而如果单击显示按钮，则文本框显示出来。程序中不得使用任何变量。*注意：存盘时必

13、须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。 *（2）在窗体上画二个文本框，名称分别为Text1、Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，如果在Text1中每输入一个字符，则显示一个*，同时在Text2中显示输入的内容（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。解析：第1小题文本框的Visible属性：Visible属性用来设置对象的可见性，可以取True和False两种值，取值为True时，对象可见；取值为False时，将隐藏对象。设

14、置Visible属性的语法是：对象名.Visible = True(-1)或False(0)解题方法：1.新建一个名为Form1的窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出两个命令按钮，通过属性窗口分别设置其Name属性为C1和C2,Caption属性为隐藏和显示。打开代码窗口，输入如下的代码：Private Sub C1_Click()Text1.Visible = FalseEnd SubPrivate Sub C2_Click()Text1.Visible = TrueEnd Sub按要求

15、保存文件即完成本题。第2小题文本框的PasswordChar属性用来设置文本框中所显示的内容。在默认状态下，该属性的设置值是空字符串，此时文本框所显示的是键盘所输入的字符；如果将该属性的值设置为一个非空字符串，则从键盘向文本框输入字符时，文本框中的实际内容仍是键入的字符，但显示的是PasswordChar属性所设置的字符串的第一个字符。文本框的Change事件当用户向文本框中输入新信息，或当程序把Text属性设置为新值时，就会触发Change事件。解题方法：新建一个窗体，点击工具箱中的TextBox控件图标，然后在窗体上分别拖拉出两个文本框,通过属性窗口设置名为Text1的文本框的Passwo

16、rdChar属性为*。打开代码窗口，输入如下的代码：Private Sub Text1_Change()Text2.Text = Text1.TextEnd Sub按要求保存文件即完成本题。九. （1）在名称为Form1的窗体中画一个名称为L1的标签，其标题为0，BorderStyle属性为1；再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，每隔一秒钟标签中的数字加1。如图所示的是程序刚启动时的情况。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt5.vbp，窗体文件名为sjt5.frm。 * （2）在考生文件夹下

17、有一个工程文件sjt6.vbp，要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击显示按钮，则在窗体上输出所有选中的列表项（如图所示）。要求：修改列表框的适当属性，使得运行时可以多选，并去掉程序中的注释符，把程序中的 ？ 改为正确的内容，使其实现上述功能，但不得修改程序中的其他部分。最后把修改后的程序以原来的文件名存盘。 解析：第1小题标签控件的BorderStyle属性返回或设置标签控件的边框样式。可以取0和1两种值，取值为0时，标签控件无边框；取值为1时，标签控件有边框。其语法为：控件名.BorderStyle= 0或1计时器控件的Interval属性返回或设置计时器

18、事件之间的间隔，以毫秒为单位，取值范围是0到65535解题方法：新建一个名为Form1的窗体，点击工具箱中的Timer控件图标，然后在窗体上拖拉出一个计时器，通过属性窗口设置其Interval属性为1000。点击工具箱中的Label控件图标，然后在窗体上拖拉出一个标签控件，通过属性窗口设置其Name属性为L1，Caption属性为0，BorderStyle属性为1。打开代码窗口，输入如下的代码：Private Sub Timer1_Timer()L1.Caption = L1.Caption + 1End Sub按要求保存文件即完成本题。第2小题列表框的MultiSelect属性用来设置列表框

19、控件是否可以进行多重选择。可以取0、1和2三种值，取值为0，不能进行多重选择；取值为1，用鼠标或空格键可以选中多个列表项；取值为2，按下Shift键，用鼠标单击要选择的第一个列表项，再单击要选择的最后一个列表项，可以连续选中两者之间的所有列表项；按下Ctrl键，用鼠标单击列表项，可以不连续的选中多个列表项。解题方法：打开工程文件sjt6.vbp，选中列表框控件，通过属性窗口设置其MultiSelect属性为1，并修改相应的代码。修改后的代码如下：Private Sub C1_Click() For i = 0 To l1.ListCount - 1 If l1.Selected(i) = Tr

20、ue Then Print l1.List(i) End If Next iEnd Sub按要求保存文件即完成本题。 十. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体中建立一个名称为Cmd1，标题为显示的命令按钮（如图所示）。要求程序运行后， 如果单击显示按钮， 则执行语句Form1.Print 显示；如果单击窗体，则执行语句Form1.Cls。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。 *（2）在名称为Form1的窗体上建立一个水平滚动条，名称为HS1，其最大值为100，最小

21、值为0。要求程序运行后，每次移动滚动框时，都执行语句Form1.Print HS1.Value。（如图所示）（程序中不能使用任何其他变量）*注意：保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。 解析：1、新建一个工程，在窗体上添加一个名为Cmd1的按钮，双击这个按钮在弹出的代码窗口中写入Form1.Print显示，在窗体空白部分双击，在弹出的窗口中写入Form1.Cls，然后以文件名wy3.vbp和wy3.frm保存；2、滚动条的属性用来标识滚动条的状态，本题中用到的属性有Max（滚动条所能表示的最大值，取值范围为-3276832768），Min（滚动条

22、所能表示的最小值，取值范围同Max），Value（该属性表示滚动框在滚动条上的当前位置）。Private Sub HS1_Change() Form1.Print HS1.ValueEnd Sub十一. （1）在考生文件夹下有工程文件wy5.vbp及窗体文件wy5.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个名为Image1的图像框，有一个名为Timer1的计时器，有一个名为HScroll1的滚动条，还有一个名为C1，标题为开始的命令按钮，要求程序运行后，点击开始按钮，则图

23、像框中的图片根据计时器中设定的时间间隔交替变更，如果改变滚动条中滚动框的位置，则图片交替变换的速度也随之变化。 *（2）在考生文件夹下有工程文件wy6.vbp及窗体文件wy6.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗口中有一个名为Image1的图像框，还有两个命令按钮，名称分别是C1和C2，标题分别是放大和缩小。要求程序运行后，点击C1按钮，则图像框变大；点击C2按钮，则图像框变小。 解析：1、LoadPicture函数用来将图形载入到窗体的 Picture属性、PictureB

24、ox 控件或Image控件。其语法为：对象名.Pictuer=LoadPictuer(文件名)用该函数还可以把窗体或图像控件中的图像清除，其语法是：对象名.Pictuer=LoadPictuer()或对象名.Pictuer=LoadPictuer()。2、计时器控件的Interval属性返回或设置对Timer控件的计时事件各调用间的毫秒数。十二. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个名称为Cmd1，宽度为1500，高度为500，标题为显示的命令按钮（如图所示），编写适当的事件过程。要求程序运行后，如果单击显示命令

25、按钮，则在窗体上显示祝你考试成功运行结果如图所示（要求：不要使用任何变量，直接显示字符串）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy1.frm，工程文件名为wy1.vbp。 *（2）在名称为Form1的窗体上建立两个名称分别为Cmd1和Cmd2，标题分别为必修课、选修课的命令按钮，编写适当的事件过程。要求程序运行后，如果单击必修课命令按钮，在窗体上显示高等数学必修课；如果单击选修课命令按钮，在窗体上显示多媒体技术选修课（要求：不要使用任何变量，直接显示字符串）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy2.frm，工程文件名为wy2.vbp。 解析：1、新建一个工程，

26、在窗体上添加一个名为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保存。十四. 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和

27、代码）。（1）在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为输出、清除（如图所示）。要求程序运行后，每单击一次输出按钮，不使用任何变量而直接在图片框中显示小写字母red；如果单击清除按钮， 则清除图片框中的内容。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。 *（2）在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem AAA 之后， 每当单击某个列表项时，都执行语句List1.

28、AddItem List1.Text一次（如图所示）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy4.frm，工程文件名为wy4.vbp。解析：1、PictureBox控件可以显示来自位图、图标或者源文件，以及来自增强的源文件、JPEG 或GIF文件的图形。如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。也可以用PictureBox控件将OptionButton控件分组，并用该控件显示图形方法的输出和Print方法写入的文本。Image控件用来显示图形，但是它只支持PictureBox控件的一部分属性、事件和方法。2、使用AddItem或者 RemoveItem方法可以添加或者删除ListBox控件中的项目。语法为：object.AddItem item, index。本题在list1_click事件中加入List1.AddItem List1.Text即可。