VB程序设计基础大作业

《VB程序设计基础》全校选修课结课作业指导单

1、从以下所给题目中选择4个题目，要求独立完成，不能雷同；

2、作业中要体现设计过程，可以应用多窗体实现，对每一个窗体配以合适背景图片；

3、要求有界面抓图，配以程序设计思想；

4、最后一节实验课提交大作业，作业要求打印加封皮，并在课上对作业进行答辩。

《VB程序设计基础》校选修课

结课作业

2012~2013学年第一学期

班级：

姓名：

学号：

成绩：

答辩情况

教师：胡英

可选题目：

1、简单计算器的设计（如果用控件数组完成可获得加分）

说明：如果计算需要两个操作数，两个数分别从两个文本框输入，如果计算只需要一个操作数，操作数取自界面上面的文本框。（考虑细节如非数字提示、初零、负数不能开平方、有退出提示等等）

2、设计一如下验证密码的输入框窗体，当单击“确定”后，给出验证情况，点击

“退出”根据提示是否退出系统。

说明：密码设定长度及是否为数字提示，退出要给出提示

3、设计如下界面的倒计时

当单击“设置倒计时”时，弹出如下输入框：

单击“启动倒计时”，开始倒计时，时间到，弹出如下框，当单击“是”，则退出系统。

4、设计如下改变标签中字体的菜单

注：“字体”菜单为右键弹出式菜单。

5、设计一个如下图所示的程序：

要求使用两个列表框（组合框）完成该题目，通过添加按钮将文本框中的内容添加到左边的列表框，下面数字为统计数字，该数字要根据左边列表框中内容的变化做相应调整，如果选中左边列表框中的内容按删除按钮，被删除的条目从左列表框消失，添加到右列表框中，并调整统计数字。（考虑空信息的添加及多条信息的添

删除）

6、设计一个如下图所示的程序：

通过对列表框、复选框和单选钮的选择，将计算机的基本配置信息显示在右边的文本框中。需考虑空信息的添加。

VB程序设计作业参考答案

