即将上线，敬请期待
企业微信服务商
  • 首页
  • 解决方案
    场景解决方案
    • 线下考试
      期中/期末考试、集中培训考试
    • 招聘考试
      在线笔试、大型校招、社招
    • 认证考试
      岗位认证、职业资格认证、技能考核认证
    • 考试测验
      学生测验、员工考核、培训考试
    • 新员工培训
      搭建新员工入职培训体系
    • 岗位培训
      岗位学习地图、人才培养
    • 知识店铺
      搭建专属知识店铺、实现知识变现
    • 刷题练习
      题库刷题、每日一练、打卡练习
    • 知识竞赛
      党建活动、安全生产活动、协会竟赛
    • 期末考试
      在线考试考核提高考试管理效率
    • 网课教育
      直播打卡学习等功能让网课教育更灵活
    • 企业年会
      组织企业年会闯关答题赢红包活动
    行业解决方案
    • 学校高校
      大规模在线考试解决方案
    • 制造行业
      员工培训体系解决方案
    • 零售行业
      岗位人才培养解决方案
    • 金融行业
      专业技能培训解决方案
  • 产品
    在线考试
    • 在线考试系统
    • 智能防作弊
    • 智能监考中心
    • 阅卷中心
    • 准考证管理
    • 电子证书
    • 题库系统
    • 统计分析
    线上培训
    • 在线培训系统
    • 学习地图
    • 知识付费
    • 互动社区
    线下培训
    • 线下培训班
    • 报名管理系统
    • 签到系统
    • 问卷系统
    更多功能
    • 趣味化PK答题
    • 互动答题
    • 积分商城
    • 个性化设置
    • 每日一练
    • 打卡学习
    • 练习测评
    • 在线答题系统
    第三方平台
    • 企业微信
    • 钉钉
    • 飞书
  • 题库
  • 价格
  • 案例
  • 支持
    支持
    • 新闻动态
      了解轻速云培训考试系统新闻资讯和公司动态
    • 帮助中心
      全面了解轻速云的使用方法和技巧
    • 快速入门
      快速掌握轻速云组织培训考试的流程
    • 考试客户端下载
      下载严肃考试专用客户端
    • 常见问题
      一些用户常见的使用问题
    • 关于我们
      轻速云科技简介、核心价值观和发展历程
    • 开放平台
      开放平台接口API调用文档说明
免费使用 |
本栏目下题库来源于互联网，轻速云承诺对于用户导入平台的题库是严格保密的，不会在此呈现！
轻速云给您提供更好的在线考试系统服务！
二级VB上机题库34
1、【 简答题】
　 　 [10分]
解析：
  按要求解答即可
2、【 简答题】
 　 　
Dim a(10) As Integer
Private Sub Command1_Click()
    x = a(1)
    y = a(1)
    For i = 1 To 10
        If Option1.Value = True Then
'            If a(i) ?  x Then
'                ?= a(i)
            End If
'        ElseIf a(i) ? Then
'            ?= a(i)
        End If
    Next
    If Option1.Value = True Then
        Label2.Caption = x
    Else
        Label2.Caption = y
    End If
End Sub
Private Sub Form_Load()
    For i = 1 To 10
        a(i) = Int(Rnd * 100)
    Next
End Sub [10分]
解析：
'            If a(i) > x Then或            If a(i) >= x Then
                x = a(i)
'        ElseIf a(i) <= y Then或        ElseIf a(i) < y Then
            y = a(i)
3、【 简答题】
 　 　
Private Sub Text2_Change()
    'If ? = 1 Then
    '    Form1.Text3.PasswordChar = ?
    Else
    '    Text3.PasswordChar = ?
    End If
    'Text3.Text = ?
End Sub [10分]
解析：
    If Check1.Value = 1 Then
        Form1.Text3.PasswordChar = ""
        Text3.PasswordChar = "#"
    Text3.Text = Text2.Text
4、【 简答题】
 　 　
Dim a(7, 7) As Integer
Private Sub Form_Load()
    read
End Sub
Public Sub read()
    Open App.Path & "\Data5.txt" For Input As #1
    Do While Not EOF(1)
        For i = 1 To 7
            For j = 1 To 7
                Input #1, a(i, j)
            Next j
        Next i
    Loop
    Close #1
End Sub
Public Sub Save()
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, lblFirst.Caption, lblSecond.Caption
  Close #1
End Sub
Private Sub Command1_Click()
    Dim Sum As Long
    N = 7
    Counter = 0
    Sum = 0
'===============考生编写程序开始======================
???
    '===============考生编写程序结束======================
    Save
End Sub [10分]
解析：
    For k = 1 To N
        Sum = Sum + a(k, k)
        If a(k, k) / 3 = Int(a(k, k) / 3) Then
            Counter = Counter + 1
        End If
        If k <> N - k + 1 Then
            If a(k, N - k + 1) / 3 = Int(a(k, N - k + 1) / 3) Then
                Counter = Counter + 1
            End If
        End If
    Next
    lblSecond.Caption = Sum
    lblFirst.Caption = Counter
5、【 简答题】
　 　 [10分]
解析：
  按要求解答即可
6、【 简答题】
 　 　
Private Sub Command1_Click()
    Dim x As Integer, k As Integer
    x = Val(Text1(1).Text)
    'For k = 2 To ?
      'x = FindMin(Val(Text1(k).Text), ?)
    Next
    'lblResult.Caption = ?
End Sub
Public Function FindMin(x As Integer, y As Integer)
    'If x ? y Then
        FindMin = y
    Else
        FindMin = x
    End If
End Function [10分]
解析：
    For k = 2 To 5
      x = FindMin(Val(Text1(k).Text), x)
    lblResult.Caption = x
    If x > y Then
7、【 简答题】
 　 　
Private Sub Command1_Click()
    Call MoveAll
End Sub
Public Sub MoveItem(L1 As ListBox, L2 As ListBox)
'    L2.AddItem ?
'    L2.AddItem L1.Text
    L2.AddItem L1.List(L1.ListIndex)
'    L1.RemoveItem ?
    L1.RemoveItem L1.ListIndex
End Sub
Public Sub MoveAll()
'  For i = 0 To  ?
  For i = 0 To List1.ListCount - 1
        List2.AddItem List1.List(i)
  Next
End Sub
Private Sub List1_DblClick()
'    Call MoveItem(?)
    Call MoveItem(List1, List2)
End Sub [10分]
解析：
'L1.Text  或 L1.List(L1.ListIndex)
'L1.ListIndex
'List1.ListCount - 1 或 9
'List1, List2
8、【 简答题】
　 　 [10分]
解析：
Private Sub menu2_Click()
  menu1.Enabled = True
End Sub
1
共1页，共8个题库
共1页，共8个题库
轻速云给您提供更好的在线考试系统服务！
推荐
推荐题库
2011年浙江省金华市中考历史试题
江西省南昌市2012-2013学年高一数学上学期文理分科考试试题新人教A版.
2014年计算机等级《一级MSOffice》标准预测试卷(2)
2012年护士考试实践能力测试（21）
2012年药剂士相关专业知识模拟试题2
2014教师资格考试《中学教育知识与能力》仿真模拟题(1)
语文知识复习 拓展精练 （1）
2012年一级建造师《建筑工程管理与实务》押题密卷(5)
众多企事业单位的信赖之选
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