电子文档交易市场
安卓APP | ios版本
电子文档交易市场
安卓APP | ios版本

vb语言程序设计-在线作业-

13页
  • 卖家[上传人]:第***
  • 文档编号:34887031
  • 上传时间:2018-03-03
  • 文档格式:DOCX
  • 文档大小:23.66KB
  • / 13 举报 版权申诉 马上下载
  • 文本预览
  • 下载提示
  • 常见问题
    • 1、VB 语言程序设计_ 在线作业_1 一、单选题 ( 每题 5 分, 共 20 道小题, 总分值 100 分 ) 1. 在窗体上有一个标签框控件,名称为 LblTime;一个计时器 控件,名称为 Timer1,要求每一秒在文本框中显示一次当前 的时间。程序代码为: Private Sub Timer1_ _ ( )LblTime.Caption = Time End Sub 在下划线上应填入的内容是( )。 (5 分) A. Visible B. Timer C. Interval D. Enabled 是否存疑 2. 表达式 4 + 5 6 * 7 / 8 Mod 9 的值是( )。 (5 分) A. 4 B. 6 C. 5 D. 7 是否存疑 3. 语句 Print 5 * 5 5 / 5 的输出结果是( )。 (5 分) A. 25 B. 1 C. 0 D. 5 是否存疑 4. 通过改变单选按钮控件的什么属性值,可以改变单选按钮的 选取状态( )。 (5 分) A. Value B. Appearance C. Style D. Caption是否存疑 5. 设 a = 6,则执行

      2、 x = IIf(a 5, -1, 0)后,x 的值为( )。 (5 分) A. 5 B. 6 C. -1 D. 0 是否存疑 6. 设置复选框或单选按钮标题对齐方式的属性是( )。 (5 分) A. Align B. Alignment C. Sorted D. Value 是否存疑 7. 阅读下面的程序:Function func(n As Integer) As IntegerSum = 0For i = 1 To nSum = Sum + (i + 1) * iNext ifunc = Sum End Function Private Sub Command1_Click()Dim a As Integera = 5s = func(a)Print s End Sub 程序运行后,单击命令按钮,输出结果为( )。 (5 分) A. 15 B. 80 C. 60 D. 70 是否存疑 8. 按文件存取方式和结构来区分有( )。 (5 分) A. 顺序文件和随机文件 B. ASCII 文件和二进制文件 C. 磁盘文件和打印文件 D. 程序文件和数据文件 是否存疑 9. 假定 Pic

      3、ture1 和 Text1 分别为图片框和文本框的名称,下列 不正确的语句是( )。 (5 分) A. Picture1.Print 25 B. Debug.Print 25 C. Print 25 D. Text1.Print 25 是否存疑 10. 在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Command1), 然后编写如下事件过程: Private Sub Command1_Click()x = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1Loop Text1.Text = Str(n)Text2.Text = Str(x) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别 为( )。 (5 分) A. 3 和 50 B. 1 和 0 C. 4 和 168 D. 2 和 72 是否存疑 11. 下列程序段的执行结果为( )。x = 3: y = 4 If x y Then Print y;: Print x (5 分) A. 4 B. 4 3 C

      4、. 3 D. 3 4 是否存疑12. 下面控件中,用于将对象分组的是( )。 (5 分) A. 框架 B. 文本框 C. 复选框 D. 窗体 是否存疑 13. 以下语句的输出结果是( )。 a = Sqr(3) Print Format(a, “$#.#“) (5 分) A. $0001.732 B. $1.732 C. $1732 D. $1.732 是否存疑 14.阅读下面的程序: Function Func(x As Integer, y As Integer) As IntegerDim n As IntegerDo While n = 4x = x + yn = n + 1LoopFunc = x End Function Private Sub Command1_Click() Dim x As Integer, y As Integer, n As Integer, z As Integerx = 1: y = 1For n = 1 To 6z = Func(x, y)Next nPrint z End Sub 程序运行后,单击命令按钮,输出结果是( )。 (5 分) A

      5、. 16 B. 26 C. 21 D. 31 是否存疑 15.一个语句如果在下一行继续写,应在本行尾部加符号( )。 (5 分) A. _ B. ; C. , D. : 是否存疑 16. 使用通用对话框控件时,要在打开的对话框的标题栏上显示 “保存文件”,应把这 4 个汉字赋给的属性变量是() (5 分) A. FileTitle B. DialogTitle C. FontName D. FileName 是否存疑 17. 在窗体上画一个名称为 List1 的列表框,一个名称为 Label1 的标签框。列表框中显示若干城市的名称,当单击列表框中 的某一城市名时,在标签中显示选中城市的名称。下列能正 确实现上述功能的程序是( )。 (5 分) A. Priv ate Sub List 1_Cl ick()Label1.Name = List1.Text End Sub B. Priv ate Sub List 1_Click()Lbel1.Caption = List1.ListIndex End Sub C. Priv ate Sub List 1_Cl ick() Label1.N

      6、ame = List1.ListIndex End Sub D. Priv ate Sub List 1_Cl ick() Label1.Caption = List1.Text End Sub 是否存疑 18. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click()Dim a As Integer, b As Integera = InputBox(“Enter the First integer“)b = InputBox(“Enter the Second integer“)Print b + a End Sub 程序运行后,单击命令按钮,先后在输入对话框中输入 456 和 123,则输出结果是( )。 (5 分) A. 579 B. 123 C. 123456 D. 456 是否存疑 19. 可唯一标志控件数组中某一个控件的属性是( )。 (5 分) A. Caption B. Name C. Index D. TabIndex 是否存疑 20. 为了在按下 Esc 键时执行某个命令按钮的事件过程,需要把 该按钮的哪个属性设为 True( )。 (5 分) A. Value B. Enabled C. Default D. Cancel

      《vb语言程序设计-在线作业-》由会员第***分享,可在线阅读,更多相关《vb语言程序设计-在线作业-》请在金锄头文库上搜索。

      点击阅读更多内容
    最新标签
    监控施工 信息化课堂中的合作学习结业作业七年级语文 发车时刻表 长途客运 入党志愿书填写模板精品 庆祝建党101周年多体裁诗歌朗诵素材汇编10篇唯一微庆祝 智能家居系统本科论文 心得感悟 雁楠中学 20230513224122 2022 公安主题党日 部编版四年级第三单元综合性学习课件 机关事务中心2022年全面依法治区工作总结及来年工作安排 入党积极分子自我推荐 世界水日ppt 关于构建更高水平的全民健身公共服务体系的意见 空气单元分析 哈里德课件 2022年乡村振兴驻村工作计划 空气教材分析 五年级下册科学教材分析 退役军人事务局季度工作总结 集装箱房合同 2021年财务报表 2022年继续教育公需课 2022年公需课 2022年日历每月一张 名词性从句在写作中的应用 局域网技术与局域网组建 施工网格 薪资体系 运维实施方案 硫酸安全技术 柔韧训练 既有居住建筑节能改造技术规程 建筑工地疫情防控 大型工程技术风险 磷酸二氢钾 2022年小学三年级语文下册教学总结例文 少儿美术-小花 2022年环保倡议书模板六篇 2022年监理辞职报告精选 2022年畅想未来记叙文精品 企业信息化建设与管理课程实验指导书范本 草房子读后感-第1篇 小数乘整数教学PPT课件人教版五年级数学上册 2022年教师个人工作计划范本-工作计划 国学小名士经典诵读电视大赛观后感诵读经典传承美德 医疗质量管理制度 2
     
    收藏店铺
    关于金锄头网 - 版权申诉 - 免责声明 - 诚邀英才 - 联系我们
    手机版 | 川公网安备 51140202000112号 | 经营许可证(蜀ICP备13022795号)
    ©2008-2016 by Sichuan Goldhoe Inc. All Rights Reserved.