计算机二级(VB)41
(总分100,考试时间120分钟)
选择题(每小题2分，共70分) 下列各题四个选项中，有一个是正确的，请选择正确答案。
1. 单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n\10 m=m\10 End Sub
A. 0 8 B. 50 78
C. 4 50 D. 78 50
2. 数据库系统的核心是______。
A. 数据模型 B. 数据库管理系统
王伟中代理广东省长C. 数据库 D. 数据库管理员
3. Sub过程与Function过程最根本的区别是（ ）。
A. 12 12 B. 12 21
C. 21 12 D. 21 21
4. 下列程和序段的执行结果为（ ）。 x=Int(Rnd()+9) Select Case X Case 10 Print "excellent" Case 9 Print "good" Case 8 Print "pass" Case Else Print "fail" End Select
A. 派生类一般都用公有派生
B. 对基类成员的访问必须是无两义性的
C. 赋值兼容规则也适用于多重继承的组合
D. 基类的公有成员在派生类中仍然是公有的
5. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub
Command1_Click() x = -5 If Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 程序运行后，单击命令按钮，窗体上显示的是（ ）。
A. -5 B. 25
C. 1 D. -1
6. 为了使模块尽可能独立，要求______。
A. 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B. 模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C. 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D. 模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
7. 关于货币型数据的说明，正确的是（ ）。
A. 货币型数据有时可以表示成整型数据
B. 货币型数据与浮点型数据完全一样
C. 货币型数据是由数字和小数点组成的字符串
D. 货币型数据是小数点位置固定的实型数
8. 在窗体上画一个命令按钮，然后编写如下事件过程： 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]'
9. 下列描述中正确的是______。
A. 程序就是软件 B. 软件开发不受计算机系统的限制
C. 软件既是逻辑实体，又是物理实体 D. 软件是程序、数据与相关文档的集合
10. 下面语句正确的是（ ）。
A. If x<3 * y And x>y Then y=x^3
B. If x<3 * y And x>y Then y=3x
C. If x<3 * y：x>y Then y=x^3
D. If x<3 * y And x>y Then y=x * * 3
11. 以下叙述中错误的是【 】
A. 打开一个工程文件时,系统自动装入与该工程有关的窗体文件
B. 保存Visual Basic程序时,应分别保存窗体文件及工程文件
C. Visual Basic应用程序只能以解释方式执行
D. 窗体文件包含该窗体及其控件的属性
12. 以下语句的输出结果是( )。 a = Sqr(26) Print Formats ＄(a，"＄####．###")
A. ＄5.099 B. 5.099
C. 5099 D. ＄0005．099
小学生竞选班长演讲稿13. 设有声明语句 Dim b(-1 To 10，2 To 9，20)As Integer 则数组b中全部元素的个数是（ ）。
A. “设计”视图 B. “打印预览”视图
C. “报表预览”视图 D. “版面预览”视图
14. 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性？
A. Value B. Visible
C. Default D. Enabled
15. 下列程序执行的结果为（ ）。 x=25：y=20：z=7 Print "S"；x+z*y；")"
A. !a=b B. a!=b
C. a=：b D. a=b
16. 下列关于栈的描述中错误的是______。
A. 栈是先进后出的线性表 B. 栈只能顺序存储
C. 栈具有记忆作用 D. 对栈的插入与删除操作中，不需要改变栈底指针
17. 有如下程序： Private Sub Command1_Click()Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print op End Sub Private Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为( )。
A. 4 6 B. 6 6
C. 8 8 D. 10 12
18. 下列说法正确的是（ ）。
A. 对象的可见性可设为True或False
B. 标题的属性值不可设为任何文本
C. 属性窗口中属性只能按字母顺序排列
D. 某些属性的值可以跳过不设置，自动设为空值
19. 使“计算机技术”在当前窗体上输出的语句是（ ）。
A. MenuOne．Visible=Tree
B. MenuOne．Visible=False
C. MenuOne．Enabled=True
D. MenuOne．Enabled=False
20. 为了使命令按钮（名称为Command1）右移200，应使用的语句是______。
A. Command1.Move -200
B. Command1.Move 200
2023躲春可以睡觉吗C. Command1.Left = Command1.Left + 200
D. Command1.Left = Command1.Left - 200
21. 以下程序运行后，单击按钮输出结果是( )。 Private Sub Commandl_Click( ) Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub
A. 6 6 12 7 11 11
撩妹子的情话套路B. 8 5 105 11 11
C. 9 6 129 10 15
D. 8 10 105 9 10
22. 下列程序的执行结果为( )。 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，+，-
23. 以下叙述中正确的是【 】
A. 窗体的Name属性指定窗体的名称,用来标识一个窗体
B. 窗体的Name属性值是显示在窗体标题栏中的文本
C. 可以在运行期间改变窗体的Name属性的值
D. 窗体的Name属性值可以为空
王者荣耀神秘商店在哪24. 在窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮,要求在程序执行时,每单击命令按钮一次,文本框向右移动一定距离。下面能够正确实现上述功能的程序是【 】
A. Private Sub Command1_Click() Text1.Left=100 End Sub
B. Private Sub Command1.Click() Text1.Left=Text1l.Left-100 End Sub
C. Private Sub Cornmand1_Click()Text1.Move Text1.Left+100 End Sub
D. Private Sub Command1_Click()Text1.Move Text1.Left End Sub
25. 在窗体上添加标签控件Label1之后，标签控件的默认的名称Name是（ ）。
A. Label B. Label1
C. Text D. Text1
26. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) 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 该事件过程的功能是（ ）。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论