部分操作题代码

1、在考生文件夹下有一个工程文件Sj5.vbp，请在窗体上画两个框架，其名 称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两 个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在 F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆 明”。画一个标签，其名称为Lab1，宽度为3000，高度为375。编写适当 事件过程。程序运行后，选择不同单选按钮时产生的显示结果见下表 程序的运行情况如图所示。存盘时，工程文件名为Sj5.vbp，窗体文件名 为Sj5.frm。 注意： 考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必 须至少进行

2、上面的一种操作。退出程序时必须通过单击窗体右上角的 关闭按钮。 解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。由于所提供的窗体控件不完整，需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“飞机”和“火车”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“广州”

3、和“昆明”。画一个标签控件，通过其属性窗口将名称设为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 = &qu

4、ot;坐火车去广州"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，宽度为2

5、000。再画 两个单选按钮，名称分别为Op1和Op2，标题分别为“交换”和“连接”， 最后再画一个命令按钮，其名称为C1，标题为“确定”，编写适当的事件 程序。程序运行后，如果选中“交换”单选按钮并单击“确定”按钮，则 Text1文本框中内容与Text2文本框中内容进行交换，并在标签处显示“交 换成功”（如图所示）；如果选中“连接”单选按钮并单击“确定”按钮 后，则把交换后的Text1和Text2的内容连接起来，并在标签处显示连接后 的内容。存盘时，工程文件名为Sj6.vbp，窗体文件名为sj6.frm。 注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单 选按钮，并单击“确定”

6、按钮。退出程序时必须通过单击窗体右上角的关 闭按钮，否则可能无成绩。 注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。解题思路：启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。由于所提供的窗体控件不完整，需在该窗体上画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，标题（Caption属性）分别设为“等级考试”、“计算机”和空白。再画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标

7、题（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.vb

8、p、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中选一个

9、字体，标签L1中的文字立即变为选定的字号和字体。如图所示。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。Private Sub Cb1_Click()L1.Font.Size = Cb1.TextEnd SubPrivate Sub Cb2_Click()L1.Font = Cb2.TextEnd SubPrivate Sub Form_U

10、nload(Cancel As Integer)Open "out4.txt" For Output As #1Print #1, Cb1.Text, , Cb2.Text, CInt(L1.Font.Size), L1.FontEnd Sub1.请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。1. 在名称为Form1的窗体上放置一个名为Text1 的文本框控件和一个名为Timer1的计时器控件，程序运行后

11、，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变。*注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下， 窗体文件名为wy49.frm，工程文件名为wy49.vbp（如下图所示）。 将计时器控件中的interval属性内输入 1000 在timer1中输入的语句 Private Sub Timer1_Timer() Text1 = Time End Sub在名称为Form1的窗体上放置两个列表框，名称分别为List1和List2。在List1中添加"第一题"、"第二题""第八题"，并设置Mul

12、tiSelect属性为2（要求在控件属性中设置实现）。再放置一个名称为Cmd1，标题为"复制"的命令按钮。程序运行后，如果单击"复制"按钮，将 List1中选中的内容(至少两项)复制到List2中。如果选择的项数少于2项，用消息框提示"请选择至少两项"。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy52.frm，工程文件名为wy52.vbp。 代码： Private Sub Command1_Click() If List1.SelCount < 2 Then MsgBox "请选择至少两项" Els

13、e 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 &

14、quot;6" List1.AddItem "7" List1.AddItem "8" End Sub在考生文件夹中有文件wy68.vbp及其窗体文件wy68.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号），但不能修改其它部分。存盘时不得改变文件夹和文件名。本题描述如下：窗体上有两个复选项，名称分别为Ch1和Ch2，标题分别为"年假"和"探亲假"；两个单选按钮，名称分别为Op1和Op2，标题分别为"今年休"和"今年不休&quo

15、t;；一个名称为Label1的标签。要求程序运行后，对复选框和单选按钮进行选择，然后单击窗体，可根据下表的规定在标签中显示相应的信息： 在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为 C1，标题为"复制"。要求程序运行后，在列表框中自动建立四个列表项，分别为"Item1"、"Ite

16、m2"、"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 "item

17、4" command1.Caption = "复制" End Sub7、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体中建立一个名称为Cmd1，标题为"显示"的命令按钮（如图所示）。要求程序运行后， 如果单击"显示"按钮， 则执行语句Form1.Print "显示"；如果单击窗体，则执行语句Form1.Cls。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy3.frm，工程文件名为wy3.vbp。 新建一个工程，在窗体上添加一个名为&qu

18、ot;Cmd1"的按钮，双击这个按钮在弹出的代码窗口中写入"Form1.Print"显示""，在窗体空白部分双击，在弹出的窗口中写入"Form1.Cls"，然后以文件名wy3.vbp和wy3.frm保存；8、请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮，名称分别为Cmd1、Cmd2，标题分别为"输出"、"清除"（如图所示）。要求程序运行后，每单击一次"输出"按钮

