部分操作题代码.doc

在考生文件夹下有一个工程文件Sj5.vbp，请在窗体上画两个框架，其名 称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两 个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在 F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆 明”。画一个标签，其名称为Lab1，宽度为3000，高度为375。编写适当 事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表 程序的运行情况如图所示。存盘时，工程文件名为Sj5.vbp，窗体文件名 为Sj5.frm。 注意： 考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必 须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的 关闭按钮。 解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“飞机”和“火车”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“广州”和“昆明”。画一个标签控件，通过其属性窗口将名称设为Lab1，高（Height属性）设置为375，宽（Width属性）设置为3000。由于所提供的窗体程序不完整，需添加事件过程。单击“确定”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click()If Op1 And Op3 ThenLab1.Caption = 坐飞机去广州ElseIf Op1 And Op4 ThenLab1.Caption = 坐飞机去昆明ElseIf Op2 And Op3 ThenLab1.Caption = 坐火车去广州ElseIf Op2 And Op4 ThenLab1.Caption = 坐火车去昆明End IfEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。、在考生文件夹下有一个工程文件sj6.vbp，请在窗体上画二个文本框，其 名称分别为Text1、Text2，文本框内容分别设置为“等级考试”、“计算 机”。然后画一个标签，其名称为 Lab1，高度为375，宽度为2000。再画 两个单选按钮，名称分别为Op1和Op2，标题分别为“交换”和“连接”， 最后再画一个命令按钮，其名称为C1，标题为“确定”，编写适当的事件 程序。程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则 Text1文本框中内容与Text2文本框中内容进行交换，并在标签处显示“交 换成功”（如图所示）；如果选中“连接”单选按钮并单击“确定”按钮 后，则把交换后的Text1和Text2的内容连接起来，并在标签处显示连接后 的内容。存盘时，工程文件名为Sj6.vbp，窗体文件名为sj6.frm。 注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单 选按钮，并单击“确定”按钮。退出程序时必须通过单击窗体右上角的关 闭按钮，否则可能无成绩。 注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体控件不完整，需在该窗体上画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，标题（Caption属性）分别设为“等级考试”、“计算机”和空白。再画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“交换”和“连接”。单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Form_Click()If Op1 ThenText3.Text = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextText3.Text = 交换成功ElseIf Op2 ThenText3.Text = Text1.Text & Text2.TextEnd IfEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。1. 在考生文件夹下有一个工程文件sj11.vbp，请在Form1窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cb1、Cb2，并为Cb1添加项目：“10”、“15”、“20”，为Cb2添加项目：“黑体”、“隶书”、“宋体”,以上请在设计时实现。请编写适当的事件过程，使得在运行时，当在Cb1中选一个字号、在Cb2中选一个字体，标签L1中的文字立即变为选定的字号和字体。如图所示。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。PrivateSubCb1_Click()L1.Font.Size=Cb1.TextEndSubPrivateSubCb2_Click()L1.Font=Cb2.TextEndSubPrivateSubForm_Unload(CancelAsInteger)Openout4.txtForOutputAs#1Print#1,Cb1.Text,Cb2.Text,CInt(L1.Font.Size),L1.FontEndSub1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1. 在名称为Form1的窗体上放置一个名为Text1 的文本框控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。*注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下， 窗体文件名为wy49.frm，工程文件名为wy49.vbp（如下图所示）。 将计时器控件中的interval属性内输入 1000 在timer1中输入的语句 Private Sub Timer1_Timer() Text1 = Time End Sub在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在List1中添加第一题、第二题第八题，并设置MultiSelect属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题为复制的命令按钮。程序运行后，如果单击复制按钮，将 List1中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消息框提示请选择至少两项。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy52.frm，工程文件名为wy52.vbp。 代码： Private Sub Command1_Click() If List1.SelCount 2 Then MsgBox 请选择至少两项 Else List2.Clear For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then List2.AddItem List1.List(i) Next End If End Sub Private Sub Form_Load() List1.AddItem 1 List1.AddItem 2 List1.AddItem 3 List1.AddItem 4 List1.AddItem 5 List1.AddItem 6 List1.AddItem 7 List1.AddItem 8 End Sub在考生文件夹中有文件wy68.vbp及其窗体文件wy68.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号），但不能修改其它部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有两个复选项，名称分别为Ch1和Ch2，标题分别为年假和探亲假；两个单选按钮，名称分别为Op1和Op2，标题分别为今年休和今年不休；一个名称为Label1的标签。要求程序运行后，对复选框和单选按钮进行选择，然后单击窗体，可根据下表的规定在标签中显示相应的信息： 在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为复制。要求程序运行后，在列表框中自动建立四个列表项，分别为Item1、Item2、Item3、Item4如果选择列表框中的一项，则单击复制按钮时，可以把该项复制到文本框中（如图所示）。 代码：Private Sub Command1_Click() Text1 = List1.Text End Sub Private Sub Form_Load() List1.AddItem item1 List1.AddItem item2 List1.AddItem item3 List1.AddItem item4 command1.Caption = 复制 End Sub7、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体中建立一个名称为Cmd1，标题为显示的命令按钮（如图所示）。要求程序运行后， 如果单击显示按钮， 则执行语句Form1.Print 显示；如果单击窗体，则执行语句Form1.Cls。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。 新建一个工程，在窗体上添加一个名为Cmd1的按钮，双击这个按钮在弹出的代码窗口中写入Form1.Print显示，在窗体空白部分双击，在弹出的窗口中写入Form1.Cls，然后以文件名wy3.vbp和wy3.frm保存；8、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为输出、清除（如图所示）。要求程序运行后，每单击一次输出按钮，不使用任何变量而直接在图片框中显示小写字母red；如果单击清除按钮， 则清除图片框中的内容。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy9.frm，工程文件名为wy9.vbp。 代码：private sub Cmd1_Click() P1.print red end sub private sub Cmd2_Click() P1.cls end sub 注：其它内容需在界面上画，最好将P1的AutoRedraw设置为True。 、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为输出的命令按钮（如图所示）。要求程序运行后，在文本框输入几个字符，在单击输出按钮，则在窗体上显示文本框中的的文字。*注意：1）在程序中不能使用任何变量。2）保存时必须存放在考生文件夹下，窗体文件名为wy12.frm，工程文件名为wy12.vbp。 【解析】本题主要考查文本框的基本操作。(1)先建立界面并设置控件属性。程序中用到的控件及其属性见表4-1。 控件属性设置值文本框NameText1NameCmd1按钮Caption输出(2)通过命令按钮的Caption属性来设置其标题。文本框显示内容是用Text属性。(3)单击命令按钮触发Cmd1_Click事件。(4)在命令按钮的Click事件中使用Cls命令清空窗体原来内容。(5)文本框显示内容是用Text属性。文本框中的内容通过其Text属性得到，在命令按钮的Click事件中利用Print方法将文本框中的内容输出，完成题目要求。(6)参考程序如下：(7)调试并运行程序。(8)按题目要求存盘。14、1.在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为按钮一、按钮二的命令按钮（如图所示）。要求程序运行后，如果单击按钮一，则把按钮二移到按钮一上，使两个按钮重合。*注意：1）在程序中不得使用任何变量（必须通过属性设置来移动控件）。2）保存时必须存放在考生文件夹下，窗体文件名为wy13.frm，工程文件名为wy13.vbp。 【解析】在窗体上建立好控件后，先设置控件的属性，再编写事件过程。(1)建立界面并设置控件属性。程序中用到的控件及其属性见表4-2。表4-2 控件属性设置值NameCmd1按钮Caption按钮一NameCmd2按钮Caption按钮二(2)命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click事件。(3)本题考查的是如何设置按钮的摆放位置，涉及到对象的Left和Top属性。Left表示控件与所在窗体的左边之间的距离，Top表示控件与所在窗体的顶边之间的距离。让两个按钮位置重合只需将两个按钮的Left和Top设置相同即可。参考代码如下：(4)调试并运行程序。(5)按题目要求存盘。51、1.在考生文件夹中有工程文件wy70.vbp及其窗体文件wy70.frm ，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为体育、音乐、美术，还有一个命令按钮，名称为C1，标题为显示。要求程序运行后，如果选中某个复选框，则当单击显示命令按钮时，则显示相应的信息。例如，如果选中体育和音乐复选框，则单击显示命令按钮后，在窗体上显示我的爱好是体育音乐（如图所示）；而如果选中体育、音乐和美术复选框，则单击显示按钮后，在窗体上显示我的爱好是体育音乐美术。 代码：private sub C1_Click() dim sPrompt as string sPrompt=我的爱好是 if Ch1.Value0 then sPrompt=sPrompt & 体育 if Ch2.Value0 then sPrompt=sPrompt & 音乐 if Ch3.Value0 then sPrompt=sPrompt & 美术 Me.Print sPrompt end sub、1. 在考生文件夹下有工程文件wy59.vbp及窗体文件wy59.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：1）程序启动时文本框的默认文字为请输入您要设置的文本，默认的字体为仿宋_GB2312，字号为五号2）程序运行过程中可以修改文本框的内容3）在单击初始化时恢复启动时的状态；在单击清除后，文本框的内容为空，并恢复默认的字体，字型号。4）选择相应的字体和字型号可以设置文本框内文字的字体和属性。注意：中文“五号”对应的磅值是10.5。 15、1.按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示选课，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为操作系统、数据库原理、概率论，字体大小均为14，其中概率论被禁用。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy15.frm，工程文件名为wy15.vbp。 【解析】本题主要考查复选框的使用。先在窗体上建立控件，然后设置控件属性。(1)标签上显示内容通过标签的Caption属性设置。(2)复选框标题也是通过其Caption属性来设置的，控件的禁用与否是通过Enabled属性来设置的。若Enabled的属性设置为True，则控件可用；若设置为False，则控件被禁用。程序中用到的控件及其属性见表5-2。表52 控件属性设置值控件属性设置值NameL1NaerieChk2标签Caption选课复选框Caption数据库原理FontSize小四FontSize小四NameChk1NameChk3Caption操作系统Caption概率论复选框FontSize小四复选框FontSize小四EnabledFalse(3)调试并运行程序，以验证设计的正确性11、1. 在考生文件夹中有工程文件wy16.vbp及其窗体文件wy16.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为校验的命令按钮。其中文本框用来输入口令（如图所示）， 要求在文本框中输入的内容都必须以*显示（请考生自己通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。 如果输入的内容是ABC这3个大写字母，则用MsgBox信息框输出正确，否则输出错误（如图所示）。 【解析】本题主要考查文本框、按钮控件和信息对话框盼使用。(1)在窗体上建立控件，设置控件属性。程序中用到的控件及其属性见表5-3。表5-3 控件属性设置值NameText1文本框PasswordChar*NameC1按钮Caption校验(2)按钮的标题通过Caption属性设置；要使文本框的内容在输入时显示为“*”，则应该将PasswordChar属性设置为“*”。(3)单击命令按钮或窗体触发的是Click事件，因此程序中应该编写命令按钮的Click事件过程。(4)打开代码窗口，程序提供的代码如下：(5)修改代码。在语句IfTextlText=“?”ThenMsgBox”?”ElseMsgBox”错误”中，第1个“?”号处应该是If语句的条件表达式，填内置口令“ABC”，第2个“?”号处应该是输出“正确”信息。(6)参考代码如下：(7)调试并运行程序，如果输入正确，弹出如图5-1所示的信息对话框。(8)按题目要求存盘。16、1. 在考生文件夹中有工程文件wy17.vbp及其窗体文件wy17.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有三个名称为Ch1、Ch2和Ch3的复选框，标题依次为程序设计、数据库原理、计算机网络，还有一个名称为C1，标题为选课的命令按钮（如图所示）。要求程序运行后，如果选择某个复选框， 则当单击命令按钮时在窗体上输出相应的信息。例如：如果选择程序设计和数据库原理复选框，则单击命令按钮后，将在窗体上显示我选的课程是程序设计数据库原理；如果选择数据库原理复选框，则单击命令按钮后，将在窗体上显示我选的课程是数据库原理。 【解析】本题主要考查复选框的使用。复选框用来表示状态，在程序运行期间可以改变其状态。复选框的标题通过Caption属性来设置，复选框的Value属性用来表示复选框的选中状态。其取值见表54所示。 Value含义0表示复选框未被选中1表示选中该复选2表示该复选框被禁止(灰色)在窗体上打印信息用Print方法，单击命令按钮触发的是Click事件。(1)建立界面并设置控件属性。程序中用到的控件及其属性见表5-5。表5-5控件属性设置值NameC1按钮Caption选课标签Caption课程NameCh1复选框Caption程序设计NameCh2复选框Caption数据库原理NameCh3复选框Caption计算机网络(2)打开代码窗口，得到程序提供的代码如下：(3)研读代码：语句S=S&Ch3.?是要与如下语句等效：S=S&“计算机网络”，复选框Ch3的Caption属性值是“计算机网络”。即：S=S&Ch3.Caption语句Print?是将S的内容打印在窗体上，即：Print S(4)参考代码如下：(5)调试并运行程序。(6)按题目要求存盘。、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1. 在名称为Form1的窗体上建立一个名称为L1的标签和两个名称为Cmd1和Cmd2，标题分别为显示1和显示2的命令按钮，编写适当的事件过程。要求程序运行后，如果单击显示1命令按钮， 则在标签上显示字符串aaa； 如果单击显示2 命令按钮， 则在标签上显示字符串bbb（要求：不要使用任何变量，直接显示字符串）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy20.frm，工程文件名为wy20.vbp。 PrivateSubCmd1_Click()L1.Caption=aaaEndSubPrivateSubCmd2_Click()L1.Caption=bbbEndSub在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem AAA 之后， 每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次（如图所示）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy10.frm，工程文件名为wy10.vbp。1. 在考生文件夹下有工程文件wy61.vbp及窗体文件wy61.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1，标题为求和程序的窗体上有三个Label控件，两个Text控件和三个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和：1）刚启动工程时，显示结果和清除按钮均为灰色2）可以在输入框内输入任意自然数（n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时显示结果变为可用。当输入为非数值时，累加结果为03）单击显示结果可以在Text2中显示累加和，且该框内的文字不可修改；同时显示结果变灰，清除变为可用4）单击清除，输入框和显示框均显示05）单击关闭按钮结束程序的运行 1. 在考生文件夹下有一个工程文件sj8.vbp，窗体上有一个名为P1的图片框；一个单选按钮数组，含三个单选按钮，标题分别为“正方形”、“椭圆形”、“圆形”；还有一个标题为“显示”的命令按钮。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆形”，如图所示。 要求：1）原题中的单选按钮和命令按钮没有标题，请利用属性窗口依次添加单选按钮标题分别为“正方形”、“椭圆形”、“圆形”，添加命令按钮标题为“显示”。 2）去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述功能。 注意：不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后