[全国计算机等级考试三级难度]2002年全国计算机等级考试三级笔试样题(Visual Basic语言程序设计)

等级考试 2021-01-27 网络整理 可可

【shitiku.jxxyjl.com--等级考试】

Visual Basic语言程序设计..joxue.

考试时间90分钟,满分100分..joxue.

一、选择题..joxue.
(1)—(35)题每题2分,共70分。..joxue.
下列各题A)、B)、C)、D)四个先项中,只有一个选择是正确的,请将正确选项涂写在答题卡相应位置上,答在试卷上不得分。..joxue.

(1) 下列不能打开属性窗口的操作是Joxue..joxue.

A) 执行“视图”菜单中的“属性窗口”命令..joxue.

B) 按F4键..joxue.

C) 按Ctrl+T..joxue.

D) 单击工具栏上的“属性窗口”按钮Joxue..joxue.

(2) 下列可以打开立即窗口的操作是JoxueJoxue..joxue.

A) Ctrl+DJoxueB) Ctrl+EJoxue C) Ctrl+FJoxueD) Ctrl+G..joxue.

(3) inputBox函数反回值的类型为Joxue..joxue.

A) 数值JoxueJoxueJoxueJoxueJoxueJoxueB) 字符串..joxue.

C) 变体JoxueJoxueJoxueJoxueJoxueJoxueD) 数值或字符串(视输入的数据而定)..joxue.

(4) 可以同时删除字符串前导和尾部空白的函数是Joxue..joxue.

A) LtrimJoxue B) RtrimJoxue C) TrimJoxue D) Mid..joxue.

(5) 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是..joxue.

A) 4JoxueJoxue B) 5JoxueJoxue C) 6 JoxueJoxue D) 7..joxue.

(6) 如果在立即窗口中执行以下操作:..joxue.

a=8 <CR>JoxueJoxueJoxueJoxueJoxue(<CR>是回车键,下同)..joxue.

b=9 <CR>..joxue.

print a>b<CR>..joxue.

则输出结果是Joxue..joxue.

A) -1JoxueJoxue B) 0JoxueJoxue C) FalseJoxue D) True..joxue.

(7) 以下语句的输出结果是JoxueJoxue..joxue.

Print Format $(32548.5,“000,000.00”)..joxue.

A) 32548.5 B) 32,548.5Joxue C) 032,548.50 D) 32,548.50..joxue.

(8) 执行以下程序段后,变量c$的值为..joxue.

a$=“Visual Basic Programing”..joxue.

b$=“Quick”..joxue.

c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)..joxue.

A) Visual BASIC Programing..joxue.

B) Quick Basic Programing..joxue.

C) QUICK Basic Programing..joxue.

D) Quick BASIC Programing..joxue.

(9) 为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为True,这个属性是JoxueJoxue..joxue.

A) ValueJoxue B) DefaultJoxue C) CancelJoxue D) Enabled..joxue.

(10)JoxueJoxueJoxue为了把焦点移到某个指定的控件,所使用的方法是..joxue.

A) SetFocusJoxue B) VisibleJoxue C) RefreshJoxue D) GetFocus..joxue.

(11)JoxueJoxueJoxue设a=6,则执行 x=IIf(a>5,-1,0)后,x 的值为JoxueJoxue..joxue.

A) 5JoxueB) 6JoxueJoxue C) 0JoxueJoxue D) -1..joxue.

(12)JoxueJoxueJoxue执行下面的程序段后,x 的值为JoxueJoxueJoxue..joxue.

x=5..joxue.

For i=1 To 20 Step 2..joxue.

x=x+i\5..joxue.

Next i..joxue.

A) 21JoxueJoxue B) 22JoxueJoxue C) 23JoxueJoxue D) 24..joxue.

(13)JoxueJoxueJoxue在窗体上画一个命令按钮,然后编写如下事件过程:..joxue.

Private Sub Command1_Click()..joxue.

For i=1 To 4..joxue.

x=4..joxue.

For j =1 To 3..joxue.

x=3..joxue.

or k=1 To 2..joxue.

x=x+6..joxue.

Next k..joxue.

Next j..joxue.

Next i..joxue.

Print x..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,输出结果是Joxue..joxue.

A) 7JoxueJoxueB) 15JoxueJoxue C) 157JoxueJoxue D) 538..joxue.

(14)JoxueJoxueJoxue在窗体上画一个命令按钮,然后编写如下事件过程:..joxue.

Prevate Sub Command1_Click()..joxue.

x=0..joxue.

