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)考试机试题库在线全文阅读。
最新更新: