计算机二级VB机试.docx
- 文档编号:11181879
- 上传时间:2023-05-29
- 格式:DOCX
- 页数:94
- 大小:46.35KB
计算机二级VB机试.docx
《计算机二级VB机试.docx》由会员分享,可在线阅读,更多相关《计算机二级VB机试.docx(94页珍藏版)》请在冰点文库上搜索。
计算机二级VB机试
计算机二级(VB)机试1考试2009-05-3010:
29:
23阅读201评论0字号:
大中小订阅.
一、基本操作题
1.注意:
下面出现的"考生文件夹"均为c;\wexam\25160001。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在窗体上建立一个二级菜单,该菜单含有"文件"和"帮助"(名称分别为vbFile和vbHelp)两个主菜单项,其中"文件"菜单包括"打开"、"关闭"和"退出"三个子菜单项(名称分别为vbOpen、vbClose和vbExit),如图1-1所示。
只建立菜单,不必定义其事件过程。
注意:
保存时必须存放在考生文件夹下,窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)在名为Form1的窗体上画一个框架,名称为Frm1,标题为"框架",高度为2500,宽度为4000,框架内建立一文本框,距左边框600,距框架的上边框1200,文本框中的初始内容设置为"文本框"。
如图1-2所示。
注意:
保存时必须存放在考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp
(1)。
[参考答案](1分)
(1)在VisualBasic中,菜单项通过菜单编辑器来建立。
解题步骤:
第一步:
打开"菜单编辑器"窗口,建立菜单项。
用到的菜单项及其属性见表1-1。
第二步:
调试并运行程序。
第三步:
按题目要求存盘。
(2)在窗体上建立好控件后,再按题目要求设置各自的属性即可。
需要指出的是在框架里的控件需要画出框架后,单击工具箱里的控件然后在框架里拖动画出所需控件,不可以用双击的方法,否则所需的控件放不到框架里。
窗体中的控件的具体位置由控件的Top、Left属性设置,大小由属性HeightWidth设置。
解题步骤:
第一步:
设置框架的Height、Width属性分别为2500,4000;文本框的Left、Top属性值分别为600,1200。
(以上均可在属性栏里没置)
第二步:
调试并运行程序。
第三步:
按题目要求存盘。
二、简单应用题
简单应用题(2小题,每题20分,共计40分)
注意:
下面出现的"考生文件夹"均为c:
\wexam\25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号),但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为C1,标题为"复制"。
要求程序运行后,在列表框中自动建立4个列表项,分别为"Item1"、"Item2"、"Item3"、"Item4"如果选择列表框中的一项,则单击"复制"按钮时,可以把该项复制到文本框中,如图1-3所示。
(2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
在窗体有3个复选框,名称分别为Chi、Ch2和Ch3,标题分别为"体育"、"音乐"、"美术",还有一个命令按钮,名称为C1,标题为"显示"。
要求程序运行后,如果选中某个复选框,当单击"显示"命令按钮时,则显示相应的信息。
例如,如果选中"体育"和"美术"复选框,单击"显示"命令按钮后,在窗体上显示"我的爱好是体育美术",如图1-4所示
(2)。
[参考答案](1分)
(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。
向列表框中添加项目可以用AddItem方法,也可以在属性窗口中进行。
但题目中要求是程序运行后自动添加,所以利用代码实现。
列表框的Text属性为最后一次选中的表项的文本。
解题步骤:
第一步;建立界面并设置控件属性。
程序中用到的控件及属性设置见表1-2。
第二步:
编写程序代码。
程序提供的代码:
OptionExplicit
PrivateSubC1Click()
DimiAsInteger
'Fori=?
ToList1.ListCount-1
IfList1.Selected(i)=TrueThen
'?
=List1.List(i)
EndIf
Nexti
EndSub
PrivateSubFormLoad()
List1.AddItem"Item1"
List1.AddItem"Item2"
List1.AddItem"Item3"
List1.AddItem"Item4"
EndSub
参考代码:
OptionExplicit
PrivateSubCl_Click()
DimiAsInteger
Fori=0ToList1.ListCount-1
IfList1.Selected(i)=TrueThen
Text1.Text=List1.List(i)
EndIf
Nexti
EndSub
PrivateSubFormLoad()
List1.AddItem"Item1"
List1.AddItem"Item2"
List1.AddItem"Item3"
List1.AddItem"Item4"
EndSub
第三步:
调试并运行。
第四步:
按题目要求存盘。
(2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。
单击命令按钮触发Click事件,程序中需要检测复选按钮的状态,可以通过Value属性来实现。
如果复选按钮被选中,则Value值为1,否则Value值为0。
解题步骤:
第一步:
建立界面并设置控件属性。
程序中用到的控件及属性见表1-3。
第二步:
编写程序代码。
程序提供的代码:
OptionExplicit
PrivateSubC1_Click()
'DimsAs?
s="我的爱好是"
IfCh1.Value=1Then
s=s+Ch1.Caption
EndIf
IfCh2.Value=1Then
s=s+Ch2.Caption
EndIf
IfCh3.Value=1Then
s=s+Ch3.Caption
EndIf
'Print?
EndSub
参考代码:
OptionExplicit
PrivateSubC1Click()
DimsAsString
s="我的爱好是"
IfCh1.Value=1Then
s=s+Ch1.Caption
EndIf
IfCh2.Value=1Then
s=s+Ch2.Caption
EndIf
IfCh3.Value=1Then
s=s+Ch3.Caption
EndIf
Prints
EndSub
第三步:
调试并运行程序。
第四步:
按题目要求存盘。
三、综合应用题
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即,号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在名称为Form1的窗体上有两个单选按钮,名称分别为Opt1和Opt2,标题分别为"100-200之间素数"和
"200-400之间素数",一个文本框,名称为Text1,和两个命令按钮,其名称分别为Cmd1和Cmd2,标题分别为"计算"和"存盘",如图1-5所示。
程序运行后,如果选中一个单选按钮并单击"计算"按钮,则计算出该单选按钮标题所指明的所有素数之和。
并在文本框中显示出来。
如果单击"存盘"按钮,则把计算结果存入"out.txt"文件中,该文件必须放在考生文件夹中。
(在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入指定的文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以将该模块文件添加到自己的工程中。
)
注意:
必须把200-400之间的素数之和存入考生文件夹下的out.txt文件中,否则没有成绩。
保存程序时必须存放在考生文件夹下,窗体文件名为sjt5.frm,工程文件名为.sjt5.vbp。
(3)
[参考答案](1分)
素数的判断准则就是看是否该数除了1和其本身外别无其他约数即可。
文本框用丁Text属性来显示计算结果:
命令按钮的标题由Caption属性来设置,单击命令按钮触发Click事件;为了检测单选按钮是否选中,可以通过检测Value属性来实现,当Value为了me时,表示单选按钮被选中,否则未被选中。
解题步骤:
第一步:
建立界面并设置控件属性。
题目提供了程序用到的控件及其属性,见表1-4。
第二步:
编写程序代码。
程序提供的代码:
标准模块代码
OptionExplicit
Subputdata(t_FileNameAsString,T_StrAsVariant)
DimsFileAsString
SFile="\"&tFileName
OpenApp.Path&SFileForOutputAs#l
Print#1,TStr
Close#1
EndSub
Functionisprime(t_IAsInteger)AsBoolean
DimJAsInteger
isprime=False
ForJ=2TotI/2
Ift_IModJ=0ThenExitFor
NextJ
IfJ>tI/2Thenisprime=True
EndFunction
窗体代码
PrivateSubCmd1_Click()
DimiAsInteger
DimtempAsLong
'temp=?
IfOpt2.ValueThen
Fori=200To400
'Ifisprime(?
)Then
temp=temp+i
EndIf
Next
Else
Fori=100To200
Ifisprime(i)Then
temp=temp+i
EndIf
Next
EndIf
'Text1.?
=temp
EndSub
PrivateSubCmd2Click()
putdata"\out.txt",Text1.Text
EndSub
参考代码:
PrivateSubCmd1_Click()
DimiAsInteger
DimtempAsLong
temp=0
IfOpt2.ValueThen
Fori=200To400
Ifisprime(i)Then
temp=temp+i
EndIf
Next
Else
Fori=100To200
Ifisprime(i)Then
temp=temp+i
EndIf
Next
EndIf
Text1.Text=temp
EndSub
PrivateSubCmd2Click()
putdata"\out.txt",Text1.Text
EndSub
第三步:
调试并运行程序。
第四步:
按题目要求存盘。
计算机二级(VB)机试2考试2009-05-3010:
30:
58阅读655评论0字号:
大中小订阅.
一、基本操作题
注意:
下面出现的“考生文件夹”均为c:
\wexam\25160001。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。
(1)在名称为Form1的窗体中建立一个名称为Cmd1,标题为“显示”的命令按钮,如图2-1所示。
要求程序运行后,如果单击“显示”按钮,则执行语句Form1.Print“显示”:
如果单击窗体,则执行语句Form1.Cls。
注意:
保存时必须存放在考生文件夹下,窗体文件名为sjt1.frm,工程文件名为sjt1.vbp。
(2)在名称为Form1的窗体上建立一个水平滚动条,名称为HS1,其最大值为100,最小值为0。
要求程序运行后,每次移动滚动框时,都执行语句Forml.PrintHSl.Value,如图2-2所示(程序中不能使用任何变量)。
注意:
保存时必须存放在考生文件夹下,窗体文件名为sjt2.frm,工程文件名为sjt2.vbp。
[参考答案](1分)
(1)在窗体上建立好控件后,先设置控件属性,再编写事件过程。
命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件。
在窗体上打印信息用Print方法,清除窗体上的打印信息使用Cls方法,这两条语句在题目中已经给出,只要将其放入适当的事件过程中即可。
解题步骤:
第一步:
建立界面并设置控件属性。
本题只用到了1个命令按钮,将其Caption属性设置为“显示”,Name属性设置为Cmd1。
第二步:
编写代码。
参考代码:
PrivateSubCmd1_Click()
Form1.Print“显示”
EndSub
PrivateSubForm_Click()
Form1.Cls
EndSub
第三步:
调试并运行程序。
第四步:
按题目要求存盘。
(2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。
滚动条表示的最大值由Max属性设置,最小值由Min属性设置,滚动条的当前值由Value属性设置;当滚动框的位置改变时,触发Change事件。
清除窗体上原来的显示的值可以用Cls方法来实现。
解题步骤:
第一步:
建立界面并没置控件属性。
本程序中用到1个滚动框,将其名称即Name属性设置为HS1,Min和Max属性属性分别设置为0和100。
第二步:
编写程序代码。
参考代码:
PrivateSubHS1_Change()
Cls
Form1.PrintHS1
EndSub
第三步:
调试并运行程序。
第四步:
按题目要求存盘。
二、简单应用题
注意:
下面出现的“考生文件夹”均为c:
\wexam\25160001。
(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体上有两个单选按钮,名称分别为Op1和Op2,标题分别为“黑体”和“楷体”,一个文本框,名称为Text1,字体为宋体,字号为四号字,还有一个命令按钮,名称为C1,标题为“切换”。
要求程序运行后,在文本框中输入“等级考试”,并选择一个单选按钮,如图2-3所示。
在单击“切换”按钮后,会根据所选的单选按钮来切换文本框中所显示的汉字字体,如图2-4所示。
(2)在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1,标题为“计算”的命令按钮,如图2-5所示。
程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放入整型变量a中,然后计算a!
,(提示:
运算结果应放入Long型变量中),在文本框中显示结果,并把结果存入文件out.txt中。
在考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。
注意:
保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjt4.vbp。
(1)
[参考答案](1分)
(1)窗体的控件及属性已经建好,只需编写事件过程空缺的代码即可。
单选按钮和“切换”按钮的是通过它们的Caption属性来设置的,当点击“切换”时触发它的Click事件来使文本框的内容改变的。
文本框的字体设置是通过它的Font属性来实现的。
解题步骤:
第一步:
编写程序代码。
程序提供的代码:
OptionExplicit
PrivateSubC1_Click()
IfOp1Then
'Text1.Font=Op1.?
EndIf
IfOp2Then
'Text1.?
:
“楷体GB2312”
EndIf
EndSub
参考代码:
OptionExplicit
PrivateSubC1_Click()
IfOp1Then
'Text1.Font=Op1.Caption
EndIf
IfOp2Then
Text1.FontName=“楷体GB2312”
EndIf
EndSub
第二步:
调试并运行程序。
第三步:
按题目要求存盘。
(2)在窗体上建立好控件后,先设置控件属性,再编写事件过程。
当运行程序后所弹出的对话框是由VisualBasic系统本身提供的,通过调用函数InputBox来实现,本题的主要思想是考查循环语句的应用。
计算一个数值的阶乘时使用了for循环,最后调用了所给模块中的过程将结果进行保存。
解题步骤:
第一步:
建立界面并设置控件属性。
本题用到了1个文本框和1个命令按钮,将命令按钮的Caption属性设置为“计算”,Name属性设置成Cmd1,文本框属性为默认设置。
第二步:
编写程序代码。
在编写程序代码时要注意变量范围的设定,题目要求将计算结果存入Long变量中,所以把最后放入文本框内的变量设置为长整型,然后保存结果。
参考代码:
PrivateSubCmd1_Click()
DimaAsInteger
DimtempAsLong
DimiAsInteger
a=Val(InputBox(“请输入”,,"12"))
temp=1
Fori=1ToVal(a)
temp=temp*i
Next
Text1.Text=temp
putdata"out.txt",Text1.Text
EndSub
标准模块代码:
OptionExplicit
Subputdata(t_FileNameAsString,T_StrAsVariant)
DimsFileAsString
sFile="\"&tFileName
OpenApp.Path&sFileForOutputAs#1
Print#1,T_Str
Close#1
EndSub
第三步:
调试并运行程序。
第四步:
按题目要求存盘。
三、综合应用题
综合应用题(1小题,共计30分)
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?
号的地方填入正确内容,然后删除?
及所有注释符(即'号)但不能修改其他部分。
存盘时不得改变文件名和文件夹。
本题描述如下:
在名称为Form1的窗体上有一个文本框,名称为Text1,MultiLine属性为True,ScrollBars属性为2;两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“读入数据”和“计算保存”,如图2-6所示。
要求程序运行后,如果单击“读入数据”按钮,则读入“in.txt”文件中的100个整数,放入一个数组中(数组下界为1),同时在文本框中显示出来;如果单击“计算保存”按钮,则计算数组中大于或等于400并且小于800的所有数之和,把求和结果在文本框Text1中显示出来,同时把结果存入考生文件夹中的文件result.txt中。
(在prog.bas中的putdata过程可以把结果存入result.txt文件)。
注意:
文件必须存放在考生文件夹下,窗体文件名为sjt5.frm,工程文件名为sjt5.vbp,计算结果存入
result,txt文件中,否则没有成绩。
(3).
[参考答案](1分)
文本框显示的内容由Text属性设置;按钮的标题由Caption属性设置,单击命令按钮触发Click事件;在本题中涉及到文件的操作,读入顺序文件以顺序的方式打开,用Input#语句读取数据,另外需要注意的是对文件操作完后,一定要关闭文件。
解题步骤:
第一步:
建立界面并设置控件属性。
程序中用到的控件及其属性见表2-1。
第二步:
编写程序代码。
程序提供的代码:
窗体代码
Dimi(1To100)AsInteger
PrivateSubCmd1_Click()
DimjAsInteger
j=0
OpenApp.Path&"\in.txt"ForInputAs#1
Forj=1To100
'Input#1,i(?
)
Next
Close#1
Forj=1To100
Text1.Text=Text1.Text&i(j)&Space(5)
Next
EndSub
PrivateSubCmd2_Click()
DimtempAsLong
DimjAsInteger
'For?
=1To100
Ifi(j)>=400Andi(j)<800Then
temp=temp+i(j)
EndIf
Next
'Text1.?
=temp
putdatatemp
EndSub
标准模块代码:
Subputdata(ByValaAsInteger)
DimsFileAsString
sFile="\result.txt"
OpenApp.Path&sFileForOutputAs#1
Print#1,a;
Close#1
EndSub
参考代码:
Dimi(1To100)AsInteger
PrivateSubCmd1_Click()
DimjAsInteger
j=0
OpenApp.Path&"\in.txt"ForInputAs#1
Forj=1To100
Input#1,i(j)
Next
Close#1
Forj=1To100
Text1.Text=Text1.Text&i(j)&Space(5)
Next
EndSub
PrivateSubCmd2_Click()
DimtempAsLong
DimjAsInteger
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 二级 VB 机试