试卷详情
-
国家计算机二级(VB)93
-
[单项选择]阅读程序:
Option Base 1
Dim arr( ) As Integer
Private Sub Form_Click( )
Dim i As Integer, j As Integer
ReDim arr(3, 2) For i = 1 To 3
For j = 1 To 2
arr(i, j) = i * 2 + j
Next j
Next i
ReDim Preserve arr(3, 4) For j = 3 To 4
arr(3, j) = j + 9
Next j
Print arr(3, 2) + arr(3, 4) End Sub
程序运行后,单击窗体,输入结果为______。
A. 21
B. 13
C. 8
D. 25
-
[单项选择]计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是( )。
A. If x>=y Then z=x:z=y
B. If x>=y Then z=x Else z=y
C. z=y:If x>=y Then z=x
D. If x<=y Then z=y Else z=x
-
[单项选择]在窗体上添加标签控件Label1之后,标签控件的默认的名称Name是( )。
A. 5,689.36
B. 5,689.360
C. 5,689.3
D. 005,689.360
-
[单项选择]用InputBox函数设计的对话框,其功能是( )。
A. 3
B. 4
C. 5
D. 6
-
[单项选择]设有如下的用户定义类型:
Type Student
number As String
name As Suing
age As Integer
End Type
则以下正确引用该类型成员的代码是【 】
-
[填空题]下面程序的功能是统计字符串中“广的个数,请填空。
Sub COU( )
a$="Beijing University of Technology"
Dim n AS Integer
n=Len(a$)
For i=1 To n
b$=【 】
If 【 】 Then x=x+1
Next i
Print "x=";x
End Sub
-
[单项选择]在窗体上画 1 个文本框,其名称为 Text1,然后编写如下过程: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2)
End Sub 程序运行后,把焦点移到文本框中,此时如果敲击"A"键,则输出结果为______。
A. A
B. A
C. A
D. A
-
[单项选择]执行x$=InputBox("请输入x的值")时,在弹出的对话框中输入123,在列表框List1选中1个列表项(数据为456),使有的值使123456的语句是( )。
A. 只能接收用户输入的数据,但不会返回任何信息
B. 能接收用户输入的数据,并能返回用户输入的信息
C. 既能用于接收用户输入的信息,又能用于输出信息
D. 专门用于输出信息
-
[填空题]在关系数据库中,把数据表示成二维表,每一个二维表称为 _________。
-
[填空题]在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运 行后,在文本框中输入一串英文字母(不区分大小写),单击命令按钮,程序可找出未 在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text1中。例如,若在 Text1中输入的是abDfdb,则单击Command1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。
Private Sub Command1_Click( )
Dim str As String, s As String, c As String str = UCase(Text1)
s = ""
c = "Z"
While c >= "A"
If InStr(str, C)= 0 Then s = _________
End If
c = Chr$(Asc( C)_________ ) Wend
If s <> "" Then
Text1 = s
End If
End Sub
-
[单项选择]下列叙述中,正确的是( )。
A. 任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器
B. 只有当代码窗口为当前活动窗口时,才能打开菜单编辑器
C. 只有当某个窗体为当前活动窗体时,才能打开菜单编辑器
D. 任何时候都可以使用“工具”菜单下的“菜单编辑器”命令,打开菜单编辑器
-
[单项选择]单击一次命令结束后,下列程序的执行结果是( )。
Private Sub Commandl_Click( )
s=Sat(1)+Sat(2)+Sat(3)+Sat(4)
Print s
End Sub
Public Function Sat(N As Integer)
Static Sum
For i=1 To N
Sum=Sum+i
Next i
Sat=Sum
End Function
A. 15
B. 25
C. 35
D. 45
-
[单项选择]假定建立了一个名为Command1的命令按钮数组,则以下说法中错误的是______。
A. 数组中每个命令按钮的名称(Name属性)均为Command1
B. 数组中每个命令按钮的标题(Caption属性)都一样
C. 数组中所有命令按钮可以使用同一个事件过程
D. 用名称Command1(下标)可以访问数组中的每个命令按钮
-
[单项选择]下列过程定义语句中,参数不是对象的定义语句是( )。
A. Sub Pro4 (x As Form)
B. Sub Pro4 (y As Control)
C. Sub Pro4 (Forml As Form,Labell As Control)
D. Sub Pro4 (x As Currency)
-
[填空题]设有如下程序:
Private Sub Form_Click( )
Dim n As Integer, s As Integer n = 8
s = 0
Do
s = s + n n = n - 1
Loop While n > 0
Print s
End Sub
以上程序的功能是 _________。程序运行后,单击窗体,输出结果为 _________。
-
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command_Click( )
S=0
Do
s=(s + 1) * (s +2)
Number=Number+1
Loop Until S>=30
Print Number,S
End Sub
程序运行后,输出的结果是( )。
A. 2 3
B. 3 182
C. 5 12
D. 10 20
-
[单项选择]下列说法正确的是( )。
A. 在Visual Basic 中的对话框分为两种类型:预定义对话框和自定义对话框
B. 自定义对话框由用户根据自己需要定义的
C. 预定义对话框是用户在设置程序代码后定义的
D. MssgBox 函数是用户的自定义对话框的函数
-
[单项选择]下列程序段,在运行时最早输出的内容是( )。
a=2
C=1
AAA:
C=C + a
If c<10 Then
Print c
GoTo AAA
Else
Print"10以内的奇数显示完毕。"
End If
A. 3
B. 7
C. 9
D. 6
-
[单项选择]下列程序段的执行结果为( )。
a=1
b=1
For I=1 To 3
f=a+b
a=b
b=f
Print f;
Next I
A. 236
B. 235
C. 234
D. 228
-
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:
Sub BTC(old Copy( ) As Integer,new Copy( ) As Integer)
Dim i AS Integer
For i=LBound(oldCopy( ))To UBound(oldCopy( ))
newCopy(i)=oldCopy(i)
Next i
End Sub
Private Sub Command1 _ Click( )
Dimm(10) As Integer,n(10)As Integer
For i=1 To 10
m(i) =i*i
Next i
Call BTC(m,n)
Print n(5)
End Sub
程序运行后,单击命令按钮输出结果为( )。
A. ’65+13’
B. ["电脑商情"]
C. [[中国]]
D. ’[x=y]’
-
[单项选择]下列程序段执行结果为( )。
x=5
y=-6
If Not x>0 Then x=y-3 Else y=x+3
Print x-y;y-x
A. -3 3
B. 5 -9
C. 3 -3
D. -6 5
-
[单项选择]假定在窗体(名称为Form1)的代码窗口中定义如下记录类型:
Private Type animal
animalName As String*20
aColor As String*10
End Type
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim rec As animal
Open "c:/vbTest.dat" For Random As #1 Len = Len(rec)
rec.animalName = "Cat"
rec.aColor = "White"
Put #1, , rec
Close #1
End Sub
则以下叙述中正确的是( )。
A. 记录类型animal不能在Form1中定义,必须在标准模块中定义
B. 如果文件c:/vbTest.dat不存在,则Open命令执行失败
C. 由于Put命令中没有指明记录号,因此每次都把记录写到文件的末尾
D. 语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
-
[单项选择]在Visual Basic 中按文件的访问方式不同,可将文件分为( )。
A. 11
B. 12
C. 21
D. 22
-
[单项选择]编写如下两个事件过程:
Private Sub Form_KeyDown(KeyCode AS Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时)运行程序,如果按"A"键,则程序输出的结果是( )。
A. Panel
B. Frame
C. Applet
D. Dialog
-
[单项选择]Visual Basic标题栏上显示了应用程序的( )。
A. 子类的访问权限比父类方法的访问权限要高
B. 继承性是面向对象方法的一个重要特征,它使代码可重用,可降低程序的复杂性
C. 子类方法不能产生比父类方法更多的异常
D. 重写是指子类的成员方法与父类的成员方法名字相同,参数列表相同,方法体不同
-
[单项选择]在Visual Basic工程中,可以作为“启动对象”的程序是______。
A. 任何窗体或标准模块
B. 任何窗体或过程
C. Sub Main过程或其他任何模块
D. Sub Main过程或任何窗体
-
[单项选择]下列程序的执行结果为( )。
a=10
b=20
If a < > b Then a=a + b Else b=b-a
Print a,b
A. .,.* ,- > * ,::,:
B. ++,--,new,delete,==
C. sizeof,new,delete,++,--
D. sizeof,new,delete,+,-
-
[填空题]有下面一个程序段,从文本框中输入数据,如果该数据满足条件,除以4余1,除以5余2则输出,否则,将焦点定位在文本框中,并清除文本框的内容。
Private Sub Command1_Click( )
x=Val(Text1.Text)
If【 】 Then
Print x
Else
Text1.Text=""
【 】
End If
End Sub
-
[单项选择]语句Print 5/4*6/5 Mod 2的输出结果是( )。
A. 0
B. 1
C. 2
D. 3
-
[单项选择]设已经在菜单编辑器中设计了窗体的快捷菜单,其顶级菜单为Bt,取消其“可见”属性,运行时,在以下事件过程中,可以使快捷菜单相应鼠标右键菜单的是( )。
-
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim I,Num
Randomize
Do
ForI=1 To 1000
Num=Int(Rnd*100)
Print Num;
SelectCase Num
Case 12
Exit For
Case 58
Exit Do
Case 65,68,92
End
End Select
Next I
Loop
End Sub
上述事件过程执行后,下列描述中正确的是
A. Do循环执行的次数为1000次
B. 在For循环中产生的随机数小于或等于100
C. 当所产生的随机数为12时结束所有循环
D. 当所产生的随机数为65、68或92时窗体关闭、程序结束
-
[单项选择]一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是
A. 12345ABCDE
B. EDCBA54321
C. ABCDEl2345
D. 5432lEDCBA
-
[单项选择]设有如下通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
strL=Len(xStr)
Do While i<=strL/2
tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)
i=i+1
Loop
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click( )
Dim S1 As String
Textl.Text=UCase(Fun(S1))
程序运行后,单击命令按钮,则Textl中显示的是【 】
A. ABCDEF
B. abcdef
C. AFBECD
D. DEFABC
-
[填空题]在窗体上加上一个文本框控件TextBox,画一个命令按钮,当单击命令按钮的时候将显示“保存文件”对话框,设置该对话框可用于保存文本文件(默认)和Word文档,然后在文本框控件中显示保存的文件名,请填空。
Private Sub Command1_Click( )
CommonDialog1.Filter=【 】
CommonDialog1.Filter=【 】
CommonDialog1.ShowSave
TextBox.Text=【 】
End Sub
-
[单项选择]声明一个变量为局部变量应该用( )。
A. Global
B. Private
C. Static
D. Public
-
[单项选择]阅读下面的程序段:
For a=1 To 2
For b=1 To a
For C=b To 2
I=I + 1
Next
Next
Next
Print I
执行上面的三重循环后,I的值为( )。
A. 15
B. 16
C. 17
D. 18
-
[单项选择]单击命令按钮时,下列程序代码的运行结果为( )。
Private Sub Command1_Click( )
print MyFunc(20,18)
End Sub
Public Function MyFunc (m As Integer,n As Integer)As Integer
Do While m <>n
Do While m > n:m=m - n:Loop
Do While m < n:n=n - m:Loop
Loop
MyFunc=m
End FunCtion
A. 0
B. 2
C. 4
D. 6
-
[填空题]在Visual Basic的立即窗口内输入以下语句
X=65
Chr$(X)
在窗口中显示的结果是【 】。
-
[填空题]设某循环队列的容量为50,头指针front=5(指向队头元素的前一位置),尾指针rear=29(指向队尾元素),则该循环队列中共有【 】个元素。
-
[单项选择]如果要将文本框作为密码框使用时,应设置的属性为( )。
A. DELETE TABLE<数据表名>
B. REMOVE TABLE<数据表名>
C. DROP TABLE<数据表名>
D. RELEASE TABLE<数据表名>
-
[单项选择]下列程序段的执行结果为( )。
a=95
If a>60 Then I=l
If a>70 Then l=2
If a>80 Then I=3
If a>90 Then I=4
Print"I=":I
A. I=1
B. I=2
C. I=3
D. I=4
-
[填空题]设有以下函数过程:
Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0
For k = m To 1 Step -2
sum = sum + k
Next k
fun = sum
End Function
若在程序中用语句s=fun(10)调用此函数,则s的值为 _________。
-
[填空题]下列语句的输出结果是【 】。
Print Format$(1258.6,"000,000.00")