全国计算机等级考试 江西考区.docx
- 文档编号:18219911
- 上传时间:2023-08-14
- 格式:DOCX
- 页数:33
- 大小:392.97KB
全国计算机等级考试 江西考区.docx
《全国计算机等级考试 江西考区.docx》由会员分享,可在线阅读,更多相关《全国计算机等级考试 江西考区.docx(33页珍藏版)》请在冰点文库上搜索。
全国计算机等级考试江西考区
第十一章全国计算机等级考试(江西考区)
二级VisualBasic上机指导
11.1操作步骤
一、学生登录
1、WIN9X登录
当考生开机,Windows9x正常启动后,在屏幕上会出现如下的登录界面:
图11-1Windows9x登录界面
这时,考生必须在“用户名”编辑框中输入自己的准考证号,即用自己的准考证号作为用户名(注意:
不得输错,否则后果自负),“密码”和“域”两项不要修改,确认无误后,按下“确定”按钮。
这一步非常重要,考生必须在考试之前首先完成考生用户的登录,否则,将不能开考,希望考生在考试之前一定要记住这一点。
2、WIN2000登录
开机正常启动,按Ctrl+Alt+Del组合键后出现如下的登录界面(如果没有出现[登录到]这一栏,请点击[选项]按钮):
图11-2WIN2000登录界面
这时,考生必须在“用户名”编辑框中输入自己的准考证号,即用自己的准考证号作为用户名(注意:
不得输错,否则后果自负),“密码”项不要修改,在登录到栏中选择正确的考试“域”确认无误后,按下“确定”按钮。
这一步非常重要,考生必须在考试之前首先完成考生用户的登录,否则,将不能开考,希望考生在考试之前一定要记住这一点。
二、考试系统的启动
当考生用户登录成功后,就可以执行CLIENT目录下的exam.exe,就可以开始考试了,这时,考试系统启动界面如下所示:
图11-3考试系统启动界面
这里的准考证号考生不必输入,因为系统已根据考生输入的用户名自动确认。
●● 按下“确认”按钮,表示正式开始考试,系统显示一提示信息如下:
图11-4提示信息
考生在这里要记住Z:
盘符。
因为Z:
盘是考生试题文件所在的位置,在以后的考试中,考生文件夹或考生目录指的就是这个Z:
盘,考生要经常对Z:
盘进行访问,所以考生要牢记这个Z:
盘。
●● 按下“退出”按钮,将退出考试系统。
三、考试答题过程说明
当看到图11-4所示的对话框后,按下“确定”按钮,则考生将看到如下所示的窗口:
图11-5计算机等级考试主窗口
当考生看到这个窗口,就代表正式开考了,并且考生可看到在窗口的左下角系统已开始到计时。
此窗口主要是用来让考生浏览试题。
上机考试目前只有一级和二级两种,上图是一个二级的例子。
一级和二级试题的不同主要在于,一级有“打字测试”、“Word操作”、“EXCEL”、“POWERPOINT”、“Windows操作”等题型,没有“程序语言”题;二级有“打字测试”、“Word操作”、“Windows操作”和“程序语言”、“EXCEL”、“POWERPOINT”等题型。
考生要阅读某类试题的内容,只要按下相应的试题按钮即可,下面对各类试题按钮做一介绍。
按下“打字测试”按钮,将首先看到如下的对话框:
图11-6“打字测试”重要提示
这个对话框在进入和退出打字测试时,都会出现,请考生仔细阅读里面的提示信息。
按下“是”按钮,将进入打字测试,出现如下窗口:
图11-7“文字录入”界面
在这个窗口中,有“源文”和“输入”两个区域,考生要根据源文区域中的内容,在输入区域中输入对应的文字。
按下“录入完毕”按钮可提前退出打字测试,这时,又会出现图11-6的提示框,提醒考生是否真的确认已录入完毕。
按下“Word操作”按钮,则试题内容显示如下:
图11-8“Word操作试题”界面
这时,考生要仔细阅读试题说明,主要弄清题目要求和试题文件名。
在此例子中,试题文件为WORD45.DOC。
因为前面已说过,考生的试题文件均在Z:
盘中,所以考生要用WORD来打开在Z:
盘中的这个WORD45.DOC文件,按照试题的要求对该文件进行编辑,并且,编辑完后一定要注意存盘,即仍然保存为Z:
盘的WORD45.DOC文件,否则,该题可能为零分。
按下“Windows操作”按钮,则试题内容显示如下:
图11-9“Windows操作试题”界面
考生需将试题内容看清,然后在WINDOWS下进行操作,完成题目要求。
同样,按下“Excel操作”和“PowerPoint操作”按钮,将会显示“Excel操作试题”界面和“PowerPoint操作试题”界面。
按下“程序语言”按钮,则试题内容显示如下:
(一级考生不必阅读)
图11-10“程序语言试题”界面
同样,考生要根据自己所选的语种(如C、PASCAL、VISUALBASIC、VISUALFOXPRO等)在计算机上启动相应的语言环境来编辑相应的试题文件,最后要运行和调试,以得到正确的答案。
二级考生才有程序语言题,它一般包括程序改错和程序填空两道题目。
四、交卷及注意事项
上机考试时间为60分钟,若时间到,考生还未交卷,则系统自动停止答题;若考生答题过程当中,出现突然死机等情况,只需重新启动即可,考试剩余时间从死机时算起;若考生完成答卷,可按下考试窗口左下角的“交卷”按钮提前交卷(但必须先退出其他所有应用程序)。
这里再强调一遍,考生凡是编辑修改过的试题文件一定要保存。
试题文件都位于Z:
盘根目录下,修改过的试题文件均保存到原处。
不保存或保存到别处,将评为零分。
再就是这个Z:
盘在哪里可以找到呢?
考生只需打开“我的电脑”或“资源管理器”就可看到,如下所示:
图11-11“Z:
”网络驱动器图标
在上图中,有一个名为“在Djkspx1上的057100105(Z:
)”的网络驱动器图标,“057100105”是某考生的准考证号,考生只要双击该图标就能访问自己在服务器上的考生文件夹了。
每个考生在服务器上都有自己的文件夹,每个考生只能对自己的文件夹拥有全部的访问权限,不能对其他考生文件夹中的文件进行修改。
最后,考生不要将自己文件夹中的试题文件随意删除,以免造成不必要的麻烦。
若一旦误删,只要点击计算机等级考试窗口中的“恢复被删试题”按钮即可恢复,但此前的答题过程是不能恢复的,所以考生在上机考试时,一定要注意不要误删文件。
11.2历年上机考试VisualBasic程序设计部分经典题解
全国计算机等级考试(江西考区)二级VisualBasic程序设计部分上机测试题的类型一般分为:
一是属性设置及程序改错题:
对对象的属性进行设置,对含有错误的VisualBasic语言程序进行查错并修改成正确的程序。
二是程序填空题:
在原有VisualBasic程序的空白处填上合适的语句或句子,使程序能正确运行。
一、属性设置及程序改错题:
属性设置(4分*2=8分),程序改错(6分*2=12分),计20分。
1、如图11-12所示。
设计一个窗口,日历牌每10秒显示一次,每次显示10秒;系统时间的数字式表每秒显示一次新的时间。
要求:
①设置计时器Timer1和Timer2的属性;
②在编写的二个过程代码Timer1_Timer(),Timer2_Timer()中各有一个错误,请调试改正。
调试改正中,每个过程代码只能改一处,并不得增删语句。
程序代码如下:
PrivateSubForm_Load()
Label1.Caption=Trim(Str(Year(Date)))+"年"+Trim(Str(Month(Date)))+"月"_
+Trim(Str(Day(Date)))+"日"
Label2.Caption=Time()
EndSub
PrivateSubTimer1_Timer()
IfLabel1.Visible=TrueThen
Label1.Visible=False
Else
Label1.Visible=False
EndIf
EndSub
PrivateSubTimer2_Timer()图11-12第1题程序界面
IfLabel2.Caption<>Time()Then
Label2.Caption=Timer()
EndIf
EndSub
解答要点:
①Time1控制日历,所以Time1的Interval属性值设置为10000,Time2控制时间,所以它的Interval属性值设置为1000。
②在Timer1_Timer()中,对Label1.Visible分两种情况讨论,所以在Else后面的那条语句改为Label1.Visible=True;
在Timer2_Timer()中,把Label2.Caption=Timer()改成Label2.Caption=Time()。
2、如图11-13所示。
窗体的标题为“火箭发射”,其中有两个标签按钮:
航天飞机和云彩,名称分别为P1和P2;还有一个计时器,名称为Timer1;一个命令按钮,名称为C1,标题为“发射”。
现给出两个事件过程,按下述要求设置属性并改正程序中的错误:
①设置计时器的属性,使其在初始状态下不计时;每隔0.1秒调用Timer事件过程一次。
②单击“发射”按钮,则航天飞机每隔0.1秒向上移动一次,当到达云彩下方时,航天飞机停止移动。
调试改正中,每个过程代码只能改一处,并不得增删语句。
程序代码如下:
PrivateSubC1_Click()
'下行有错
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Statica%
a=a+1
'下行有错
IfP1.Top>P2.Top+P2.LeftThen图11-13第2题界面
P1.MoveP1.Left,P1.Top-5-a,P1.Width,P1.Height
Else
Timer1.Enabled=False
EndIf
EndSub
解答要点:
①因为题目要求在初始状态下不计时,所以把Timer1.Enabled属性设置为False;又因为要每隔0.1秒调用Timer事件过程一次,所以把Timer1的Interval属性值设置成100。
②把PrivateSubC1_Click()中的Timer1.Enabled=False改成Timer1.Enabled=True,因为这是点击“发射”按钮的事件,当点击它的时候,开始计时,所以Timer1.Enabled=True。
把IfP1.Top>P2.Top+P2.Left改成IfP1.Top>P2.Top+P2.Height,因为P2这个对象的顶点接触到P1这个对象的底点后,停止移动。
所以只要P1.Top>P2.Top+P2.Height,就会不停的向上移动。
3、如图11-14所示。
设计一个窗体,当在文件控件File1中单击相应图形文件时能实现在Image1中进行浏览,要求文件控件中只显示扩展名为BMP的文件,图形要求按同样大小进行显示。
具体要求:
①设置文件控件File1和图像控件Image1的属性。
②在编写的二个过程代码Dir1_Change(),File1_Click()中各有一处错误,请调试改正。
调试改正中,每个过程代码只能改一处,并不得增删语句。
程序代码如下:
PrivateSubDir1_Change()
File1.Path=Dir1.Drive
EndSub
PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub
PrivateSubFile1_Click()
DimfnameAsString
IfRight(Dir1.Path,1)="\"Then
fname=Dir1.Path&File1.FileName图11-14第3题程序界面
Else
fname=Dir1.Path&"\"&File1.FileName
EndIf
Image1.Picture=fname
EndSub
解答要点:
①把File1.pattern的属性设置成*.bmp,因为要显示的是扩展名为BMP的文件;将Image1.stretch属性值设置成True。
②把PrivateSubDir1_Change()中的File1.Path=Dir1.Drive改成File1.Path=Dir1.Path;把PrivateSubFile1_Click()中的Image1.Picture=fname改成Image1.Picture=LoadPicture(fname)。
4、如图11-15所示。
该窗体运行时位居VisualBasic主窗口的中央,运行时呈最大化窗口。
在编辑框中输出从100开始被3、5、7除余数均为1的10个数。
该窗体有两个命令按钮command1“开始计算”、command2“清空文本框”和一个文本框Edit1。
点击“开始计算”,开始求满足条件的数,将满足条件的数输出到文本框中,每输出一个换一行。
要求:
①设置窗体Form1和命令按钮command1的属性;
②在command1的click代码中有两个错误,请调试改正,并不得增删语句。
程序代码如下:
PrivateSubCommand1_Click()
Dimi%,j%,k%
i=100
j=0
Do
If(iMod3=1)And(iMod5=1)And(iMod7=1)Then
Text1.Text=Text1.Text&i&Chr(13)&Chr(10)
j=j+1
EndIf
Ifj>10ThenExitDo
i=i-1
Loop
EndSub
PrivateSubCommand2_Click()
Text1.Text=""
EndSub
解答要点:
图11-15第4题程序界面
①把Form1窗体的StartpUpPosition属性设置成“屏幕中心”,Windowstate设置成Maximized;把Command1的Caption设置成“开始计算”。
②把Ifj>10ThenExitDo改成Ifj>=10ThenExitDo,因为不加一个等号,将会出现11个满足条件的数;将i=i-1改成i=i+1,这里I是一个循环变量,从100往后加。
5、如图11-16所示。
设计一个窗口,使用到frame,option,text,label,line五种控件。
选择加、乘运算来得到相应的结果,其中乘法运算取整。
要求如下:
①设置Option3的caption属性,Option3的caption要求为运算符号"*",当鼠标移动到该控件时,能够出现对该运算符号的解释,如"*"的解释为"乘法"。
②在编写的两个程序代码option1_click()和option3_click()中各有一个错误,请调试改正。
程序代码如下:
PrivateSubForm_Load()
Text1.Text="125.6"
Text2.Text="23.8"
EndSub
PrivateSubOption1_Click()
Label1.Caption="+"
Text3.Text=Text1.Text+Text2.Text
EndSub
PrivateSubOption3_Click()
Label1.Caption="*"
Text3.Text=Integer(Text1.Text*Text2.Text)图11-16第5题程序界面
EndSub
解答要点:
①将Option3的caption属性值设置成“*”;将Option3的ToolTipText的属性值设置成“乘法”。
②将Text3.Text=Text1.Text+Text2.Text改成Text3.Text=Val(Text1.Text)+Val(Text2.Text),因为Text文本框里的数据是字符型,要进行加法运算,应该把它转化成数值型数据。
将Text3.Text=Integer(Text1.Text*Text2.Text)改成Text3.Text=Int(Val(Text1.Text)*Val(Text2.Text)),道理跟上面的一样。
6、如图11-17所示。
设计一个窗体,在文本框Text1中显示计算机的当前时间。
在Text2中输入一个比当前晚的时间,输入的时间格式为小时:
分:
秒,单击计时按钮开始倒计时,当到达设定时间时,程序显示时间到并停止计时。
其中Timer1用来控制当前时间的显示,Timer2用来倒计时。
开始时Text2中文本内容为空,窗体标题为“倒计时程序”。
具体要求:
①设置文件Timer1和窗体的属性。
②在编写的二个过程代码Timer1_Timer()和Timer2_Timer()中各有一处错误,请调试改正。
调试改正中,每个过程代码只能改一处,并不得增删语句。
程序代码如下:
PrivateSubCommand1_Click()
Timer2.Interval=1000
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Text2.Text=""
EndSub
PrivateSubTimer1_Timer()图11-17第6题程序界面
Text1.Text=Format(Now,"SS:
HH:
MM")
EndSub
PrivateSubTimer2_Timer()
IfText1.Text=Text2.TextThen
MsgBox"时间到!
"
Timer1.Interval=0
EndIf
EndSub
解答要点:
①将Timer1的Interval属性值设置成1000,将窗体的caption属性设置成“倒计时程序”。
②将Format(Now,"SS:
HH:
MM")改成Format(Now,"HH:
MM:
SS");
将Timer1.Interval=0改成Timer2.Interval=0。
7、如图11-18所示。
交换两个数(例10,20),要求Swap1用值传递,Swap2用地址传递,使第一个PRINT语句输出:
A=10,B=20;第二个PRINT语句输出:
A=20,B=10。
请修改程序中2处错误,并调试该程序,使之正确运行,不得增加或删除程序行。
程序代码如下:
PrivateSubForm_click()
DimaAsInteger,bAsInteger
a=10:
b=20
swap1a,b
Print"A1=";a,"B1=";b
a=10:
b=20
swap2a,b
Print"A1=";a,"B1=";b
EndSub
PublicSubswap1(xAsInteger,yAsInteger)
DimtAsInteger图11-18第7题程序界面
t=x:
x=y:
y=t
EndSub
PublicSubswap2(mAsInteger,nAsInteger)
DimtAsInteger
t=m:
n=m:
n=t
EndSub
解答要点:
①将PublicSubswap1(xAsInteger,yAsInteger)改成PublicSubswap1(ByValxAsInteger,ByValyAsInteger);将n=m改成m=n。
8、如图11-19所示。
将一个二进制字符串压缩,其中结果保留该字符串的首字符,然后将连续的0或1用其数目来表示,当遇到不同字符时用“*”表示。
例如:
字符串"111100000111111111000111110000"压缩后为“14*5*9*3*5*4”。
请修改程序中2处错误,并调试该程序,使之正确运行,不得增加或删除程序行。
程序代码如下:
PrivateSubForm_Click()
cString="111100000111111111000111110000"
cResult=Left(cString,1)
nCount=1
Forn=2ToLen(cString)
'比较前后两个字符是否相同,同则计字符数,否则记*
IfMid(cString,n,1)=Mid(cString,n-1,1)Then
nCount=nCount+1
Else
cResult=cResult+Trim(Str(nCount))+"*"
nCount=nCount+1
EndIf
EndIf
cResult=cResult+Trim(Str(nCount))
Print"压缩后为"+cResult图11-19第8题程序界面
EndSub
解答要点:
①将nCount=nCount+1改成nCount=1;将最后一个EndIf改成Nextn。
二、程序填空题:
(10分*2=20分),计20分。
1、如图11-20所示。
当按下“求最大公因子”按钮时,提示从键盘上输入两个正整数,求最大公因子。
程序不完整,请补充空白
(1)、
(2)处,以便能得到正确答案。
程序代码如下:
PrivateSubCommand1_Click()
Dimm,nAsInteger
m=InputBox("请输入m的值")
m=
(1)
m1=m
n=InputBox("请输入n的值")
n=Val(n)
n1=n
DoWhilen<>0图11-20第1题程序界面
remain=
(2)
m=n
n=remin
Loop
Printm1;"和";n1;"的最大公因子是";m
EndSub
解答要点:
在第一空中填Val(m),因为通过InputBox("请输入m的值")输入的m是字符型,需要把它转化成数值型。
在第二空中填mmodn,这是通过辗转相除法求最大公因子。
但题目中还有一个错误,n=remin应该改成n=remain,这是题目本身的错误,不需要我们去管,但如果要调试成功的话,这里就要改过来。
2、如图11-21所示。
通过调用过程Sort将数组按降序排序。
程序运行后,在四个文本框各输入一个整数,然后单击命令按钮,即可使数组按降序排序,并在文本框中显示出来。
该程序不完整,请补充空白
(1)、
(2)处,以便得到正确答案,但不得增删原语句。
程序代码如下:
OptionBase1
PrivateSubSort(a()AsInteger)
DimStartAsInteger,FinishAsInteger
DimiAsIntege
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 全国计算机等级考试 江西考区 全国 计算机等级考试 江西 考区