VB设计作业
VB作业3
VB第三次作业（8～10章）一、选择题（每题2分，共2×20＝40分）1、要获得当前驱动器应使用驱动器列表框的属性是A．PathB．DriveC．DirD．Pattern2、设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Const Alt=4Const Key_F2=&H71altdown%=(Shift And Alt) > 0f2down%=(KeyCode=Key_F2)If altdown% And f2down% ThenText1.Text="BBBBB"End IfEnd Sub上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是A．Alt+F2B．BBBBBC．随机出几个数D．文本框平均内容无变化3、下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel 键退出对话框，则Private Sub Command1_Click()CommonDialog1.CancelError=TrueCommonDialog1.Flags=cdlCFEffects Or cdlDFBothCommonDialog1.Action=4CommonDialog1.ShowFont=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDialog1.FontItalicText1.Font.Underline=CommonDialog1.FontUnderlineText1.FontStrikethru=CommonDialog1.FontStrikethruText1.ForeColor=CommonDialog1.ColorEnd SubA．Text1的字体不发生变化B．Text1的字体发生变化C．Text1的字体和颜色发生变化D．程序出错！4、以下叙述中错误的是A) 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)B) 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)C) KeyPress事件中不能识别键盘上某个键的按下与释放D) KeyPress事件中可以识别键盘上某个键的按下与释放5、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是A) “text (.txt)|(*.txt)” B)“文本文件( .txt) | (.txt)”C) “text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”6、以下叙述中正确的是A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input #语句可以从随机文件中读取数据7、目录列表框的Path属性的作用是A) 显示当前驱动器或指定驱动器上的目录结构B) 显示当前驱动器或指定驱动器上的某目录下的文件名C) 显示根目录下的文件名D) 显示该路径下的文件8、设有语句open "c：\Test．Dat" For OutPut As#1则以下错误的叙述是A)该语句打开C盘根目录下一个己存在的文件Test．DatB)该语句在C盘根目录下建立一个名为Test．Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息9、在窗体上画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub Txta_KeyPress(keyascii as integer)End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是A)单击鼠标B)双击文本框C)鼠标滑过文本框D)按下键盘上的某个键10、假定有如下事件过程：PriVate Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y AsSingle)If Button＝2 thenPopupMenu popFormEnd ifEnd Sub则以下描述中错误的是A)该过程的功能是弹出一个菜单B)popForm 是在菜单编辑器中定义的弹出式菜单的名称C)参数X、Y指明鼠标的当前位置D)Button=2 表示按下的是鼠标左键11、当函数EOF（）的返回值为真时，表示文件的指针指向（）。
可视化程序设计(VB)第一次作业
可视化程序设计（VB）第一次作业一、单项选择题1. Visual Basic程序中分隔各语句的字符是(: )2. 工程文件的扩展名是（vbp）3. 下列运算符中，运算级别最高的是（*）4. 下列可作为Visual Basic的变量名的是 (Filename )5. 下面的程序的输出结果是(21 21 )x=5For i = 1 To 20 Step 2x=x+i\5Next iPrint x, i6. 下列赋值语句合法的是（A=A+B）7. 下列属性中，目录列表框和文件列表框都有的属性为（Path）。
8. 执行下面的程序段后，x的值为(21 )x=5For i = 1 To 20 Step 2x=x+i\5Next i9. 向一个顺序文件中写数据时，（Append）是从文件末尾添加的方式打开顺序文件。
10. Seek方法用于在（表）类型的记录集中查找满足条件的记录。
11. 当函数EOF()的返回值为真时，表示文件的指针指向（尾部）12. 如果要退出Do…Loop循环，可使用语句（Exit Do）。
13. 在VB中，称对象的数据为（属性）。
14. 不论何对象，都具有（Name）属性。
15. 使用Public Const语句声明一个全局的符号常量时，该语句应放在（标准模块的通用声明段）。
16. 下面关于变量的作用域，正确的描述是（同一模块中不同级的变量不能同名）。
17. 设a=2，b=3，c=4，d=5，下列表达式的值是（False）a＞b AND c＜=d OR 2*a＞c18. 把数值型转换为字符（串）型需要使用下列哪一个函数？（Str）19. 以下叙述错误的是（KeyPress事件中可以识别键盘上某个键的按下与释放）20. 用于设置或返回文件类型的属性是（Pattern）。
21. 要删除列表框中的某一个项目，需要使用（ReMoveItem）方法。
22. 以下语句的输出结果是(在立即窗口中) (Δ27ΔΔ65Δ) a=27 ＜CR＞ (＜CR＞为回车) b=65 ＜CR＞ Print a;b ＜CR＞23. 语句Print 5*5\5/5的输出结果是(25 )24. 编写如下事件过程：private sub form_mousedown（button as integer，shift as integer，x as single，y as single）if shift=6 and button=2 thenprint "BBBB"end ifend sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作为（同时按下ctrl、alt键和鼠标右键）25. 如果X是一个正实数，对X的第三位小数四舍五入的表达式是（0.01 *Int ( 100 * ( X +0.005 ) )）。
东大14秋学期《可视化程序设计(VB)》在线作业1答案
可视化程序设计（VB） 14秋学期《可视化程序设计(VB)》在线作业1一,单选题1. 在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。
当改变当前驱动器时，目录列表框应该与之同步改变。
设置两个控件同步的命令放在一个事件过程中，这个事件过程是（）。
A. Drive1_ChangeB. Drive1_ClickC. Dir1_ClickD. Dir1_Change?正确答案：A2. 下面程序段运行后，变量Value的值为（）。
x=20 IF x>=10 Then Value =5*x Else Value =4*xA. 100B. 80C. 90D. 70?正确答案：A3. 表达式Abs(-3.6)*sqr(100)的值是（）。
A. -360B. 360C. -36D. 36?正确答案：D4. 设有以下循环结构 Do 循环体 Loop While <条件> 则以下叙述中错误的是（）。
A. 若条件"是一个为0的常数，则一次也不执行循环体"B. "条件"可以是关系表达式、逻辑表达式或常数"C. 循环体中可以使用Exit Do语句D. "如果"条件"总是为True，则不停地执行循环体"?正确答案：A5. 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city = Array("北京", "上海", "天津", "沈阳") Print city(1) End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）。
A. 空白B. 错误提示C. 北京D. 上海?正确答案：D6. 目录列表框的Path属性的作用是（）。
VB作业
图书馆管理系统系统分析（1）功能描述后台数据库采用Sql Server 2000；采用多文档界面，有简洁、实用的菜单、工具条、菜单条；根据各模块操作特点，综合采用Data控件、ADO控件、DataGrid控件等进行开发；并综合应用所学各种控件设计界面，界面设计尽量美观。
要求实现以下功能：登录管理功能●管理员登录：根据操作权限，进入相应管理员界面。
●读者登录：根据选择权限，直接进入读者查询页面。
读者查询功能●书籍查询：只具有查询功能，图书信息可以多字段模糊查询，可查询图书的详细信息。
●读者个人信息查询：查询个人信息，及已借书状态。
信息管理功能（管理员）●书籍信息管理：对书籍进行入库、出库、修改，并同样可以进行查询。
●读者信息管理：添加、删除、修改读者个人信息。
借还书功能●借还书操作：本系统只有管理员可以进行此操作，对读者的借/还书情况进行登记。
（2）功能结构选择权限登录读者登录管理员登录图个图图读借书人书书者还信信信信信书息息息息息查查查管管询询询理理系统数据库设计◆图书信息表：记录图书的书号、书名、作者、出版社、总数、在库数目。
◆读者信息查询表：此表记录读者的个人信息◆管理员表：此表记录管理员的用户名和密码◆借还书信息表：此表记录读者借还书信息，其中应还书日期应用公式： ([借书日期] + 60)系统功能模块设计◆登录模块本系统首先进入的是“图书信息管理系统登录”界面。
权限选择默认为读者登录，此时密码与用户名输入框变灰，见图（a），读者直接点击登录按钮即可进入读者查询界面；当选择权限为管理者，需要输入用户名和密码，此时系统通过Adodc控件与数据库图书馆的管理员表相连。
●当输入的用户名在管理员表中找到并与密码匹配，管理员则可以进入管理者界面,见图（b1）；●如果系统在管理员表中找不到输入的用户名，则提示“不存在此用户”，确定后用户名和密码栏自动清空，可重新输入，如图（b2）；●如果在表中找到输入的用户名，但是密码与用户名不相匹配，则提示“请输入正确的密码”，如图（b3）；●如果用户名/密码栏有空，则提示请输入用户名/密码，如果（b4）（b5）。
中国地质大学VB程序设计(专升本)阶段性作业2
VB程序设计(专升本)阶段性作业2单选题1. 若i的初值为8，则下列循环语句的循环次数为_____次。
(5分)(A) 3次(B) 4次(C) 5次(D) 6次参考答案：C2. 下列关于Select Case之测试表达式的叙述中，错误的是_____。
(5分)(A) 只能是变量名(B) 可以是整型(C) 可以是字符型(D) 可以是浮点类型参考答案：A3. 下列关于Select Case的叙述中，错误的是_____。
(5分)(A) Case 10 To100 表示判断Is是否介于10与100之间(B) Case"abc","ABC" 表示判断Is是否和"abc"．"ABC"两个字符串中的一个相同(C) Case"X" 表示判断Is是否为大写字母X(D) Case -7,0,100表示判断Is是否等于字符串"-7，0，100" 参考答案：D4. 由“For i=1 To 9 Step -3”决定的循环结构被执行_____次。
(5分)(A) 4(B) 5(C) 6(D) 0参考答案：D5. 窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界_____。
(5分)(A) 下界必须为1(B) 缺省的下界为1(C) 下界必须为0(D) 缺省的下界为0参考答案：B6. 由“For i=1 To 16 Step 3”决定的循环结构被执行_____次。
(5分)(A) 4(B) 5(C) 6(D) 7参考答案：C判断题7. For/Next语句中，循环控制变量只能是整型变量。
(5分) 正确错误参考答案：错误解题思路：8. Do/Loop While结构中的循环体，至少被执行一次。
(5分) 正确错误参考答案：正确解题思路：9. Do/Loop Until结构的循环，是“先判断．后执行（循环体）”的循环结构。
北航14秋《VB语言程序设计》在线作业一答案
北航《VB语言程序设计》在线作业一单选题一、单选题（共25 道试题，共100 分。
只有一个选项是正确的）V 1. 条件1<x≤2或10≤x<15，在VB语言中应写成条件表达式（）A. x>1 AND x<=2 OR a>=10 AND x<15B. x>1 OR x<=2 OR a>=10 OR x<15C. x>1 OR x<=2 AND a>=10 OR x<15D. x>1 AND x<=2 AND a>=10 AND x<15-----------------选择：A2. 表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是（）A. 3、3.9655、3B. 3.9655、3、5C. 4、4、5D. 3.9655、4、3-----------------选择：B3. ^、/、Mod、*等4个算术运算符中，优先级最低的是（）A. ^B. /C. ModD. *-----------------选择：C4. VB中项目文件的扩展名是什么。
A. VBPB. FRMC. VBWD. FRX-----------------选择：A5. 如果变量a=2，b=3，c=4，d=5，表达式NOT a>b AND NOT d<>c的值是（）A. TrueB. FalseC. 1D. 0-----------------选择：B6. 不管一个对象的属性如何设置，程序运行时始终都能接收焦点的方法是（）A. 用Tab键B. 用鼠标C. 用方向键D. 不能实现-----------------选择：D7. 将任意一个正的两数N的个位数与十位数对换的表达式为（）。
VB设计作业要求及评分标准
一. 合作完成一个设计作业，并提交1.作业源代码2.实验报告3.生成的exe可执行程序二．作业要求：1.多模块2.多过程，包括通用过程（函数、子过程）3.数据结构包括数组4.选题，可以自由发挥，也可以在以下命题中选择一个来做（见“四.可选命题”）5.作业分小组完成，每个小组1-3人。
每人的参与度，即完成的内容必须在实验报告中以书面形式注明。
例如：同学A完成选题、界面及窗体模块1；同学B完成模块2及文档；同学C完成模块3及测试。
（其中完成的模块名称也请写出来，或者完成某个模块中的某几个过程也请写清）a)以小组提交的作业为单位给分，即小组成员得分相同。
b)但是如果某同学参与度过低，将会扣除该成员的“原创性”的分数4分。
仅完成以下情况之一视为参与度过低：i.只参与选题；ii.只参与测试；iii.只完成几个过程，未独立完成1个完整的模块；iv.只完成界面6.文档的要求：变量的注释、过程的功能描述、模块的功能描述都请注在代码里（即变量注释写在变量定义语句后面；过程功能描述写在过程定义后面；模块描述写在模块通用声明部分。
目的是让别人能一目了然该代码部分的功能，保证程序的可读性。
）7.文档中必须包含作者的学号、姓名、邮箱、手机等联系方式。
三．评分标准（共20分）四．可选命题1. 小游戏2. 多媒体工具（图片浏览、修改、画图）3. 数学工具（功能完善的计算器、记事本）4. 问题演示（可选择一个或多个有一定难度的数学问题或算法等，利用VB图形编程的优势进行一定的动态演示，尽量使所介绍的问题解法或算法让使用者一目了然）5. 专业相关的学习软件、工具6. 用于学习、活动、生活等各方面工具、软件等7. 自选命题。
VB题库
作业一简单VB程序设计1.在VB程序设计中，响应对象的外部动作称为_____，而对象可以执行的动作或对象本身的行为则称为_____。
（A）方法，事件（B）事件，方法（C）属性，方法（D）过程，事件2.在集成开发环境中不能完成的工作是_____。
（A）输入和编辑源程序（B）编译生成可执行程序（C）调试运行程序（D）自动查找并改正程序中的错误集成开发环境不包括_____。
（A）DOS界面窗口（B）窗体窗口（C）代码窗口（D）属性窗口4.当运行程序时，系统自动执行启动窗体的_________事件过程。
（A）Load （B）Click（C）Unload （D）GotFocus5.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言Basic有三种工作模式，它们分别是______模式。
（A）设计、编译和运行（B）设计、运行和中断（C）设计、运行和调试（D）编译、运行和调试Basic的一个应用程序至少包含一个_______文件，该文件存储窗体上使用的所有控件对象和有关的_______、对象相应的_______过程和_______代码。
（A）模块、方法、事件、程序（B）窗体、属性、事件、程序（C）窗体、程序、属性、事件（D）窗体、属性、事件、模块8.在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是______。
（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口9.保存新建的工程时，默认的路径是_________。
（A）My Documents （B）VB98（C）\ （D）Windows10.若要使标签控件显示时不覆盖其背景内容，要对______属性进行设置。
（A）BackColor （B）BorderStyle（C）ForeColor （D）BackStyle11.文本框没有______属性。
大学vb 实验作业6 选择结构程序设计
实验六选择结构程序设计
实验时间
实验目的
（1）掌握由IF语句构成的选择结构
（2）掌握由SELECT CASE语句4）学会编写选择结构程序解决实际问题
（5）掌握多重窗体的设计
实验环境
硬件：微型计算机
软件：Microsoft Visual Basic 6.0
实验内容
1、编写程序求出四个数中的最小数（要求用“打擂算法”）。
2、设计程序，分别用IF语句和Select语句实现判断从键盘上输入的某个字符为哪类字符（大写字母、小写字母、数字字符和其它字符）
3、编程实现系统登录程序。（用户名：班级；密码：学号后两位）
4、窗体运行时，鼠标光标是箭头形状，每单击一次窗体，鼠标就变换一种鼠标光标的形状，依次显示鼠标光标的15种形状。
提示：窗体上鼠标光标的形状由窗体的MousePointer属性值决定。
实验小结
VB语言程序设计作业及解析(专升本)-1
VB语言程序设计(专升本)作业11.(单选题)以下不正确的字符串赋值语句是。
(本题10.0分)A、char *s;s="abcde";B、char s[ ]="abcde";C、char s[10];s="abcde";D、char *s="abcde";2.(单选题)假设x,y为整型变量,则执行如下程序段后y的值为。
for(x=1,y=1;y<=50;y++){ if(x>=10)break;if(x%2==1){x+=5;continue;}x-=3;}(本题10.0分)A、2B、4C、6D、83.(单选题)下列字符串“a\x21\\\tp\202q”的长度是(本题10.0分)A、7B、9C、15D、164.(单选题)若有以下定义,则数值为4的正确表达式是。
int a[10]={1,2,3,4,5,6,7,8,9,10};char c=’a’,d,g;(本题10.0分)A、a[g-c]B、a[4]C、a[’d’-’c’]D、a[‘d’-c]5.(单选题)下列关于函数的叙述正确的是。
(本题10.0分)A、每个C程序源文件中都必须有一个main()函数B、C程序中main()函数的位置是固定的C、C程序中所有函数之间都可以相互调用,与函数所在位置无关D、在C程序的函数中不能定义另一个函数6.(单选题)以下关于C函数返回值的叙述正确的是。
(本题10.0分)A、被调函数中只有使用return语句才能返回主调函数B、使用一个return语句可以返回多个函数值C、函数返回值类型取决于return语句中的表达式类型D、函数返回值类型取决于定义该函数时所指定的类型7.(单选题)若有如下宏定义:#define N 2#define Y(n) ((N+1)*n)则执行赋值语句z=2*(N+Y(5));后z的值是。
(本题10.0分)A、表达式有误B、34C、70D、无确定值8.(单选题)以下关于变量的作用域叙述不正确的是。
vb课程设计作业猜数字
vb课程设计作业猜数字一、教学目标本节课的学习目标包括以下三个方面：1.知识目标：学生需要掌握VB编程语言的基本语法，理解猜数字游戏的设计原理，并能够运用VB编程实现简单的猜数字游戏。
2.技能目标：学生能够运用VB编程语言解决实际问题，提高逻辑思维能力和编程能力。
3.情感态度价值观目标：学生通过参与猜数字游戏的设计与实现，培养团队合作精神和创新意识，提高对计算机编程的兴趣。
在教学过程中，我们将根据学生的实际情况，采用循序渐进的教学方法，确保学生能够达到上述学习目标。
二、教学内容本节课的教学内容主要包括以下三个方面：1.VB编程语言基本语法：学生需要掌握VB编程语言的基本语法，包括数据类型、变量、运算符、控制语句等。
2.猜数字游戏设计原理：学生需要理解猜数字游戏的设计原理，包括游戏规则、随机数生成、用户输入与提示等。
3.猜数字游戏的实现：学生能够运用VB编程语言实现简单的猜数字游戏，培养编程能力和解决问题的能力。
在教学过程中，我们将根据学生的实际情况，合理安排教学内容的进度，确保学生能够掌握上述知识点。
三、教学方法本节课将采用以下教学方法：1.讲授法：教师讲解VB编程语言的基本语法和猜数字游戏的设计原理。
2.案例分析法：教师通过分析典型的猜数字游戏案例，引导学生理解游戏设计过程。
3.实验法：学生动手实践，编写和运行猜数字游戏，培养编程能力和解决问题的能力。
4.小组讨论法：学生分组讨论，分享编程心得，培养团队合作精神和创新意识。
四、教学资源本节课的教学资源包括以下三个方面：1.教材：选用权威、实用的VB编程教材，为学生提供系统的学习资料。
2.参考书：推荐学生阅读一些优秀的VB编程参考书籍，丰富学生的知识储备。
3.多媒体资料：制作精美的PPT，为学生提供直观的学习体验。
4.实验设备：准备计算机、投影仪等实验设备，确保学生能够顺利进行实验操作。
5.网络资源：利用网络资源，为学生提供更多学习资料和实践案例。
VB语言程序设计-4套作业参考答案
第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比，Visual Basic语言最突出的特点是（）。
A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术参考答案：C您的答案：C2、Visual Basic集成环境的主窗口中不包括（）。
A．标题栏B．菜单栏C．状态栏D．工具栏参考答案：C您的答案：C3、Visual Basic窗体设计器的主要功能是（）。
A．建立用户界面B．编写源程序代码C．画图D．显示文字参考答案：A您的答案：A4、下列叙述中正确的是（）。
A．只有窗体才是VB中的对象B．只有控件才是VB中的对象C．控件和窗体都是VB中的对象D．控件和窗体都不是VB中的对象参考答案：C您的答案：C5、为了把窗体上的某个控件变为活动的，应执行的操作是（）。
A．单击窗体的边框B．单击该控件的内部C．双击该控件D．双击窗体参考答案：B您的答案：B6、确定一个控件在窗体上的位置的属性是（）。
A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left参考答案：D您的答案：D7、在窗体上面画一个名称为Text1的文本框，然后编写如下的事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)......End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。
A．单击鼠标B．双击文本框C．鼠标滑过文本框D．按下键盘上的某个键参考答案：D您的答案：D8、为了装入一个VB应用程序，应当（）。
A．只装入窗体文件(.frm)B．只装入工程文件(.vbp)C．分别装入工程文件和标准模块文件(.bas) D．分别装入工程文件、窗体文件和标准模块文件9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（）。
A．MouseIconB．IconC．PictureD．MousePoint参考答案：B您的答案：B10、为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是（）。
东师《VB程序设计》2022年秋学期在线作业1
VB程序设计2022年秋学期在线作业1一、单选题1：执行语句Open "C:StuData.dat" For Input As #2 后，系统()。
A将C盘当前文件夹下名为StuData.dat的文件的内容读入内存B在C盘当前文件夹下建立名为StuData.dat的顺序文件C将内存数据存放在C盘当前文件夹下名为StuData.dat的文件中D将某个磁盘文件的内容写入C盘当前文件夹下名为StuData.dat的文件中正确答案：A2：语句Dim AA(9,9)所定义数组AA的元素个数为A 18B 81C 100D 90正确答案：C3：表达式Int(Rnd(O)+1)+Int(Rnd(1)-1)的值是()。
A 1B 0C -1D 2正确答案：B4：在窗体模块的通用声明段中声明变量时，不能使用()关键字。
A DimB PublicC PrivateD Static正确答案：D5：新建一工程，将其窗体的(名称)属性设置为MyFirst，则默认的窗体文件名为()。
A Forml.frmB工程1.frmC MyFirst.frmD Form1.vbp正确答案：C6：通过设置ADO数据控件的()属性可以建立该控件到数据源的连接信息。
A RecordSourceB RecordSetC ConnectionStringD Database正确答案：C7：下列控件中，没有Caption属性的是()。
A框架B列表框C复选框D单选按钮正确答案：B8：模拟方形骰子投掷的表达式是()。
A Int(6 * Rnd(1))B Int( 1+6 * Rnd(1))C Int(6 * Rnd(1) -l)D Int(6 * Rnd(1)-1)正确答案：B9：引用列表框(List1 )最后一个数据项应使用()。
A List1.List(Listl1. ListCount)B List1. List(Listl. ListCount - 1)C List1. List(ListCount)D List l. List( ListCounr-1)正确答案：B10：以下可以作为Visual Basic变量名的是()。
中国石油大学(华东)《VB程序设计》2015年春学期在线作业(三)满分答案
《VB程序设计》2015年春学期在线作业(三)一、单选题：1.下列关于控件画法的叙述错的是( )。
(满分:5)A. 单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件B. 按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件C. 双击工具箱中的控件图标，所画控件的大小和位置是固定的D. 不使用工具箱中的控件工具，不可以在窗体上画出图形对象，但可以写入文字字符正确答案:D2.利用下面哪个函数可判定访问文件时是否已到文件尾( )。
(满分:5)A. LOFB. LOCC. EOFD. BOF正确答案:C3.滚动条控件的属性中，表示取值范围最大值的属性是( )。
(满分:5)A. MaxB. LargeChangeC. MinD. Value正确答案:A4.用于设置文件列表框控件显示文件类型的属性是( )。
(满分:5)A. FilterB. PathC. ParternD. FileName正确答案:C5.当一个对象（如窗体或图片框）被移动或改变大小之后，或当一个覆盖该窗体被移开之后，如果要保持该所画图形的完整性，可以选择触发( )事件来完成图形的重画工作。
(满分:5)A. PaintB. LoadC. ClickD. Active正确答案:A6.程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面哪个选项用于表示拖动事件( )。
(满分:5)A. DragDropB. MouseDownC. MouseUpD. MouseMove正确答案:C7.为了使用通用对话框进行打开文件的操作，应将通用对话框的Action属性设定为( )。
(满分:5)A. 0B. 1C. 2D. 3正确答案:B三、判断题：1.VB程序语言两个基本特点是：结构化和事件驱动编程。
(满分:5)A. 错误B. 正确正确答案:A2.在VB中可以同时打开多个工程。
(满分:5)A. 错误B. 正确正确答案:A3.对象和类的区别在于前者是具体的，而后者则是抽象的。
vb第二章 程序设计基础 实验2
实验作业程序设计基础2实验目的1、掌握VB的基本数据类型，变量、常量的定义格式。
2、掌握运算符和表达式的表示方法。
实验要求1、选择题，填空题、运行结果题、转换题标明题号，答案写在实验报告上。
2、程序设计题中的第2题要求把事件代码写在实验报告上。
3、程序设计题单建一个文件夹，以学号和姓名命名，压缩后上交到ftp服务器上。
实验内容一、选择题1.表达式25.28 Mod 6.99的值是[ B ]。
（A）1 （B）5 （C）4 （D）出错2.表达式5 ^ 2 Mod 25 \ 2 ^ 2的值是[ D ].（A）1 （B）0 （C）6 （D）43.表达式( 7 \ 3 + 1) * (18 \ 5 - 1)的值是[ A ]。
（A）8.67 （B）7.8 （C）6 （D）6.674.要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句[ B ]。
（A）Option Base 0 （B）Option Explicit（C）Option Base 1 （D）OptionCompare5.表达式Int(-20.9)+Int(20.9+0.5)-Fix(-17.9)的值为__C____A.-17B.16C.17D.186.如果a,b,c的值分别为3,2,-3,则下列表达式的值是______Abs(b+c)+a*Int(Rnd+3)+Asc(Chr(65+a))A.10B.68C.69D.787.设m=”morning”,下列______表达式的值是”mor”BA.Mid(m,5,3)B.Left(m,3)C.Right(m,4,3)D.Mid(m,3,1)8.如果x是一个正实数，对x的第三位小数四舍五入的表达式是__A____A.0.01*Int(100*x+0.5)B.0.01*Int(10*x+0.5)C.0.01*Int(x+0.5)D.0.01*Int(x+5)9.求一个三位正整数n的十位数的方法是___A___A.Int(n/10)- Int(n/100)*10B. Int(n/10)- Int(n/100)C.n-Int(n/100)*10D. Int(n-Int(n/100)*1010.返回删除字符串前导和尾随空格符后的字符串，用函数 A 。
东大14秋学期《可视化程序设计(VB)》在线作业2
可视化程序设计（VB） 14秋学期《可视化程序设计(VB)》在线作业2一,单选题1. 执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是（）A. VisualB. BasicC. 6D. 11?正确答案：C2. 确定复选框是否选中，可访问的属性是（）。
A. ValueB. CheckedC. SelectD. Caption?正确答案：A3. 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。
要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是（）。
A. Option1.value=TrueB. Option1.Value=True Check1.Value=False Check1.Value=TrueC. Option2.正确答案：D4. 以下定义数组或给数组元素赋值的语句中，正确的是（）。
A. Dim a As Variant a=Array(1,2,3,4,5)B. "Dim a(10) As Integer a=Array(1,2,3,4,5)"C. "Dim a%(10) a(1)="ABCDE"D. "Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a"?正确答案：A5. 设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是（）。
A. TRUEB. FALSEC. 1D. 出错信息?正确答案：B6. 以下叙述中错误的是（）。
A. 打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B. 保存Visual Basic程序时，应分别保存窗体文件及工程文件C. Visual Basic应用程序只能以解释方式执行D. 事件可以由用户引发，也可以由系统引发?正确答案：C7. 将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是（）。
华南理工网络教育_高级语言程序设计(VB)·VB第二次作业
高级语言程序设计(VB)·VB第二次作业1.任何控件都有（）属性。
A. NameB. ValueC. CaptionD. Text答题： A. B. C. D.参考答案：A2.以下对象中不可以作为父对象的是（）A. Image图像框B. PictureBox图片框C. Form窗体D. Frame框架答题： A. B. C. D.参考答案：A3.Width 和Height是窗体的（）。
A. 对象B. 事件C. 属性D. 方法答题： A. B. C. D.参考答案：C4.要使命令按钮失效，则可以设置（）属性的值为False来实现。
A. ValueB. EnabledC. VisibleD. Cancel答题： A. B. C. D.参考答案：B5.下列一维数组说明语句错误的是（）。
A.Dim b(100) AS DoubleB.Dim b(-5 To 0) AS ByteC.Dim b(-10 To ？20) AS IntegerD.Dim b(5 To 5) AS String答题： A. B. C. D.参考答案：C6.若有数组说明语句为：Dim a(-3 To 8)，则数组a包含元素的个数是（）。
A. 5B. 8C. 11D. 12答题： A. B. C. D.参考答案：D7.以下属于VB合法的数组元素是（）。
A. x[5]B. x5C. x(5)D. x{5}小强很忙_小百货欢迎您！小强我只是个卖杂货的，家居日用百货批发，电脑周边配件、手机周边配件、摆地摊货源批发、2元店_5答题： A. B. C. D.参考答案：C8.下列数组说明语句中正确的是（）。
A. Dim a(-1 To 5,8)AS StringB. Dim a(n,n)AS IntegerC. Dim a(0 To 8,5 To ？1)AS SingleD. Dim a(10,-10)AS Double答题： A. B. C. D.参考答案：A9.设有数组说明语句：Dim b（-１To２，-２To２），则数组b中元素的个数是（）。
VB实验作业参考答案
1)单击窗体后在窗体上显示“您好！×××同学”。
要求：（1）程序中用自己的姓名替代“×××”。（2）文字以红色、仿宋体、加粗、三号字显示，并在字下加横线。（3）建立一个命令按钮，结束时单击此按钮退出。
答案参照课本P27的例1-6。
2)设计一窗体，窗体上有1个文本框（Text1）、1个命令按钮（Command1），运行时文本框中显示“Visual Basic程序设计”，命令按钮标题为“结束”，文本框及命令按钮能随窗体大小的调整而自动调整大小及位置，其中调整文本框使其：Left=0，Top=0，宽度和高度都为窗体的一半；命令按钮：始终位于窗体右下角位置。请编写：
Command1.Top = Form1.ScaleHeight - Command1.Height
End Sub
Private Sub Form_Resize()
Call Form_Load
End Sub
Private Sub Command1_Click()
End
Dim r1 As Single, r2 As Single, Rp As Single, Rs As Single
r1 = InputBox("请输入第一个电阻值：")
r2 = InputBox("请输入第二个电阻值：")
Rp = (r1 * r2) / (r1 + r2)
Rs = r1 + r2
程序代码：
Private Sub Command1_Click()
Dim sg As String, tz As String, bz As String
sg = Text1.Text
大学vb 实验作业5 顺序结构程序设计
提示：闰年的判断条件
（1）如果此年号能被400整除;
（2）如果此年号能被4整除，但不能被100整除。
满足以上两条件之一，则提示该年是闰年，否则提示该年不是闰年。
3、在文本框1中输入1到7之间的整数，在文本2中显示对应的英文单词。对应规则如下：
1——星期一；2——星期二；3——星期三；4——星期四；
软件：Microsoft Visual Basic 6.0
实验内容
１、编写程序判断某个数是否是水仙花数。
小知识：一个三位数其各位数字立方和等于该数本身，这个数就是水仙花数。如153是一个“水仙花数”，因为153=13＋53＋33。
要求：用inputbox函数输入一个三位数，将判断结果输出在消息框上，如是则在消息框提示该数是水仙花数(如下图１)，否则在消息框上提示该数不是水仙花数（如下图２）。
5——星期五；6——星期六；7——星期日
4、新建工程，在窗体上添加两个按钮，标题分别为“输入”和“交换”。
程序运行后，单击“输入”按钮，通过输入对话框输入两个整数；
单击“交换”按钮，如果第一个数小于第二个数，则交换两数。最后将两个数在窗体上显示出来。
实验小结
实验名称
实验五顺序结构程序设计
实验时间
第六周
实验目的
（1）掌握基本语句的用法
（2）掌握InputBox和MsgBox函数的用法
（3）进一步掌握编写简单顺序结构程序的方法
（4）掌握关系、逻辑表达式的正确书写形式
（5）掌握由IF语句构成的选择结构
（6）学会编写选择结构程序解决实际问题
实验环境
硬件：微型计算机
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
综合性实验实验名称: 学生信息查询系统专业班级：视传F1501班学生姓名：陈幸宇学号： 201525920526指导教师：李琳1 需求分析当今时代是飞速发展的信息时代，在各行各业中离不开信息管理处理，这正是计算机被广泛应用于管理系统的原因。
计算机的最大好处在于利用它能够进行信息管理。
使用计算机进行管理控制，不仅提高了工作效率，而且大大的提高了其安全性，尤其对于复杂的管理，计算机能够充分发挥它的优越性。
管理系是进统行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。
学生成绩管理系统是一个教育单位不可缺少的部分，它的内容对于学校的决策者和管理者来说都至关重要，所以学生成绩管理系统能为用户提供充足的管理手段，对学生来说可以轻松的查阅自己在校的成绩及排名。
学生成绩管理系统提供了强大的学生成绩管理功能，方便系统管理员对学生成绩等信息的添加、修改、删除、查询等操作。
1.1 查询功能（1）查询学生成绩班级专业等信息。
（2）查询学生考试是否通过。
在学生信息查询系统主页上，通过设置查看是否通过考试按钮，该按钮可以实现检测学生是否通过考试的功能。
（3）查看学生详细信息。
在主页，系统设置了查看学生详细信息的按钮，该按钮主要功能是实现在学生详细信息窗体浏览学生详细信息。
（4）组合查询方式查看详细信息：系统主页设置了一组详细查询按钮，功能主要是通过用户输入或选择的条件来实现不同的查询功能。
1.2 信息维护功能（1）学生信息添加: 在本系统主页设有访问学生数据库的各种按钮，并可以在主页上的文本框中显示各个信息供查询及浏览。
（2）学生信息删除：本系统主页设置了删除学生信息的按钮控件，用于删除无用信息。
（3）学生信息更新：系统主页的”更新数据”按钮可用于更新数据库里的学生信息。
1.3 信息共享功能（1）学生信息浏览：在系统主页中设有“查看详细信息”按钮，该按钮可以用于在“维护信息”窗体上显示该数据库指定记录下的学生详细信息。
（2）学生信息下载：在学生详细信息窗体下，用户可以对学上信息进行下载操作。
（3）学生照片浏览：在学生详细信息窗体下，系统设置了学生照片浏览按钮，可通过点击该按钮来浏览学生照片。
2 运行环境WINDOWS XP系统；VB6.0；3开发工具和编程语言Visual Basic6.0语言；4 系统设计4.1程序组织结构本学生信息查询系统主要由一个工程和四个窗体组成，四个窗体主要包括登录系统，学生成绩查询，维护信息，学生详细信息窗体。
另外，在工程属性中将“登录系统”窗体设置为启动窗体，并用多重窗体操作功能使四个窗体实现相互连接或访问，完善系统结构学号查询方式点击进入详细信息窗体组合查询方式查看是否通过考试退出系统4.2 系统登录窗体用户登录，输入密码登录流程4.2.1结构设计系统窗体上主要设计了三个文本框，两个按钮控件，构成了窗体的主体结构。
包括有用户名输入区，密码输入区，以及登录按钮和重置按钮。
该功能主要用于输入用户信息和登录系统主页。
4.2.2 代码与功能介绍（1）编辑Form_Load()事件。
主要包括窗体caption，FontName ，FontSize属性。
另外在窗体的属性窗口设置pic ture属性，即为窗体装入一幅登录界面的图片，使窗体更为美观。
最后设置输入用户名和密码的文本框属性，设置其输入最大值，以及显示“*”的passwordchar的默认显示方式。
Caption = "登录系统"FontName = "宋体"FontSize = 20Text1.Text = ""Text1.MaxLength = 6Text2.Text = ""Text2.MaxLength = 4Text2.PasswordChar = "*"（2）Command1_Click()事件。
即编辑窗体中“登录”按钮的事件代码。
该事件中，要设计使得程序可以限制文本框输入的字符大小，还有判断输入的密码（密码设为“123“）是否正确。
如果正确的话，则弹出个提示框“成功登录”。
否则弹出一个密码错误的提示框，并通提示框返回值判断是否重新输入密码。
主要代码如Dim i As IntegerIf Text2.Text <> "123" Theni = MsgBox("密码错误", , 37, "警告")If i <> 4 ThenEndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfForm3.HideForm1.ShowMsgBox "成功登录系统", 48, "提示"（3）Command2_Click()事件。
即重置按钮事件，该按钮主要实现账号或密码输错是的重新输入，达到快速清空文本框的作用。
Text1.Text = ""Text2.Text = ""（4）Text1_LostFocus()事件。
即判断输入账号是否为数字，若为非数字类型，则弹出错误的提示框。
若满足要求则执行文本框1的LostFocus事件。
代码如下If Not IsNumeric(Text1.Text) ThenMsgBox "账号必须为数字", , "警告"Text1.Text = ""Text1.SetFocus4.3 学生信息查询窗体4.3.1结构设计本窗体由文本框，按钮，组合框等控件构成。
是系统的主窗体，可以实现数据库查询，浏览，更新等操作功能。
设置Form_Load()事件，使窗体，ADO，文本框，标签，网格控件具有各种默认属性，并实现ADO控件与学生信息数据库的连接，网格控件和ADO控件的绑定。
实现程序运行时绑定控件自动与连接到ADO控件生成的记录中的某字段，并与记录集数据之间同步。
ADO控件与数据库连接方法的步骤为（1）使用ADO连接对象建立于本系统的学生信息库数据提供者的连接。
（2）使用ADO命令对象操作数据源，从数据源产生记录集并存放在电脑内存中。
（4）建立记录集与数据绑定控件的关联，在窗体上显示数据。
（其中部分窗体和文本框，标签的初始属性已在其属性窗体中设计，这里不再说明）Dim n$, m$n = App.Path ‘获取程序所在路径If Right(n, 1) <> "\" Then n = n + "\" ‘判断是否为子目录m = "provider= Microsoft.Jet.OLEDB.4.0;" ‘指定提供者m = m + "Data source = " + n + "student.mdb" ‘在数据库文件名前出入路径Adodc2.ConnectionString = m ‘设计连接属性mandType = adCmdUnknown ‘指定记录集命令类型Adodc2.RecordSource = "select * from 学生信息"Adodc2.RefreshSet DataGrid1.DataSource = Adodc2 ‘数据库与网格控件的绑定4.3.2 代码与功能介绍（1）查询功能：主要包括按学号查询功能，组合查询功能以及查看学生详细信息的功能。
事件代码如下学号查询按钮代码Dim a As Stringa = InputBox("请输入学号", "学号查询")Adodc2.Recordset.Find "学号 = '" & a & "'", , , 1 ‘查找学号为a的学生 If Adodc2.Recordset.EOF Then MsgBox "无此学号", , "提示"例如：在弹出的输入对话框中输入“2003”的学号，点击确定按钮后，数据库自动跳到该学号为2003王五学生记录集并显示其信息。
是否通过考试查询按钮代码Dim a As Integera = Val(Text3.Text) ‘根据成绩文本框中的成绩实现判断功能Select Case aCase 1 To 59Text5.Text = "不及格未通过考试"Case 60 To 79Text5.Text = "中通过考试"Case 70 To 89Text5.Text = "良通过考试"Case 90 To 100Text5.Text = "优通过考试"End Select例如，点击该按钮查询张三学生是否通过考试，由于其成绩56分处于第一个条件，所以显示“不及格，未通过考试。
”组合查询按钮代码t = "" ‘设置条件变量初值If Text2.Text > "" And Combo1 > "" Then ’同时输入性别和专业查询学生数据mandor = "and" ‘连接设置为If Option2 Then mandor = "or" ‘若选ort = "where 专业 = '" & Text2 & "'" & mandor & " 性别 = '" & Combo1 & "'"ElseIf Combo1 > "" Then ‘只输入专业的查询t = "where 专业 = '" & texte2 & "'" ‘构造查询条件字符串ElseIf Combo1 > "" Then ‘只选择性别查询t = "where 性别 ='" & Combo1 & "'" ‘构造查询条件字符串End IfAdodc2.RecordSource = "select * from 学生信息" & tAdodc.Refresh例如，在专业文本框中输入“数学”，选择单选按钮“and ”在性别组合框中选择“男”并点击组合查询按钮后即可得到满足该条件的学生记录集。