《VB程序设计》作业参考答案 一．选择题 1－5 ABC CB 6—10 CCA DC 11－15 ABC DB 15－20CDA CB 21－25DBD CC 25－30DAC AA 31－35 DAC AA 36－40 BCC CD 41－45 CCC AC 46－50DDB AD 51－55 ACA CD 56－60 BCA DA 61－65 BAADB 66－70DBDAC 71－75BBBAD 76—80CDABC 81-85ABCD C 86-90BAADD 91-95CBBAD 96.B 二．填空题 (1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And (6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random （11）事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text (16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc （20）INT(Rnd*100) ；arr （21）Output ；Write #1,StuNo,StuName,StuEng (22)10 (23)4 (24) 顺序，随机 (25)INPUT,OUTPUT,APPEND （26）程序代码窗口的字符过大或过小，可以通过（工具→选项→编辑器格式→大小）去改变。（27）窗体、控件、对象（28）界面设计（29）对象、代码（30）窗体、标准模块、类模块、工程（31）窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug) （32）E D（33）81 （34）程序，数据（35）窗体、控件、对象（36）对象、代码（37）用户界面的窗体、执行具体操作的代码。（38）Picture属性、剪切板把图形粘贴 三．编程题 1. Option Base 1 Private Sub Form_click() Dim a(3) As Integer, m As Integer Do While m <> -1 And i < 3 m = InputBox("请输入第" & i + 1 & "条边") i = i + 1 a(i) = m If a(i) < 0 Then MsgBox "输入错误，请重新输入！" i = i - 1 End If Loop If a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Then

VB程序的设计_试题与答案_1

《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

vb大作业 实验报告

软件技术实验报告 学号2009300186 姓名赵佶男班级010109卓 越 大作业机房管理系统 课题基本目标要求： 1）可在系统中由系统管理员按班级指定时间进行上机课时安排，安排上机不得与其他已安排机时冲突。 2）在指定上机课时段，除了上机班级学生可以登录外，其余无关学生一律不得登录，除非系统管理员授权。预定上机时间结束时，自动 提前5分钟提示，待真正结束时即自动锁屏。 3）除上机课时安排以外，可以在机动时间段接受学生凭个人一卡通上机，且上机实施计时自动收费（即扣除学生一卡通上因上机而应缴 纳的上机服务费） 4）在接受零散学生付费上机时，可自动为其分配空闲机器并授权使用，在分配机器时应考虑机器的使用情况分布均匀，即每次分配机器是 前一时段未曾使用的机器，当学生一卡通上的余额，不足以支付1 小时上机服务费时，应提示其下机充值，并实施锁屏。 实验步骤： 首先，根据大作业的要求，我建立了机器表，流水表，学生基本情况表，上课表，以及一卡通表五个数据库表。机器表用来按照使用情况，选择空闲时间最长的机器。流水表用来记录现在机器以及人员使用的情况，是个

动态表，用来方便的取用和修改数据。学生基本情况表用来存放学生的学号，密码，班级等基本情况，以实现学生上课登录和自由登录。上课表存放各个班级的上课下课时间，以实现排课功能。一卡通表记录了每个学生一卡通内的金额，用来帮助实现上下机的扣费，以及余额不够支付一小时时间情况下得强制下机。 然后，我进行了窗体的设计。经过筛选优化，我设计了五个窗体，分别是主选择窗体，注册窗体，登录窗体，上课安排窗体，实时计费和下机窗体。 主选择窗体可以用来进行上课登录、学生自由登录、管理员登录和机器的推荐。注册窗体是用来进行学生登录密码的注册。登录窗体限制学生的学号和密码必须匹配才能登录。上课安排窗体可以输入班号、上下课时间并选择星期值。实时计费和下机窗体用来扣费并方便学生随时下机。 接下来，要按照要求进行代码的编写。 A）可在系统中由系统管理员按班级指定时间进行上机课时安排，安排上机不得与其他已安排机时冲突。 此功能我在排课窗体下用select选择出全体班级的上下课以及星期值，并将管理员希望的上下课时间转换为时间类型数值，进行循环比较，用do until 语句逐个比较，使得上下课时间点都不得在其他班级的上课时间段内。如果时间不冲突，就实施修改数据库的功能，并更新保存。 B）在指定上机课时段，除了上机班级学生可以登录外，其余无关学生一律不得登录，除非系统管理员授权。预定上机时间结束时，自动提前5分钟提示，待真正结束时即自动锁屏。 在主选择窗体内有上课登录按钮和自由登录按钮。点击上课登录，输入学

VB期末考试试题及答案

二、选择题 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 。

VB程序设计网上作业2016

题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

九江学院VB期末考试题目及详细答案

九江学院期末考试复习题（政法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语句，运行时将出现错误

VB程序设计大作业报告

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

VB期末考试模拟题1讲解

【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大作业模板

题目：班级信息系统 学院: 土木与交通工程学院姓名：苏华立 学号：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期末考试试卷及答案

大一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)

电子科技大学15秋《VB程序设计》在线作业2满分答案

15秋《VB程序设计》在线作业2 一,单选题 1. DataCombo控件的RowSource属性是表示（）。 A. 给DataComebo控件提供列表项的字段 B. 目的表的数据源 C. 给DataCombo控件提供列表项的数据源 D. 更新目的表的字段 正确答案：C 2. 执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（）。 A. 只能写，不能读 B. 只能读，不能写 C. 既可以读，也可以写 D. 不能读，不能写 正确答案：C 3. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（） 正确答案：A 4. 下列哪个属性设置文本框中文字的对齐方式（）。 A. SelLength B. Alignment C. Multiline D. ScrollBars 正确答案：B 5. 以下能判断是否到达文件尾的函数是（）。 A. BOF B. LOC C. LOF D. EOF 正确答案：D 6. 下面叙述错误的是（）。 A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器 B. 目录列表框DirListBox显示当前驱动器分层目录树 C. 文件列表框FileListBox显示选定目录中的所有文件 D. 文件列表框FileName属性是设定允许显示文件名的文件类型 正确答案：D

VB机房管理系统大作业

软件技术实验报告 班级学号姓名 大作业机房管理系统 实验内容： 本次大作业的主要内容就是运用VB和数据库做一个机房管理系统，是前七次实验所有内容的综合运用，最终的系统要满足以下要求： 1）可在系统中由系统管理员对学生上机进行安排并可在管理员处查询学生基本信息。 2）学生凭个人一卡通上机时，上机实施计时自动收费（即扣除学生一卡通上因上机而应缴纳的上机服务费），并在学生一卡通余额不足时进行 提醒。 3）当管理员或学生有人员变动时可以直接在系统中进行必要的修改。 创新亮点：增加了管理员人事变动资料管理功能，使得该系统更加符合实际情况。 设计思路： 首先，根据大作业的要求，我建立了三个数据库表。管理员基本信息表用来存放管理员的账号和密码；计算机基本情况表用来记录现在机器以及人员使用的情况，是个动态表，用来方便的取用和修改数据，并按照使用情况，选择空闲时间最长的机器。学生基本情况表用来存放学生的学号，密码，班级，一卡通余额等基本情况，以实现学生登陆上机，同时记

录了每个学生一卡通内的金额，用来帮助实现上下机的扣费，以及余额不够支付一定时间情况下得强制下机的情况。 窗体的设计则是结合数据库，还有要求的功能进行设计安排，首先是学生和管理员的两者的登录界面。学生登录后可看到自己的一卡通账号和余额情况，并可以在需要下机时简便操作。管理员登录之后要实现各种管理及查询功能，首先设计一个窗体是过渡作用的，利用菜单编辑器添加所需的功能名称，单击就可以实现多种功能。学生登录设有计时计费系统，余额等信息可以清晰显示。 完成情况与体会： 本次大作业，从最初的构想，到在纸上画出思路图，再到建立数据库表格，接着编写程序并逐步调试，经历了不短的时间。由于对操作不够熟练以及对很多控件部熟悉导致完成大作业的过程特别坎坷。因而虽说东西小，功能也不怎么强大，可是自己也觉得非常有成就感。 这次大作业，让我对软件技术课有了更加深刻的认识，对整个开发软件的过程有了初步的了解。往往看似复杂的东西，只要基础知识牢固，可以用一些最基本的知识来解决。现在才认识到，不管是书上的VB部分还是数据库部分，每一块的内容都和最后的作业有关系，平时的每次实验也都是最后大作业的一小部分，只有把分散的东西融合起来，才能使知识得到升华。 另外，刚刚拿到大作业要求时，感到很迷惑，无从下手，压力特别大，认为这是根本无法完成的东西。后来，静静地想，一点点的回忆，把每个

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程序设计基础

第4章VBScript基础知识 习题4 1. 选择题（可多选） （1）下列哪一个变量名称是正确的？B A. 1_ab B. ab_1 C. _ab D. ab? （2）在一段程序中a是一个变量，那么"a"是：B A. 变量 B. 直接常量 C. 字面常量 D. 符号常量 （3）下面哪条语句可以正确执行？（注：第四句我的主页两边是中文引号）C A. Response.Write "

我的主页

" B. Response.Write "

我的主页

" C. Response.Write "

我的主页

" D. Response.Write "

“我的主页”

" （4）执行语句a="6"后，变量a的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （5）执行语句a="2008-8-8"后，变量a的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （6）假设变量a=5、b=3，则执行语句c="a>b"后，变量c的数据子类型是?A A. 字符串 B. 日期 C. 数值 D. 布尔 （7）语句a="abc"="abc"运行完毕后，变量a的数据子类型是?C A. 数值 B. 字符串 C. 布尔 D. 日期 （8）执行语句a=3: a=a+5后，变量a的值是： A. 3 B. 5 C. 8 D. 出错 （9）已知x=123，那么执行语句y=x \10 Mod 10后，变量y的值是? A. 0 B. 1 C. 2 D. 3 （10）已知a= "ab"，那么执行语句b="cd'" & a & " " & "ef"后，变量b的值是? （提示：请注意题目和答案中的空格） A. "cd'ab ef" B. "cd'abef" C. "cdabef" D. "cdab ef" （11）下面的语句执行完毕后，变量a、b、c、d的值分别是? <% a="1"+"1": b="1"+1: c="1" & "1": d="1" & 1 %> A. "11"、"11"、"11"、"11" B. "11"、2、"11"、"11" C. 2、2、"11"、"11" D. "11"、"11"、2、2 （12）请问表达式Not(6+3<5+2)的值是？ A. True B. False C. 9 D. 无法计算 （13）请问Int(3.45)和Int(-3.45)的值分别是什么？ A. 4、-4 B. 3、-4 C. 3、3 D. 3、-3 （14）执行语句a=Int(10 * Rnd())后，则a的值不可能出现的有? A. 0 B. 1 C. 10 D. 11 （15）在取整时按四舍五入进行的函数是？ A. Int B. Fix C. Round D. CInt （16）请问Mid("八千里路云和月",3,2)的返回值是什么？ A. "千里" B. "里路" C. "里" D. "路云" （17）执行语句a=InStr(Trim(Replace(" abcdef ","c","")),"ef")后，变量a的值是? A. 0 B. 1 C. 4 D. 5 （18）函数DateDiff("m",#2008-8-8#,#2008-10-1#)的返回值是? A. 1 B. 2 C. 54 D. 5

VB课程大作业要求

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.sodocs.net/doc/4112278787.html, 纸质报告与源程序两者缺一不可。 打印所有不超过n(取n<256) 的其平方具有对称性质的数(也称回文数)。*题目分析与算法设计对于要判断的数n，计算出其平方后(存于a)，将a的每一位进行分解，再按a的从低到高的顺序将其恢复成一个数k(如n=13，则a=169且k=961)，若a等于k则可判定n为回文数。 #include int main(int argc, char *argv[]) { int i, n, a, m[16], k, count=0, t; printf("no\tnumber\tvalue\n"); for(n=1; n<256; n++){ k = 0, t = 1, a = n * n; for(i=0; a!=0; i++){ m[i] = a % 10; a /= 10;

VB期末试卷(A卷带答案)

高级语言程序设计（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程序设计(2015大作业)

《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）方法纸质报告及压缩文件交各班学委，按顺序排好后由学委统一上交；

《VB程序设计基础》模拟精彩试题

《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。