VB程序设计阶段性作业11.docx

  1. 1、本文档共3页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

中国地质大学(武汉)远程与继续教育学院

中国地质大学(武汉)远程与继续教育学院

VB程序设计课程作业1(共4 次作业)

学习层次:专升本 涉及章节:第1章——第4章

一、判断题

在VisualBasic中,有一些通用的过程和函数作为方法供用户直接调用。

在面向对象的程序设计中,对象是指可以访问的实体。

事件是由VisualBasic预先定义的对象能够识别的动作。

由VisualBasic语言编写的应用程序有解释和编译两种执行方式。

“事件过程”是用来完成事件发生后所要执行的程序代码。

在逻辑运算符Not、Or、And中,运算优先级由高到低依次为Not、Or、And。

用DIM定义数值变量时,该数值变量自动赋初值为0。

函数InputBox的前3个参数分别是输入对话框的提示信息、标题以及默认值。

函数MsgBox的前3个参数分别表示默认按钮、按钮样式以及图标样式。

二、选择题

1.在设计模式双击窗体中的对象后,VisualBasic将显示的窗口是 。A、项目(工程)窗口 B、工具箱 C、代码窗口 D、属性窗口2.窗体的FontName属性的缺省值是 。

A、宋体 B、仿宋体 C、楷体 D、黑体3.将VisualBasic编制的程序保存在磁盘上,至少会产生何种文件 。

A、.doc与.txt B、.com与.exe C、.bat与.frm D、.vbp与.frm4.运算符“\”两边的操作数若类型不同,则先 再运算。

A、取整为Byte类型 B、取整为Integer类型

C、四舍五入为整型 D、四舍五入为Byte类型

Print语句的一个输出表达式为 ,则输出包括日期、时间信息。

A、Date B、Month C、Time D、Now

语句Print5*5的显示结果是 。

A、25 B、5*5 C、5*5 D、出现错误提示7.语句“Form1.PrintTab(10);#”的作用是在窗体当前输出行 。4

A、第10列输出字符“#” B、第9列输出字符“#”

C、第11列输出字符“#” D、输出10个字符“#”

三、填空题

事件是由VisualBasic预先定义的 能够识别的动作。

新建工程时系统会自动将窗体标题设置为 。

长整型变量(Long类型)占用 个字节。

表达式81\7Mod2^2的值是 。

用随机函数产生一个两位整数的VisualBasic表达式是 。

6.#20/5/01#表示 类型常量。

7.设I为大于0的实数,写出大于I的最小整数的表达式 。

四、程序设计题

1.编程,输入圆的半径,计算并输出圆的面积,按下列要求分别实现:

界面设计尽可能美观、大方。

创建一个文本框控件用于输入,单击命令按钮后通过标签控件显示计算结果。

修改界面和程序:单击命令按钮后,调用Inputbox函数输入数据,通过标签控件显示计算结果。

新建一个文件夹,保存工程(工程文件、窗体文件等等,可以用缺省的名称,也可以重命名)在该文件夹中,然后退出VisualBasic。

求计算结果具有15位有效位数,重新打开工程,检查程序并决定是否修改。

参考答案

一、判断题

1.√ 2.√ 3.√ 4.√ 5.√ 6.× 7.√ 8.√ 9.×

二、选择题

1.C 2.A 3.D 4.C 5.D 6.C 7.A

三、填空题1.对象2.Form1

3.4

4.3

5.10+Int(Rnd*90)6.日期

7.Int(x)+1

四、程序设计题

1.界面设计略,过程设计如下:

方法一、用文本框控件输入圆的半径

PrivateSubCommand1_Click()

DimxAsSinglex=Text1.Text

Label1.Caption=x*x*3.141593EndSub

方法二、用InputBox函数输入圆的半径

PrivateSubCommand1_Click()

DimxAsSingle

类型

若要求计算结果具有15位有效位数,声明x为Double

x=InputBox(r=,输入圆的半径)Label1.Caption=x*x*3.141593

EndSub

文档评论(0)

hao187 + 关注
官方认证
内容提供者

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

认证主体武汉豪锦宏商务信息咨询服务有限公司
IP属地上海
统一社会信用代码/组织机构代码
91420100MA4F3KHG8Q

1亿VIP精品文档

相关文档