云文档网 - 专业文章范例文档资料分享平台

2013计算机二级(VB)考试机试题库

来源:网络收集 时间:2024-03-28 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xuecool-com或QQ:370150219 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

2013年 VB题库

第01套 简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有一个标签Label1,请添加一个单选按钮数组,名称为Op1,含三个单选按钮,它们的Index属性分别为0、1、2,标题依次为\飞机\、\火车\、\汽车\,再添加一个名称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得在程序运行时单击\飞机\或\火车\单选按钮时,在Text1中显示\我坐飞机去\或\我坐火车去\,单击\汽车\单选按钮时,在Text1中显示\我开汽车去\,如图所示。

注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 Private Sub Op1_Click(Index As Integer) Dim a As String, b As String, c As String a = \我坐\ b = \我开\

' Select Case ? ***** Index ***** Case 0

Text1.Text = a + Me.Op1(0).Caption + \去\ Case 1

' Text1.Text = ? + Me.Op1(1).Caption + \去\ Case 2

Text1.Text = b + Me.Op1(2).Caption + \去\ End Select End Sub

(2)在考生文件夹下有一个工程文件sjt4.vbp,Form1窗体中有一个文本框,名称为Text1;请在窗体上添加两个框架控件,名称分别为F1、F2,标题分别为\性别\、\身份\;在F1中添加两个单选按钮控件Op1、Op2,标题分别为\男\、\女\;在F2中添加两个单选按钮控件Op3、Op4,标题分别为\学生\、\教师\;再添加一个命令按钮,名称为C1,标题为\确定\。如图所示。请编写适当的事件过程,使得在运行时,在F1、F2中各选一个单选按钮,然后单击\确定\按钮,就可以按照下表把结果显示在文本框中。

性别 男 男 女 女

身份 学生 教师 学生 教师

在文本框中显示的内容 我是男学生 我是男教师 我是女学生 我是女教师

最后把修改后的文件以原来的文件名存盘。

注意:考生不得修改窗体文件中已经存在的程序和Text1的属性,在结束程序运行之前,必须进行能够产生上表中一个结果的操作。必须用窗体右上角的关闭按钮结束程序,否则无成绩。 ? ***** 请考生编写程序 *****

If op1 and op3 then Text1.Text=”我是男学生” If op1 and op4 then Text1.Text=”我是男教师” If op2 and op3 then Text1.Text=”我是女学生” If op2 and op4 then Text1.Text=”我是女教师” *****第01套 综合应用题

以下数列:1,1,2,3,5,8,13,21,…,的规律是从第3个数开始,每个数都是其前面两个数之和。

在考生文件夹下有一个工程文件sjt5.vbp。窗体中已经给出了所有控件,如图所示。请编写适当的事件过程完成如下功能:选中一个单选按钮后,单击\计算\按钮,则计算出上述数列的第n项的值,并在文本框中显示,n是选中的单选按钮后面的数值。(提示:因计算结果较大,应使用长整型变量。)

注意:不能修改已经给出的程序和已有的控件的属性;在结束程序运行之前,必须选中一个单选按钮,并单击\计算\按钮获得一个结果;必须使用窗体右上角的关闭按钮结束程序,否则无成绩。最后把修改后的文件按原文件名存盘。

Private Sub Command1_Click() ? ***** 请考生编写程序 *****

Dim a(35) As Long If op1(0) then n=30 If op1(1) then n=33 If op1(2) then n=35 a(1) = 1 a(2) = 1 For i = 3 To n

a(i) = a(i - 1) + a(i - 2) Next

Text1.Text = a(n) End Sub

第02套 简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体中有两个图片框,名称分别为P1、P2,其中的图片内容分别是一架航天飞机和一朵云彩,一个命令按钮,名称为C1,标题为\发射\,还有一个计时器,名称为Timer1。并给出了两个事件过程,但并不完整,要求:

①设置Timer1的属性,使其在初始状态下不计时;

②设置Timer1的属性,使其每隔0.1秒调用Timer事件过程一次。

③去掉程序中的注释符,把程序中的?改为正确的内容,使得在运行时单击\发射\按钮,则航天飞机每隔0.1秒向上移动一次,当到达P2的下方时停止移动,如图所示。

注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 Private Sub C1_Click()

' Timer1.Enabled = ? ***** True ***** End Sub

Private Sub Timer1_Timer() Static a% a = a =+1

' If P1.Top > P2.Top + P2.? Then ***** Height ***** P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height Else

' Timer1.Enabled = ? ***** False ***** End If End Sub

(2)在考生文件夹下有一个工程文件sjt4.vbp,运行情况如图所示。程序的功能是计算下列表达式的值:

其中的N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为\计算\、名称为Command1的命令按钮,则计算表达式的值z,并将计算结果显示在名称为Label1的标签中。

在给出的窗体文件中已经添加了全部控件和程序,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。

注意:考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符,而应使用函数xn进行幂运算。程序至

少运行一次,按照下图输入数据,使x=10,N=5,单击\计算\按钮,计算z的值,并将结果显示在标签Label1中,否则没有成绩。最后,程序按原文件名存盘。

Private Function xn(a As Single, m As Integer) Dim i As Integer tmp = 1 For i = 1 To m

' tmp = ? ***** tmp*a ***** Next

'xn = ? ***** tmp ***** End Function

Private Sub Command1_Click() Dim n As Integer Dim i As Integer Dim t As Single Dim s, x As Single n = Val(Text1.Text) x = Val(Text2.Text) z = 0 For i = 2 To n