Do Until x=-1..joxue.

a = InputBox(“请输入A的值”)..joxue.

a = Val(a)..joxue.

b = InputBox(“请输入B的值”)..joxue.

b = Val(b)..joxue.

x = InputBox(“请输入x的值”)..joxue.

x = Val(x)..joxue.

a = a+b+x..joxue.

Loop..joxue.

Print a..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,依次在输入对话框中输入5、4、3、2、1、-1,则输出结果为JoxueJoxueJoxue..joxue.

A) 2JoxueJoxueB) 3JoxueJoxueC) 14JoxueJoxueD) 15..joxue.

(15)在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name 属性为Command1),然后编写如下两个事件过程:..joxue.

Private Sub Command1_Click()..joxue.

a=Text1.Text+Text2.Text..joxue.

Print a..joxue.

End Sub..joxue.

..joxue.
Private Sub Formm_Load()..joxue.

Text1 Text=""..joxue.

Text2 Text=""..joxue.

End sub..joxue.

程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321,然后单击命令按钮,则输出结果为JoxueJoxue..joxue.

A) 444JoxueJoxue B) 321123Joxue C) 123321Joxue D) 132231..joxue.

(16)阅读下面的程序段:..joxue.

For i=1 To 3..joxue.

For j=1 To i..joxue.

For k=j To 3..joxue.

a=a+1..joxue.

Next k..joxue.

Next j..joxue.

Next i..joxue.

执行上面的三重循环后,a 的值为Joxue..joxue.

A) 3JoxueJoxueB) 9JoxueJoxueC) 14JoxueJoxueD) 21..joxue.

(17)在窗体上画一个文本框(其中Name属性为Text1),然后编写如下事件过程:..joxue.

Private Sub Form_Load()..joxue.

Ttext1.Text="">..joxue.

Text1.SetFocus..joxue.

For i=1 To 10..joxue.

Sum=Sum+i..joxue.

Next i..joxue.

Text1.Text=Sum..joxue.

End Sub..joxue.

上述程序的运行结果是Joxue..joxue.

A) 在文本框Text1中输出55..joxue.

B) 在文本框Text1中输出0..joxue.

C) 出错..joxue.

D) 在文本框Text1中输出不定值..joxue.

(18)在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:..joxue.

Private Sub Command1_Click()..joxue.

x=0..joxue.

Do While x<50..joxue.

x=(x+2)*(x+3)..joxue.

n=n+1..joxue.

Loop..joxue.

Text1.Text=Str(n)..joxue.

Text2.Text=Str(x)..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,在两个文本框中显示的值分别为..joxue.

A) 1和0Joxue B) 2和72Joxue C) 3和50Joxue D) 4和168..joxue.

(19)用下面语句定义的数组的元素个数是JoxueJoxueJoxue..joxue.

Dim A (-3 To 5) As Integer..joxue.

A) 6JoxueJoxueB) 7JoxueJoxueC) 8JoxueJoxueD) 9..joxue.

(20)以下程序的输出结果是..joxue.

Option Base 1..joxue.

Private Sub Command1_Click()..joxue.

Dim a(10),p(3) As Integer..joxue.

k=5..joxue.

For i=1 To 10..joxue.

a(i)=i..joxue.

Next i..joxue.

For i=1 To 3..joxue.

p(i)=a(i*i)..joxue.

Next I..joxue.

For i=1 To 3..joxue.

k=k+p(i)*2..joxue.

Next i..joxue.

Print k..joxue.

End sub..joxue.

A) 33JoxueJoxueB) 28JoxueJoxueC) 35JoxueJoxueD) 37..joxue.

(21)在窗体上面画一个命令按钮,然后编写如下事件过程:..joxue.

Option Base 1..joxue.

Private Sub Commandl_Click()..joxue.

Dim a..joxue.

a = Array(1,2,3,4)..joxue.

j = 1..joxue.

For i = 4 To Step -1..joxue.

s = s + a(i)*j..joxue.

j =j*10..joxue.

Next i..joxue.

Print s..joxue.

End Sub..joxue.

运行上面的程序,单击命令按钮,其输出结果是Joxue..joxue.

A) 4321JoxueJoxueB) 12JoxueJoxue C) 34Joxue D) 1234..joxue.

(22)在窗体上面一个命令按钮(其Name属性为Commandl),然后编写如下代码:..joxue.

Option Base 1..joxue.

Private Sub Commandl_Click( )..joxue.

Dim a(4,4)..joxue.

For i =1 To 4..joxue.

