首页 考试吧论坛 Exam8视线 考试商城 网络课程 模拟考试 考友录 实用文档 求职招聘 论文下载
2011中考 | 2011高考 | 2012考研 | 考研培训 | 在职研 | 自学考试 | 成人高考 | 法律硕士 | MBA考试
MPA考试 | 中科院
四六级 | 职称英语 | 商务英语 | 公共英语 | 托福 | 雅思 | 专四专八 | 口译笔译 | 博思 | GRE GMAT
新概念英语 | 成人英语三级 | 申硕英语 | 攻硕英语 | 职称日语 | 日语学习 | 法语 | 德语 | 韩语
计算机等级考试 | 软件水平考试 | 职称计算机 | 微软认证 | 思科认证 | Oracle认证 | Linux认证
华为认证 | Java认证
公务员 | 报关员 | 银行从业资格 | 证券从业资格 | 期货从业资格 | 司法考试 | 法律顾问 | 导游资格
报检员 | 教师资格 | 社会工作者 | 外销员 | 国际商务师 | 跟单员 | 单证员 | 物流师 | 价格鉴证师
人力资源 | 管理咨询师考试 | 秘书资格 | 心理咨询师考试 | 出版专业资格 | 广告师职业水平
驾驶员 | 网络编辑
卫生资格 | 执业医师 | 执业药师 | 执业护士
会计从业资格考试会计证) | 经济师 | 会计职称 | 注册会计师 | 审计师 | 注册税务师
注册资产评估师 | 高级会计师 | ACCA | 统计师 | 精算师 | 理财规划师 | 国际内审师
一级建造师 | 二级建造师 | 造价工程师 | 造价员 | 咨询工程师 | 监理工程师 | 安全工程师
质量工程师 | 物业管理师 | 招标师 | 结构工程师 | 建筑师 | 房地产估价师 | 土地估价师 | 岩土师
设备监理师 | 房地产经纪人 | 投资项目管理师 | 土地登记代理人 | 环境影响评价师 | 环保工程师
城市规划师 | 公路监理师 | 公路造价师 | 安全评价师 | 电气工程师 | 注册测绘师 | 注册计量师
缤纷校园 | 实用文档 | 英语学习 | 作文大全 | 求职招聘 | 论文下载 | 访谈 | 游戏
您现在的位置: 考试吧(Exam8.com) > 计算机等级考试 > 计算机二级 > VB > 模拟试题 > 正文

2007年9月计算机二级VB模拟试题(3)及答案



二、填空题:共15空,每空2分,共30分。

(1) 栈和队列通常采用的存储结构是 【1】 。
(2) 在程序设计阶段应该采取 【2】 和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,进而用某种程序设计语言写成程序。
(3) 软件结构是以 【3】 为基础而组成的一种控制层次结构。
(4) 数据库系统阶段的数据具有较高独立性,数据独立性包括物理独立性和 【4】 两个含义。
(5) 数据库保护分为:安全性控制 、 【5】 、并发性控制和数据的恢复。
(6) 为了选择多个控件,可以按住 【6】 键,然后单击每个控件。
(7) 浮点数由3部分组成,即符号、 【7】 和尾数。
(8) 下面程序运行后,单击命令按钮,输出的结果是 【8】
Private Sub Command1_Click()
   Dim a%(1 To 4) , b%(2 To 6) , i%, str1#, str2#
   For i=1 To 4
      a(i) =i
   Next i
   For i=2 To 6
      b(i) =i
   Next i
   str1=YAG(A)
   str2=YAG(b)
   Print "str1="; str1; "str2="; str2
End Sub
Function YAG(a() As Integer)
   Dim t#, i%
   t=1
   For i=LBound(A) To UBound(A)
     t=t * a(i)
   Next i
   YAG=t
End Function
(9) 下面程序的作用是用InputBox函数输入一个整数,然后判断能否同时被2,5和7整除,如果能则输出该数及平方值。请填空。
Private Sub Command1_Click()
   Dim numX As Integer
   numX=Val(InputBox("请输入一个整数") )
   If 【9】 Then
      Form1.Print 【10】
   End If
End Sub
(10) 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如: a=5 , n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
   Dim a As Integer, n As Integer, Cout As Integer
   Dim Sn As Long, Tn As Long
   Cout=1
   Sn=0
   Tn=0
   a=InputBox("请输入a的值:")
    【11】
   Do
      Tn=Tn * 10 + a
      Sn=Sn + Tn
      Cout=Cout + 1
     【12】
    Debug.Print a, n, Sn
End Sub
(11) 在窗体上有一个"背景色变换"按钮和一个"结束"按钮。单击"背景色变换"按钮,背景色变为红色;再单击,背景色变为绿色;再单击,背景色变为蓝色;再单击背景色变为红色……如此循环。单击"结束" 按钮,程序运行结束。请填空。
Private Sub cmdChange_Click()
   If Mark=0 Then
       【13】
      Mark=1
      ElseIf 【14】 Then
      Form1.BackColor=vbGreen
      Mark=2
      ElseIf Mark=2 Then
      Form1.BackColor=vbBlue
       【15】
   End If
End Sub
Private Sub cmdExit_Click()
   End
End Sub

填空题参考答案:

1、链式存储或顺序存储
2、自顶而下
3、模块
4、逻辑独立性
5、完整性控制
6、Shift或Ctrl
7、指数
8、strX=24  str2=720
9、numX Mod 2 = 0 And numX Mod 5 = 0 And numX Mod 7 = 0;numX, numX ^ 2
10、(n=InputBox("请输入n的值!")),(Loop While Cout<=n或Loop)
11、Form1.BackColor = vbRed,Mark = 1,Mark = 0

希望与更多计算机等级考试的网友交流,请进入计算机等级考试论坛

更多信息请访问:考试吧计算机等级考试栏目

上一页  1 2 3 4 5 6 7  下一页
文章搜索
版权声明:如果计算机等级考试网所转载内容不慎侵犯了您的权益,请与我们联系800@exam8.com,我们将会及时处理。如转载本计算机等级考试网内容,请注明出处。