VB练习作业
一、单项选择题
1.以下4种描述中，错误的是____。
A. 常量在程序执行期间其值不会发生改变
B. 根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量
C. 符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质
D. 符号常量的使用和变量的使用没有差别
2.下面合法的常量是_______。
A. 1/2
B. 'abcd'
C. 1.2*5
D. False
3.Visual Basic中可以用类型说明符来标识变量的类型，其中表示货币型的是_______。
A. %
B. #
C. @
D. $
4.下面______是不合法的整常数。
A.100
B.%O100
C.&H100
D.&O100
5.以下关键字中，不能定义变量的是_______。
A. Declare
B. Dim
C. Public
D. Private
6.表达式16/4-2^5*8/4 MOD 5\2的值为______。
A. 14
B. 4
C. 20
D. 2
7.用十六进制表示Visual Basic的整型常数时，前面要加上的符号是___ ___。
A. &H
B. &O
C. H
D. O
8.Visual Basic日期型常量的定界符是_______。
A. ##
B.‘’
C. ()
D. {}
9.数学关系式3≤x<10表示成正确的VB表达式为_______。
A. 3<=x<10
B. 3<=x AND x<10
C. x>=3 OR x<10
D. 3<=x AND <10
10.下面正确的赋值语句是_______。
A. x+y=30
B. pi*r*r=y
C. y=x+30
D. x=3y
11. \，/，Mod，*四个算术运算符中，优先级别最低的是_______。
A. \
B. /
C. Mod
D. *
12.表达式ASC("F")的类型是_______。
A. 字符表达式
B. 关系表达式
C. 算术表达式
D. 逻辑表达式
13.下面语句中有非法调用的是_______。
A. x=Sgn(-1)
B. x=Fix(-1)
C. x=Sqr(-1)
D. x$=Chr$(65)
14.表达式23/5.8、23\5.8、23 Mod 5.8的运算结果分别是_______。
A. 3、3.9655、3
B. 3.9655、3、5
C. 4、4、5
D. 3.9655、4、3
15.如果变量a=2、b="abc"、c="acd"、d=5，则表达式a
A. True
B. False
C. Yes
D. No
16.下面不正确的赋值语句是_______。
A. x=30-y
B. y=r.r
C. y=x+30
D. y=x\3
17.为了给x,y,z三个变量赋初值1，下面正确的赋值语句是_______。
A. x=1∶y=1∶z=1
B. x=1,y=1,z=1
C. x=y=z=1
D. xyz=1
18.以下4类运算符，优先级最低的是___D____。
A. 算术运算符
B. 字符运算符
C. 关系运算符
D. 逻辑运算符
19.如果在立即窗口中依次执行下列命令：
a=8
b=9
Print a>b
则输出的结果是_______。
A. 1
B. 0
C. False
D. True
20.已知a="12345678"，则表达式Left(a, 4) + Mid(a, 4, 2)的值是_______。
A. 123456
B. "123445"
C. 123445
D. 1279
21.在Visual Basic中，y1+z2=a*Sin(b*x+c)+k表达式的类型是_______。
A. 算术表达式
B. 关系表达式
C. 逻辑表达式
D. 字符表达式
22.下列表达式的值为真的是______。
A. "A">"a"
B. "9">"a"
C. "That">"Thank"
D. 12>12.1
23.在下列算术运算符中，运算等级最高的是_______。
A. 取负（-）
B. 乘、除（*，/）
C. 取模（MOD）
D. 加、减（+，-）
24.如果变量a=2,b=3,c=4,d=5，表达式NOT a>b AND NOT d<>c的值是_______。
A. True
B. False
C. 1
D. 0
25.在一个有（1）逻辑运算、（2）算术运算、（3）关系运算混合在一起的表达式（无括号）中，其运算顺序为______。
A. （1）（2）（3）
B. （3）（2）（1）
C. （2）（3）（1）
D. （2）（1）（3）
26.表达式A%+B&+C!-D#的结果为_______。
A. 整型
B. 长整型
C. 单精度型
D. 双精度型
27.下列符号中，可以用作VB变量名的是_______。
A. c%ab
B. 3sum
C. sum3
D. Len
28.在下列表达式中，正确的日期型常量是_______。
A. "12/04/01"
B. 12-04-2001
C. {12/04/01}
D. #12/04/01#
29.条件:1 A. X>1 AND X<=2 OR X>=10 AND X<15 B. X>1 OR X<=2 OR X>=10 OR X<15 C. X>1 OR X<=2 AND X>=10 OR X<15 D. X>1 AND X<=2 AND X>=10 AND X<15 30.设有如下的记录类型 Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是___B____。 A. https://www.wendangku.net/doc/eb2471434.html,="张红" B. Dim s As Student https://www.wendangku.net/doc/eb2471434.html,="张红" C. Dim s As Type Student D. Dim s As Type https://www.wendangku.net/doc/eb2471434.html,="张红" https://www.wendangku.net/doc/eb2471434.html,="张红" 题1.若要使命令按钮不可操作，要对下列哪个属性进行设置 A、Enabled B、Visible C、BackColor D、Caption 标准答案:A 题2.打开文件的Open语句中，如果省略“For模式”，则打开的文件的存取方式是 A、顺序存取方式 B、顺序文件方式 C、随机存取方式 D、二进制方式 标准答案:C 题3.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过下列哪一个属性来控制 A、Appearance属性 B、Style属性 C、DisabledPicture属性 D、DownPicture属性 标准答案:B 题4.系统启动时自动执行下列哪一个事件过程 A、Load B、Click C、UnLoad D、GotFocus 标准答案:A 题5.VB工程中窗体文件的扩展名是 A、.bas B、.frm C、.vbg D、vbp 标准答案:B 题6.如下数组声明语句，正确的是 A、Dim x[1,4] As integer B、Dim x(1, 1 to 4) As integer C、Dim x([1,n] As integer D、Dim x(1 4) As integer 标准答案:B 题7.如下VB的特点中错误的是 A、简单易学 B、界面友好 C、不可编译 D、集成化环境 标准答案:C 题8.从随机文件读出数据使用的语句是 A、Input # 文件号，变量名 B、Get # 文件号，变量名 C、Put # 文件号，变量名 D、Write # 文件号，变量名 标准答案:B 题9.为了防止用户随意将光标置于控件之上，应 A、将控件的TabIndex属性设置为0 B、将控件的Tapstop属性设置为True C、将控件的TapStop属性设置为False D、将控件的Enabled属性设置为False 标准答案:D 题10.如果希望在InputBox的提示项中输出多行内容时，需要使用下列哪个参数实现 A、Chr(13)+Chr(10) B、Chr(13) C、Chr(10) D、Chr(10)+Chr(13) 标准答案:A 软件技术实验报告 学号2009300186 姓名赵佶男班级010109卓 越 大作业机房管理系统 课题基本目标要求： 1）可在系统中由系统管理员按班级指定时间进行上机课时安排，安排上机不得与其他已安排机时冲突。 2）在指定上机课时段，除了上机班级学生可以登录外，其余无关学生一律不得登录，除非系统管理员授权。预定上机时间结束时，自动 提前5分钟提示，待真正结束时即自动锁屏。 3）除上机课时安排以外，可以在机动时间段接受学生凭个人一卡通上机，且上机实施计时自动收费（即扣除学生一卡通上因上机而应缴 纳的上机服务费） 4）在接受零散学生付费上机时，可自动为其分配空闲机器并授权使用，在分配机器时应考虑机器的使用情况分布均匀，即每次分配机器是 前一时段未曾使用的机器，当学生一卡通上的余额，不足以支付1 小时上机服务费时，应提示其下机充值，并实施锁屏。 实验步骤： 首先，根据大作业的要求，我建立了机器表，流水表，学生基本情况表，上课表，以及一卡通表五个数据库表。机器表用来按照使用情况，选择空闲时间最长的机器。流水表用来记录现在机器以及人员使用的情况，是个 动态表，用来方便的取用和修改数据。学生基本情况表用来存放学生的学号，密码，班级等基本情况，以实现学生上课登录和自由登录。上课表存放各个班级的上课下课时间，以实现排课功能。一卡通表记录了每个学生一卡通内的金额，用来帮助实现上下机的扣费，以及余额不够支付一小时时间情况下得强制下机。 然后，我进行了窗体的设计。经过筛选优化，我设计了五个窗体，分别是主选择窗体，注册窗体，登录窗体，上课安排窗体，实时计费和下机窗体。 主选择窗体可以用来进行上课登录、学生自由登录、管理员登录和机器的推荐。注册窗体是用来进行学生登录密码的注册。登录窗体限制学生的学号和密码必须匹配才能登录。上课安排窗体可以输入班号、上下课时间并选择星期值。实时计费和下机窗体用来扣费并方便学生随时下机。 接下来，要按照要求进行代码的编写。 A）可在系统中由系统管理员按班级指定时间进行上机课时安排，安排上机不得与其他已安排机时冲突。 此功能我在排课窗体下用select选择出全体班级的上下课以及星期值，并将管理员希望的上下课时间转换为时间类型数值，进行循环比较，用do until 语句逐个比较，使得上下课时间点都不得在其他班级的上课时间段内。如果时间不冲突，就实施修改数据库的功能，并更新保存。 B）在指定上机课时段，除了上机班级学生可以登录外，其余无关学生一律不得登录，除非系统管理员授权。预定上机时间结束时，自动提前5分钟提示，待真正结束时即自动锁屏。 在主选择窗体内有上课登录按钮和自由登录按钮。点击上课登录，输入学 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。 九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic?序开发的特点是面向对象的事件驱动。（J 2、Print_Text 是一个不合法的变量名。（为 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（翌 4、设置字体大小应使用Font属性（为 5、Sub过程可以实现嵌套调用（寸 6、IIF函数中的三个参数都不能省略。（寸 7、块结构条件语句以End If结束，而单行结构条件语句没有End旧（明 8、当终值小于初值时，步长为负数。（5 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（寸 10、关于数组的引用，在程序中，凡是简单变量可以出现的地方都可以出现数组元素的引用（/） 二、单项选择题 1. Print Format （123, ” ###说执行之后的结果为 A）# 123B） 123C） 123# D） # # # # 【答案】B 2. 下面可以表示注释语句开头的为 A）R e B R C Rem。dim 【答案】C 3. 下列选项中窗体载入事件为 A) Load 事件B) Click事件C) DblClick事件D) Unload 事件 【答案】A 4. Timer控件可以使用下列哪种事件 A) Click事件B) Timer 事件C) Dblclick 事件D) Change事件 【答案】B 5. 在InputBox函数中哪一个参数是必须的 A) Prompt B) Buttons C) Title D) Context 【答案】A 6. 以下叙述中错误的是： A)如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 【答案】C 乙要填加一个标准模块，可使用“ 单中的添加模块”命令。 A)文件B)视图C)工程D)工具 【答案】C 8 .在块结构条件语句If-Then / Endif中 (A) 必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误 题目：班级信息系统 学院: 土木与交通工程学院姓名：苏华立 学号：3112003660 班级：12 路桥一班 指导老师：张伯泉 成绩： 日期：2014年1月 注意：封面如上，打印单面。正文打印为双面，以下正文字体为5号宋体，字符间距值为0.5，大标题加粗，详见下面模板 一、选题过程 1、在学校里，有学校的教务系统，信息管理系统等，那么在一个班级里是否可以有一个小程序供全班同学使用，如查询信息，反馈班级的问题，于是我便想设计一个袖珍版的12路桥一班信息系统。 2、作为班级的学生干部，若能建立一个高效的信息系统，既可以提高办事效率，又可以充分利用我们书本里所学的知识，把知识转化成为实用的东西。 二、总体目标 1、系统具有多个窗体、菜单等人机交互界面。 2、可以实现多种身份验证。 3、开发系统所用的知识能够较全面地覆盖所学内容，熟悉运用和掌握所学的V B知识。 4、系统采用数据库实现数据的存储与管理。 三、系统结构及其功能 1、设计结构 根据系统总体目标该系统由欢迎界面，登录界面，登陆界面分为学生登录与管理员登录，学生登录进入主菜单。主菜单的功能项有信息查询，问题反馈，图片风采。管理员登录的界面主要查看问题的反馈。其结构如图1所示。 欢迎界面 登录界面 学生登录管理员 主菜单 信息查询问题反馈图片风采查看问题反馈打开文件对话框 弹出菜单数据库建立文件 图1系统结构 2、功能介绍 （1）用户登陆：用户通过选择单选框的登录身份进入不同的页面，学生进入主菜单，可以进行信息查询，问题反馈，浏览图片风采，管理员直接进入查看学生反馈的问题。 （2）信息查询：学生可以查看全班各位同学的信息，如电话号码，宿舍号等信息，也可以输入学号直接从数据库中查找需要的信息。 （3）问题反馈：学生输入的问题会被保存进一个顺序文件中，方便管理员进行查看。 （4）图片风采：学生可以看班级的图片，同时弹出菜单，回到主页面。 （5）查看问题反馈：管理员可以通过对话框打开存了学生反映的问题，了解学生的情况。 四、界面设计 1.欢迎界面 该界面主要实现的是欢迎学生登录或管理员登录，其设计结果如图2所示，界面主要控件及其属性设计如表2所示。 图2欢迎界面 表2欢迎界面主要控件设置 控件名称标题字体 Fo r m1w e l c o me您好，请进入主 宋体五号 菜单界面 VB程序设计大作业报告 班级：机械11102班学号：201103112 姓名：孙文斌日期：2013.05.13 一、设计题目：《抓交通肇事犯》 一辆卡车违反了交通规则，撞人后逃逸。现场有三人目击事件，但都没有记住车号，记住车号的一些特征。甲说：车号的前两位数字是相同的；乙说：车号的后两位数字 是相同的，但与前两位不同；丙是位数学家，他说：四位的车号正好是一个整数的平 方。现在请你根据以上线索帮助警方找出车号以便尽快破案 二、问题分析与算法设计： 按照题目的要求造出一个前两位数相同、后两位数相同且相互间又不同的整数，然后判断该整数是否是另一个整数的平方。 假设这个四位数的前两位数字都是i，后两位数字都是j，则这个可能的四位数k为：k = 1000 * i + 100 * i + 10 * j + j 其中，i和j都在0~9之间变化。现在还需使k满足是一个整数c的平方，由于k是一个四位数，所以，m值不可能小于31和大于100，因此，可从31开始试验到100，看是否满足k == c*c，若不满足，则c加1再试，直到找到满足这些限制条件的k为止结束测试。 三、界面与结果截图： 界面截图： 结果截图： 四、结果分析与总结： 通过结果截图我们知道最后得到的车牌号为7744，首先检验甲叙述的前两位数字相同都为7，再检验乙叙述的车牌号后两位相同都为4且不与前两位相同，最后检验丙叙述的该车牌号为88的平方，所以综合上述检验分析结果满足题意。 通过此次VB程序设计从理论到实践，我学到很多很多的的东西，让我对vb程序编写有了一个初步认识。从最初的拿到题目无从下手，接着网上查阅些材料以及反复看书本上的例题使我对这个程序的编写有了一个大致轮廓，接着在草稿纸上写下程序代码，然后到计算机上反复调试，最终才算完成。在这反复调试的过程中我明白了时间是检验真理的唯一标准。这对我今后的学习中都会起到非常重要的作用。最后衷心感谢李宁老师对我vb课程的指导，祝您身体健康，工作愉快。 附录程序源代码： Private Sub command1_click() Dim i%, j%, k%, c% For i = 0 To 9 For j = 0 To 9 If i <> j Then k = i * 1000 + i * 100 + j * 10 + j For c = 31 To 100 If (c * c) = k Then Picture1.Print k End If Next c End If Next j Next i End Sub 【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24 考号：姓名：剩余时间：99:42 保存交卷退出帮助 A B C D A B C D A B C D A B C D A B C D A B C D A B C D A 命令 B 命令 C 命令 D 命令 A B C D A B C D A B C D A B C D A B C D A B C D A B C D A 模块文件 B 件的属性 C 源文件 D 包含多个工程文件及属于该工程的其他文件 A 该窗体文件并没有被删除 B 窗体文件被删除 C 程仍然包含这个窗体 D A B C D A B C D A B C D A B C D A可以实现交换两个变量值，而S2不能 B 个变量值，而S1不能 C 现交换两个变量值 D 现交换两个变量值 A B C D A B C D A 过程调用后均不保存值 B 有变量都是Static型的变量 C 所有变量都是Private型的变量 D 所有变量都是非全局Public A 用Dim语句或Static语句声明的变量 B 明它的过程 C Static语句声明的 D 程执行完毕后就被释放了 A B C D A B C D A B C D A B C D 声明段 A B C D A B C D A B C D A B C D A B C D A B C D A 同 B Sub过程不可以 C 值，而Function过程能通过过程名返回值 D 或直接使用过程名调用，而 A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B 声明Public类型的变量来传递数据 C 大化、最小化或正常（保持设计时大小）等三种状态 D A 菜单 B 过程代码都放在窗体文件中 C 名必须相同 D 是设计阶段时显示的位置 VB实验作业参考答案 作业一窗体设计 (2) 作业二计算器 (4) 作业三人民币张数求电阻值 (6) 作业四（必做）建康城 (8) 作业五阶乘累加 (9) 作业六（必做）九九乘法表 (11) 作业七（必做）I NPUT B OX 函数输入12个整数，赋值给3×4的二维数组 (12) 作业八递归函数计算两个正整数的最大公约数，递归公式为 (13) 作业九（必做）家电提货单 (15) 作业十统计某个文本文件中各英文字母出现的次数，不区分大小写，并将结果打印到窗体上。 (17) 作业十一设计一个程序，用于打开1个windows应用程序，如打开“记事本”“画图”、“计算器”等。 (19) 作业十二通过菜单选择，对字体、字号进行设置 (21) 作业一 1.简答题(略) 2.编程题： 1)单击窗体后在窗体上显示“您好！×××同学”。 要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。 答案参照课本P27的例1-6。 2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写： （1）用代码初始化各控件（提示：可写在Form_Load事件中）。 （2）文本框控件随窗体的大小而调整大小的代码，以及调整命令按钮位置始终位于窗体右下角的代码（提示：调整大小位置的代码写在Form_Resize事件中）。 （3）结束程序运行的代码（命令按钮）。 程序代码： Private Sub Form_Load() Text1.Left = 0 Text1.Top = 0 Text1.Width = Form1.Width / 2 Text1.Height = Form1.Height / 2 Command1.Left = Form1.ScaleWidth - Command1.Width 大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10) 1、用IF语句设计一个程序，输入一个年号，程序能判断此年为平年或闰年。 程序如下： Private Sub Command1_Click() Dim year1, year As Integer year1 = Text1.Text If year1 = "" Then Exit Sub Else year = Int(Abs(year1)) End If If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then MsgBox Str(year) & "年是闰年" Else MsgBox Str(year) & "年是平年" End If End Sub Private Sub Command2_Click() End End Sub 2用select语句设计一个程序，输入一个月份，能判断这个月有多少天。 程序如下： Private Sub Command1_Click() If Text1.Text <> "" Then score = Val(Text1.Text) Select Case score Case 1, 3, 5, 7, 8, 10, 12 Print "这个月有31天" Case 4, 6, 9, 11 Print "这个月有30天" Case 2 Print "这个月若是平年有28天，若是闰年有29天" End Select End If End Sub Private Sub Command2_Click() End End Sub Private Sub Label1_Click() End Sub 3、设计一个程序，当单击按钮时窗体的位置会向右移动200缇，且向下移动200缇，并在窗体上显示当前“窗体左上角在屏幕的坐标为：”实现并在窗体上显示“单击窗体恢复原位”，当单击窗体时，清除窗体上已输出的内容，且恢复到窗体的初始位置，并显示：“窗体左上角在屏幕的坐标为：”，如下图： 软件技术实验报告 班级学号姓名 大作业机房管理系统 实验内容： 本次大作业的主要内容就是运用VB和数据库做一个机房管理系统，是前七次实验所有内容的综合运用，最终的系统要满足以下要求： 1）可在系统中由系统管理员对学生上机进行安排并可在管理员处查询学生基本信息。 2）学生凭个人一卡通上机时，上机实施计时自动收费（即扣除学生一卡通上因上机而应缴纳的上机服务费），并在学生一卡通余额不足时进行 提醒。 3）当管理员或学生有人员变动时可以直接在系统中进行必要的修改。 创新亮点：增加了管理员人事变动资料管理功能，使得该系统更加符合实际情况。 设计思路： 首先，根据大作业的要求，我建立了三个数据库表。管理员基本信息表用来存放管理员的账号和密码；计算机基本情况表用来记录现在机器以及人员使用的情况，是个动态表，用来方便的取用和修改数据，并按照使用情况，选择空闲时间最长的机器。学生基本情况表用来存放学生的学号，密码，班级，一卡通余额等基本情况，以实现学生登陆上机，同时记 录了每个学生一卡通内的金额，用来帮助实现上下机的扣费，以及余额不够支付一定时间情况下得强制下机的情况。 窗体的设计则是结合数据库，还有要求的功能进行设计安排，首先是学生和管理员的两者的登录界面。学生登录后可看到自己的一卡通账号和余额情况，并可以在需要下机时简便操作。管理员登录之后要实现各种管理及查询功能，首先设计一个窗体是过渡作用的，利用菜单编辑器添加所需的功能名称，单击就可以实现多种功能。学生登录设有计时计费系统，余额等信息可以清晰显示。 完成情况与体会： 本次大作业，从最初的构想，到在纸上画出思路图，再到建立数据库表格，接着编写程序并逐步调试，经历了不短的时间。由于对操作不够熟练以及对很多控件部熟悉导致完成大作业的过程特别坎坷。因而虽说东西小，功能也不怎么强大，可是自己也觉得非常有成就感。 这次大作业，让我对软件技术课有了更加深刻的认识，对整个开发软件的过程有了初步的了解。往往看似复杂的东西，只要基础知识牢固，可以用一些最基本的知识来解决。现在才认识到，不管是书上的VB部分还是数据库部分，每一块的内容都和最后的作业有关系，平时的每次实验也都是最后大作业的一小部分，只有把分散的东西融合起来，才能使知识得到升华。 另外，刚刚拿到大作业要求时，感到很迷惑，无从下手，压力特别大，认为这是根本无法完成的东西。后来，静静地想，一点点的回忆，把每个 《VB程序设计》作业（二） 客观题部分： 选择题（每题1分，共15题） 1. 当VB执行下面语句后，A的值为（A ）。 A=1IF A>0 THEN A=A+1IF A>1 THEN A=0 A）0 B）1 C）2 D）3 2. 当VB执行下面语句后，输出的结果是（B ）。 Private Sub Form_Click（） score = Int(Rnd * 10) + 30Select Case scoreCase Is < 10A$ = "F"Case 10 To 19A$ = "D" Case 20 To 29A$ = "C"Case 30 To 39A$ = "B"Case ElseA$ = "A"End SelectPrint A$End Sub A）AB）B C）C D）D 3. 执行下面的程序段后，x 的值为( C )。 x=2For i=1 To 10Step 3x=x+i\2Next i A) 2 B) 4 C) 7 D) 9 4. 假定有以下循环结构： Do Until 条件循环体Loop 则正确的描述是（ D ）。 A) 如果“条件”是一个为0的常数，则一次循环体也不执行 B) 如果“条件”是一个为0的常数，则至少执行一次循环体 C) 如果“条件”是一个不为0的常数，则至少执行一次循环体 D) 不论“条件”是否为“真”，至少要执行一次循环体 5. 假定有以下程序段： For i= 1 To 3For j= 5 To 1 Step -1Print i *jNextj , i 则语句“Print i *j”的执行次数是（ C ）。 A）20B）24 C）15 D）18 6. 以下程序段的输出结果为（ D ）。 x = 2y = 8Do Until y>8x = x * yy = y +1LoopPrint x A）2B）9 C）10 D）16 7. 用下面的语句所定义的数组的元素个数是（D ）。 Dim A（-3 To 5）As Integer A）6 B）7C）8D）9 8. 阅读下面的程序段： For i=1 To 2For j=1 To IFor k=j To 2x=x+1Next kNext jNext i 执行上面的三重循环后，x的值为( C )。 A) 3 B) 4 C) 5 D) 6 9.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 3x=2For j =1 To 2x=4For k=1 To 3x=x+5Next kNext jNext i Print xEnd Sub 程序运行后，单击命令按钮，输出结果是( B )。 A) 11 B) 19 C) 57 D) 63 10. 在窗体上画两个文本框Text1和Text2，一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click() VB课程大作业要求 1.题目安排：每个同学根据自己的学号后两位数字，做对应的题目。题目在附 件中，文件名为《VB大作业题库》。 例如：学号201120007,后两位数字为“07”，做第“7题”； 学号201120017,后两位数字为“17”，做第“17题”； 学号201120100,后两位数字为“00”，做第“100题”； 2.答题要求：每个同学针对各自的题目，首先进行算法分析；然后设计直观、 可操作性强的界面；上机编程和调试后，进行结果分析与总结。 3.提交形式：纸质报告+源程序（.vbp和.frm文件） （1）纸质报告分四部分，篇幅大小为2page，字号为“五号”；一张A4纸正反打印。 <1> 班级姓名学号题目； <2> 算法分析； <3> 界面与结果截图； <4> 结果分析与总结； （2）源程序包括工程和窗体文件等（.vbp和.frm），做成一个压缩文件，文件名统一为：班级+姓名+学号<注意：只提交.exe文件的没有 成绩！> 4.提交时间与方式： (1) 纸质报告交各班学委，由学委排序后，于5月17日17点之前，交到7 教314。 (2) 源程序文件，由各位同学本人，于5月17日17点之前，发送到 lining@https://www.wendangku.net/doc/eb2471434.html, 纸质报告与源程序两者缺一不可。 打印所有不超过n(取n<256) 的其平方具有对称性质的数(也称回文数)。*题目分析与算法设计对于要判断的数n，计算出其平方后(存于a)，将a的每一位进行分解，再按a的从低到高的顺序将其恢复成一个数k(如n=13，则a=169且k=961)，若a等于k则可判定n为回文数。 #include 高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为100 分，考试时间为110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc"B) "ABC" = UCase("abc") C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2B) 3C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5 Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ? ??≠≥=<=)(2) c (1 d c b a d b a x 且且 B) ? ??≠<=<=)(2) c (1 d c b a d b a x 且且 C) ?? ?≥=<=)(2) c (1b a d b a x 且 D) ?? ?≠=<=) (2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k 《VB程序设计》大作业 一、大作业的内容 本次大作业要求学生根据所学知识以及个人爱好，设计开发一个VB应用小程序。要能体现出： 1．《VB程序设计》各种语句的综合使用能力； 2．《VB程序设计》各种相关控件的使用能力； 3．根据具体的设计题目，设计清晰、美观界面的能力； 4．一定的综合设计能力。 二、大作业的要求 本次大作业应满足以下要求： 实用性：应用程序要有明确的应用主题，有一定的实用价值。 结构性：应用程序具有良好的程序结构。 可读性：应用程序具有较好的可读性。 全面性：应用程序应包含比较全面的功能。 友好性：合理使用VB提供的各种控件，设计友好、美观的使用界面。 三、大作业的步骤 1．根据个人兴趣、爱好，以及提交时间的要求，自己确定设计题目（可参考附件1）； 2．查找与设计题目相关的资料； 3．进行应用程序总体结构、使用功能的设计； 4．进行应用程序的界面设计和源程序代码的编写； 5．上机编辑、调试程序； 6．保存应用程序, 并生成可执行文件； 7．撰写设计报告。 四、设计报告的基本格式 设计报告的基本内容至少包括封面、正文、总结三部分。 (1）．封面(包括：题目、班级、姓名、指导教师、完成日期等信息) (2)．正文 1、课题的选材过程（设计思路）； 2、设计的将要达到的目标； 3、总体设计结构与功能； （1）总体设计结构介绍（绘制：结构流程图） （2）各功能模块运行界面的功能、算法和操作步骤； 4、设计结果分析；（运行结果展示、正确性分析） (3)．总结（感想、收获、启发、存在的问题） 五、课程大作业提交 （1）形式设计报告+ 源程序文件(含可执行文件) 其中：<1>设计报告的封面统一（附件2）； <2>源程序文件（含*.vbp；*.frm；*.exe）打包压缩成一个文件， 以学号+姓名（例如：12020741姓名）为文件名。 （2）时间2015年6月1日之前； （3）方法纸质报告及压缩文件交各班学委，按顺序排好后由学委统一上交； 试卷方案：201105 Visual Basic 期末考试方案 一、单项选择_共50题（选：20题*1’=20分） 第1题 以下有关对象属性的说法中，错误的是___________. A. 工具箱中的控件并不是VB 中所有的控件 B. 若将Frame 的Enabled 属性设置为False ，则不能使用放置在Frame 里面的控件 C. 对象的Name 属性在运行时不能改变 D. 对象的所有属性都可以在属性窗口中设置 第2题 数学表达式 ||27sin 3 y x e x +++ 的VB 算术表达式为_______ . A. Sin(27)+Sqr(x+Exp3)/(x+y) B. Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y) 第3题 下列有关对象的叙述中,正确的是______ A. 对象由属性，事件和方法构成 B. 对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C. 对象的事件一定就是由VB 预先设置好的人工干预的动作 D. 对象的方法是对象响应某个事件后执行的一段程序代码 第4题 表达式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是___. A. 1 B. -1 C. –2 D. –3 第5题 下列关于菜单的说法中,错误的是__________. A. 每一个菜单项就是一个对象，并且可设置自己的属性和事件 B. 菜单项不可以响应DblClick 事件 C. VB6.0允许创建超过四级的子菜单 D. 程序执行时，如果要求菜单项是灰色，不能被用户选择，则应设置菜单项的Enabled 属性为False 第6题 以下关于数组的说法中,错误的是__________. A. 使用了Preserve 子句的Redim 语句，只允许改变数组最后一维的上界 B. 对于动态数组, Redim 语句可以改变其维界但不可以改变其数据类型 C. Erase 语句的功能只是对固定大小的数组进行初始化 D. Lbound 函数返回值是指定数组某一维的下界 第7题 设a=3,b=2,c=1,运行print a>b>c 的结果是____________. A. True B. False C. 1 D. 出错 第8题 沈阳航空航天大学铰链四杆机构设计报告 学院：机电工程学院 班级： 姓名： 学号： Dim a, b, c, d, e, f, l1, l2, l3, l4, w1, w2, w3, a2, a3#, p, m, dc, bjj, n% Private Sub Command1_Click() 杆长赋值 l1 = Val(Text1(0).Text) l2 = Val(Text1(1).Text) l3 = Val(Text1(2).Text) l4 = Val(Text1(3).Text) a = Val * / 180 初始角度转弧度 Call bj(bjj) If bjj = 1 Then Exit Sub w1 = 0 Call jsg w1 = Val 公式计算角速度，角加速度w2 = -w1 * l1 * Sin(a - c) / (l3 * Sin(b - c)) w3 = w1 * l1 * Sin(a - b) / (l2 * Sin(c - b)) = w2 = w3 a2 = (l3 * w3 * w3 - l1 * w1 * w1 * Cos(a - c) - l2 * w2 * w2 * Cos(b - c)) / (l2 * Sin(b - c)) a3 = (l2 * w2 * w2 + l1 * w1 * w1 * Cos(a - b) - l3 * w3 * w3 * Cos(c - b)) / (l3 * Sin(c - b)) = a2 = a3 End Sub Function jsg() If p = 0 Then p = -1 On Error GoTo el a = a + * w1 角度随时间增加d = l4 - l1 * Cos(a) VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。 安全土木化工化学vb练习题4 满分： 111 分 姓名： ________ 1、单项选择题(本题共计60 分) (1、在过程调用中，参数的传递可以分 为 ) ________________ 和 ________________ 两种方式。 A 、按值传递 B 、按地址传递 C、按参数传递 D、按位置传递 按地址传递 按参数传递 按值传递 按参数传递 2、下面的过程定义语句中合法的是________________________。() A 、 Sub Procl (ByVal n () ) B 、Sub Procl ( n ) As Integer C、 Function Procl (Procl ) D、 Function Procl (ByVal n ) 3、在参数传递过程中，使用关键字________________ 来修饰参数，可以使之按值传递。( ) A 、 ByVal B 、ByRef C、 Value D、 Reference (4、要想在过程调用后返回两个结果，下面的过程定义语句合法的 是 ) ________________ 。 A 、 Sub Procl ( ByVal n , ByVal m) B 、Sub Procl ( n , ByVal m) C、 Sub Procl ( n , m) D、 Sub Procl ( ByVal n , m) 5、通用过程可以通过执行“工具”菜单中的____________ 命令来建立。( ) A、添加过程 B、通用过程 C、添加窗体 D、添加模块 6、可以在窗体模块的通用声明段中声明的是________________ 。( ) A、全局变量 B、全局常量 C、全局数组 D、全局用户自定义类型 7、当运行程序时，系统自动执行启动窗体的____________ 事件过程。( ) A 、 Load B、Click C、 UnLoad D、 GotFocusVB程序设计网上作业2016
vb大作业 实验报告
VB期末考试试题及答案
九江学院VB期末考试题目及详细答案
VB大作业模板
VB程序设计大作业报告
VB期末考试模拟题1讲解
vb实验作业参考答案
大一VB期末考试试卷及答案
VB作业
VB机房管理系统大作业
VB程序设计作业(二)答案
VB课程大作业要求
VB期末试卷(A卷带答案)
VB程序设计(2015大作业)
VB期末考试题库及答案
机械原理大作业VB四杆机构的设计
大学VB期末考试试题
南京工业大学VB期末考试模拟题6