t = x + i

' z = z +? ***** xn(t,i) ***** Next

'Label1.Caption = ? ***** z ***** Call SaveResult End Sub

Private Sub SaveResult()

Open App.Path & \Print #1, Label1.Caption Close #1 End Sub

*****第02套 综合应用题

在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是从in5.txt文件中读入40个数据,统计这些数据中素数的个数,并找出所有素数中最小的素数(判断素数的函数已给出)。最后将查找和统计的结果分别显示在标签Label4和Label3中(窗体外观如图所示)。程序不完整,请在指定的位置把程序补充完整。

注意:不得修改原有程序和控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则无成绩。最后把修改后的文件按原文件名存盘。

Private arr(100) As Integer Public Function prime(x As Integer) k = Int(Sqr(x) + 5) For i = 2 To k

If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function

Private Sub Command1_Click()

Open App.Path & \For i = 1 To 40 Input #1, arr(i) Next Close #1 End Sub

Private Sub Command2_Click() ? ***** 请考生编写程序 *****

Dim a As Integer Dim b As Integer a = 0

b = arr(1) For i = 1 To 40

If prime(arr(i)) Then a = a + 1 Label3.Caption = a Next

For i = 1 To 40

If prime(arr(i)) And arr(i) <= b Then b = arr(i) Label4.Caption = b Next

'***** 考生编写程序结束 *****

Open App.Path & \Print #1, Label3.Caption, Label4.Caption Close #1 End Sub

*****第03套 简单应用题

(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:

①单击\读数据\按钮,则将考生文件夹下in3.dat文件中的100个0到999之间的整数读入到数组a中;

②单击\计算\按钮,则找出这100个整数中的所有水仙花数,并将它们的最大值与最小值分别显示在文本框Text1、Text2

333153?1?5?3?所以153就

中。(注:当一个数的值等于该数中的各位数字的立方和时,此数被称为水仙花数。如:

是一个水仙花数)

在窗体文件中已经给出了全部控件(如图所示)和\读数据\命令按钮的事件过程以及判断一个数是否为水仙花数的通用过程。要求编写\计算\命令按钮的事件过程。

注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行前,必须进行\计算\,并且必须通过单击窗体右上角的\关闭\按钮结束程序,否则无成绩。最后,程序按原文件名存盘。

Dim a(100) As Integer Private Sub Command1_Click() Dim k As Integer

Open App.Path & \For k = 1 To 100

Input #1, a(k) Next k Close #1 End Sub

Private Sub Command2_Click() '***** 需考生编写的程序 ***** Dim i As Integer

Dim max As Integer, min As Integer max = -1 min = 1000 For i = 1 To 100 If isnarc(a(i)) Then

If max <= a(i) Then max = a(i) If min >= a(i) Then min = a(i) End If Next i Text1 = max Text2 = min

End Sub

'以下Function 过程用于判断某数是否为水仙花数 Function isnarc(p As Integer) x = Fix(p / 100)

y = Fix((p - x * 100) / 10) z = p - x * 100 - y * 10 If p = x ^ 3 + y ^ 3 + z ^ 3 Then isnarc = True Else

isnarc = False End If End Function

Private Sub Form Unload(Cancel As Integer) Open App.Path & \Print #1, Val(Text1.Text) Print #1, Val(Text2.Text) Close #1 End Sub

(2)在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上添加一个组合框,名称为cb1,并输入三个列表项:\、\、\列表项的顺序不限,但必须是这3个数字);添加一个名为Text1的文本框;再添加一个标题为\计算\、名称为C1的命令按钮。如图所示。请编写适当的事件过程,使得在程序运行时,在组合框中选定一个数字后,单击\计算\按钮,则计算5000以内能够被该数整除的所有数之和,

并放入Text1中。最后,按原文件名存盘。

提示:由于计算结果较大,应使用长整型变量。

注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序,否则无成绩。

Private Sub C1_Click()

'***** 需考生编写的程序 ***** Dim sum As Long Dim n As Integer Dim i As Integer n = Val(Cb1.Text) For i = n To 5000 If i Mod n = 0 Then sum = sum + i End If Next i

Text1.Text = sum End Sub

*****第03套 综合应用题

在考生文件夹下有一个工程文件sjt5.vbp,其名称为Form1的窗体上已有三个文本框Text1、Text2、Text3,以及部分程序代码。请完成以下工作: ①在属性窗口中修改Text3的适当属性,使其在运行时不显示,作为模拟的剪贴板使用。窗体如图所示; ②建立下拉式菜单,如下表所示:

标题 编辑 剪切 复制 粘贴

名称 Edit Cut Copy Paste

③窗体文件中给出了所有事件过程,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。以便实现如下功能:当光标所在的文件框中无内容时,\剪切\、\复制\不可用,否则可以把该文本框中的内容剪切或复制到Text3中;若Text3中无内容,则\粘贴\不能用,否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。

百度搜索“yundocx”或“云文档网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,云文档网,提供经典教育范文2013计算机二级(VB)考试机试题库在线全文阅读。

2013计算机二级(VB)考试机试题库.doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.yundocx.com/fanwen/968323.html(转载请注明文章来源)
Copyright © 2018-2022 云文档网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:370150219 邮箱:370150219@qq.com
苏ICP备19068818号-2
Top
× 游客快捷下载通道(下载后可以自由复制和排版)
单篇付费下载
限时特价:7 元/份 原价:20元
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:xuecool-com QQ:370150219