即将上线，敬请期待
企业微信服务商
  • 首页
  • 解决方案
    场景解决方案
    • 线下考试
      期中/期末考试、集中培训考试
    • 招聘考试
      在线笔试、大型校招、社招
    • 认证考试
      岗位认证、职业资格认证、技能考核认证
    • 考试测验
      学生测验、员工考核、培训考试
    • 新员工培训
      搭建新员工入职培训体系
    • 岗位培训
      岗位学习地图、人才培养
    • 知识店铺
      搭建专属知识店铺、实现知识变现
    • 刷题练习
      题库刷题、每日一练、打卡练习
    • 知识竞赛
      党建活动、安全生产活动、协会竟赛
    • 期末考试
      在线考试考核提高考试管理效率
    • 网课教育
      直播打卡学习等功能让网课教育更灵活
    • 企业年会
      组织企业年会闯关答题赢红包活动
    行业解决方案
    • 学校高校
      大规模在线考试解决方案
    • 制造行业
      员工培训体系解决方案
    • 零售行业
      岗位人才培养解决方案
    • 金融行业
      专业技能培训解决方案
  • 产品
    在线考试
    • 在线考试系统
    • 智能防作弊
    • 智能监考中心
    • 阅卷中心
    • 准考证管理
    • 电子证书
    • 题库系统
    • 统计分析
    线上培训
    • 在线培训系统
    • 学习地图
    • 知识付费
    • 互动社区
    线下培训
    • 线下培训班
    • 报名管理系统
    • 签到系统
    • 问卷系统
    更多功能
    • 趣味化PK答题
    • 互动答题
    • 积分商城
    • 个性化设置
    • 每日一练
    • 打卡学习
    • 练习测评
    • 在线答题系统
    第三方平台
    • 企业微信
    • 钉钉
    • 飞书
  • 题库
  • 价格
  • 案例
  • 支持
    支持
    • 新闻动态
      了解轻速云培训考试系统新闻资讯和公司动态
    • 帮助中心
      全面了解轻速云的使用方法和技巧
    • 快速入门
      快速掌握轻速云组织培训考试的流程
    • 考试客户端下载
      下载严肃考试专用客户端
    • 常见问题
      一些用户常见的使用问题
    • 关于我们
      轻速云科技简介、核心价值观和发展历程
    • 开放平台
      开放平台接口API调用文档说明
免费使用 |
本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！
2010年9月全国计算机等级考试二级VB程序设计
1、【 填空题 】
窗体上有一个名称为Combol的组合框，其初始内容为空，有一名称为Commandl、标题为“添加项目”的命令按钮。程序运行，若单击命令按钮，会将给定数组中的项目添加到组合框中，如图。请填空。
 　 　
Option Base 1
Private Sub Command1_Click()
Dim city As Variant
city =  ("北京", "天津", "上海", "武汉", "重庆", "西宁")
For i =  To UBound(city)
Combo1.AddItem 
Next
End Sub [每空2分]
答案： ["Array","1","city(i)"]
2、【 填空题 】
窗体上有一个名称为Textl的文本框和一个名称为Commandl、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
 　 　
Private Sub Command1_Click()
Dim x As Integer
x = Val(InputBox("输入数据"))
Text1 = Str(fun(x) + fun(x) + fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3 = 0 Then
n = n + n
Else
n = n * n
End If
  = n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是  　 [每空2分]
答案： ["fun","276"]
3、【 填空题 】
窗体上有一个名称为Listl的列表框，一个名称为Picturel的图片框。Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中，如图所示。以下是类型定义及程序，请填空。
 　 　
Private Type Pic
gName As String * 10  '物品名称
picFile As String * 20  '物品图片的图片文件名
End Type
Dim p(4) As Pic, pRec As Pic
Private Sub Form_Load()
Open "Data1.txt" For Random As #1 = Len(pRec)
For i = 0 To 4
Get #1, i + 1, p(i)
List1.AddItem p(i). gName
Next i
Close #1
End Sub
Private Sub List1_DblClick()
For i = 0 To 4
If RTrim(List1.List(i)) = RTrim( ) Then
Picture1.Picture = LoadPicture(p(i). )
Exit For
End If
Next
End Sub [每空2分]
答案： ["Len","p(i).gName","picFile"]
4、【 填空题 】
窗体上有一个名称为CDl的通用对话框。通过菜单编辑器建立如图l所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\2010-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。
 　 　
以下是单击“打开”菜单项的事件过程，请填空。
Dim mnuCounter As Integer
Private Sub mnuOpen_Click()
CD1.ShowOpen
If CD1.FileName <> "" Then
Open  For Input As #1
mnuCounter = mnuCounter + 1
Load fname(mnuCounter)
fname(mnuCounter).Caption = CD1.FileName
fname(mnuCounter).    = True
Close #1
End If
End Sub [每空2分]
答案： ["CD1.FileName","Visible"]
首页 12
共2页，共44个题库
首页 上一页
共2页，共44个题库
轻速云给您提供更好的在线考试系统服务！
推荐
推荐题库
2011高三物理创新模拟卷（ 2 ）
2008年普通高等学校招生全国统一考试（辽宁卷）语文
2004年临床执业医师资格考试试题(3)
2012年招标采购法律法规与政策考前模拟试卷第(三)套
2012年中考每日必练英语完形填空专题练习40
江苏省淮安市涟水金城外国语学校2015-2016学年高一语文下学期期末考试试题苏教版
2012年中级经济师考试《金融专业知识与实务》真题
安徽交通职业技术学院土木系AutoCAD模拟考试题六(进阶级)
众多企事业单位的信赖之选
36万+企事业单位的共同选择
查看更多合作案例
众多企事业单位的信赖之选
开始使用轻速云组织培训考试
四步组织一场考试答题，一键搭建企业培训平台
免费使用 免费使用 预约演示
咨询热线
400-886-8169
周一到周日 8:00-22:00
在线客服
在线客服
点击咨询
©2023 轻速云 苏ICP备16049646号-1 轻速云科技提供专业的在线考试系统、在线培训系统
产品
在线考试系统 在线培训系统 在线答题系统 线下培训班
帮助中心
题库管理 考试管理 练习管理 成员管理
场景解决方案
培训学习 网课教育 期末考试 企业年会 知识竞赛 面试招聘
行业解决方案
教育机构 保险金融 政府部门 建筑建材 医药医疗 餐饮销售
联系我们
客服热线客服热线:400-886-8169 | 周一至周日 8:00-22:00
©2023 轻速云 苏ICP备16049646号-1
轻速云科技提供专业的在线考试系统、在线培训系统
在线咨询 400-886-8169