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的理论作业
1、在Visual Basic中，某对象的属性窗口如右图所示，该对象名是（）A．Enabled B．Timer C．tine D．tine Timer2、某学生设计了一个VB应用程序，他单击了窗体上的“测算”按钮对象，应用程序的窗体界面及按钮的属性窗口界面如下图所示，现在想编制该按钮单击事件的处理过程，则该事件处理过程名是()A．测算_Click B．Command1_Click C．Cmd1_Click D．Cmd1_DblClick 3、一个VB工程的部分设计界面如下图所。
下列说法错误．．的有()①工程文件名是“工程1.vbp”②该工程只有1个窗体③窗体文件名是“Form.frm”④窗体名称是“对象识别”A．①②B．②③C．①③D．③④4、一个VB程序的运行界面如下图所示。
下面说法不正确．．．的是()A．文本框Text1的Caption属性值为“H”B．标签Label1的Caption属性值为“输入字符”C．命令按钮Command1的Caption属性值为“查询”D．窗体的Caption属性值为“查询字符ASCII码”5、一个窗体VB工程的部分设计界面如下图所示：该窗体的名称是()A．MyForm B．FrmMain C．Form1 D．工程16、下列关于对象的描述中，错误．．的是()A．对象的属性用于描述对象的状态B．对象的属性与方法可以有多个C．对象事件的发生会驱动该对象相应事件处理过程的执行D．对象的属性值只能在属性窗口中设置7、在程序中用变量存储某个人的身份证号码，以下数据类型合适的是()A．Integer B．Long C．String D．Boolean8、在VB中，下列属于字符串常量的是()A．”2014”B．ABC C．True D．9.89、下列可作为Visual Basic变量名的是()A．4if B．if_4 C．_if4 D．if10、用下面语句定义的数组的元素个数是()Dim names(5) As StringA．4 B．5 C．6 D．不确定11、在Visual Basic中，下列能作为变量名的是()A．you B．As C．x＋y D．2b12、已知某校100名学生的身高数据(包含一位小数)，要求编写VB程序，统计超过平均身高的人数。
vb考试题
章节作业--第1次作业:10题1、, Visual Basic的三种工作模式是。
A) 编辑 B) 编译 C) 设计、运行、中断 D) 连接正确答案是: C 你选择的答案是：C √2、, 在Visual Basic中，以下什么方法可以改变窗体的大小。
A) 设计时在窗体布局窗口中进行调整。
B) 运行时设置窗体的Left属性。
C) 运行时调用窗体的Move方法。
D) 设计时在窗体布局窗口中点鼠标右键，在快捷菜单中进行设置。
正确答案是: C 你选择的答案是：C √3、, 如果要使窗体的最小化按钮变成灰色（不起作用），需设置窗体的（）属性。
A) Caption B) Icon C) MaxButton D) MinButton正确答案是: D 你选择的答案是：D √4、, 要使窗体上的所有控件具有相同的字体格式，应首先在属性窗口中对（）的Font属性进行设置，然后再添加各控件。
A) 所有控件 B) 窗体 C) 标签控件 D) Fontname正确答案是: B 你选择的答案是：B √5、, 在属性窗口设置命令按钮的DownPicture属性，指定按下时显示的图形文件，但在运行时按下命令按钮却没有效果，原因是（）。
A) 命令按钮的Default属性为True B) 命令按钮的Style属性为2-PictureC) 命令按钮的Style属性为0-Standard D) 命令按钮的Style属性为1-Graphics正确答案是: C 你选择的答案是：C √6、, 要在窗体上显示图片，需设置窗体的（）属性。
A) Caption B) IconC) Picture D) ControlBo正确答案是: C 你选择的答案是：C √7、, “重复”命令是对（）命令的反操作。
A) 撤消 B) 查找C) 复制 D) 剪切正确答案是: A 你选择的答案是：A √8、, 运行时，单击窗体（Form1）将窗体的前景色设置为红色的事件过程是（）。
VB题库
作业一简单VB程序设计1.在VB程序设计中，响应对象的外部动作称为_____，而对象可以执行的动作或对象本身的行为则称为_____。
（A）方法，事件（B）事件，方法（C）属性，方法（D）过程，事件2.在VB6.0集成开发环境中不能完成的工作是_____。
（A）输入和编辑源程序（B）编译生成可执行程序（C）调试运行程序（D）自动查找并改正程序中的错误3.VB6.0集成开发环境不包括_____。
（A）DOS界面窗口（B）窗体窗口（C）代码窗口（D）属性窗口4.当运行程序时，系统自动执行启动窗体的_________事件过程。
（A）Load （B）Click（C）Unload （D）GotFocus5.用一个程序段对一对象被单击(或双击)作出响应，从而实现指定的操作，称为______。
（A）可视画化程序设计（B）事件驱动编程机制（C）过程化程序实际方法（D）非过程化程序设计语言6.Visual Basic有三种工作模式，它们分别是______模式。
（A）设计、编译和运行（B）设计、运行和中断（C）设计、运行和调试（D）编译、运行和调试7.Visual 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.文本框没有______属性。
《第一单元 Visual Basic初步 第1课 VB开发环境简介 设置VB工作环境》作业设计方案-
《设置VB工作环境》作业设计方案（第一课时）一、作业目标通过本次作业，学生应掌握VB（Visual Basic）工作环境的基本设置，包括创建新项目、设置工作空间、设置工具栏和菜单栏等。
同时，学生应了解VB的基本操作流程，为后续编程打下基础。
二、作业内容1. 创建新项目：学生在VB环境中创建一个简单的控制台应用程序，并为其命名；2. 配置工作空间：将工作空间设置为应用程序的名称，并将工具栏隐藏；3. 设置菜单栏：为应用程序添加菜单栏，并进行基本设置；4. 设置工具栏：将工具栏隐藏或调整至合适的位置；5. 保存并退出VB环境。
三、作业要求1. 学生需独立完成作业，不得抄袭；2. 作业中应包含对VB基本操作流程的描述；3. 作业完成后，需提交截图或录屏视频以供批改；4. 作业提交截止日期：作业下课前，请将作业提交至教师指定的平台。
四、作业评价1. 评价标准：根据学生作业完成情况，包括是否达到作业目标、操作流程描述是否清晰、设置是否正确等进行评价；2. 评价方式：教师批改学生提交的作业，并给出相应的评价分数；3. 评价反馈：对于评价中存在的问题，教师将及时反馈给学生，并指导学生进行修改。
五、作业反馈教师将在批改学生作业后，针对存在的问题和不足进行反馈，同时对学生的进步给予肯定和鼓励。
学生应根据教师的反馈，及时调整自己的学习方法和思路，提高自己的信息技术能力。
在完成作业的过程中，学生应积极思考和尝试不同的方法，不断提高自己的实践能力和创新意识。
同时，学生之间也可以相互交流和讨论，取长补短，共同提高。
此外，学生还应关注VB环境的发展和更新，及时了解新的技术和工具，为自己的学习和未来的职业发展做好准备。
总之，通过本次作业，学生将进一步了解和掌握VB工作环境的基本设置和操作流程，为后续的编程学习打下坚实的基础。
同时，学生也将不断提高自己的实践能力和创新意识，为未来的信息技术发展做好准备。
作业设计方案（第二课时）一、作业目标通过本次作业，学生应能够熟练掌握VB工作环境的基本设置，包括工具箱、菜单栏、工具栏、属性窗口等组件的正确摆放和调整。
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数组作业
1、编写程序，产生50个互不相同的10~99的随机整数，统计各数值段（10~19，20~29，….80~89，90~99）有多少个数并输出。
提示：可另用数组b来存各分数段的人数，并用b(1)存10~19分的人数，b(2)存20~29分的人数，… b(9)存90~99分的人数。
关键代码：k = Int(a(i) / 10)b(k) = b(k) + 12、设有如下两组数据。
编写一个程序，把两组数据分别读入两个数组中，然后把两个数组中对应下标的元素相加，即2+79，8+27，…，25+80，并把相应的结果放入第三个数组中，最后输出第三个数组的值。
A 2 8 7 6 4 28 70 25B 79 27 32 41 57 66 78 80关键代码：c(i) = a(i) + b(i)3、产生10个互不相同的10~99的随机整数，将这10个值交换并输出，交换规则如下：第1个与第10个交换第2个与第9 个交换第3个与第8 个交换第4个与第7 个交换第5个与第6 个交换4、在文本框中输入一串字符，统计各字母出现的次数并将结果显示在图片框中（不区分字母的大小写）。
提示：英文字母共26个，可以分为26类。
用数组的26个元素分别保存每种字母出现的次数。
从输入的字符串中逐一取出字符，转换成大写字符来判断。
再求得其在数组中的下标。
关键代码：j = Asc(c) - 65 + 1A(j)=A(j)+15、采用控件数组编写一个简单的计算器。
要求该计算器能够实现简单的加、减、乘、除运算。
6、下图所示程序利用7个LABEL1控件创建了一个控件数组，程序运行时单击窗体，在窗体上显示由7段组成的一个阿拉伯数字“5”。
请自行创建程序界面，并修改下列代码，使之能显示7段组成的数字“3”。
Private Sub Form_Click()Dim a As VariantMe.BackColor = vbWhitea = Array(1, 0, 1, 1, 1, 0, 1)For i = 0 To 6If a(i) = 1 ThenLabel1(i).BackColor = vbRedElseLabel1(i).BackColor = vbWhiteEnd IfNext iEnd Sub。
VB课后作业
1.VB最突出的特点是：事件驱动编程机制。
2.VB集成环境的主窗口不包括状态栏。
3.f4激活属性窗口。
属性窗口的4各部分：对象框属性显示方式、属性列表、属性解释。
4.ctrl+F4,关闭窗口5.控件有3类：标准控件，activeX控件，可插入对象。
6.F7——打开代码窗口7.VB开发程序的三步：建立可视用户界面、设置可视界面特性、编写事件驱动代码。
8.控件和窗体的NAME属性是只读属性。
9.代码窗口：左栏：对象，右栏：过程。
10.VB的3个模块为：窗体，标准，类。
11.在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。
当单击第一个命令按钮时，文本框消失；当单击第二个命令按钮时，文本框重现。
并在文本框中显示“VB程序设计”（字体大小为16）。
答：command1 clickText1.visiable=falseCommand2 clickText2.visiable=true.Text2.fontsize=16Text2.text=”VB程序设计”12.VB中变量名只能以字母开始。
13.or and 取负。
14.Unicode与ANSI的转换函数是：strconv。
Unicode方式，西文，中文都为1个字符，占2个字节。
15.28°=（28/180）*3.1416.任何函数的参数，都要用括号括起。
17.表达式中不可以出现pai，用3.14表示18.乘号要用*代表19.平方：20.数字乘以字母，之间也得加*21.ln2：用（log(2)/log(e)）表示。
22.mid函数，参数是从第几个开始后的几个。
23.VB中字符串要用引号括起来，日期/时间要用井号括起来。
24.优先级：* / \25.print sgn(-6^2)+abs(-6^2)+int(-6^2) →-126.负号与平方一起时：先平方，再负号。
27.format（）。
#不需添0，而0需要添。
北语直属14秋《VB》作业1满分答案
作业名称：14秋《VB》作业1 出卷人：SA
作业总分：100 通过分数：60
起止时间：2015-1-13 11:54:52 至2015-1-13 12:25:55
学员姓名：学员成绩：100
标准题总分：100 标准题得分：100
详细信息：
题号:1 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
在Visual Basic工程中，可以作为"启动对象"的程序是___。
A、任何窗体或标准模块
B、任何窗体或过程
C、Sub Main过程或其他任何模块
D、Sub Main过程或任何窗体
标准答案:D
学员答案:D
本题得分:4
题号:2 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是___。
A、Cos (a+b) ^2+5*exp(2)
B、Cos^2(a+b)+ 5*exp(2)
C、Cos (a+b) ^2+5*ln(2)
D、Cos^2(a+b)+ 5*ln(2)
标准答案:A
学员答案:A
本题得分:4
题号:3 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:
一个语句要在下一行中继续书写，可以用___符号作为续行符。
A、‘+’
B、-
C、_
D、…
标准答案:C
学员答案:C
本题得分:4
题号:4 题型:单选题（请在以下几个选项中选择唯一正确答案）本题分数:4 内容:。
大学vb 实验作业4 简单控件的使用(三)
实验小结
实验内容
1、完成上课讲解的分离数字的例子。参考界面如下：
要求：将文本框中的数据按字符型数据进行处理，用函数实现。
2、输入一个三位数，将它逆置后输出，要求将文本框中的数据按数值型数据进行处理，用算术表达式实现（利用mod、\、*、+等运算符）。参考界面如下：
3、设计一个简单的时间显示牌，显示中秋节已过多少天。参考界面如下：
实验名称
实验四简单控件的使用（三）
实验时间第四周来自实验目的（1）掌握各类运算符和表达式的正确使用方法。
（2）掌握主要内部函数的使用。
（3）熟练利用立即窗口进行验证和测试。
（4）掌握基本语句的用法。
（5）进一步掌握编写简单顺序结构程序的方法。
实验环境
硬件：微型计算机
软件：Microsoft Visual basic 6.0
VB课后作业
第三章一、判断题1．整型变量有Byte、Integer、Long类型3种。
2．Byte类型的数据，其数值范围在-255～255之间。
3．Visual Basic的Double类型数据可以精确表示其数值范围内的所有实数。
4．在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。
5．关系表达式是用来比较两个数据的大小关系的，结果为逻辑值。
6．一个表达式中若有多种运算，在同一层括号内，计算机按函数运算→逻辑运算→关系运算→算术运算的顺序对表达式求值。
7．赋值语句的功能是计算表达式值并转换为相同类型数据后为变量或控件属性赋值。
8．用DIM定义数值变量时，该数值变量自动赋初值为0。
52307 .变量定义：Dim Count As integer, sum As single等价于: Dim Count%,sum!√52308 .变量定义：Dim Count As integer, sum As float等价于: Dim Count%,sum!以上的变量定义的格式，和等价的格式都正确。
×52310 .在VB中运算结果的数据类型向精度高的数据类型靠，规则是：Integer＜Long＜Single＜Double＜Currency√52315 .能在DOS下或Windows下运行的应用程序，也可以在VB中调用。
形式为： Shell(命令字符串,窗口类型)但Shell函数只能调用扩展名为以下几种类型的文件，它们是：.exe，.bat，.com，.txt 。
×52406 定义变量的语句 Dim abc As String * 3 是正确的。
√52410 .VB中的函数一次只能返回一个值。
√52421 .变量指程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
√52463.变量名第一个字符必须不能是数字√52473 .表达式(8＋6)^(4/(－2))－5*(C＋D)是正确的。
VB作业文档格式
VB作业文档格式(只写题号答案，不用抄题)习题二3. 写VB表达式(1) Abs(x + y) + z ^ 5(2) (1 + x * y) ^ 6(3) (10 * x + Sqr(3 * y)) / (x * y)(4) (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)(5) 1 / (1 / r1 + 1 / r2 + 1 / r3)(6) Sin(45 * 3.14159 / 180) + (Exp(10) + Log(10)) / Sqr(x + y + 1)4. 根据条件写表达式(1) 随机产生大写字母Chr(Int(Rnd * (Asc("L") - Asc("C") + 1) + Asc("C")))(2) [100,200]内的随机数Int(Rnd * 101) + 100(3) 点(x,y)位于第一或第三象限x > 0 And y > 0 Or x < 0 And y < 0 或x *y > 0(4) x是5或7的整数倍x Mod 5 = 0 Or Int(x / 7) = x / 7(5) 将两位整数x的个位与十位对换x \ 10 + (x Mod 10) * 10(6) 四舍五入取两位小数Round(x, 2)(7) 字符变量C是字母字符（不区分大小写）——准确地说是：字符变量C的第一个字符是字母C >= "A" And C <= "Z" Or C >= "a" And C < "z"或UCase(C) >= "A" And UCase(C) <= "Z"或LCase(C) >= "a" And LCase(C) <= "z"(8) 字符变量S第5个字符起取6个字符Mid(S, 5, 6)(9) 10≤x＜20 10 <= x And x < 20(10) x，y至少有一个小于z x < z Or y < z(11)x，y都大于z x > z And y > z5. 写表达式的值(1) 188 ——注意运算的优先级顺序，以及整除运算“\”的计算(2) 200100 ——计算100 + "100"时，由于两个操作数类型不同，在可能的情况下自动采用精度较高的类型，即把字符型转换为数值型，100 +100 得到200；然后进行字符串连接运算200 & 100 ，再自动将两个数值转换为字符串，得200100。
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实验作业参考答案
vb实验作业参考答案VB实验作业参考答案引言：Visual Basic（VB）是一种基于事件驱动的编程语言，广泛应用于Windows操作系统的软件开发。
在学习VB编程过程中，实验作业是非常重要的一部分，通过实践来巩固所学知识。
本文将提供一些VB实验作业的参考答案，帮助读者更好地理解和掌握VB编程。
一、VB基础知识实验作业参考答案1. 实验题目：编写一个VB程序，实现两个整数的加法运算，并将结果显示在文本框中。
参考答案：```Private Sub btnAdd_Click()Dim num1 As IntegerDim num2 As IntegerDim result As Integernum1 = CInt(txtNum1.Text)num2 = CInt(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result)End Sub```2. 实验题目：编写一个VB程序，实现输入一个数字，判断该数字是奇数还是偶数，并在消息框中显示结果。
参考答案：```Private Sub btnCheck_Click()Dim num As Integernum = CInt(txtNum.Text)If num Mod 2 = 0 ThenMsgBox "该数字是偶数"ElseMsgBox "该数字是奇数"End IfEnd Sub```二、VB控件应用实验作业参考答案1. 实验题目：编写一个VB程序，实现一个简单的计算器功能，包括加法、减法、乘法和除法操作。
参考答案：```Private Sub btnAdd_Click()Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 + num2txtResult.Text = CStr(result) End SubPrivate Sub btnSubtract_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 - num2txtResult.Text = CStr(result) End SubPrivate Sub btnMultiply_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text) num2 = CDbl(txtNum2.Text)result = num1 * num2txtResult.Text = CStr(result) End SubPrivate Sub btnDivide_Click() Dim num1 As DoubleDim num2 As DoubleDim result As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)If num2 = 0 ThenMsgBox "除数不能为0"Elseresult = num1 / num2txtResult.Text = CStr(result)End IfEnd Sub```2. 实验题目：编写一个VB程序，实现一个简单的登录界面，包括用户名和密码输入框以及登录按钮。
东师《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 实验作业1 熟悉Visual Basic集成开发环境
实验一 熟悉 Visual Basic 集成开发环境 2013 年 9 月 4 日 3-6 节、9 月 5 日 5-8 节 （1）掌握 VB 的启动和退出。
实验目的
（2）掌握利用 VB 建立、编辑、保存及运行应用程序的过程。 （3）了解和使用 VB 集成开发环境各窗口、菜单的一般功能。 （4）了解基本控件窗体、标签、文本框、命令按钮的属性、事件和方法。
实 验 内 容
3、 简单界面设计。 要求设置窗体的 icon、 caption、 minbutton、 maxbutton、 controlBox 和 picture 属性，属性值自定，运行观察设置的结果。 4、简单界面设计。在窗体上建立一个文本框控件。 要求： ①文本框无初始内容。 ②高、宽分别为 2000 和 1800。 ③可显示多行。 ④有水平滚动条。 ⑤字体样式为斜体。 ⑥最多允许输入 20 个字符。 ⑦输入的字符以“*”显示。 运行观察设置的结果。
实 验 小 结
2、简单界面设计。在窗体上建立一个标签控件和两个命令按钮控件。 要求： ①适当调整两个命令按钮的格式，如对齐、尺寸等。 （选中命令按钮后，单击格式菜单下的相关命令） ②两个命令按钮 command1 和 command2 的 caption 属性值分别为： “中 文”和“英文” 。 ③编写 command1 命令按钮的 click 事件， 实现在标签上输出 “计算机” 。 编写 command2 命令按钮的 click 事件， 实现在标签上输出 “computer” 。
实验环境
硬件: 微型计算机 软件: Microsoft Visual Basic 6.0 1、简单界面设计。设计实现以下界面：运行时，单击“大家好”命令按钮， 在窗体上输出“hello everyone!”
VB程序网上作业答案
VB程序⽹上作业答案客观题_0001试卷总分：100 测试时间：240单项选择题判断题⼀、单项选择题（共20 道试题，共80 分。
）1. ⽤户在组合框中输⼊或选择的数据可以通过⼀个属性获得，这个属性是（）。
A. ListB. ListindexC. TextD. Listcount2. 在设计菜单时，如果要在菜单中加⼊⼀个菜单分隔条，则菜单分隔条的标题必须设置为（）。
A. 加号（+）B. 减号（-）C. 星号（*）D. 感叹号（!）3. 保存新建的⼯程时，默认的⽂件夹是（）。
A. My DocumentB. VB98C. "\ "D. Windows4. 要清除列表框的所有内容，可⽤（）⽅法来实现。
A. RemoveTtemB. ClsC. ClearD. 以上均不可以5. ⽤标准⼯具栏中的⼯具按钮不能执⾏的操作是（）。
A. 添加⼯程B. 打印源程序C. 运⾏程序D. 打开⼯程6. 改变驱动器列表框的Drive属性值，将激活（）事件。
A. ChangeB. ScollC. KeyDownD. KeyUp7. 下列语句语法正确的是（）。
A. a=1 b=2 c=3B. a=l：b=2：c=3C. a=1，b=2，c=3D. a=1；b=2；c=38. 要在窗体Form1内显⽰“myfrm”，使⽤的语句是（）。
A. Form. print "myfrm"B. ="myfrm"C. "myfrm"9. 图象框Image没有的属性是（）。
A. PictureB. AppearanceC. AutoRedrawD. 以上属性都没有10. 可获得字符的ASCII码的函数是（）。
A. ValB. FixC. AscD. Chr11. 计时器没有的属性是（）。
A. IntervalB. EnableC. SizeD. Index12. 以下选项中，不是Visual Basic标准控件的是（）。
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
VisualBasic编程与应用作业1及答案
⼀、问答题1．什么是可视化编程和事件驱动？解答：可视化编程：在设计界⾯时，只需将所需要的控件放到窗⼝的指定位置，整个界⾯设计过程基本不需要编写代码。
在开发过程中所看到的界⾯，与程序运⾏时的界⾯基本相同。
概括地说可视化编程就是程序员在开发过程中能看到界⾯的实际效果。
事件驱动：是指应⽤程序没有预定的执⾏路径，⽽是由程序运⾏过程中的事件决定。
2．对象、事件和⽅法三者之间的关系如何？解答：在VB程序设计中，完成某种功能可通过触发对象事件和调⽤对象⽅法，⽽触发事件和调⽤对象⽅法都必须基于某个对象。
触发某个事件实际上就是执⾏⼀个事件过程代码段，在该代码段中⼜可以随意调⽤对象⽅法，⽽调⽤对象⽅法不可能触发某个事件。
3．属性和⽅法有何区别和联系？解答：对象的属性是描述对象的⼀组特征。
如设置对象的名称、标题、颜⾊、⼤⼩等，有的可直接在设计界⾯时通过属性窗⼝进⾏设置，有的可以在事件过程或通⽤过程代码中进⾏设置。
对象的⽅法是在对象上实施某种操作的功能，不能在设计界⾯时调⽤对象⽅法，⼀般在过程代码中可随意调⽤，根据需要还可以添加适当的参数。
设置对象属性和调⽤对象⽅法均可在代码设计中进⾏，其⼀般格式为：对象名.属性名=属性值（设置对象属性）对象名.⽅法名（调⽤对象⽅法）4．下列哪些可作为Visual Basic的变量名，哪些不⾏？4*Delta Alpha 4ABC AB丌 ReadDataFilename A(A+B) Read解答：可作为Visual Basic变量名的是：Alpha，ReadData， Filename，Read。
其它均不能作为变量名。
5．Visual Basic中是否允许出现下列形式的数？⼟25.74 3.457E-10 .368 1.87E+5010∧（1.256） 2.5E 12E3 0.258解答：允许出现的数为：3.457E-10，.368，12E3，0.258。
6．指出下列Visual Basic表达式中的错误，并写出正确的形式。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、退出Visual Basic的快捷键是（C）。
A.Ctrl+QB.Shift+QC.Alt+QD.Ctrl+Alt+Q2、Visual Basic规定工程文件的扩展名是（C ）。
A．for B．frm C．vbp D．bas3.下列关于变体类型的描述，其中正确的是__A___。
A. 变体是一种没有类型的数据B. 变体的空值就表示该变体的值为0C. 一个变量没有定义就赋值使用，该变量即为变体类型D. 变体是赋给变量某一种类型数据后，就不能再赋给它另一类型的数值4.下列表达式中，表达式___ A____的运算结果与其它3个不同。
A. Int(-3.5)-1.5B. Int(-4.5)+0.5C. -Abs(-4.5)D. Fix(-4.5)-0.55.函数Mid("123456789",3,4)的值是___ _C__。
A. "3456"B. "456"C. 3456D. 4566.实现将小写字母转换成大写字母的函数是___C___。
A. Str( )B. Upper( )C. Ucase( )D. Lcase( )7.函数Int(Rnd*5)+1产生的随机整数的范围是_____D__。
A. [0,6]B. [1,6]C. [0,5]D. [1,5]8.表达式Len("123程序设计ABC")的值是____A___。
A. 10B. 14C. 20D. 179.与语句Dim abc%作用相同的语句是_____A_。
A. Dim abc As IntegerB. Dim abc As LongC. Dim abc As StringD. Dim abc As Date10.在属性窗口中，属性有两种排列方式，分别是___D___。
A. 日期和时间B. 事件和对象C. 文件大小和名称D. 字母顺序和分类顺序11.对于窗体Form1，执行了Form1.Top=Form1.Top-100语句后，该窗体将___A___。
A. 上移B. 下移C. 左移D. 右移12、在窗体的单击事件里执行以下两个语句，结果将在窗体上显示__B__Private Sub form_Click()Print "80+100=";Print 80 + 100End SubA.80+100=80+100B.80+100= 180C.180D.80+100= 18013、任何控件都具有___C_属性。
A)Text B)CaptionC)Name D)ForeColor14.要使文本框成为只读文本框，可通过设置___C____属性值为True来实现。
A. ReadOnlyB. LockC. LockedD. Enabled15.若要设置定时器控件定时触发Timer事件的时间间隔，可通过____A___属性来设置。
A. IntervalB. ValueC. EnabledD. Text16.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox("Enter the First integer")b = InputBox("Enter the Second integer")Print b + aEnd Sub程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是（D ）A.579B.123C.456D.12345617.MsgBox函数的返回值的类型是__A_____。
A. 整型B. 字符串C. 逻辑值D. 日期型18. 循环结构 For i = 1 To 10 Step 1.5 的执行次数是___D___。
A. 10B. 9C. 8D. 719.以下程序段的运行结果是__A_____。
Private Sub Form_Click()Dim s As Long, f As LongDim n As Integer, i As Integerf = 1n = 4For i = 1 To nf = f * is = s + fNext iPrint sEnd SubA. 33B. 34C. 35D. 3620. 以下程序段的运行结果是___ __C_。
a = 1b = aDo Until a >= 5X = a * bPrint a & "*" & b & "=" & X,a = a + bb = b + aLoopA. 1*1=1 3*3=9B. 1*1=2 2*2=4C. 1*1=1 2*3=6D. 1*1=2 3*2=621．执行如下程序段时，从键盘输入-5，输出的结果是____A___。
x=-5s=Val(InputBox("请输入s的值:"))Select Case sCase Is>0y=x+1Case Is=0y=x+2Case Elsey=x+3End SelectPrint x;yA. -5 -2B. -5 -4C. -5 -3D. -5 -522．判断输入的数T为大于6的偶数，表示该条件的表达式为D___。
A. T>6 or T /2=0 B. T>6 and T /2=0C. T>6 or T Mod 2=0D. T>6 and T Mod 2=023.用语句 Dim A(-2 to 2) As Long 定义的数组元素个数是____C___。
A. 3B. 4C. 5D.624.在窗体上画一个命令按钮Command1，然后编写如下代码：Private Sub Command1_Click()Dim arr1(10), arr2(10) As Integern = 3For i = 1 To 5arr1(i) = iarr2(n) = 2 * n + iNext iPrint arr1(n);arr2(n)End Sub程序运行后，单击命令按钮，输出结果是_____B__。
A. 113B. 3 11C. 13 3D. 3 1325.在窗体上画一个命令按钮Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim p(3) As Integerk = 1For i = 0 To 3p(i) = ik = k * p(i)Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是__D____。
A. 12B. 6C. 5D. 026.执行下面程序后，输出的结果是___B____。
Private Sub Form_Click()Dim a(10, 10) As IntegerFor i = 1 To 10For j = 1 To 10a(i, j) = i + jNext jNext iPrint a(1, 2) + a(2, 3)End SubA. 6B. 8C. 10D. 1227.在过程定义中用____C__表示形参的传值。
A. VarB. ByRefC. ByValD. Value28.以下程序段的运行结果是____C___。
Dim y As IntegerPrivate Sub Form_Click()Dim x As Integerx = 1:y = 1z = bb(x)Print x; y;zEnd SubPublic Function bb(n As Integer)y = y + 1bb = n + yEnd FunctionA. 1 1 1B. 1 2 1C. 1 2 3D. 2 2 229、在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x, y, z As Integerx = 5y = 7z = 0Text1.Text = ""Call P1(x, y, z)Text1.Text = Str(x)End SubSub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是（A）。
A) 5 B) 12 C) Str(z) D) 730.下面（B ）不是Visual Basic提供的访问模式.(A)顺序访问模式(B)随机访问模式(C)二进制访问模式 (D)动态访问模式二、程序阅读题1. 阅读以下程序段，并回答以下问题Private Sub Command1_Click()For x = 1 To 2a = 0For y = 1 To x + 1a = a + 1Next yPrint a;Next xEnd Sub1）程序的运行结果为DA. 1 1B. 0 0C. 1 2D. 2 32）下面说法正确的是CA．程序段Print a;中，“；”可以去掉并不影响输出的结果B．程序段Print a;中，“；”可以去掉并不影响输出结果，只是影响输出的格式C．变量a统计了循环x的运行次数D．变量a不能统计循环y的运行次数3）去掉a=0之后，程序运行的结果为CA．2 3 B. 2 4C. 2 5 D 2 64）下列对For循环叙述正确的是CA．For循环只能用于循环次数已知的循环B．For循环的步长只能是1C．Exit For用于退出循环D．以上说法均不正确2．下列程序实现了如下图所示的图形打印，请完成以下选择填空将程序补充完整Private Sub Command1_Click()For i = 1 To ____①____Print ___②______For j = 1 To _____③___Print "*";Next j____④___End Sub1）程序①处应该填入程序为DA．5 B.6 C.7 D.82）程序②处应该填入程序为AA. Tab(20 - i);B. Tab(20 + i);C. Tab(20);D. Tab(20 + i+1);3) 程序③处应该填入程序为AA. 2 * i - 1B. 2 * iC.iD.i-14）程序④处应该填入程序为BA．Next j B.Next i C Next D Next n3. 阅读以下程序段，并回答以下问题Option Base 1Private Sub Command1_Click()Dim a(5, 5) As String, i As Integer, j As IntegerL1: For i = 1 To 5For j = 1 To 5a(i, j) = "*"Next jNext iL2: For i = 1 To 5For j = 1 To iPrint a(i, j);Next jL3: PrintNext iEnd Sub1）数组a(5,5)是（B）。