计算机等级考试真题:2010年3月二级VB笔试真题2
欢迎大家继续阅读本系列文章,在本章为各位备考计算机等级考试的同学提供《计算机等级考试真题:2010年3月二级VB笔试真题2》,以下是本章详细内容:
(21)下面正确使用动态数组的是
A)Dim arr() As Integer
…
ReDim arr(3,5)
B)Dim arr() As Integer
…
ReDim arr(50)As String
C)Dim arr()
…
ReDim arr(50) As Integer
D)Dim arr(50) As Integer
…
ReDim arr(20)
(22)下面是求最大公约数的函数的首部
Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer
若要输出8、12、16这3个数的最大公约数,下面正确的语句是
A)Print gcd(8,12),gcd(12,16),gcd(16,8)
B)Print gcd(8,12,16)
C)Print gcd(8),gcd(12),gcd(16)
D)Print gcd(8,gcd(12,16))
(23)有下面的程序段,其功能是按图1所示的规律输出数据
Dim a(3,5) As Integer
For i=1 To 3
For j=1 To 5
A(i,j)=i+j
Print a(i,j);
Next
Next
若要按图2所示的规律继续输出数据,则接在上述程序段后面的程序段应该是
A)For i=1 To 5
For j=1 To 3
Print a(j,i);
Next
Next
B)For i=1 To 3
For j=1 To 5
Print a(j,i);
Next
Next
C)For j=1 To 5
For i=1 To 3
Print a(j,i);
Next
Next
D)For i=1 To 5
For j=1 To 3
Print a(i,j);
Next
Next
www.yxzj8.com
24)窗体上有一个Text1文本框,一个Command1命令按钮,并有以下程序
Private Sub Commandl_Click()
Dim n
If Text1.Text<>"23456" Then
n=n+1
Print "口令输入错误" & n & "次"
End If
End Sub
希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是
A)在Dim n语句的下面添加一句:n=O
B)把Print "口令输入错误" & n & "次"改为Print "口令输入错误" +n+"次"
C)把Print "口令输入错误" & n & "次"改为Print "口令输入错误"&Str(n)&"次"
D)把Dim n改为Static n
(25)要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是
A)Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)
Print X,Y
End Sub
B)Private Sub P1_MouseDown(Button AS Integer,Shift As Integer,X As Single, Y As Single)
Picture.Print X,Y
End Sub
C) Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)
P1.Print X,Y
End Sub
D)Private Sub Form_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)
P1.Print X,Y
End Sub
(26)计算二的近似值的一个公式是。
某人编写下面的程序用此公式计算并输出π的近似值:
Private Sub Comand1_Click()
PI=1
Sign=1
n=20000
For k=3 To n
Sign=-Sign/k
PI=PI+Sign/k
Next k
Print PI*4
End Sub
运行后发现结果为3.22751,显然,程序需要修改。下面修改方案中正确的是
A)把For k=3 To n 改为 For k=1 To n
B)把n=20000改为n=20000000
C)把For k=3 To n改为For k=3 To n Step 2
D)把PI=1改为PI=0
(27)下面程序计算并输出的是
Private Sub Comand1_Click()
a=10
s=0
Do
s=s+a*a*a
a=a-1
Loop Until a<=0
Print s
End Sub
A)13+23+33+…+103的值
B)10!+…+3!+2!+1!的值
C)(1+2+3+…+10)3的值
D)10个103的和
(28)若在窗体模块的声明部分声明了如下自定义类型和数组
Private Type rec
Code As Integer
Caption As String
End Type
Dim arr(5) As rec
则下面的输出语句中正确的是
A)Print arr.Code(2),arr.Caption(2)
B)Print arr.Code,arr.Caption
C)Print arr(2).Code,arr(2).Caption
D)Print Code(2),Caption(2)
(29)设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框
Private Sub Comand1_Click()
CD1.DialogTitle="打开文件"
CD1.InitDir="C:\"
CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.Txt"
CD1.FileName=""
CD1.Action=1
If CD1.FileName=""Then
Print"未打开文件"
Else
Print"要打开文件"& CD1.FileName
End If
End Sub
但实际显示的对话框中列出了C:\下的所有文件和文件夹,“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是
A)把CD1.Action=1改为CD1.Action=2
B)把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”
C)在语句CD1.Action=1的前面添加:CD1.FilterIndex=3
D)把CD1.FileName=""改为CD1.FileName="文本文件"
(30)下面程序运行时,若输入395,则输出结果是
Private Sub Comand1_Click()
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10,x\100,(x Mod 100)\10
End Sub
A)3 9 5
B)5 3 9
C)5 9 3
D)3 5 9
(31)窗体上有List1、List2两个列表框,List1中有若干列表项(见图),并有下面的程序:
Private Sub Comand1_Click()
For k=List1.ListCount-1 To 0 Step -1
If List1.Selected(k) Then
List2.AddItem List1.List(k)
List1.RemoveItem k
End If
Next k
End Sub
程序运行时,按照图示在List1中选中2个列表项,然后单击Commandl命令按钮,则产生的结果是
A)在List2中插入了“外语”、“物理”两项
B)在List1中删除了“外语”、“物理”两项
C)同时产生A)和B)的结果
D)把List1中最后1个列表项删除并插入到List2中
www.yxzj8.com
(32)设工程中有2个窗体: Form1、Form2,Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时,在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此,某人在Form1窗体文件中编写如下程序:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
If Text1.Text="Teacher" Then
Form2.input.visible=True
Else
Form2.input.visible=False
End If
End If
Form1.Hide
Form2.Show
End Sub
程序运行时发现刚输入口令时就隐藏了Form1,显示了Form2,程序需要修改。下面修改方案中正确的是
A)把Form1中Text1文本框及相关程序放到Form2窗体中
B)把Form1.Hide、Form2.Show两行移到2个End If之间
C)把If KeyAscii=13 Then改为 If KeyAscii="Teaeher" Then
D)把2个Form2.input.Visible中的“Form2”删去
(33)某人编写了下面的程序,希望能把Text1文本框中的内容写到out.txt文件中
Private Sub Comand1_Click()
Open "out.txt" For Output As #2
Print "Text1"
Close #2
End Sub
调试时发现没有达到目的,为实现上述目的,应做的修改是
A)把Print "Text1"改为Print #2,Text1
B)把Print "Text1"改为Print Text1
C)把Print "Text1"改为Write "Text1"
D)把所有#2改为#1
www.yxzj8.com
(34)窗体上有一个名为Command1的命令按钮,并有下面的程序:
Private Sub Comand1_Click()
Dim arr(5) As Integer
For k=1 To 5
arr(k)=k
Next k
prog arr()
For k=1 To 5
Print arr(k)
Next k
End Sub
Sub prog(a() As Integer)
n=Ubound(a)
For i=n To 2 step -1
For j=1 To n-1
if a(j)< p>
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时,单击命令按钮后显示的是
A)12345
B)54321
C)01234
D)43210
www.yxzj8.com
(35)下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是
Private Sub Comand1_Click()
Dim count(25) As Integer, ch As String
ch=Ucase(InputBox("请输入字母字符串"))
For k=1 To Len(ch)
n=Asc(Mid(ch,k,1))-Asc("A")
If n>=0 Then
Count(n)=Count(n)+ 1
End If
Next k
m=count(0)
For k=1 To 25
If m< p>
m=count(k)
End If
Next k
Print m
End Sub
A)0
B)1
C)2
D)3
以上就是考试百科为各位备考计算机等级考试的同学提供的《计算机等级考试真题:2010年3月二级VB笔试真题2》,更多精彩内容请大家继续关注考试百科。
如果觉得计算机等级考试真题:2010年3月二级VB笔试真题2不错,可以推荐给好友哦。
- ·上一篇:计算机等级考试真题:2010年3月二级VB笔试真题3
- › 历年计算机等级考试四级一2
- › 历年计算机等级考试四级一3
- › 历年计算机等级考试四级一4
- › 历年计算机等级考试四级一5
- › 历年计算机等级考试四级一6
- › 历年计算机等级考试四级一7
- › 历年计算机等级考试四级一8
- › 历年计算机等级考试四级一9
- › 历年计算机等级考试四级一10
- › 历年计算机等级考试四级一11
- › 历年计算机等级考试四级一12
- › 历年计算机等级考试四级二1
- 在百度中搜索相关文章:计算机等级考试真题:2010年3月二级VB笔试真题2
- 在谷歌中搜索相关文章:计算机等级考试真题:2010年3月二级VB笔试真题2
- 在soso中搜索相关文章:计算机等级考试真题:2010年3月二级VB笔试真题2
- 在搜狗中搜索相关文章:计算机等级考试真题:2010年3月二级VB笔试真题2
- ·2011年3月计算机等级考试二级Access笔试真题
- ·2011年3月计算机等级考试二级Access笔试真题答案
- ·2011年3月计算机等级考试二级Access技术笔试真题(图
- ·2011年3月计算机等级考试二级Access笔试真题分析
- ·2011年3月计算机等级考试二级Access成绩查询
- ·2011年计算机等级考试二级Access基础知识汇总
- ·2011年计算机等级考试二级Access基础知识1
- ·2011年计算机等级考试二级Access基础知识2
- ·2011年计算机等级考试二级Access基础知识3
- ·2011年计算机等级考试二级Access基础知识4
- ·2011年计算机等级考试二级Access基础知识5
- ·2011年计算机等级考试二级Access基础知识6
- ·2011年计算机等级考试二级Access基础知识7
- ·2011年计算机等级考试二级Access基础知识8
- ·2011年计算机等级考试二级Access基础知识9