国家二级VB机试(简单应用题)模拟试卷12附答案解析

国家二级VB机试(简单应用题)模拟试卷12

简单应用题

1.(1)在考生文件夹下有一个工程文件vbsj3.vbp,相应的窗体文件名为vbsj3.frm。在窗体上有一个命令按钮,其名称为cmdAdd,标题为“添加”;有一个文本框,名称为txtSentense,初始内容为空白;有一个列表框,名称为lstWord。程序运行后,在文本框中输入一个英文句子(由多个单词组成,各单词之间用一个空格分开),然后单击命令按钮,程序将把该英文句子分解为单词,并把每个单词作为一个项目添加到列表框中,如图3—64所示。该程序不完整,请把它补充完整。

要求:去掉程序中的注释符,把程序中的“?”改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

程序源码:

Private Sub cmdAdd_click()

Dim S1 As String,S2 As String

Dim I1As Integer

’S1=?

I1=1

Do

’Do While Mid(S1,I1,1)<>?AndI1<=Len(S1)

S2=S2&Mid(S1,I1,1)

I1=I1+1

Loop

’lstword.AddItem?

’S2=?

I1=I1+1

Loop While I1<=Len(S1)

(2)在考生文件夹下有一个工程文件vbsj4.vbp,请在窗体上画三个文本框,其名称分别为Txt1、Txt2和。txtResult,文本框内容分别设置为“等级考试”、“全国计算机”和空白。然后画两个单选按钮,其名称分别为optChange和optLink,标题分别为“交换”和“连接”,如图3—65所示。编写适当的事件程序,要求在程序运行时,先单击“交换”单选按钮,使Txt1文本框中内容与Txt2文本框中内容进行交换,并使“交换”单选按钮消失;然后单击“连接”单选按钮,则把交换后的Txt1和Txt2的内容以Txt1在前,Txt2在后的顺序连接起来,并在txtResult文本框中显示连接后的内容。存盘时,工程文件名为vbsj4.vbp,窗体文件名为vbsj4.frm。

第1小题

步骤1;打开考生文件夹下的工程文件vbsj3.vbp。

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

S1=txtSentense.Text

Do While Mid(S1,I1,1)<>\

解析:第1小题:程序设计思路:从文本框的第1个字符开始依次检查其后面的每一个字符,若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环(指内循环,循环条件为:取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数,表达式为:Mid(S1,I1,1)<>\

2.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:

1)程序运行时,文件列表框显示当前文件夹中的所有扩展名为jpg的文件。

2)双击文件列表框中某个图片文件名时,能在图像框中显示出该张图片,并将该图片文件的信息(包括路径及文件名)显示到标签中,如图3-42所示。

3)“下一张”命令按钮的功能:选中并显示上次选中文件的下一个图片文件(如果文件列表框中没有被选中的图片文件或上次选中的是最后一个文件名,则从第1个图片文件始)。

在当前程序所在文件夹中,已经提供了所需要的图片文件,运行时窗体如图所示。

在给出的窗体文件中已经有了全部控件,但程序不完整。请将事件过程中的注释符去掉,把“?”改为正确的内容,以实现上述程序功能。

注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:程序运行时,文本框中显示一篇英文短文,单击“查找”按钮时可输入查找内容,如图3-43所示。

若未找到查找内容,查找结束;若找到查找内容,被找到的内容在文本框中以反相显示(即呈选中状态),每找到一次都给出提示,并在左下角文本框中显示累计的次数,如图3-44所示。

第1小题

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjts.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码:

If File1.ListIndex=-1 Or

File1.ListIndex=File1.ListCount-1 Then

File1.ListIndex=File1.ListIndex+1

Label1.Caption=App.Path+\

解析:

3.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮米决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。

已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符把程序中的?改为正确的内容。

注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。

(1)【操作步骤】

步骤1:打丌本题工程文件。

步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。

参考答案

Private Sub Form_Click()

For i=1 To 5’输入5行

For j=1 To 6-i’循环实现输入空格,每行依次减少一个空格

Print\

解析:

4.在考生文件夹下,存在一个数据库文件“samp2.accdb”,里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个临时表对象“tTemp”。试按以下要求完成设计。

(1)创建一个查询,按所属院系统计学生的平均年龄,字段显示标题为“院系”和“平均年龄”,所建查询命名为“qT1”。

要求:平均年龄四舍五人取整处理。

(2)创建一个查询,查找上半年入学的学生,并显示“姓名”、“性别”、“课程名”和“成绩”等字段内容,所建查询命名为“qT2”。

(3)创建一个查询,查找没有选课的同学,并显示其“学号”和“姓名”两个字段内容,所建查询命名为“qT3”。