For j =1 To 4..joxue.

a(i,j) = (i-1)*3+j..joxue.

Next j..joxue.

Next i..joxue.

For i =3 To 4..joxue.

For j =3 To 4..joxue.

Print a(j,i);..joxue.

Next j..joxue.

Print..joxue.

Next i..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,其输出结果为Joxue..joxue.

A) 6 9JoxueJoxue B) 7 10Joxue C) 8 11Joxue D) 9 12..joxue.

7 10JoxueJoxue 8 11Joxue 9 12Joxue 10 13..joxue.

(23)假定有如下的Sub过程:..joxue.

Sub S(x As Single,y As Single)..joxue.

t = x..joxue.

x =t/y..joxue.

y =t Mod y..joxue.

End Sub..joxue.

在窗体上画一个命令按钮,然后编写如下事件过程:..joxue.

Private Sub Commandl_Click ( )..joxue.

Dim a As Single..joxue.

Dim b As Single..joxue.

a =5..joxue.

b =4..joxue.

S a,b..joxue.

Print a,b..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,输出结果为Joxue..joxue.

A) 5 4JoxueJoxue B) 1 1JoxueJoxue C) 1.25 4Joxue D) 1.25 1..joxue.

(24)阅读程序:..joxue.

Function F(a As Integer)..joxue.

b = 0..joxue.

Static c..joxue.

b = b+1..joxue.

c = c+1..joxue.

f = a+b+c..joxue.

End Function..joxue.

..joxue.
Private Sub Commandl_Click ()..joxue.

Dim a As Integer..joxue.

a =2..joxue.

For i =1 To 3..joxue.

Print F(a)..joxue.

Next i..joxue.

End Sub..joxue.

运行上面的程序,单击命令按钮,输出结果为Joxue..joxue.

A) 4JoxueJoxueB) 4JoxueJoxueC) 4JoxueJoxueD) 4..joxue.

4Joxue 5JoxueJoxue 6JoxueJoxueJoxue7..joxue.

4Joxue 6JoxueJoxue 8JoxueJoxueJoxue9..joxue.

(25)阅读程序:..joxue.

Sub subP(b() As Integer)..joxue.

For i =1 To 4..joxue.

b(i)=2*i..joxue.

Next i..joxue.

End Sub..joxue.

..joxue.
Private Sub Commandl_Click()..joxue.

Dim a(1 To 4)As Integer..joxue.

a (1)=5..joxue.

a (2)=6..joxue.

a (3)=7..joxue.

a (4)=8..joxue.

subP a ()..joxue.

For i =1 To 4..joxue.

Print a(i)..joxue.

Next i..joxue.

End Sub..joxue.

运行上面的程序,单击命令按钮,输出结果为Joxue..joxue.

A)2JoxueJoxueB)5JoxueJoxueC)10JoxueJoxueD)出错..joxue.

4JoxueJoxue6JoxueJoxue 12..joxue.

6JoxueJoxue7JoxueJoxue 14..joxue.

8JoxueJoxue8JoxueJoxue 16..joxue.

(26)下列不能打开菜单编辑器的操作是Joxue..joxue.

A)按Ctrl+E..joxue.

B)单击工具栏中的“菜单编辑器”按钮..joxue.

C)执行“工具”菜单中的“菜单编辑器”命令..joxue.

D)按Shift + Alt + M..joxue.

(27)假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项失效(变灰),应使用的语句为Joxue..joxue.

A) MenuItem. Enabled=False..joxue.

B) MenuItem. Enabled=True..joxue.

C) MenuItem. Visible=True..joxue.

D) Menultem. Visible=False..joxue.

(28)在程序运行期间,如果拖动滚动条上的滚动块,则触发的滚动条事件是Joxue..joxue.

A) MoveJoxueJoxue B) ChangeJoxue C) ScrollJoxue D) GetFocus..joxue.

(29)假定窗体上有一个标签,名为Labell,为了使该标签透明并且没有边框,则正确的属性设置为Joxue..joxue.

A) Label1. BackStyle=0..joxue.

Label1.Borderstyle=0..joxue.

B) Label1.BackStyle=1..joxue.

Label1.Borderstyle=1..joxue.

C) Label1.BackStyle=True..joxue.

Label1.BorderStyle=True..joxue.

D) Label1.BackStyle=False..joxue.

Label1.Borderstyle=False..joxue.

(30)在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程:..joxue.

Private Sub Form_Load ()..joxue.

List1.AddItem"357"..joxue.

