试卷详情
-
计算机等级考试二级VISUAL BASIC机试5
-
[单项选择]在窗体上画一个组合框,一个命令按钮和一个文本框,其名称分别为Combo1,Command1和Text1,然后编写如下事件过程:
Private Sub Form_Load( )
Combo1. AddItem "AAAAA"
Combo1. AddItem "BBBBB"
Combo1. AddItem "CCCCC"
Combo1. AddItem "DDDDD"
Combo1. AddItem "EEEEE"
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示组合框的项目“CCCCC”。为了实现该操作,在命令按钮的Click事件过程中应使用的语句为( )。
A. Text1. Text = Combo1. List (2)
B. Text1. Text = Combo1. Text
C. Text1. Text = Combo1. List (3)
D. Text1. Text = Combo1. ListIndex
-
[单项选择]设在工程文件中有一个标准模块,其中定义了如下记录类型:
Type Books
Name As String * 10
TeINum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person. txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是( )。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
-
[单项选择]在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下程序:
Private Sub Form_Load( )
Show
Text1. Text = " "
Text2. Text = " "
Text1. SetFocus
End Sub
Private Sub Text1 Changed
Text2. Text = Mid ( Text1. Text, 6)
End Sub
程序运行后,如果在文本框Text1中输入ChinaBeijing,则在文本框Text2中显示的内容是( )。
A. ChinaBeijing
B. China
C. Beijing D) ChinaB
-
[单项选择]假定有如下语句:
answer $ =MsgBox("String1", , "String2", "String3", 2)
执行该语句后,将显示一个信息框,单击其中的“确定”按钮,则answer $的值为( )。
A. String1
B. String2
C. String3
D. 1
-
[单项选择]软件生命周期是指( )。
A. 软件产品从提出、实现、使用维护到停止使用退役的过程
B. 软件从需求分析、设计、实现到测试完成的过程
C. 软件的开发过程
D. 软件的运行维护过程
-
[单项选择]能够用于标识对象名称的属性是( )。
A. Name
B. Caption
C. Value D) Text
-
[单项选择]以下叙述中正确的是( )。
A. 在属性窗口只能设置窗体的属性
B. 在属性窗口只能设置控件的属性
C. 在属性窗口可以设置窗体和控件的属性
D. 在属性窗口可以设置任何对象的属性
-
[单项选择]设a=2,b=3,c=4,d=5,下列表达式的值是( )。
a > b And c < = d Or 2 * a > c
A. True
B. False
C. -1
D. 1
-
[单项选择]当文本框中的内容发生改变时所触发的事件是( )。
A. KeyUp
B. Change
C. LostFocus D) GotFocus
-
[单项选择]以下说法中正确的是( )。
A. 事件过程也是过程,只能由其他过程调用
B. 事件过程的过程名是由程序设计者命名的
C. 事件过程通常放在标准模块中
D. 事件过程是用来处理由用户操作或系统激发的事件的代码
-
[多项选择]在考生文件夹下有一个工程文件sjt5. vbp,其窗体上有一个名称为Text1的文本框;还有两个名称分别为C1、C2的命令按钮,标题分别为“计算”、“存盘”。有一个函数过程isprime(a)可以在程序中直接调用,其功能是判断参数a是否为素数,如果是素数,则返回True,否则返回False。
请编写适当的事件过程,使得程序运行时,单击“计算”按钮,找出小于18000的最大素数,并显示在Text1中;单击“存盘”按钮,则将Text1中的计算结果存入考生文件央下的out5. txt文件中。
注意:考生不得修改isprime函数过程和控件的属性,必须把计算结果通过“存盘”按钮存入out5. txt文件中,否则将没有成绩。
-
[单项选择]在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:
Dim SaveAll As String
Private Sub Form_Load( )
Show
Text1. Text = " "
Text1. SetFocus
End Sub
Private Sub Command1_Click( )
Text1. Text = LCase(SaveAll) + SaveAll
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll = SaveAll + Chr(KeyAscii)
End Sub
程序运行后,直接用键盘输入:VB,再单击命令按钮,则文本框中显示的内容为( )。
A. vbVB
B. 不显示任何信息
C. VB
D. 出错
-
[单项选择]设有以下程序:
Private Sub Form_Click( )
x =50
For i = 1 To 4
y = InputBox( "请输入一个整数" )
y = Val(y)
lf y Mod 5 = 0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后,单击窗体,在输入对话框中依次输入15、24、35、46,输出结果为( )。
A. 100
B. 50
C. 120
D. 70
-
[单项选择]有如下过程代码:
Sub var_dim( )
Static numa As Integer
Dim numb As Integer
numa = numa + 2
numb = numb + 1
print numa ; numb
End Sub
连续3次调用var_dim过程,第3次调用时的输出是( )。
A. 2 1
B. 2 3
C. 6 1
D. 6 3
-
[单项选择]在标准模块中用Public关键字定义的变量,其作用域为( )。
A. 本模块所有过程 B) 整个工程
B. 所有窗体
C. 所有标准模块
-
[单项选择]下列叙述中正确的是( )。
A. 栈是一种先进先出的线性表
B. 队列是一种后进先出的线性表
C. 栈与队列都是非线性结构
D. 以上三种说法都不对
-
[单项选择]在窗体上画两个标签和一个命令按钮,其名称分别为Label1、Label2和Command1,然后编写如下程序:
Private Sub func(L As Label)
L. Caption = "1234"
End Sub
Private Sub Form_Load( )
Label1. Caption = "ABCDE"
Label2. Caption = 10
End Sub
Private Sub Command1_Click( )
a = Val(Label2. Caption)
Call fune(Label1)
Label2. Caption = a
End Sub
程序运行后,单击命令按钮,则在两个标签中显示的内容分别为( )。
A. ABCD和10
B. 1234和100
C. ABCD和100
D. 1234和10
-
[单项选择]面向对象方法中,继承是指( )。
A. 一组对象所具有的相似性质
B. 一个对象具有另一个对象的性质
C. 各对象之间的共同性质
D. 类之间共享属性和操作的机制
-
[单项选择]数据库设计中反映用户对数据要求的模式是( )。
A. 内模式
B. 概念模式
C. 外模式
D. 设计模式
-
[单项选择]设有如下通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr = " "
strL = Len (xStr)
i = strL / 2
Do While i < = strL
tStr = tStr & Mid(xStr, i + 1, 1)
i=i+1
Loop
Fun = tStr & tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click( )
Dim S1 As String
S1 = "ABCDEF"
Text1. Text = LCase (Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是( )。
A. ABCDEF
B. abcdef
C. defdef D) defabc
-
[单项选择]设有语句:
Open "c: /Test. Dat" For Output As #1
则以下叙述中错误的是( )。
A. 该语句打开C盘根目录下的一个文件Test. Dat,如果该文件不存在则出错
B. 该语句打开C盘根目录下一个名为Test. Dat的文件,如果该文件不存在则创建该文件
C. 该语句打开文件的文件号为1
D. 执行该语句后,就可以通过蹦Print语句向文件Test. Dat中写入信息
-
[单项选择]关于水平滚动条,如下叙述中错误的是( )。
A. 当滚动框的位置改变时,触发Change事件
B. 当拖动滚动条中的滚动框时,触发Scroll事件
C. LargeChange属性是滚动条的最大值
D. Value是滚动条中滚动框的当前值
-
[单项选择]一个工作人员可以使用多台计算机,而一台计算机可被多个人使用,则实体工作人员与实体计算机之间的联系是( )。
A. 一对一
B. 一对多
C. 多对多
D. 多对一
-
[单项选择]在窗体上画一个水平滚印条,其属性值满足Min<Max。程序运行后,如果单击滚动条右端的箭头,则Value属性值( )。
A. 增加一个SmallChange量
B. 减少一个SmallChange量
C. 增加一个LargeChange量
D. 减少一个LargeChange量
-
[单项选择]定时器的Interval属性的值是一个整数,它表示的是( )。
A. 毫秒数
B. 秒数
C. 分钟数
D. 小时数
-
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Command1_Click( )
Dim A1 (4) As Integer, A2 (4) As Integer
For k = 0 To 2
A1 (k+1) = InputBox("请输入一个整数")
A2 (3-k) = A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A. 0
B. 1
C. 2
D. 3
-
[单项选择]在软件开发中,需求分析阶段产生的主要文档是( )。
A. 软件集成测试计划
B. 软件详细设计说明书
C. 用户手册
D. 软件需求规格说明书
-
[单项选择]在窗体上画一个命令按钮(名称为Command1),并编写如下代码:
Function Fun1 (ByVal a As Integer, b As Integer) As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1_Click( )
Dim x As Integer
x=10
Print Fun1 (Fun1 (x, (Fun1 (x, x-1))), x-1)
End Sub
程序运行后,单击命令按钮,输出结果是( )。
A. 10
B. 0
C. 11
D. 21
-
[单项选择]为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
A. 0
B. 1
C. 2
D. 3
-
[单项选择]下列打开“代码窗口”的操作中错误的是( )。
A. 按F4键
B. 单击“工程资源管理器”窗口中的“查看代码”按钮
C. 双击已建立好的控件
D. 执行“视图”菜单中的“代码窗口”命令
-
[单项选择]设a=10,b=5,c=1,执行语句Print a>b>c后,窗体上显示的是( )。
A. True
B. False
C. 1
D. 出错
-
[单项选择]层次型、网状型和关系型数据库划分原则是( )。
A. 记录长度
B. 文件的大小
C. 联系的复杂程度
D. 数据之间的联系方式
-
[单项选择]为了通过传值方式来传送过程参数,在函数声明部分应使用的关键字为( )。
A. Value
B. ByVal
C. ByRef
D. Reference
-
[单项选择]阅读程序:
Private Sub Form_Click( )
a=0
For j=1 To 15
a=a+j Mod 3
Next j
Print a
End Sub
程序运行后,单击窗体,输出结果是( )。
A. 105
B. 1
C. 120
D. 15
-
[单项选择]以下叙述中错误的是( )。
A. Visual Basic是事件驱动型可视化编程工具
B. Visual Basic应用程序不具有明显的开始和结束语句
C. Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性
D. Visual Basic中控件的某些属性只能在运行时设置
-
[单项选择]在窗体上画一个命令按钮,其名称为Command1,然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
Dim a
a = Array(1, 2, 3, 4)
j = 1
For i = 4 To 1 Step - 1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
程序运行后,单击命令按钮,其输出结果是( )。
A. 4321
B. 1234
C. 34
D. 12
-
[单项选择]软件测试的目的是( )。
A. 评估软件可靠性
B. 发现并改正程序中的错误
C. 改正程序中的错误
D. 发现程序中的错误
-
[单项选择]对于列表框控件List1,能够表示当前被选中列表项内容的是( )。
A. List1. Text
B. List1. Index
C. List1. ListIndex D) List1. List
-
[单项选择]在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click( )
Dim a(3, 3)
For m = 1 To 3
For n = 1 To 3
If n = m Or n = 4 - m Then
a(m, n) = m + n
Else
a(m, n) = 0
End If
Print a(m, n);
Next n
Print
Next m
End Sub
运行程序,单击命令按铡,窗体上显示的内容为( )。
A. 2 0 0
B. 2 0 4
C. 2 3 0
D. 2 0 0