(4)创建删除查询,将表对象“tTemp”中年龄值高于平均年龄(不含平均年龄)的学生记录删除,所建查询命名为“qT4”。

(1)【操作步骤】

步骤1:单击“创建”选项卡下“查询”组中的“查询设计”按钮,在弹出的“显示表”对话框中双击添加表“tStud”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:在“字段”行中分别输入“院系:所属院系”和“平均年龄:Round(Avg([年龄]),0)”。

步骤3:单击“查询工具”的“设计”选项卡下“显示/隐藏”组中的“汇总”按钮,然后在“平均年龄:Round(Avg([年龄]),0)”字段的“总计”行的下拉列表中选择“Expression”命令,如图4.34所示。

[*]

步骤4:单击陕速访问工具栏中的“保存”按钮,另存为“qT1”。

(2)【操作步骤】

步骤1:单击“创建”选项卡下“查询”组中的“查询设计”按钮,在弹出的“显示表”对话框中舣击表“tStud”、“tCourse”和“tScore”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:选中表“tStud”中的“学号”字段,然后拖动鼠标指针到表“tScore”中的“学号”字段,放开鼠标左键,选中表“tCourse” 中的“课程号”字段,然后拖动鼠标指针到表“tScore”中的“课程号”字段,放开鼠标左键。

步骤3:分别双击添加“姓名”、“性别”、“课程名”、“成绩”和“入校时问”字段,在其下一字段行中输入“Month([入校时间])”,取消“Month([入校时间])”字段显示行复选框的勾选,在“Month([入校时间])”字段的“条件”行中输入“>=1 And <=6”,如图4.35所示。

[*]

步骤4:单击快速访问工具栏中的“保存”按钮,

另存为“qT2”。

(3)【操作步骤】

步骤1:单击“创建”选项卡下查询”组中的“查询设计”按钮,在弹出的“显示表”对话框中双击添加表“tStud”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:双击添加“学号”和“姓名”字段,在“学号”的“条件”行中输入“Not ln(SELECT tStud.学号FROM tStud INNER JOIN tScore ON tStud.学号=tScore.学号GROUP BY tStud.学号)”,如图4.36所示。

[*]

步骤3:单击快速访问工具栏中的“保存”按钮,另存为“qT3”。

(4)【操作步骤】

步骤1:单击“创建”选项卡“查询”组中的“查询设计”按钮,在弹山的“显示表”对话框中双击添加表“tTemp”,然后单击“关闭”按钮,关闭“显示表”对话框。

步骤2:双击添加“年龄”字段。

步骤3:单击“查询工具”的“设计”选项卡下“查询类型”组中的“删除”按钮,在“年龄”字段的“条件”行中输入“>(select avg(年龄)from[tTemp])”,如图4.37所示。

[*]

步骤4:单击“查询工具”的“设计”选项卡下“结果”组中的“运行”按钮,在弹出的“Microsoft Access”对话框中单击“是”按钮。

步骤5:单击快速访问工具栏中的“保存”按钮,另存为“qT4”,关闭“设计视图”。

解析:

