即将上线，敬请期待
企业微信服务商
  • 首页
  • 解决方案
    场景解决方案
    • 线下考试
      期中/期末考试、集中培训考试
    • 招聘考试
      在线笔试、大型校招、社招
    • 认证考试
      岗位认证、职业资格认证、技能考核认证
    • 考试测验
      学生测验、员工考核、培训考试
    • 新员工培训
      搭建新员工入职培训体系
    • 岗位培训
      岗位学习地图、人才培养
    • 知识店铺
      搭建专属知识店铺、实现知识变现
    • 刷题练习
      题库刷题、每日一练、打卡练习
    • 知识竞赛
      党建活动、安全生产活动、协会竟赛
    • 期末考试
      在线考试考核提高考试管理效率
    • 网课教育
      直播打卡学习等功能让网课教育更灵活
    • 企业年会
      组织企业年会闯关答题赢红包活动
    行业解决方案
    • 学校高校
      大规模在线考试解决方案
    • 制造行业
      员工培训体系解决方案
    • 零售行业
      岗位人才培养解决方案
    • 金融行业
      专业技能培训解决方案
  • 产品
    在线考试
    • 在线考试系统
    • 智能防作弊
    • 智能监考中心
    • 阅卷中心
    • 准考证管理
    • 电子证书
    • 题库系统
    • 统计分析
    线上培训
    • 在线培训系统
    • 学习地图
    • 知识付费
    • 互动社区
    线下培训
    • 线下培训班
    • 报名管理系统
    • 签到系统
    • 问卷系统
    更多功能
    • 趣味化PK答题
    • 互动答题
    • 积分商城
    • 个性化设置
    • 每日一练
    • 打卡学习
    • 练习测评
    • 在线答题系统
    第三方平台
    • 企业微信
    • 钉钉
    • 飞书
  • 题库
  • 价格
  • 案例
  • 支持
    支持
    • 新闻动态
      了解轻速云培训考试系统新闻资讯和公司动态
    • 帮助中心
      全面了解轻速云的使用方法和技巧
    • 快速入门
      快速掌握轻速云组织培训考试的流程
    • 考试客户端下载
      下载严肃考试专用客户端
    • 常见问题
      一些用户常见的使用问题
    • 关于我们
      轻速云科技简介、核心价值观和发展历程
    • 开放平台
      开放平台接口API调用文档说明
免费使用 |
本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！
2011年3月全国计算机等级考试二级VB语言程序设计
1、【 填空题 】
在窗体上有1个名称为Command1的命令按钮，并有如下事件过程和函数过程：
Private Sub Command1_Click()
Dim p As Integer
p = m(1) + m(2) + m(3)
Print p
End Sub
Private Function m(n As Integer) As Integer
Static s As Integer
For k = 1 To n
s = s + 1
Next
m = s
End Function
运行程序，单击命令按钮Commandl后的输出结果为    。 [每空2分]
答案： ["10"]
2、【 填空题 】
在窗体上画1个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim m As Integer, x As Integer
Dim flag As Boolean
flag = False
n = Val(InputBox("请输入任意1个正整数"))
Do While Not flag
a = 2
flag = 
Do While flag And a <= Int(Sqr(n))
If n / a = n \ a Then
flag = False
Else

End If
Loop
If Not flag Then n = n + 1
Loop
Print 
End Sub
上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的最小素数。 请填空完善程序。 [每空2分]
答案： ["True","a=a+1","n"]
3、【 填空题 】
以下程序的功能是：先将随机产生的10个不同的整数放入数组a中，再将这10个数按升序方式输出。请填空。
Private Sub Form_Click()
Dim a(10) As Integer, i As Integer
Randomize
i = 0
Do
num = Int(Rnd * 90) + 10
For j = 1 To i      ‘检查新产生的随机数是否与以前的相同，相同的无效
If num = a(j) Then
Exit For
End If
Next j
If j > i Then
i = i + 1
a(i) =
End If
Loop While i < 10
For i = 1 To 9
For j =  To 10
If a(i) > a(j) Then temp = a(i): a(i) = a(j): 
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub [每空2分]
答案： ["num","i+1","a(j)=temp"]
4、【 填空题 】
窗体上已有名称分别为Dri、，e1、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“*.txt” 的文件显示在Filel中，如果双击Filel中的某个文件，则在Textl中显示该文件的内容。请填空。
Private Sub Form_Load()
File1.Pattern = 
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim s As String * 1
If Right(File1.Path, 1) = "\" Then
f_name = File1.Path + File1.FileName
Else
f_name = File1.Path + "\" + File1.FileName
End If
Open f_name  As #1
Text1.Text = ""
Do While 
s = Input(1, #1)
Text1.Text = Text1.Text + s
Loop
Close #1
End Sub [每空2分]
答案： [""*.txt"","For Input","Not EOF(1)"]
首页 12
共2页，共44个题库
首页 上一页
共2页，共44个题库
轻速云给您提供更好的在线考试系统服务！
推荐
推荐题库
2008年湖南省招警考试全真试题
2013年造价员考试《工程造价基础知识》第五章试题精选07
2013年社会工作者《社会工作综合能力(中级)》模拟试题(1)
陕西省延长县中学2011--2012学年高一下学期期中考试历史试题
职称考试POWERPOINT 2003题库34
2014年注册会计师考试经济法选择题练习十五
全国2010年4月高等教育自学考试基础会计学试题
江苏名校推荐2012年《走向高考》专题复习检测41
众多企事业单位的信赖之选
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