List1.AddItem"246"..joxue.

List1.AddItem"123"..joxue.

Listl.AddItem"456"..joxue.

Text1.Text=""..joxue.

End Sub..joxue.

..joxue.
Private Sub List1_ DblClick ( )..joxue.

a =List1.Text..joxue.

Print a+Text1.Text..joxue.

End Sub..joxue.

程序运行后,在文本框中输入“789”(见图1),然后双击列表框中的"456",则输出结果为..joxue.

A) 1245JoxueJoxue B) 456789Joxue C) 789456Joxue D) 0..joxue.

(31)为了暂时关闭计时器,应把该计时器的某个属性设置为False ,这个属性是Joxue..joxue.

A) VisibleJoxue B) TimerJoxue C) EnabledJoxue D) Interval..joxue.

(32)为了把一个记录型变量的内容写入文件中指定的位置,所使用的语句的格式为..joxue.

A)Get文件号,记录号,变量名..joxue.

B)Get文件号,变量名,记录号..joxue.

C)Put文件号,变量名,记录号..joxue.

D)Put文件号,记录号,变量名..joxue.

(33)对窗体编写如下事件过程:..joxue.

Private Sub Form _MouseDown(Button As Integer, _..joxue.

Shift As Integer, X As Single Y As Single)..joxue.

If Button =2 Then..joxue.

Print "AAAAA"..joxue.

End If..joxue.

End Sub..joxue.

..joxue.
Private Sub Form _ MouseUp(Button As Integer, _..joxue.

Shift As Integer, X As Single, Y As Single)..joxue.

Print "BBBBB"..joxue.

End Sub..joxue.

程序运行后,如果单击鼠标右键,则输出结果为JoxueJoxue..joxue.

A) AAAAAJoxue B) BBBBBJoxue C) AAAAAJoxue D) BBBBB..joxue.

BBBBBJoxueJoxueJoxueJoxueJoxueJoxueJoxueJoxueJoxueAAAAA..joxue.

(34)为了在运行时能显示窗体左上角的控制框(系统菜单),必须JoxueJoxue..joxue.

A) 把窗体的Contro1Box 属性设置为Fale,其他属性任意..joxue.

B) 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为1-5..joxue.

C) 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值..joxue.

D) 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值..joxue.

(35)对窗体编写如下代码:..joxue.

Option Base 1..joxue.

Private Sub Form_KeyPress(KeyAscii As Integer)..joxue.

a = Array(237,126,87,48,498)..joxue.

m1 = a(1)..joxue.

m2 = 1..joxue.

If KeyAscii = 13 Then..joxue.

For i =2 To 5..joxue.

If a(i)>ml Then..joxue.

m1 =a(j)..joxue.

m2 =i..joxue.

End If..joxue.

Next i..joxue.

End If..joxue.

Print m1..joxue.

Print m2..joxue.

End Sub..joxue.

程序运行后,按回车键,输出结果为..joxue.

A) 48Joxue B) 237JoxueJoxue C) 498JoxueJoxue D) 498..joxue.

4Joxue 1JoxueJoxue 5JoxueJoxue 4..joxue.

二、填空题(每空2分,共30分)..joxue.
请将每空的正确答案写在答题卡[1]—[15]序号的横线上,答在试卷上不得分。..joxue.

(1)设有如下的Visual Basic表达式:..joxue.

5 * x^2 – 3 * x – 2 * Sin(a)/3..joxue.

它相当于代数式【1】 。..joxue.

(2)执行下面的程序段后,s的值为 【2】 。..joxue.

s = 5..joxue.

For i = 2.6 To 4.9 Step 0.6..joxue.

s = s+1..joxue.

Next i..joxue.

(3)表达式Fix(-32.68)+Int(-23.02)的值为【3】 。..joxue.

(4)为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。..joxue.

(5)在窗体上画一个命令按钮,然后编写如下事件过程:..joxue.

Private Sub Command1_Click()..joxue.

a = InputBox("请输入一个整数")..joxue.

b = InputBox("请输入一个整数")..joxue.

Print a + b..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为 【5】。..joxue.

(6) 执行下面的程序段后,b的值为【6】。..joxue.

a=300..joxue.

b=20..joxue.

a=a+b..joxue.

b=a-b..joxue.

a=a-b..joxue.

(7) 以下程序段的输出结果是【7】 。..joxue.

num=0..joxue.

While num<=2..joxue.

num=num+1..joxue.

Print num..joxue.

Wend..joxue.

