计算机二级VB语言程序设计考试练习题及答案
想要考好计算机二级考试,那么就要多做习题,下面小编为大家带来了计算机二级VB语言程序设计考试练习题及答案,欢迎大家阅读!
计算机二级VB语言程序设计考试练习题及答案1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程:
Private Sub Command1_Click( )
n = Val()
If n2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)
A.72 36
B.108 36
C.72 6
D.27 3
2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
c = "1234"
For i = 1 To 4
c1 = Trim(Str( ))
Print c1
Next i
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为(B)(单)
t(c1,i)
(c1,i)
(c1,i,1)
(c1,i,i)
3.在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下事件过程:
Private Sub Command1_Click( )
n = Val()
For i = 2 To n
For j = 2 To sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j >Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是(C)(单)
A.输出n以内的奇数
B.输出n以内的偶数
C.输出n以内的素数
D.输出n以内能被j整除的数
4.在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click( )
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后,单击命令按钮,在窗体上显示的是(C)(单)
A.11
B.10
C.9
D.8
5.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
= array1(2, 3) + array1(3, 4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是(D)(单)
A.15
B.14
C.13
D.12
al Basic应用程序中标准模块文件的扩展名是【BAS或】(注意不要写点)。
7.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。
Private Sub Form_ 【mousedown】 (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
popupmenu mnuEdit
End If
End Sub
8.在菜单编辑器中建立一个菜单,其主菜单项的名称为mnuEdit,Visible属性为False,程序运行后,如果用鼠标右键单击窗体,则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序,请填空。
Private Sub Form mousedown (Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
【popupmenu】 mnuEdit
End If
9.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【Interval】属性设置为500。
10.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的Interval属性设置为【500】。
11.与数学表达式ln(a+b)/(3x)+5 对应的Visual Basic表达式是【log(a+b)/(3*x)+5或(log(a+b)/(3*x))+5】
12.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是【】
13.在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case 【Index】
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
name=a
End Sub
14.在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换。
Private Sub Option1_Click(Index As Integer)
Select Case index
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体_GB2312"
End Select
text1.【fontname】=a
End Sub
15.在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2。程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
【tmplabel】ion =
End Sub
16.在窗体上画两个组合框,其名称分别为Combo1、Combo2,然后画两个标签,名称分别为Label1、Label2,程序运行后,如果在某个组合框中选择一个项目,则把所选中的项目在其下面的标签中显示出来。
Private Sub Combo1_Click( )
Call ShowItem(Combo1, Label1)
End Sub
Private Sub Combo2_Click( )
Call ShowItem(Combo2, Label2)
End Sub
Public Sub ShowItem(tmpCombo As ComboBox, tmpLabel As Label)
ion =【tmpcombo】
End Sub
17.在窗体上画一个名称为Command1的`命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
n = 5
f = 1
s = 0
For c = 1 To n
f = f*【7】
s = s + f
Next c
Print s
End Sub
该事件过程的功能是计算1!+2!+3!+…+n!的值。
18.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call【swap】a( )
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。
19.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap(a( ))
For I = 1 To 10
Print a(I);
Next
End Sub
Sub swap(b( ) As Integer)
n =【ubound(b)】
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=n-1
Next I
End Sub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。
20.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click( )
Dim a(10) As Integer
For I = 1 To 10
a(I) = I
Next I
Call swap(a( ))
For I = 1 To 10
Print a(I);
Next I
End Sub
Sub swap(b( ) As Integer)
n = ubound(b)
For I = 1 To n / 2
t = b(I)
b(I) = b(n)
b(n) = t
n=【n-1】
Next I
End Sub
-
2015年9月全国计算机二级C语言模拟题
点击查看试题参考答案一.单项选择题1.运算符___________的优先级最高。A.[]B.+=C.?:D.++(){intn;(n=6*4,n+6),n*2;printf(n=%d\n,n);}此程序的输出结果是______________.A.30B.24C.60D.483.若有如下定义,则__________是对数组元素的正确的引用。.inta[10],*p;p...
-
2016计算机二级《Access》选择题练习及答案
Access数据库程序设计是计算机二级考试科目之一,下面本站小编为大家搜索整理了关于二级《Access》选择题练习及答案,欢迎参考练习,希望对大家备考有所帮助!想了解更多相关信息请持续关注我们应届毕业生考试网!1VBA中如果没有显式声明或未用符号来定义变量的数据类...
-
2017最新计算机二级《VB》复习题及答案
随着计算机等级考试临近,考生们要多做题,加深对考点的理解和掌握,检验复习效果,提高考生对考题及考试的适应性。以下是本站小编搜索整理的一份2017最新计算机二级《VB》复习题及答案,供参考练习,希望对大家有所帮助!想了解更多相关信息请持续关注我们应届毕业生考试...
-
计算机二级《Access》考前冲刺题及答案
计算机二级考试是全国计算机等级考试(NationalComputerRankExamination,简称NCRE)四个等级中的一个等级,由教育部考试中心主办,考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。下面是小编整理的计算机二级《Access》考前冲刺题及答案,...