《上机考试不用愁_2012年全国计算机二级VB上机考试题库及答案word版本.doc》由会员分享，可在线阅读，更多相关《上机考试不用愁_2012年全国计算机二级VB上机考试题库及答案word版本.doc（32页珍藏版）》请在三一文库上搜索。
1、 第一Const y0 1110 x0 1100 radius 750Private Function oncircle X As Single Y As Single As Boolean precision 55000 If Abs X - x0 X - x0 y0 - Y y0 - Y - radius radius precision Then oncircle True Else oncircle False End IfEnd FunctionPrivate Sub Form_MouseDown Button As Integer Shift As Integer X As Sin
2、gle Y As Single Const LEFT_BUTTON 1 If oncircle X Y Then Line1X1 x0 Line1Y1 y0 If Button LEFT_BUTTON Then Line1X2 X Line1Y2 Y Else Line1X2 Line1 X1 Line1Y2 y0 - radius End If Label1Caption Else 鼠标位置不对 label1caption End IfEnd Sub2在考生目录下有一个工程文件sjt4vbp窗体如图所示其功能是单击输入数据按钮则可输入一个整数n要求8 n 12单击计算按钮则计算123n并将计
3、算结果显示在文本框中单击存盘按钮则把文本框中的结果保存到考生目录下的out4dat文件中文件中已经给出了所有控件和程序但程序不完整请去掉程序中的注释符把程序中的改为正确的内容并编写计算按钮的Click事件过程注意不得修改已经存在的内容和控件属性在结束程序运行之前必须用存盘按钮存储计算结果否则无成绩最后把修改后的文件按原文件名存盘Dim n As IntegerPrivate Sub Command1_Click n Val InputBox 请输入整数8-12 输入 If n Or n 8 Then 12 MsgBox 数据错误请重新输入 Command2Enabled False Comma
4、nd3Enabled False Else Command2Enabled True Command3Enabled True End IfEnd SubPrivate Sub Command2_Click Dim s As Long k As Integer考生应编写的程序S 1For k 2 to nS sf k Next kText1text sEnd SubFunction f n As Integer As Long s 1 For k 2 To n s s k Next f s End FunctionPrivate Sub Command3_Click Open AppPath
5、out4dat For Output As 1 Print 1 n Text1 Close 1End Sub第01套 综合应用题新模14在考生文件夹下有一个工程文件sjt5vbp含三个窗体标题分别为启动注册登录运行时显示启动窗体单击其上按钮时弹出对应窗体进行注册或登录注册信息放在全局数组users中注册用户数最多10个放在全局变量n中均已在标准模块中定义注册时用户名不能重复且口令与验证口令须相同注册成功则在启动窗体的标签中显示注册成功否则显示相应错误信息登录时检验用户名和口令若正确则在启动窗体的标签上显示登录成功否则显示相应错误信息标准模块中函数finduser的功能是在users数组中搜索用
6、户名即参数ch找到则返回该用户名在user中的位置否则返回0已经给出了所有控件和程序但程序不完整请去掉程序中的注释符把Form2Form3窗体文件中的改为正确的内容Form2Private Sub Command1_Click Text1 Text2 Text3 End SubSub writeusers n n 1 users n 1 Text1 users n 2 Text2End SubPrivate Sub Command2_Click If Text1 Then MsgBox 必须输入用户名 Text1SetFocus ElseIf finduser Trim Text1 Then
7、0 MsgBox 此用户名已经存在 ElseIf Text2 Text3 Then MsgBox 口令验证错误 Else writeusers 注册成功 fcomion Form2Hide End IfEnd SubForm3Private Sub Command1_Click k finduser Trim Text1 If k Then 0 MsgBox 没有注册 ElseIf Trim Text2 users Then n2 MsgBox 口令错误 Else Fcomion 登录成功 Form3Hide End IfEnd Sub第02套 简单应用题新模81在名称为Form1的窗体上画一
8、个名称为Text1的文本框再建立一个名称为Format的弹出式菜单含三个菜单项标题分别为加粗斜体下划线名称分别为M1M2M3请编写适当的事件过程在运行时当用鼠标右键单击文本框时弹出此菜单选中一个菜单项后则进行菜单标题所描述的操作如图所示注意存盘时必须存放在考生文件夹下工程文件名为sjt3vbp窗体文件名为sjt3frmM1_click Text1fontBold trueM2_click Text1fontItalic trueM3_click Text1fontUnderline trueText1_MouseDown If button 2 then Popupmenu format2在考
9、生文件夹下有一个工程文件sjt4vbp含有Form1和Form2两个窗体Form1为启动窗体两个窗体上的控件如图1所示程序运行后在Form1窗体的文本框中输入有关信息密码框中显示字符然后单击提交按钮则弹出确认对话框即Form2窗体并在对话框中显示输入的信息如图2所示单击确认按钮则程序结束单击重输按钮则对话框消失回到Form1窗体在给出的窗体文件中已经给出了程序但不完整 要求1把Form1的标题改为注册把Form2的标题改为确认 2设置适当的属性使Form2标题栏上的所有按钮消失如图2所示 3去掉程序中的注释符把程序中的改为正确的内容注意不能修改程序中的其他部分标题等属性的修改只能在属性窗口中的
10、进行最后把修改后的文件按原文件名存盘Private Sub C1_Click Dim k As Integer Form2 show Form2Print Fcomion Form1Text1 Form2Print Fcomion Form1Text2 Form2Print Fcomion Form1Text3 Form2Print Form1Frame1 caption For k 0 To 1 If Form1Op1 Value Then k Form2Print Form1Op1 k Caption End If Next kEnd SubPrivate Sub Form_Load Te
11、xt2 passwordchar End Sub第02套 综合应用题新模8在考生目录下有一个工程文件sjt5vbp其窗体上有两个标签L1和L2标题分别为口令和允许次数一个命令按钮C1标题为确定两个文本框名称分别为Text1和Text2其中Text1用来输入口令输入时显示无初始内容Text2的初始内容为3并给出了C1的事件过程但不完整要求去掉程序中的注释符把程序中的改为正确的内容使得在运行时在Text1中输入口令后单击确定如果输入的是123456则在Text1中显示口令正确如果输入其他内容单击确定后弹出如图所示的错误提示对话框并且Text2中的数字减1最多可输入3次口令若3次都输入错误则禁止再次
12、输入Private Sub C1_Click If 123456 Then text1text Text1Text 口令正确 Text1 passwordchar Else Text2Text Text2Text - 1 If Text2Text Then 0 MsgBox 第 3 - Text2Text 次口令错误请重新输入 Else MsgBox 3次输入错误请退出 Text1Enabled false End If End IfEnd Sub第03套 简单应用题新模181在考生文件夹下有一个工程文件sjt3vbp其功能是1单击读数据按钮则把考生文件夹下in3dat文件中的100个0-99
13、9之间的整数读入数组a中2单击计算按钮则对这100个整数中的所有水仙花数当一个数的值等于该数中各位数字的立方和时此数被称为水仙花数如153135333所以153就是一个水仙花数求平均值并对该平均值截尾取整后显示在文本框Text1中窗体中给出了所有控件如图所示以及读数据按钮的Click事件过程请为计算按钮编写适当的事件过程实现上述功能注意不得修改已经存在的控件和程序在结束程序运行之前必须进行计算且必须用窗体右上角的关闭按钮结束程序否则无成绩最后程序按原文件名存盘Dim a 100 As IntegerPrivate Sub Command1_Click Dim k As Integer Open
14、 AppPath in3dat For Input As 1 For k 1 To 100 Input 1 a k Next k Close 1End SubPrivate Sub Command2_Click 考生应完成的程序Dim k c1 c2 c3 avg num as integerAvg 0Num 0For k 1 to 100 C1 int a k 100 C2 int a k -c1100 10 C3 a k mod 10 If a k c13c23c33 then Avg avga k End ifNext kAvg int avg num Text1text avg End
15、 Sub Private Sub Form_Unload Cancel As Integer Open AppPath out3dat For Output As 1 Print 1 Text1Text Close 1End Sub2已知出租车行驶不超过4公里时一律收费10元超过4公里时分段处理具体处理方式为15公里以内每公里加收12元15公里以上每公里收18元在考生文件夹下有一个工程文件sjt4vbp程序的功能是单击输入按钮将弹出一个输入对话框接收出租车行驶的里程数单击计算按钮则可根据输入的里程数计算应付的出租车费并将计算结果显示在名称为Text1的文本框内文件中已经给出了所有控件和程序但程
16、序不完整请去掉程序中的注释符把程序中的改为正确的内容Dim s As IntegerPrivate Sub Command1_Click s Val InputBox 输入里程数单位公里 End SubPrivate Sub Command2_Click If s 0 Then Select Case s Case Is 4 f 10 Case Is 15 f 10 s-4 12 Case f 10 s - 15 18 132 End Select Text1Text f Else MsgBox 请单击输入按钮输入里程数 End IfEnd Sub第03套 综合应用题新模18在考生文件夹下有一
17、个工程文件sjt5vbp窗体上有二个标题分别是读数据和统计的命令按钮请画二个标签名称分别为Label1和Label2标题分别为出现次数最多的字母是和它出现的次数为再画二个名称分别为Text1和Text2初始值为空的文本框如图所示程序功能如下 1单击读数据按钮则将考生文件夹下in5dat文件的内容读到变量s中此过程已给出 2单击统计按钮则自动统计in5dat文件中所含各字母不区分大小写出现的次数并将出现次数最多的字母显示在Text1文本框它所出现的次数显示在Text2文本框内 读数据按钮的Click事件过程已经给出请为统计按钮编写适当的事件过程实现上述功能注意考生不得修改窗体文件中已经存在的控件
18、和程序在结束程序运行之前必须进行统计且必须用窗体右上角的关闭按钮结束程序否则无成绩最后程序按原文件名存盘Option Base 1Dim s As StringPrivate Sub Command1_Click Open AppPath in5dat For Input As 1 s Input LOF 1 1 Close 1End SubPrivate Sub Command2_Click 考生编写的程序 Dim n 26 i k as integerFor i 1 to 26 n i 0Next iFor i 1 to len s K asc lcase mid si1 -asc a 1
19、 If k 0 and k 26 then n k n k 1 End ifNext iK 1For i 2 to 26 If n i n k then K i End ifNext iText1text chr asc a k-1 Text2text n k End Sub Private Sub Form_Unload Cancel As Integer Open AppPath out5dat For Output As 1 Print 1 Text1Text Text2Text Close 1End Sub第04套 简单应用题新模601在考生文件夹下有一个工程文件sjt3vbp窗体上有
20、一个单选按钮数组含三个单选按钮还有一个标题为显示的命令按钮程序的功能是在运行时如果选中一个单选按钮并单击显示按钮则在窗体上显示相应的信息例如若选中小学生则在窗体上显示我是小学生要求去掉程序中的注释符把程序中的改为正确的内容使其实现上述功能但不能修改程序中的其他部分也不能修改控件的属性最后把修改后的文件以原来的文件名存盘Private Sub C1_Click For i To 0 to 2 If True Then op1 i value Print 我是 Op1 i caption End If NextEnd Sub2在考生文件夹下有一个工程文件sjt4vbp相应的窗体文件为sjt4frm
21、窗体上有一个名称为command1的命令按钮和一个名称为Timer1的计时器请在窗体上画一个标签名称为Label1标题为请输入一个正整数再画一个文本框名称为Text1初始内容为空白已经给出了相应的事件过程程序运行后在文本框中输入一个正整数此时如果按回车键则可以使文本框中的数字每隔03秒减1倒计数当减到0时倒计数停止清空文本框并把焦点移到文本框中要求去掉程序中的注释符把程序中的改为正确的内容使其能正确的运行但不能修改程序中的其他部分最后把修改后的文件按原文件名存盘Private Sub Command1_Click Timer1Enabled TrueEnd SubPrivate Sub Tim
22、er1_Timer If Val 0 Then text1text Text1Text Timer1 False enabled Text1 text val text1text -1 Else Text1Text Str Val Text1Text - 1 End IfEnd Sub第04套 综合应用题新模60在考生文件夹下有一个工程文件sjt5vbp和随机文件in5txt文件中的每个记录包括3个字段分别为姓名电话号码和邮政编码其名称类型和长度分别为 Name 字符串 8 Tel 字符串 10 Post Long窗体中有一个文本框和两个命令按钮程序运行后如果单击读入并显示记录命令按钮则从考生
23、文件夹下的in5txt文件中读入所有记录并显示在文本框中每条记录占一行数据项的顺序是姓名电话邮编见图可使用符号常量vbCrLf表示回车换行若单击保存按钮则把文本框中的内容存入out5txt文件中要求1编写读入并显示记录按钮的Click过程 2在文本框中把所有字母改为大写字母可以手工修改 3单击保存按钮把修改后的文本框内容存盘否则无成绩过程已给出不能修改最后以原文件名将程序存放在考生文件夹下Private Type PalInfo Name As String 8 Tel As String 10 Post As LongEnd TypeDim pal As PalInfoPrivate Sub
24、 Command2_Click ch For k 1 To Len Text1Text C Mid Text1Text k 1 If C 0 And C 9 Or C a And C z Or C A And C Z Then ch ch C End If Next k Open out5txt For Output As 1 Print 1 ch Close 1End SubPrivate Sub Command1_Click 考生应编写的程序Dim recordnum as integerOpen apppath in5txt for random as 1 len len pal Rec
25、ordnum lof 1 len pal For i 1 to recordnum Get 1ipal Text1text text1textucase palname paltelstr palpost chr 13 chr 10 Next iClose 1 End Sub 第05套 综合应用题新模69在考生文件夹下有一个工程文件sjt5vbp请先装入该工程文件然后完成以下操作在名称为Form1的窗体上画三个命令按钮其名称分别为C1C2和C3标题分别为读入数据计算和存盘如图所示程序运行后如果单击读入数据按钮则调用题目已提供的ReadData1和ReadData2过程读入datain1txt和
26、datain2txt文件中的各20个整数分别放入Arr1和Arr2两个数组中如果单击计算按钮则把两个数组中对应下标的元素相除并截尾取整后结果放入第三个数组中即把第一个数组的第n个元素除以第二个数组的第n个元素结果截尾取整后作为第三个数组的第n个元素这里的n为1220最后计算第三个数组各元素之和并把所求得的和在窗体上显示出来如果单击存盘按钮则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataouttxt文件中注意考生不得修改窗体文件中已经存在的程序必须把求得的结果用存盘按钮存入考生文件夹下的dataouttxt文件中否则没有成绩最后把修改后的文件以原来的文件名存盘Opt
27、ion Base 1Dim Arr1 20 As IntegerDim Arr2 20 As IntegerSub ReadData1 Open AppPath datain1txt For Input As 1 For i 1 To 20 Input 1 Arr1 i Next i Close 1End SubSub ReadData2 Open AppPath datain2txt For Input As 1 For i 1 To 20 Input 1 Arr2 i Next i Close 1End SubSub WriteData Filename As String Num As
28、Integer Open AppPath Filename For Output As 1 Print 1 Num Close 1End Sub以下为考生编写的程序Private sub C1_Click Call ReadData1 Call ReadData2End sub 定义一个声明语句Dim Sum As integerPrivate sub c2_click Dim arr3 20 as integer For i 1 to 20 Arr3 i int arr1 i arr2 i Sum Sumarr3 i Next i Num 0 Print SumEnd subPrivate
29、sub C3_click Call writeData dataouttxt sum End sub 第06套 简单应用题新模321在考生文件夹下有一个工程文件sjt3vbp程序的功能是在运行时如果选中一个单选按钮和一个或两个复选框则对文本框中的文字做相应的设置如图所示窗体上的控件已经画出但没有给出主要程序内容请编写适当的事件过程完成上述功能注意不能修改已经给出的程序部分和已有的控件在结束程序运行之前必须选中一个单选按钮和至少一个复选框并单击确定按钮必须通过单击窗体右上角的关闭按钮结束程序否则无成绩最后把修改后的文件按原文件名存盘Private sub command1_click 考生编写的
30、程序如下 If Op1value true then Text1fontname Op1caption Elseif op2value true then Text1fontname Op2caption End if If ch1value 1 then Text1fontunderline true Else Text1fontunderline true End if If ch2value 1 then Text1fontItalic true Else Text1fontitalic false End if End sub 2在考生文件夹下有一个工程文件sjt4vbp窗体上已经画出
31、所有控件如图所示在运行时如果单击开始按钮则窗体上的汽车图标每01秒向右移动一次初始状态下不移动如果单击停止按钮则停止移动请完成以下工作A设置适当控件的适当属性使得汽车图标每01秒向右移动一次而初始状态下不移动B请去掉程序中的注释符把程序中的改为正确的内容C为两个命令按钮编写适当的事件过程最后以原文件名存盘注意不得修改已经给出的程序编写的事件过程中不能使用变量每个事件过程中只能有一条语句Private Sub C1_Click 考生编写的程序如下Timer1enabled trueEnd SubPrivate Sub C2_Click 考生编写的程序如下Timer1enabled falseEn
32、d SubPrivate Sub Timer1_Timer P1 P1Left 20 Move End Sub第06套 综合应用题新模32在考生文件夹有一个工程文件sjt5vbp在窗体上给出了所有控件和不完整的程序请去掉程序中的注释符把程序中的改为正确的内容本程序的功能是如果单击取数按钮则把考生目录下的in5txt文件中的15个姓名读到数组a中并在窗体上显示这些姓名当在Text1中输入一个姓名或一个姓氏后如果单击查找按钮则进行查找若找到就把所有与Text1中相同的姓名或所有具有Text1中姓氏的姓名显示在Text2中如图所示若未找到则在Text2中显示未找到若Text1中没有查找的内容则在Te
33、xt2中显示未输入查找内容注意考生不得修改程序的其他部分和控件的属性最后把修改后的文件按原文件名存盘Dim a 15 As StringPrivate Sub C1_Click Dim k As Integer Open in5txt For Input As 1 Form1Cls For k 1 To 15 Input 1 a k Print a k Next k Close 1 End SubPrivate Sub C2_Click Dim k As Integer n As Integer c As String n Len Text1Text c If n 0 Then For k 1
34、 To 15 If Left a k Text1Text Then n c c a k End If Next k If c Then Text2Text 未找到 Else Text2Text c End If Else Text2Text 未输入查找内容 End IfEnd Sub第07套 综合应用题新模70在考生文件夹下有一个工程文件sjt5vbp请先装入该工程文件然后完成以下操作在名称为Form1的窗体上画三个命令按钮其名称分别为C1C2和C3标题分别为读入数据计算和存盘如图所示程序运行后如果单击读入数据按钮则调用题目已提供的ReadData1和ReadData2过程读入datain1t
35、xt和datain2txt文件中的各20个整数分别放入Arr1和Arr2两个数组中如果单击计算按钮则把两个数组中对应下标的元素相除并截尾取整后结果放入第三个数组中即把第一个数组的第n个元素除以第二个数组的第n个元素结果截尾取整后作为第三个数组的第n个元素这里的n为1220最后计算第三个数组各元素之和并把所求得的和在窗体上显示出来如果单击存盘按钮则调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataouttxt文件中注意考生不得修改窗体文件中已经存在的程序必须把求得的结果用存盘按钮存入考生文件夹下的dataouttxt文件中否则没有成绩最后把修改后的文件以原来的文件名存盘
36、 提供给考生的程序Option Base 1Dim Arr1 20 As IntegerDim Arr2 20 As IntegerSub ReadData1 Open AppPath datain1txt For Input As 1 For i 1 To 20 Input 1 Arr1 i Next i Close 1End SubSub ReadData2 Open AppPath datain2txt For Input As 1 For i 1 To 20 Input 1 Arr2 i Next i Close 1End SubSub WriteData Filename As St
37、ring Num As Integer Open AppPath Filename For Output As 1 Print 1 Num Close 1End Sub 考生编写的程序如下Private Sub C1_Click Call readdata1Call readdata2End Sub 定义一个声明语句 dim num as integerPrivate Sub C2_Click Dim arr3 20 as integer For i 1 to 20 Arr3 i arr1 i arr2 i Next i Num 0 For i 1 to 20 Num numarr3 i Next i Print numEnd SubPrivate Sub C3_Click Call writedata dataouttxt num End Sub 第08套 简单应用题新模771在考生文件夹下有一个工程文件sjt3vbp已给出了所有控件和部分程序程序运行时请按以下顺序操作 1单击读入数据按钮可把考生目录下的文件in3dat中的100个整数读到数组a中 2从名称为List1的列表框中选中一项如图所示 3单击计算按钮则可按该选项的要求计算出结果并放到文本框中 4单击窗体右上角