(8) 在窗体画一个命令按钮,然后编写如下事件过程:..joxue.

Private Sub Command1_Click()..joxue.

Dim a(1 To 10)..joxue.

Dim p(1 To 3)..joxue.

k=5..joxue.

For i=1 To 10..joxue.

a(i)=i..joxue.

Next i..joxue.

For i=1 To 3..joxue.

p(i)=a(i*i)..joxue.

Next i..joxue.

For i=1 To 3..joxue.

k=k+p(i)*2..joxue.

Next i..joxue.

Print k..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,输出结果是【8】 。..joxue.

(9) 下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在【9】、【10】、【11】处将程序补充完整。..joxue.

Option Base 1..joxue.

Private Sub Command1_Click()..joxue.

Dim a..joxue.

a=Array(678,45,324,528,439,387,87,875,273,823)..joxue.

For i=【9】..joxue.

For j=【10】..joxue.

If a(i)【11】 a(j) Then..joxue.

a1=a(i)..joxue.

a(i)=a(j)..joxue.

a(j)=a1..joxue.

End If..joxue.

Next j..joxue.

Next i..joxue.

For i=1 To 10..joxue.

Print a(i)..joxue.

Next i..joxue.

End Sub..joxue.

(10) 在窗体画一个命令按钮,然后编写如下过程:..joxue.

Function fun(ByVal num As Long)As Long..joxue.

Dim k As Long..joxue.

k=1..joxue.

num=Abs(num)..joxue.

Do While num..joxue.

k=k*(num Mod 10)..joxue.

num=num\10..joxue.

Loop..joxue.

fun=k..joxue.

End Function..joxue.

..joxue.
Private Sub Command1_Click()..joxue.

Dim n As Long..joxue.

Dim r As Long..joxue.

n=InputBox("请输入一个数")..joxue.

n=CLng(n)..joxue.

r=fun(n)..joxue.

Print r..joxue.

End Sub..joxue.

程序运行后,单击命令按钮,在输入对话框中输入234,输出结果为【12】 。..joxue.

(11) 如果要将某个菜单项设计为分隔线,则该菜单项的标题应设置为【13】。..joxue.

(12) 假定建立了一个工程,该工程包括两个窗体,其名称(Name 属性)分别为Form1和Form2,启动窗体为Form1。在Form1画一个命令按钮Command1,程序运行后,要求当单击该命令按钮时,Form1窗体消失,显示窗体Form2,请在【14】和【15】处将程序补充完整。..joxue.

Private Sub Command1_Click()..joxue.

【14】 Form1..joxue.

Form2. 【15】..joxue.

End Sub..joxue.

二级笔试样卷Visual Basic语言程序设计答案..joxue.

一、选择题..joxue.

(1)C..joxue.
(2)D..joxue.
(3)B..joxue.
(4)C..joxue.
(5)B..joxue.
..joxue.
(6)C..joxue.
(7)C..joxue.
(8)D..joxue.
(9)B..joxue.
(10)A..joxue.
..joxue.
(11)D..joxue.
(12)A..joxue.
(13)B..joxue.
(14)A..joxue.
(15)C..joxue.
..joxue.
(16)C..joxue.
(17)C..joxue.
(18)B..joxue.
(19)D..joxue.
(20)A..joxue.
..joxue.
(21)D..joxue.
(22)D..joxue.
(23)D..joxue.
(24)B..joxue.
(25)A..joxue.
..joxue.
(26)D..joxue.
(27)A..joxue.
(28)C..joxue.
(29)A..joxue.
(30)B..joxue.
..joxue.
(31)C..joxue.
(32)D..joxue.
(33)A..joxue.
(34)B..joxue.
(35)C..joxue.
..joxue.

二、填空题..joxue.

(1)[1] ..joxue.

(2)[2] 9..joxue.

(3)[3] 56..joxue.

(4)[4] Picturel.Picture = LoadPicture("picfile.jpg")..joxue.

(5)[5] 321456..joxue.

(6)[6] 300..joxue.

(7)[7] 1..joxue.

2..joxue.

3..joxue.

(8)[8] 33..joxue.

(9)[9] a To 9..joxue.

[10]i+1 To 10..joxue.

[11] >=..joxue.

(10) [12] 24..joxue.

(11) [13] -..joxue.

(12) [14] Unload..joxue.

[15] Show..joxue.


本文来源:https://shitiku.jxxyjl.com/dengjikaoshi/1324.html

Copyright @ 2011- 考试题库网 All Rights Reserved. 版权所有

免责声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。

 站长统计