19、，不使用任何变量而直接在图片框中显示小写字母"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应用程序（包括界面和代

20、码）。（1）在名称为Form1的窗体上建立一个名称为Text1的文本框，一个名称为Cmd1，标题为"输出"的命令按钮（如图所示）。要求程序运行后，在文本框输入几个字符，在单击"输出"按钮，则在窗体上显示文本框中的的文字。*注意：1）在程序中不能使用任何变量。2）保存时必须存放在考生文件夹下，窗体文件名为wy12.frm，工程文件名为wy12.vbp。 【解析】本题主要考查文本框的基本操作。(1)先建立界面并设置控件属性。程序中用到的控件及其属性见表4-1。 控件属性设置值文本框NameText1NameCmd1按钮Caption输出(2)通过命令按钮的C

21、aption属性来设置其标题。文本框显示内容是用Text属性。(3)单击命令按钮触发Cmd1_Click事件。(4)在命令按钮的Click事件中使用Cls命令清空窗体原来内容。(5)文本框显示内容是用Text属性。文本框中的内容通过其Text属性得到，在命令按钮的Click事件中利用Print方法将文本框中的内容输出，完成题目要求。(6)参考程序如下：(7)调试并运行程序。(8)按题目要求存盘。14、1.在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为"按钮一"、"按钮二"的命令按钮（如图所示）。要求程序运行后，如果单击"

22、按钮一"，则把"按钮二"移到"按钮一"上，使两个按钮重合。*注意：1）在程序中不得使用任何变量（必须通过属性设置来移动控件）。2）保存时必须存放在考生文件夹下，窗体文件名为wy13.frm，工程文件名为wy13.vbp。 【解析】在窗体上建立好控件后，先设置控件的属性，再编写事件过程。(1)建立界面并设置控件属性。程序中用到的控件及其属性见表4-2。表4-2 控件属性设置值NameCmd1按钮Caption按钮一NameCmd2按钮Caption按钮二(2)命令按钮的Caption属性用来设置其标题，单击命令按钮触发Click事件。(3)本题考

23、查的是如何设置按钮的摆放位置，涉及到对象的Left和Top属性。Left表示控件与所在窗体的左边之间的距离，Top表示控件与所在窗体的顶边之间的距离。让两个按钮位置重合只需将两个按钮的Left和Top设置相同即可。参考代码如下：(4)调试并运行程序。(5)按题目要求存盘。51、1.在考生文件夹中有工程文件wy70.vbp及其窗体文件wy70.frm ，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为"体育"

24、、"音乐"、"美术"，还有一个命令按钮，名称为C1，标题为"显示"。要求程序运行后，如果选中某个复选框，则当单击"显示"命令按钮时，则显示相应的信息。例如，如果选中"体育"和"音乐"复选框，则单击"显示"命令按钮后，在窗体上显示"我的爱好是体育音乐"（如图所示）；而如果选中"体育"、"音乐"和"美术"复选框，则单击"显示"按钮后，在窗体上显示"我的

25、爱好是体育音乐美术"。 代码：private sub C1_Click() dim sPrompt as string sPrompt="我的爱好是" if Ch1.Value<>0 then sPrompt=sPrompt & "体育" if Ch2.Value<>0 then sPrompt=sPrompt & "音乐" if Ch3.Value<>0 then sPrompt=sPrompt & "美术" Me.Print sPrompt

26、end sub、1. 在考生文件夹下有工程文件wy59.vbp及窗体文件wy59.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：1）程序启动时文本框的默认文字为"请输入您要设置的文本"，默认的字体为"仿宋_GB2312"，字号为五号2）程序运行过程中可以修改文本框的内容3）在单击"初始化"时恢复启动时的状态；在单击"清除"后，文本框的内容为空，并恢复默认的字体，字型号。4）选择相应的字体和字型号可以

27、设置文本框内文字的字体和属性。注意：中文“五号”对应的磅值是10.5。 15、1.按下述要求在属性窗口中设置属性：在名称为Form1的窗体中建立一个标签，名称为L1，在标签上显示"选课"，其字号大小为四号；再建立三个复选框，名称分别为Chk1、Chk2和Chk3，标题分别为"操作系统"、"数据库原理"、"概率论"，字体大小均为14，其中"概率论"被禁用。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy15.frm，工程文件名为wy15.vbp。 【解析】本题主要考查复选框的使用。先在窗体上

28、建立控件，然后设置控件属性。(1)标签上显示内容通过标签的Caption属性设置。(2)复选框标题也是通过其Caption属性来设置的，控件的禁用与否是通过Enabled属性来设置的。若Enabled的属性设置为True，则控件可用；若设置为False，则控件被禁用。程序中用到的控件及其属性见表5-2。表52 控件属性设置值控件属性设置值NameL1NaerieChk2标签Caption选课复选框Caption数据库原理FontSize小四FontSize小四NameChk1NameChk3Caption操作系统Caption概率论复选框FontSize小四复选框FontSize小四Enabl