5.(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图1-43所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以纵向或横向运动(通过选择单选按钮来决定),碰到矩形的边时,则向相反方向运动,单击“停止”按钮,则停止运动,如图1-44所示。可以选择单选按钮随时改变运动方向。

第1小题

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

For i = 1 To 5

For j = 1 To 2 * i – 1

For j = 1 To i + 1

For j = 1 To 9 – 2 * i

步骤2:按要求将文件保存至考生文件夹中。

第2小题

【操作步骤】

步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。

参考代码:

Timer1.Enabled = False

Shape2.Top = Shape2.Top + d * 50

If Shape2.Top <= Shape1.Top Or

Shape2.Top + Shape2.Width >= Shape1.Top + Shape1. Height Then

Shape2.Left = Shape2.Left + d * 50

步骤2:按要求将文件保存至考生文件夹中。

解析:

6.在考生文件夹中有一个工程文件sjt4.vbp。窗体上已有控件,如图2-47所示。请在属性窗口中将Listl设置为可以多项选择(允许使用Shift键或Ctrl键进行选择)列表项。要求:双击Listl.中的某一项时,该项目被添加到List2中,同时在Listl中清除该项目。若单击”>>“按钮,Listl中所有的项目显示在List2中(List2中已有项目不变),Listl中的内容不变。

要求:按照题目要求设置控件属性,去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不得修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。

参考代码:

L2.AddItem L1.List(L1.ListIndex)

L1.RemoveItem L1.ListIndex

For i=0 To List1.ListCount-1

Call MoveItem(List1, List2)

步骤2:按要求将文件保存至考生文件夹中。

解析:

7.在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击”统计”按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别显示在标签控件数组x中,如图2-56所示。在给出的窗体文件中已经添加了全部控件,但程序不完整。

要求:去掉程序中的注释符,把程序中的?改为正确的内容。

注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

步骤1:打开考生文件中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。

参考代码:

n=Len(Textl.Text)

b=Asc(Mid(s, i, 1))

Select Case b

For i=0 To 2

x(i) =a(i)

步骤2:按要求将文件保存至考生文件夹中。

解析:

8.在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮,其名称为Commandl,标题为”输入/显示”;此外还有一个文本框,其名称为Textl,初始内容为空白。程序的功能是,程序运行后,单击命令按钮,显示输入对话框,在对话框中输入某个月份的数值(1~12),然后单击”确定”按钮,即可在文本框中输出该月份所在的季节。例如输入5,将输出”5月份是夏季”,如图2-84所示。程序不完整,请补充完整。

要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。

步骤1:打开考生文件中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符”’“,将问号”?”改为正确的内容。

参考代码:

Loop Until n>0 And n<13

Select Case n

Select Case m

步骤2:按要求将文件保存至考生文件夹中。

解析:

9.在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画两个文本框,其名称分别为Textl、Text2,文本框的内容分别设置为”计算机”、”等级考试”。然后画一个标签,其名称为Labl,高度为375,宽度为2000。再画两个单选按钮,名称分别为Opl和Op2,标题分别为”交换” 和”连接”,最后再画一个命令按钮,其名称为Cl,标题为”确定”,编写适当的事件程序。程序运行后,如果选中”交换”单选按钮并单击”确定”按钮,则Textl文本框中的内容与’text2文本框中的内容进行交换,并在标签处显示”交换成功”(如图2-128所示);如果选中”连接”单选按钮并单击”确定”按钮后,则把交换后的Textl和Text2的内容连接起来,并在标签处显示连接后的内容。存盘时,工程文件名为sjt4.vbp,窗体文件名为sjt4.frm。

注意:不得修改已经给出的程序。在结束程序运行之前,必须选中一个单选按钮,并单击”确定”按钮。退出程序时必须通过单击窗体右上角的关闭按钮,否则无成绩。

步骤1:打开考生文件夹下的本题工程文件sjt4.vbp。

步骤2:在窗体Forml中加入两个文本框、一个标签和两个单选按钮,分别设置它们的相关属性,其属性及值如表3-70所示。

步骤3:打开代码编辑窗口输入如下代码:

参考代码:

Private Sub C1_Cl ick( )

If Opl Then

Lab1.Caption=Text1.Text

Text1.Text=Text2.Text

Text2.Text=Lab1.Caption

Lab1.Caption=“交换成功”

ElseIf Op2 Then

Labl.Caption=Text1.Text&Text2.Text

EndIf

End Sub

步骤4:按要求将文件保存至考生文件夹中。

步骤5:按<F5>键运行程序,选择一个单选按钮,并单击命令按钮,最后单击窗体右上角的关闭按钮退出程序。

[*]

解析:

10.已知出租车行驶不超过4千米时一律收费10元。超过4千米时分段处理,具体处理方式为:15千米以内每千米加收1.2元,15千米以上每千米收1.8元。在考生文件夹下有一个工程文件sjt4.vbp。程序的功能是:单击“输入”按钮,将弹出一个输入对话框,接收出租车行驶的里程数;单击“计算”按钮,则可根据输入的里程数计算应付的出租车费,并将计算结果显示在名称为Text1的文本框内。

在窗体文件中已经给出了全部控件(如图3-166所示),但程序不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容。

审题分析

本题源程序通过使用Select Case语句对输入的数据(已赋值给变量s)进行检验,若不超过4,则按f=10计算;若在15以内,则按f=10+(s-4)*1.2计算;若在15以上,则按f=10+(15-4)*1.2+(s-15)*1.8计算。

操作步骤

步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。

参考代码:

Select Case s

f=10

f=10+(s-4)*1.2

Case Else

f=10+(15-4)* 1.2+(s-15)*1.8

步骤2:按要求将文件保存至考生文件夹中。

考点链接

多分支结构。

解析:

资源下载《国家二级VB机试(简单应用题)模拟试卷12附答案解析.doc》 文档下载价格为30下载币,请先
将本套试题Word文档或文章下载到电脑,方便收藏和打印
资源下载
《国家二级VB机试(简单应用题)模拟试卷12附答案解析.doc》
试题含答案和解析word文档下载价格:30 下载币
《国家二级VB机试(简单应用题)模拟试卷12附答案解析.doc》
试题含答案和解析word文档VIP优惠:免费
将本套试题Word文档或文章下载到电脑,方便收藏和打印
0

评论0

没有账号? 注册  忘记密码?