VisualBasic程序设计.docVIP

  1. 1、本文档共5页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
郑州航空工业管理学院 2013 — 2014 学年第2学期 课程考试试卷 课程名称: Visual Basic程序设计 考试形式: 开卷 学号: 姓名: 说明:所有答案请答在规定的答题纸或答题卡上,答在本试卷册上的无效。 一、单项选择题(本题总计10分,每小题2分) 1. 启动Visual Basic后,VB为用户建立的第一个窗体是( B ) A. Form B. Form1 C. 窗体1 D. 窗体 2.窗体文件的扩展名是( D )。 A..bas B..vhp C..exe D..frm 3. 决定窗体标题栏显示内容的属性是( C )。A.???? B.C.??? D. A.age=20 And age=30 B.age=20 Or age=30 C.age=20 And age=30 D.age=20 Or age=30 5. 下面不属于软件开发工具的是( D )。 A.Visual Basic B.Delphi C.Java D.Internet Explorer 二、简答题(本题总计40分) 1. 简述VB语言的特点。(5分) 1.面向对象2.事件驱动3.软件Software集成式开发4.结构化设计语言5.强大数据库访问功能6.支持对象链接和嵌入技术7.网络功能8.多个应用向导9.支持动态交换、动态链接技术..联机帮助功能VB6.0集成开发环境的主窗口包括:菜单栏,工具箱,窗体设计窗口,立即窗口,工具栏,工程资源管理器,属性窗口,窗体布局窗口. VB 为我们提供了较为丰富的数据类型,主要的列表如下: Boolean 逻辑型Byte 字节型Integer 整数型Long 长整型Single 单精度型(实数)Double 双精度型(实数)Object 对象型Currency 货币型String 字符(串)型日期型数据(Date)变体型数据(Variant)字符串运算符(1)当一个表达式中的运算符不止一种时,优先级为:算术运算符字符串运算符关系运算符逻辑运算符。 (2)所有的关系运算符的优先级都相同,按照“左结合”顺序; (3)对于算术运算符而言,顺序:乘幂运算负数运算乘除运算整除运算求余运算加减运算; (4)对于逻辑运算符而言,顺序:非运算与运算或运算异或运算同或运算蕴含运算。 赋值语句1. IF条件语句 2. Select Case语句(情况语句) 3. 条件函数1.For循环语句 2.Do……Loop循环 3. 循环的嵌套 三、程序设计题(本题总计40分,每小题10分) 1. 在某书店购书,100元以下者8折优惠,100元以上者(包括100元)7折优惠。请编写程序,要求输入购书的金额,计算并输出应付金额。通过文本框Text1输入金额,在按钮的click事件中编程实现购书程序,应付款项在Text2中显示。 do case case thisform.text1.value=100.00 thisform.text2.value=round(thisform.text1.value*0.7, value*0.8) end case thisform.refresh 2.编写程序,任意输入一个整数,判定该整数的奇偶性。 Dim i as integer i=text1.text if i mod 2 =0 then msgbox 偶数else msgbox 奇数end if 3. 使用For循环语句计算1 + 3 + 5 + … + 99的值, 结果在Text1中显示。 Dim I As Integer, s As Integer s=0 For i=1 To 99 s=s+i Next i Print s 4.使用Do Loop循环语句输出10~500之间能被6整除的数,结果在Text1中显示。 Private Sub Command1_Click() Dim i As Integer Me.Text1.Text = For i = 10 To 500 If i Mod 3 = 0 Then Me.Text1.Text = Me.Text1.Text i End If

文档评论(0)

185****7617 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档