29、edFalse(3)调试并运行程序，以验证设计的正确性11、1. 在考生文件夹中有工程文件wy16.vbp及其窗体文件wy16.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名称为Text1的文本框，一个名称为C1，标题为"校验"的命令按钮。其中文本框用来输入口令（如图所示）， 要求在文本框中输入的内容都必须以"*"显示（请考生自己通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。 如果输入的内容是&

30、quot;ABC"这3个大写字母，则用MsgBox信息框输出"正确"，否则输出"错误"（如图所示）。 【解析】本题主要考查文本框、按钮控件和信息对话框盼使用。(1)在窗体上建立控件，设置控件属性。程序中用到的控件及其属性见表5-3。表5-3 控件属性设置值NameText1文本框PasswordChar*NameC1按钮Caption校验(2)按钮的标题通过Caption属性设置；要使文本框的内容在输入时显示为“*”，则应该将PasswordChar属性设置为“*”。(3)单击命令按钮或窗体触发的是Click事件，因此程序中应该编写命令按钮的C

31、lick事件过程。(4)打开代码窗口，程序提供的代码如下：(5)修改代码。在语句IfTextlText=“?”ThenMsgBox”?”ElseMsgBox”错误”中，第1个“?”号处应该是If语句的条件表达式，填内置口令“ABC”，第2个“?”号处应该是输出“正确”信息。(6)参考代码如下：(7)调试并运行程序，如果输入正确，弹出如图5-1所示的信息对话框。(8)按题目要求存盘。16、1. 在考生文件夹中有工程文件wy17.vbp及其窗体文件wy17.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即'号）但不能修改其他部分。存盘时不得改变文件名和文件

32、夹。本题描述如下：在窗体上有三个名称为Ch1、Ch2和Ch3的复选框，标题依次为"程序设计"、"数据库原理"、"计算机网络"，还有一个名称为C1，标题为"选课"的命令按钮（如图所示）。要求程序运行后，如果选择某个复选框， 则当单击命令按钮时在窗体上输出相应的信息。例如：如果选择"程序设计"和"数据库原理"复选框，则单击命令按钮后，将在窗体上显示"我选的课程是程序设计数据库原理"；如果选择"数据库原理"复选框，则单击命令按钮后，将在窗体上

33、显示"我选的课程是数据库原理"。 【解析】本题主要考查复选框的使用。复选框用来表示状态，在程序运行期间可以改变其状态。复选框的标题通过Caption属性来设置，复选框的Value属性用来表示复选框的选中状态。其取值见表54所示。 Value含义0表示复选框未被选中1表示选中该复选2表示该复选框被禁止(灰色)在窗体上打印信息用Print方法，单击命令按钮触发的是Click事件。(1)建立界面并设置控件属性。程序中用到的控件及其属性见表5-5。表5-5控件属性设置值NameC1按钮Caption选课标签Caption课程NameCh1复选框Caption程序设计NameCh2复

34、选框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，

35、标题分别为"显示1"和"显示2"的命令按钮，编写适当的事件过程。要求程序运行后，如果单击"显示1"命令按钮， 则在标签上显示字符串"aaa"； 如果单击"显示2" 命令按钮， 则在标签上显示字符串"bbb"（要求：不要使用任何变量，直接显示字符串）。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy20.frm，工程文件名为wy20.vbp。 Private Sub Cmd1_Click()    L1.Capt

36、ion = "aaa"End SubPrivate Sub Cmd2_Click()    L1.Caption = "bbb"End Sub在名称为Form1的窗体上建立一个名称为List1的列表框。要求：在程序运行后，通过Form_Load()事件过程加载窗体时，执行语句List1.AddItem "AAA" 之后， 每当单击某个列表项时，都执行语句List1.AddItem List1.Text一次（如图所示）

37、。*注意：保存时必须存放在考生文件夹下，窗体文件名为wy10.frm，工程文件名为wy10.vbp。1. 在考生文件夹下有工程文件wy61.vbp及窗体文件wy61.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（即 '号），但不能修改其它部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Form1，标题为"求和程序"的窗体上有三个Label控件，两个Text控件和三个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和：1）刚启动工程时，"显示结果"和"清除"

38、按钮均为灰色2）可以在输入框内输入任意自然数（n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时"显示结果"变为可用。当输入为非数值时，累加结果为03）单击"显示结果"可以在Text2中显示累加和，且该框内的文字不可修改；同时"显示结果"变灰，"清除"变为可用4）单击"清除"，输入框和显示框均显示"0"5）单击"关闭"按钮结束程序的运行 1. 在考生文件夹下有一个工程文件sj8.vbp，窗体上有一个名为P1的图片框；一个单选按钮数组，含三个单选按钮，标题分别为“正方形”、“椭圆形”、“圆形”；还有一个标题为“显示”的命令按钮。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“选择了圆形”，如图所示。 要求：1）原题中的单选按钮和