部分操作题代码.docx
- 文档编号:10850602
- 上传时间:2023-02-23
- 格式:DOCX
- 页数:28
- 大小:563.75KB
部分操作题代码.docx
《部分操作题代码.docx》由会员分享,可在线阅读,更多相关《部分操作题代码.docx(28页珍藏版)》请在冰豆网上搜索。
部分操作题代码
在考生文件夹下有一个工程文件Sj5.vbp,请在窗体上画两个框架,其名
称分别为F1和F2,标题分别为“交通工具”和“到达目标”。
在F1中画两
个单选按钮,名称分别为Op1和Op2,标题分别为“飞机”和“火车”。
在
F2中画两个单选按钮,名称分别为Op3和Op4,标题分别为“广州”和“昆
明”。
画一个标签,其名称为Lab1,宽度为3000,高度为375。
编写适当
事件过程。
程序运行后,选择不同单选按钮时产生的显示结果见下表
程序的运行情况如图所示。
存盘时,工程文件名为Sj5.vbp,窗体文件名
为Sj5.frm。
注意:
考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必
须至少进行上面的一种操作。
退出程序时必须通过单击窗体右上角的
关闭按钮。
解题思路:
启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt3.vbp,相应的窗体文件名为sjt3.frm。
由于所提供的窗体控件不完整,需在该窗体上画二个框架控件,通过其属性窗口将名称分别设为F1、F2,标题(Caption属性)分别设为“交通工具”和“到达目标”。
在F1框架中画二个单选按钮控件,通过其属性窗口将名称分别设为Op1、Op2,标题(Caption属性)分别设为“飞机”和“火车”。
在F2框架中画二个单选按钮控件,通过其属性窗口将名称分别设为Op3、Op4,标题(Caption属性)分别设为“广州”和“昆明”。
画一个标签控件,通过其属性窗口将名称设为Lab1,高(Height属性)设置为375,宽(Width属性)设置为3000。
由于所提供的窗体程序不完整,需添加事件过程。
单击“确定”按钮(即运行Click事件过程),在该Click事件过程中加入语句:
PrivateSubC1_Click()
IfOp1AndOp3Then
Lab1.Caption="坐飞机去广州"
ElseIfOp1AndOp4Then
Lab1.Caption="坐飞机去昆明"
ElseIfOp2AndOp3Then
Lab1.Caption="坐火车去广州"
ElseIfOp2AndOp4Then
Lab1.Caption="坐火车去昆明"
EndIf
EndSub
参考文件:
c:
\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt
请把这些文件复制到c:
\wexam\26990001中,然后打开sjt3.vbp文件并运行。
、在考生文件夹下有一个工程文件sj6.vbp,请在窗体上画二个文本框,其
名称分别为Text1、Text2,文本框内容分别设置为“等级考试”、“计算
机”。
然后画一个标签,其名称为Lab1,高度为375,宽度为2000。
再画
两个单选按钮,名称分别为Op1和Op2,标题分别为“交换”和“连接”,
最后再画一个命令按钮,其名称为C1,标题为“确定”,编写适当的事件
程序。
程序运行后,如果选中“交换”单选按钮并单击“确定”按钮,则
Text1文本框中内容与Text2文本框中内容进行交换,并在标签处显示“交
换成功”(如图所示);如果选中“连接”单选按钮并单击“确定”按钮
后,则把交换后的Text1和Text2的内容连接起来,并在标签处显示连接后
的内容。
存盘时,工程文件名为Sj6.vbp,窗体文件名为sj6.frm。
注意:
不得修改已经给出的程序。
在结束程序运行之前,必须选中一个单
选按钮,并单击“确定”按钮。
退出程序时必须通过单击窗体右上角的关
闭按钮,否则可能无成绩。
注意:
不得修改已经给出的程序。
在结束程序运行之前,必须选中一个单选按钮,并单击窗体。
退出程序时必须通过单击窗体右上角的关闭按钮,否则可能无成绩。
解题思路:
启动VisualBasic系统,打开考生文件夹下需编辑的工程文件sjt4.vbp,相应的窗体文件名为sjt4.frm。
由于所提供的窗体控件不完整,需在该窗体上画三个文本框控件,通过其属性窗口将名称分别设为Text1、Text2和Text3,标题(Caption属性)分别设为“等级考试”、“计算机”和空白。
再画二个单选按钮控件,通过其属性窗口将名称分别设为Op1、Op2,标题(Caption属性)分别设为“交换”和“连接”。
单击窗体(即运行Click事件过程),在该Click事件过程中加入语句:
PrivateSubForm_Click()
IfOp1Then
Text3.Text=Text1.Text
Text1.Text=Text2.Text
Text2.Text=Text3.Text
Text3.Text="交换成功"
ElseIfOp2Then
Text3.Text=Text1.Text&Text2.Text
EndIf
EndSub
参考文件:
c:
\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.vbw、out4.txt
请把这些文件复制到c:
\wexam\26990001中,然后打开sjt4.vbp文件并运行。
1.在考生文件夹下有一个工程文件sj11.vbp,请在Form1窗体中画三个标签,名称分别为B1、B2、L1,标题分别为“字号”、“字体”、“计算机等级考试”,其中L1的高为500,宽为3000;再在B1、B2标签的下面画两个组合框,名称分别为Cb1、Cb2,并为Cb1添加项目:
“10”、“15”、“20”,为Cb2添加项目:
“黑体”、“隶书”、“宋体”,以上请在设计时实现。
请编写适当的事件过程,使得在运行时,当在Cb1中选一个字号、在Cb2中选一个字体,标签L1中的文字立即变为选定的字号和字体。
如图所示。
注意:
考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须选择一个字号和字体。
必须用窗体右上角的关闭按钮结束程序,否则无成绩。
最后,按原文件名存盘,程序中不能使用任何变量。
Private Sub Cb1_Click()
L1.Font.Size = Cb1.Text
End Sub
Private Sub Cb2_Click()
L1.Font = Cb2.Text
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open "out4.txt" For Output As #1
Print #1, Cb1.Text, , Cb2.Text, CInt(L1.Font.Size), L1.Font
End Sub
1.请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
1.在名称为Form1的窗体上放置一个名为Text1的文本框控件和一个名为Timer1的计时器控件,程序运行后,文本框中显示的是当前的时间,而且每一秒文本框中所显示的时间都会随时间的变化而改变。
*注意:
程序中不得使用任何变量;保存时必须存放在考生文件夹下,窗体文件名为wy49.frm,工程文件名为wy49.vbp(如下图所示)。
将计时器控件中的interval属性内输入1000
在timer1中输入的语句
PrivateSubTimer1_Timer()
Text1=TimeEndSub
在名称为Form1的窗体上放置两个列表框,名称分别为List1和List2。
在List1中添加"第一题"、"第二题"…"第八题",并设置MultiSelect属性为2(要求在控件属性中设置实现)。
再放置一个名称为Cmd1,标题为"复制"的命令按钮。
程序运行后,如果单击"复制"按钮,将List1中选中的内容(至少两项)复制到List2中。
如果选择的项数少于2项,用消息框提示"请选择至少两项"。
*注意:
保存时必须存放在考生文件夹下,窗体文件名为wy52.frm,工程文件名为wy52.vbp。
代码:
PrivateSubCommand1_Click()
IfList1.SelCount<2ThenMsgBox"请选择至少两项"
Else
List2.Clear
Fori=0ToList1.ListCount-1
IfList1.Selected(i)ThenList2.AddItemList1.List(i)
Next
EndIf
EndSub
PrivateSubForm_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"
EndSub
在考生文件夹中有文件wy68.vbp及其窗体文件wy68.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号),但不能修改其它部分。
存盘时不得改变文件夹和文件名。
本题描述如下:
窗体上有两个复选项,名称分别为Ch1和Ch2,标题分别为"年假"和"探亲假";两个单选按钮,名称分别为Op1和Op2,标题分别为"今年休"和"今年不休";一个名称为Label1的标签。
要求程序运行后,对复选框和单选按钮进行选择,然后单击窗体,可根据下表的规定在标签中显示相应的信息:
在考生文件夹中有工程文件wy69.vbp及其窗体文件wy69.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为C1,标题为"复制"。
要求程序运行后,在列表框中自动建立四个列表项,分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项,则单击"复制"按钮时,可以把该项复制到文本框中(如图所示)。
代码:
PrivateSubCommand1_Click()
Text1=List1.Text
EndSub
PrivateSubForm_Load()
List1.AddItem"item1"
List1.AddItem"item2"
List1.AddItem"item3"
List1.AddItem"item4"
command1.Caption="复制"
EndSub
7、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体中建立一个名称为Cmd1,标题为"显示"的命令按钮(如图所示)。
要求程序运行后,如果单击"显示"按钮,则执行语句Form1.Print"显示";如果单击窗体,则执行语句Form1.Cls。
*注意:
保存时必须存放在考生文件夹下,窗体文件名为wy3.frm,工程文件名为wy3.vbp。
新建一个工程,在窗体上添加一个名为"Cmd1"的按钮,双击这个按钮在弹出的代码窗口中写入"Form1.Print"显示"",在窗体空白部分双击,在弹出的窗口中写入"Form1.Cls",然后以文件名wy3.vbp和wy3.frm保存;
8、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为P1的图片框和二个命令按钮,名称分别为Cmd1、Cmd2,标题分别为"输出"、"清除"(如图所示)。
要求程序运行后,每单击一次"输出"按钮,不使用任何变量而直接在图片框中显示小写字母"red";如果单击"清除"按钮,则清除图片框中的内容。
*注意:
保存时必须存放在考生文件夹下,窗体文件名为wy9.frm,工程文件名为wy9.vbp。
代码:
privatesubCmd1_Click()
P1.print"red"
endsub
privatesubCmd2_Click()
P1.cls
endsub
'注:
其它内容需在界面上画,最好将P1的AutoRedraw设置为True。
、请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上建立一个名称为Text1的文本框,一个名称为Cmd1,标题为"输出"的命令按钮(如图所示)。
要求程序运行后,在文本框输入几个字符,在单击"输出"按钮,则在窗体上显示文本框中的的文字。
*注意:
1)在程序中不能使用任何变量。
2)保存时必须存放在考生文件夹下,窗体文件名为wy12.frm,工程文件名为wy12.vbp。
【解析】本题主要考查文本框的基本操作。
(1)先建立界面并设置控件属性。
程序中用到的控件及其属性见表4-1。
控件
属性
设置值
文本框
Name
Text1
Name
Cmd1
按钮
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
控件
属性
设置值
Name
Cmd1
按钮
Caption
按钮一
Name
Cmd2
按钮
Caption
按钮二
(2)命令按钮的Caption属性用来设置其标题,单击命令按钮触发Click事件。
(3)本题考查的是如何设置按钮的摆放位置,涉及到对象的Left和Top属性。
Left表示控件与所在窗体的左边之间的距离,Top表示控件与所在窗体的顶边之间的距离。
让两个按钮位置重合只需将两个按钮的Left和Top设置相同即可。
参考代码如下:
(4)调试并运行程序。
(5)按题目要求存盘。
51、1.在考生文件夹中有工程文件wy70.vbp及其窗体文件wy70.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号)但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体有三个复选框,名称分别为Ch1、Ch2和Ch3,标题依次为"体育"、"音乐"、"美术",还有一个命令按钮,名称为C1,标题为"显示"。
要求程序运行后,如果选中某个复选框,则当单击"显示"命令按钮时,则显示相应的信息。
例如,如果选中"体育"和"音乐"复选框,则单击"显示"命令按钮后,在窗体上显示"我的爱好是体育音乐"(如图所示);而如果选中"体育"、"音乐"和"美术"复选框,则单击"显示"按钮后,在窗体上显示"我的爱好是体育音乐美术"。
代码:
privatesubC1_Click()
dimsPromptasstring
sPrompt="我的爱好是"
ifCh1.Value<>0thensPrompt=sPrompt&"体育"
ifCh2.Value<>0thensPrompt=sPrompt&"音乐"
ifCh3.Value<>0thensPrompt=sPrompt&"美术"
Me.PrintsPrompt
endsub
、1.在考生文件夹下有工程文件wy59.vbp及窗体文件wy59.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号),但不能修改其它部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
1)程序启动时文本框的默认文字为"请输入您要设置的文本",默认的字体为"仿宋",字号为五号
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。
表5-2
控件
属性
设置值
控件
属性
设置值
Name
L1
Naerie
Chk2
标签
Caption
选课
复选框
Caption
数据库原理
FontSize
小四
FontSize
小四
Name
Chk1
Name
Chk3
Caption
操作系统
Caption
概率论
复选框
FontSize
小四
复选框
FontSize
小四
Enabled
False
(3)调试并运行程序,以验证设计的正确性
11、1.在考生文件夹中有工程文件wy16.vbp及其窗体文件wy16.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个名称为Text1的文本框,一个名称为C1,标题为"校验"的命令按钮。
其中文本框用来输入口令(如图所示),要求在文本框中输入的内容都必须以"*"显示(请考生自己通过属性窗口设置)。
要求程序运行后,输入口令,单击命令按钮后,对口令进行校验。
如果输入的内容是"ABC"这3个大写字母,则用MsgBox信息框输出"正确",否则输出"错误"(如图所示)。
.【解析】本题主要考查文本框、按钮控件和信息对话框盼使用。
(1)在窗体上建立控件,设置控件属性。
程序中用到的控件及其属性见表5-3。
表5-3
控件
属性
设置值
Name
Text1
文本框
PasswordChar
*
Name
C1
按钮
Caption
校验
(2)按钮的标题通过Caption属性设置;要使文本框的内容在输入时显示为“*”,则应该将PasswordChar属性设置为“*”。
(3)单击命令按钮或窗体触发的是Click事件,因此程序中应该编写命令按钮的Click事件过程。
(4)打开代码窗口,程序提供的代码如下:
(5)修改代码。
在语句IfTextl.Text=“?
”ThenMsgBox”?
”ElseMsgBox”错误”中,第1个“?
”号处应该是If语句的条件表达式,填内置口令“ABC”,第2个“?
”号处应该是输出“正确”信息。
(6)参考代码如下:
(7)调试并运行程序,如果输入正确,弹出如图5-1所示的信息对话框。
(8)按题目要求存盘。
16、1.在考生文件夹中有工程文件wy17.vbp及其窗体文件wy17.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有三个名称为Ch1、Ch2和Ch3的复选框,标题依次为"程序设计"、"数据库原理"、"计算机网络",还有一个名称为C1,标题为"选课"的命令按钮(如图所示)。
要求程序运行后,如果选择某个复选框,则当单击命令按钮时在窗体上输出相应的信息。
例如:
如果选择"程序设计"和"数据库原理"复选框,则单击命令按钮后,将在窗体上显示"我选的课程是程序设计数据库原理";如果选择"数据库原理"复选框,则单击命令按钮后,将在窗体上显示"我选的课程是数据库原理"。
【解析】
本题主要考查复选框的使用。
复选框用来表示状态,在程序运行期间可以改变其状态。
复选框的标题通过Caption属性来设置,复选框的Value属性用来表示复选框的选中状态。
其取值见表5—4所示。
Value
含义
0
表示复选框未被选中
1
表示选中该复选
2
表示该复选框被禁止(灰色)
在窗体上打印信息用Print方法,单击命令按钮触发的是Click事件。
(1)建立界面并设置控件属性。
程序中用到的控件及其属性见表5-5。
表5-5
控件
属性
设置值
Name
C1
按钮
Caption
选课
标签
Caption
课程
Name
Ch1
复选框
Caption
程序设计
Name
Ch2
复选框
Caption
数据库原理
Name
Ch3
复选框
Caption
计算机网络
(2)打开代码窗口,得到程序提供的代码如下:
(3)研读代码:
①语句S=S&Ch3.?
是要与如下语句等效:
S=S&“计算机网络”,复选框Ch3的Caption属性值是“计算机网络”。
即:
S=S&Ch3.Caption
②语句Print?
是将S的内容打印在窗体上,即:
PrintS
(4)参考代码如下:
(5)调试并运行程序。
(6)按题目要求存盘。
、请根据以下各小题
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 部分 操作 代码