上机考试不用愁全国计算机二级VB上机考试题库及答案word版本.docx
- 文档编号:24217937
- 上传时间:2023-05-25
- 格式:DOCX
- 页数:369
- 大小:1.65MB
上机考试不用愁全国计算机二级VB上机考试题库及答案word版本.docx
《上机考试不用愁全国计算机二级VB上机考试题库及答案word版本.docx》由会员分享,可在线阅读,更多相关《上机考试不用愁全国计算机二级VB上机考试题库及答案word版本.docx(369页珍藏版)》请在冰豆网上搜索。
上机考试不用愁全国计算机二级VB上机考试题库及答案word版本
第一、Consty0&=1110,x0&=1100,radius&=750
PrivateFunctiononcircle(XAsSingle,YAsSingle)AsBoolean
precision=55000
IfAbs((X-x0)*(X-x0)+(y0-Y)*(y0-Y)-radius*radius) oncircle=True Else oncircle=False EndIf EndFunction PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) ConstLEFT_BUTTON=1 Ifoncircle(X,Y)Then Line1.X1=x0 Line1.Y1=y0 IfButton=LEFT_BUTTONThen Line1.X2=X 'Line1.Y2=? *****Y***** Else 'Line1.X2=Line1.? *****X1***** 'Line1.Y2=y0-? *****radius***** EndIf Label1.Caption="" Else '? ="鼠标位置不对"*****label1.caption***** EndIf EndSub (2)在考生目录下有一个工程文件sjt4.vbp,窗体如图所示。 其功能是单击“输入数据”按钮,则可输入一个整数n(要求: 8<=n<=12);单击“计算”按钮,则计算1! +2! +3! +…….+n! ,并将计算结果显示在文本框中;单击“存盘”按钮,则把文本框中的结果保存到考生目录下的out4.dat文件中。 文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的? 改为正确的内容,并编写“计算”按钮的Click事件过程。 注意: 不得修改已经存在的内容和控件属性,在结束程序运行之前,必须用“存盘”按钮存储计算结果,否则无成绩。 最后把修改后的文件按原文件名存盘。 DimnAsInteger PrivateSubCommand1_Click() n=Val(InputBox("请输入整数(8-12)","输入")) 'Ifn>? Orn<8Then*****12***** MsgBox("数据错误,请重新输入") Command2.Enabled=False Command3.Enabled=False Else Command2.Enabled=True Command3.Enabled=True EndIf EndSub PrivateSubCommand2_Click() DimsAsLong,kAsInteger *****'考生应编写的程序***** S=1 Fork=2ton S=s+f(k) Nextk Text1.text=s *****EndSub***** Functionf(nAsInteger)AsLong 's=? *****1***** Fork=2Ton s=s*k Next 'f=? *****s***** EndFunction PrivateSubCommand3_Click() OpenApp.Path&"\out4.dat"ForOutputAs#1 Print#1,n,Text1 Close#1 EndSub 第01套综合应用题(新模14) 在考生文件夹下有一个工程文件sjt5.vbp,含三个窗体,标题分别为‘启动’、‘注册’、‘登录’,运行时显示‘启动’窗体,单击其上按钮时弹出对应窗体进行注册或登录。 注册信息放在全局数组users中,注册用户数(最多10个)放在全局变量n中(均已在标准模块中定义)。 注册时用户名不能重复,且‘口令’与‘验证口令’须相同,注册成功则在‘启动’窗体的标签中显示‘注册成功’,否则显示相应错误信息。 登录时,检验用户名和口令,若正确,则在‘启动’窗体的标签上显示‘登录成功’,否则显示相应错误信息。 标准模块中函数finduser的功能是: 在users数组中搜索用户名(即参数ch),找到则返回该用户名在user中的位置,否则返回0。 已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把Form2、Form3窗体文件中的? 改为正确的内容。 ―――――――――Form2――――――――――――――――――――――――― PrivateSubCommand1_Click() Text1="" Text2="" Text3="" EndSub Subwriteusers() 'n=n+? *****1***** users(n,1)=Text1 users(n,2)=Text2 EndSub PrivateSubCommand2_Click() IfText1=""Then MsgBox("必须输入用户名! ") Text1.SetFocus 'ElseIffinduser(Trim$(Text1))>? Then*****0***** MsgBox("此用户名已经存在! ") ElseIfText2<>Text3Then MsgBox("口令验证错误! ") Else writeusers '? ="注册成功! "*****form1.label1.caption***** Form2.Hide EndIf EndSub ―――――――――Form3――――――――――――――――――――――――― PrivateSubCommand1_Click() k=finduser(Trim$(Text1)) 'Ifk=? Then*****0***** MsgBox("没有注册! ") 'ElseIfTrim$(Text2)<>users(? )Then*****n,2***** MsgBox("口令错误! ") Else Form1.Label1.Caption="登录成功! " Form3.Hide EndIf EndSub 第02套简单应用题(新模8) (1)在名称为Form1的窗体上画一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为‘加粗’、‘斜体’、‘下划线’,名称分别为M1、M2、M3。 请编写适当的事件过程,在运行时当用鼠标右键单击文本框时,弹出此菜单,选中一个菜单项后,则进行菜单标题所描述的操作,如图所示。 注意: 存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。 M1_click() Text1.fontBold=true M2_click() Text1.fontItalic=true M3_click() Text1.fontUnderline=true Text1_MouseDown() Ifbutton=2thenPopupmenuformat (2)在考生文件夹下有一个工程文件sjt4.vbp,含有Form1和Form2两个窗体,Form1为启动窗体。 两个窗体上的控件如图1所示。 程序运行后,在Form1窗体的文本框中输入有关信息(‘密码’框中显示‘*’字符),然后单击‘提交’按钮则弹出‘确认’对话框(即Form2窗体),并在对话框中显示输入的信息,如图2所示。 单击‘确认’按钮则程序结束,单击‘重输’按钮,则对话框消失,回到Form1窗体。 在给出的窗体文件中已经给出了程序,但不完整。 要求: 1)把Form1的标题改为‘注册’,把Form2的标题改为‘确认’; 2)设置适当的属性,使Form2标题栏上的所有按钮消失(如图2所示); 3)去掉程序中的注释符,把程序中的? 改为正确的内容。 注意: 不能修改程序中的其他部分,标题等属性的修改只能在属性窗口中的进行。 最后把修改后的文件按原文件名存盘。 PrivateSubC1_Click() DimkAsInteger 'Form2.? *****show***** Form2.PrintForm1.L1.Caption;Form1.Text1 Form2.PrintForm1.L2.Caption;Form1.Text2 Form2.PrintForm1.L3.Caption;Form1.Text3 'Form2.PrintForm1.Frame1.? ;": ";*****caption***** Fork=0To1 'IfForm1.Op1(? ).ValueThen*****k***** Form2.PrintForm1.Op1(k).Caption EndIf Nextk EndSub PrivateSubForm_Load() 'Text2.? ="*"*****passwordchar***** EndSub 第02套综合应用题(新模8) 在考生目录下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为‘口令’和‘允许次数’;一个命令按钮C1,标题为‘确定’;两个文本框名称分别为Text1和Text2。 其中Text1用来输入口令(输入时,显示‘*’),无初始内容;Text2的初始内容为3。 并给出了C1的事件过程,但不完整,要求去掉程序中的注释符,把程序中的? 改为正确的内容,使得在运行时,在Text1中输入口令后,单击‘确定’,如果输入的是‘123456’则在Text1中显示‘口令正确’;如果输入其他内容,单击‘确定’后,弹出如图所示的错误提示对话框,并且Text2中的数字减1.最多可输入3次口令,若3次都输入错误,则禁止再次输入。 PrivateSubC1_Click() 'If? ="123456"Then*****text1.text***** Text1.Text="口令正确" 'Text1.? =""*****passwordchar***** Else Text2.Text=Text2.Text-1 'IfText2.Text>? Then*****0***** MsgBox"第"&(3-Text2.Text)&"次口令错误,请重新输入" Else MsgBox"3次输入错误,请退出" 'Text1.Enabled=? *****false***** EndIf EndIf EndSub 第03套简单应用题(新模18) (1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是: 1)单击‘读数据’按钮,则把考生文件夹下in3.dat文件中的100个0-999之间的整数读入数组a中; 2)单击‘计算’按钮,则对这100个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时,此数被称为水仙花数。 如: 153=1^3+5^3+3^3,所以153就是一个水仙花数)求平均值,并对该平均值截尾取整后显示在文本框Text1中。 窗体中给出了所有控件(如图所示),以及‘读数据’按钮的Click事件过程,请为‘计算’按钮编写适当的事件过程实现上述功能。 注意: 不得修改已经存在的控件和程序,在结束程序运行之前,必须进行计算,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。 最后,程序按原文件名存盘。 Dima(100)AsInteger PrivateSubCommand1_Click() DimkAsInteger OpenApp.Path&"\in3.dat"ForInputAs#1 Fork=1To100 Input#1,a(k) Nextk Close#1 EndSub PrivateSubCommand2_Click() '*****考生应完成的程序***** Dimk,c1,c2,c3,avg,numasinteger Avg=0 Num=0 Fork=1to100 C1=int(a(k)/100) C2=int((a(k)-c1*100)/10) C3=a(k)mod10 Ifa(k)=c1^3+c2^3+c3^3then Avg=avg+a(k) Endif Nextk Avg=int(avg/num) Text1.text=avg *****EndSub***** PrivateSubForm_Unload(CancelAsInteger) OpenApp.Path&"\out3.dat"ForOutputAs#1 Print#1,Text1.Text Close#1 EndSub (2)已知出租车行驶不超过4公里时一律收费10元。 超过4公里时分段处理,具体处理方式为: 15公里以内每公里加收1.2元,15公里以上每公里收1.8元。 在考生文件夹下有一个工程文件sjt4.vbp。 程序的功能是: 单击‘输入’按钮,将弹出一个输入对话框,接收出租车行驶的里程数;单击‘计算’按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果显示在名称为Text1的文本框内。 文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的? 改为正确的内容。 DimsAsInteger PrivateSubCommand1_Click() s=Val(InputBox("输入里程数(单位: 公里)")) EndSub PrivateSubCommand2_Click() Ifs>0Then 'SelectCase? *****s***** CaseIs<=4 '? *****f=10***** CaseIs<=15 'f=10+? *****(s-4)*1.2***** 'Case? 'f=10+? +(s-15)*1.8*****13.2***** EndSelect Text1.Text=f Else MsgBox"请单击“输入”按钮输入里程数! " EndIf EndSub 第03套综合应用题(新模18) 在考生文件夹下有一个工程文件sjt5.vbp,窗体上有二个标题分别是“读数据”和“统计”的命令按钮。 请画二个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;再画二个名称分别为Text1和Text2,初始值为空的文本框,如图所示。 程序功能如下: 1)单击“读数据”按钮,则将考生文件夹下in5.dat文件的内容读到变量s中(此过程已给出); 2)单击“统计”按钮,则自动统计in5.dat文件中所含各字母(不区分大小写)出现的次数,并将出现次数最多的字母显示在Text1文本框,它所出现的次数显示在Text2文本框内。 “读数据”按钮的Click事件过程已经给出,请为“统计”按钮编写适当的事件过程实现上述功能。 注意: 考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行统计,且必须用窗体右上角的关闭按钮结束程序,否则无成绩。 最后,程序按原文件名存盘。 OptionBase1 DimsAsString PrivateSubCommand1_Click() OpenApp.Path&"\in5.dat"ForInputAs#1 s=Input(LOF (1),#1) Close#1 EndSub PrivateSubCommand2_Click() '*****考生编写的程序***** Dimn(26),i,kasinteger Fori=1to26 n(i)=0 Nexti Fori=1tolen(s) K=asc(lcase(mid(s,i,1)))-asc(“a”)+1 Ifk>0andk<=26then \n(k)=n(k)+1 Endif Nexti K=1 Fori=2to26 Ifn(i)>n(k)then K=i Endif Nexti Text1.text=chr((asc(“a”)+k-1) Text2.text=n(k) *****EndSub***** PrivateSubForm_Unload(CancelAsInteger) OpenApp.Path&"\out5.dat"ForOutputAs#1 Print#1,Text1.Text,Text2.Text Close#1 EndSub 第04套简单应用题(新模60) (1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个单选按钮数组,含三个单选按钮;还有一个标题为“显示”的命令按钮。 程序的功能是,在运行时,如果选中一个单选按钮并单击“显示”按钮,则在窗体上显示相应的信息,例如若选中“小学生”,则在窗体上显示“我是小学生”。 要求: 去掉程序中的注释符,把程序中的? 改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。 最后把修改后的文件以原来的文件名存盘。 PrivateSubC1_Click() 'Fori=? To? *****0to2***** 'If? =TrueThen*****op1(i).value***** 'Print"我是"+Op1(i).? *****caption***** EndIf Next EndSub (2)在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。 窗体上有一个名称为command1的命令按钮和一个名称为Timer1的计时器。 请在窗体上画一个标签(名称为Label1,标题为“请输入一个正整数”),再画一个文本框(名称为Text1,初始内容为空白)。 已经给出了相应的事件过程。 程序运行后,在文本框中输入一个正整数,此时如果按回车键,则可以使文本框中的数字每隔0.3秒减1(倒计数);当减到0时,倒计数停止,清空文本框,并把焦点移到文本框中。 要求: 去掉程序中的注释符,把程序中的? 改为正确的内容,使其能正确的运行,但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存盘。 PrivateSubCommand1_Click() Timer1.Enabled=True EndSub PrivateSubTimer1_Timer() 'IfVal(? )=0Then*****text1.text***** Text1.Text="" 'Timer1.? =False*****enabled***** 'Text1.? *****text=val(text1.text)-1***** Else Text1.Text=Str(Val(Text1.Text)-1) EndIf EndSub 第04套综合应用题(新模60) 在考生文件夹下有一个工程文件sjt5.vbp和随机文件in5.txt,文件中的每个记录包括3个字段,分别为姓名、电话号码和邮政编码,其名称、类型和长度分别为: Name字符串8 Tel字符串10 PostLong 窗体中有一个文本框和两个命令按钮。 程序运行后,如果单击“读入并显示记录”命令按钮,则从考生文件夹下的in5.txt文件中读入所有记录并显示在文本框中(每条记录占一行,数据项的顺序是姓名、电话、邮编、见图,可使用符号常量vbCrLf表示回车换行);若单击“保存”按钮则把文本框中的内容存入out5.txt文件中。 要求: 1)编写“读入并显示记录”按钮的Click过程。 2)在文本框中把所有字母改为大写字母(可以手工修改) 3)单击“保存”按钮把修改后的文本框内容存盘,否则无成绩! (过程已给出,不能修改)。 最后以原文件名将程序存放在考生文件夹下。 PrivateTypePalInfo NameAsString*8 TelAsString*10 PostAsLong EndType DimpalAsPalInfo PrivateSubCommand2_Click() ch$="" Fork=1ToLen(Text1.Text) C$=Mid$(Text1.Text,k,1) IfC$>="0"AndC$<="9"OrC$>="a"AndC$<="z"OrC$>="A"AndC$<="Z"Then ch$=ch$+C$ EndIf Nextk Open"out5.txt"ForOutputAs#1 Print#1,ch$ Close#1 EndSub PrivateSubCommand1_Click() '*****考生应编写的程序***** Dimrecordnumasinteger Openapp.path&“\in5.txt”forrandomas#1len=len(pal) Recordnum=lof (1)/len(pal) Fori=1torecordnum Get#1,i,pal Text1.text=text1.text+ucase(pal.name)+pal.tel+str(pal.post)+chr(13)+chr(10) Nexti Close#1 *****EndSub***** 第05套综合应用题(新模69) 在考生文件夹下有一个工程文件sjt5.vbp,请先装入该工程文件,然后完成以下操作。 在名称为Form1的窗体上画三个命令按钮,其名称分别为C1、C2和C3,标题分别为“读入数据”、“计算”和“存盘”(如图所示)。 程序运行后,如果单击“读入数据”按钮,则调用题目已提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数,分别
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 上机 考试 不用 全国计算机 二级 VB 题库 答案 word 版本