vb练习题,电子版 第15章 文件

合集下载

第15章习题 基本放大电路

第15章习题 基本放大电路

第15章基本放大电路15-001、在题图中,若将图中的发射极交流旁路电容C E除去。

(1)试问静态工作点有无变化;(2)画出微变等效电路;(3)求放大倍数、输入电阻、输出电阻,并说明发射极电阻R E对电压放大倍数的影响。

解:(参考答案:(1)无(2)略(3)-1.3 降低)15-002、乙类互补对称功率放大器输出波形产生失真属于何种失真?应如何消除?答:截止失真。

可以用两个管子,使之都工作在已类放大状态,一个在正半周工作,另一个在负半周工作,两管的输出波形都能加到负载上,则负载上能够得到一个完整的波形,这样既能提高效率,又能消除失真15-003、在图P2.7所示电路中,由于电路参数不同,在信号源电压为正弦波时,测得输出波形如图P2.8(a)、(b)、(c)所示,试说明电路分别产生了什么失真,如何消除。

图P2.8解:(a)饱和失真,增大R b,减小R c。

(b)截止失真,减小R b。

(c)同时出现饱和失真和截止失真,应增大V C C。

15-004、测得某放大电路中晶体管的三个电极A、B、C的对地电位分别为V A =-9 V,V B=一6 V,Vc=6.2 V,试分析A、B、C中哪个是基极b、发射极e、集电极c,并说明此晶体管是NPN管还是PNP管。

解:由于锗晶体管的|V BE|≈0.2V,硅晶体管的|V BE|≈0.7V,已知用晶体管的电极B的V B=一6 V,电极C的Vc=–6.2 V,电极A的V A=-9 V,故电极A是集电极。

又根据晶体管工作在放大区时,必须保证发射结正偏、集电结反偏的条件可知,电极B是发射极,电极C是基极,且此晶体管为PNP管。

15-006、测量某硅晶体管各电极对地的电压值如下,试判别管子工作在什么区域。

(a)V C=6 V V B=0.7 V V E=0 V(b)V C=6 V V B=2 V V E=1.3 V(c)V C=6 V V B=6V V E=5.4 V(d)V C=6 V V B=4V V E=3.6 V(e)V C=3.6 V V B=4 V V E=3. 4 V解:(a)放大区,因发射结正偏,集电结反偏。

(完整版)VB习题册答案()最终版

(完整版)VB习题册答案()最终版

第一章二、1。

文件/退出2.Alt+Q3.文件/打开工程/打开工程4.vbp/frm5。

Esc第二章二、1。

对象框、属性显示方式、属性列表和属性解释2。

Text1。

text=”Hellor!”3.标准控件/ActiveX控件/可插入对象4。

Top和Left,Width和Height5。

用鼠标单击属性窗口的任何部分;执行“视图”菜单中的“属性窗口”命令;按F4键;单击工具栏上的“属性窗口”按钮;按组合键Ctrl+PgDn或Ctrl+PgUp6.Ctrl/Shift第三章二、1.答案:、ABCD,VB Programming2.答案:建立界面,设置属性、编写代码3.答案:属性窗口,运行4.答案:对象,过程5.答案:工具、选项、选项、自动语法检查6.答案:Frm,Vbp7.答案:工程8.答案:窗体模块,标准模块和类模块第四章二、1.答案:CONTT。

DE+COS(28*3.14/180)2.答案:—3/8 +8*INT(24。

8)3.答案:(8+6)^(4/-2)+SIN(2*3。

14)4.答案:((x+y)+z)*80—5*(C+D)5.答案: A6.答案:17.答案:Good Morning 、 Good Morning8.答案: ABCD 、 HIJK 。

9.答案:CDEF、1110.答案:0、abcdefghijk11.答案:25、8、2001、7、6第五章二、1.答案:Label2.Caption,Text1.Text,Text2。

Text=y2.答案:MsgBox “输入的密码为”&Text2.Text , vbOKOnly, "登录”3.答案:25+32=574.答案:Country &“ “ &City &” “ & CStr(Year(Date))5.答案 Year(Date) &“年“ & Month(Date) &“月" & Day(Date) _ &“日,星期“& WeekDay (Date,vbMonday)第六章二、1.答案:AutoSize2.答案:ScrollBar MultiLine True3.答案:Text1.SetFocus4.答案:0 05.答案:Picture1.Picture=LoadPicture(“pic2.gif”)6.答案:True7.答案:Picture8.答案:Interval9.答案:Enabled10.答案:下拉组合框,简单组合框,下拉列表框 Style 0 1 2 11.答案:下拉列表框12.答案:ItemA和ItemC13.答案:VB14.答案:VB程序设计 VB Programming第七章二、1. __21 38 54__2. sum=14 sum=14 sum=10。

vb练习题及答案

vb练习题及答案

vb练习题及答案VB(Visual Basic)是一种面向对象的编程语言,被广泛应用于软件开发中。

通过练习题的形式可以巩固和提升对VB语言的理解和应用能力。

本文将提供一些VB练习题及其答案,帮助读者巩固VB编程技巧。

题目一:计算器程序设计一个简单的计算器程序,要求能够进行基本的加、减、乘、除运算。

解答:在VB中创建一个新的Windows窗体应用程序项目,命名为“Calculator”。

首先,在窗体上添加一些按钮来表示数字和运算符。

然后,添加一个用于显示运算结果的文本框控件。

接下来,为数字按钮和运算符按钮分别添加点击事件处理程序。

在点击数字按钮时,将按钮对应的数字追加到文本框中。

在点击运算符按钮时,根据按钮的内容判断并执行相应的运算。

最后,通过运用VB的计算表达式功能和控件之间的交互,实现基本的加减乘除运算。

题目二:学生成绩管理设计一个程序用于管理学生成绩,要求能够输入学生信息、查询学生成绩、计算学生平均成绩等操作。

解答:在VB中创建一个新的Windows窗体应用程序项目,命名为“StudentGrade”。

首先,设计一个学生类(Student),包括学号、姓名、各科目成绩等属性。

然后,创建一个用于存储学生信息的集合(如数组或集合类)。

接下来,在窗体上添加文本框、按钮等控件,用于输入学生信息和进行相关操作。

通过按钮点击事件处理程序,实现以下功能:1.输入学生信息:获取文本框中的学生信息,并创建一个新的学生对象,将其添加到学生信息集合中。

2.查询学生成绩:根据学生学号或姓名等关键信息,在学生信息集合中查找对应学生,并显示其成绩信息。

3.计算学生平均成绩:遍历学生信息集合,计算每个学生的平均成绩,并显示在窗体上。

通过以上步骤,可以实现一个简单的学生成绩管理系统。

题目三:数据排序设计一个程序用于对一组数字进行排序,要求能够实现升序和降序排列。

解答:在VB中创建一个新的Windows窗体应用程序项目,命名为“DataSorting”。

VB课后习题电子版

VB课后习题电子版

VB开发环境掌握VB开发环境,如菜单、工具箱、工具栏、窗体、工程窗口和属性窗口等的使用。

2、应用程序(一个工程)的开发:添加窗体、模块,保存工程。

3、面向对象程序设计、可视化编程、事件驱动等基本概念。

二、数据表示与运算1、基本数据类型1)掌握整型(Integer)、长整型(Long)、单精度(Single)、双精度(Double)、字符串(String)、变体(Variant)、字节(Byte)和布尔(Boolean)等数据类型的数据表示及其相互关系;注意:掌握各数据类型的中英文描述、符号描述、所占字节数、数据范围等信息。

如Single型的数据有效数字最大只能是7位,Integer型的数据最大只能是32767。

2)了解货币、日期和对象等数据类型的数据表示和使用。

2、构造数据类型熟练掌握数组的定义、表示与使用;3、理解常量和变量的定义,常量和变量的声明以及常量和变量的作用域。

4、运算符、函数和表达式1)熟练掌握算术运算(加、减、乘、除、取负、指数、整除和取模)及其运算的优先级;2)熟练掌握关系运算及其运算的优先级;3)熟练掌握逻辑运算(NOT、AND、OR、XOR、EQV和IMP)及其运算的优先级;4)掌握下列常用内部函数三角函数Sin、Cos、Tan和Atn;算术函数Abs、Sqr、Log、Exp和Sgn;取整与类型转换函数Int和Fix;随机函数Rnd;字符串处理函数Trim、Left、Right、Len、Mid、Ucase、Lcase、Space、Tab、String、Ltrim和Rtrim;日期与时间函数Year、Month、Date、Time和Timer;转换函数Chr、Asc、Str和Val;颜色函数QBColor和Rgb;InputBox函数;MsgBox函数等。

注意对Len(x),x为字符串,返回其字符数;x为非字符串,则返回其所占字节数。

三角函数中使用的X必须是弧度。

Tab(n)是定位函数,表示从第n个位置开始输出。

VB练习题(含答案)

VB练习题(含答案)

VB简答练习题1 简述Timer控件中Interval属性和Enanbeled属性。

2 简要回答创建MDI应用程序的步骤。

3 用Visual Basic 语言编写-一个有两个整数参数m和n2的名为GetRand的Function的函数,功能是获取任意两个正整数间的随机整数(假如0<n:<m) ?4 简述selet.. .case语句执行流程。

5 引用数组元素时的注意事项有哪些?6 Visual Basic中有几种运算符?7 向文本文件中添加数据分为哪几步?8 Visual Basic 6.0中的动态数组与静态数组有何不同?9 如何创建一-个快速显示窗体?10 循环语句有几种语句?11 Shape 控件可以用来显示哪些图形?12 MDI应用程序有哪些特性?13 访问数组的常用方法有哪些?14 运行程序有哪几种方法?15 VB工程由哪几个模块组成?16 叙述VB的基本的设计机制。

17 叙述VB集成开发环境的组成。

18 叙述文件访间的类型。

19 运行程序有几种方法?20 VB 有哪些基本数据类型?21 标识符的命名规则是什么?22 访问数组的常用方法有哪些?23 VB过程参数有哪几种传递方式?有何不同?24 如何创建控件数组?25 简述For循环的语法格式。

26 通用的Sub过程有哪几种方式?27 打开属性窗口有哪几种方法?28 如何设置控件之间的对齐方式?29 简述运算符从高到低的优先顺序。

30 建立通用过程的操作步骤有哪些?31 打开代码窗口有哪几种方法?32 如何创建MDI应用程序?33 请写出随机文件的读写步骤。

34 请写出If语句的块语法格式。

35 工具箱的标准控件有哪些?36 简述创建动态数组的步骤。

37 建立事件过程有哪些方法?38 FSO对象模型包括哪些对象?答案:1.简述Timer控件中Interval属性和Enanbeled属性答:Timer控件中的Enanbeled设置或返回计时器控件的有效性,该属性值为布尔值,如果设置为True,则每经过指定的时间间隔将触发Timer事件,为False,计时器控件成为无效,停止工作。

vb练习题及答案

vb练习题及答案

vb练习题及答案VB练习题及答案VB(Visual Basic)是一种广泛应用于Windows操作系统的编程语言,它以其简单易学的特点受到了许多初学者和专业开发者的青睐。

为了帮助大家更好地掌握VB编程,下面将提供一些VB练习题及其答案,希望能对大家有所帮助。

练习题一:计算器程序编写一个VB程序,实现一个简单的计算器功能。

要求用户输入两个数字和一个操作符(+、-、*、/),然后根据操作符进行相应的计算,并输出结果。

解答:```vbPrivate Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.ClickDim num1 As Double = CDbl(txtNum1.Text)Dim num2 As Double = CDbl(txtNum2.Text)Dim operator As String = cmbOperator.SelectedItem.ToString()Dim result As DoubleSelect Case operatorCase "+"result = num1 + num2Case "-"result = num1 - num2Case "*"result = num1 * num2Case "/"result = num1 / num2End SelectlblResult.Text = "Result: " & result.ToString()End Sub```练习题二:学生成绩管理系统编写一个VB程序,实现一个简单的学生成绩管理系统。

要求用户输入学生的姓名和成绩,然后将其保存到数组中。

用户可以通过输入姓名来查询学生的成绩。

解答:```vbPrivate Structure StudentPublic Name As StringPublic Score As DoubleEnd StructurePrivate students() As StudentPrivate Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.ClickDim newStudent As Student = txtName.TextnewStudent.Score = CDbl(txtScore.Text)ReDim Preserve students(students.Length)students(students.Length - 1) = newStudenttxtName.Text = ""txtScore.Text = ""End SubPrivate Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.ClickDim searchName As String = txtSearchName.TextDim found As Boolean = FalseFor Each student As Student In studentsIf = searchName ThenlblSearchResult.Text = "Score: " & student.Score.ToString()found = TrueExit ForEnd IfNextIf Not found ThenlblSearchResult.Text = "Student not found."End IfEnd Sub```练习题三:简单的文本编辑器编写一个VB程序,实现一个简单的文本编辑器功能。

VB练习题含答案

VB练习题含答案

VB单元练习题一一、选择题1、Visual Basic集成开发环境中不包括以下哪些窗口?〔D〕A. 工具箱窗口B. 工程资源管理器窗口C. 属性窗口D. 命令窗口2、“一辆小客车在正常行进过程中被一辆大型货车撞坏了〞,在这句话中,“客车〞,“小〞,“行进〞和“被一辆大型货车撞坏了〞分别对象Visual Basic中的哪些术语?〔B〕A. 对象、属性、事件、方法B. 对象、属性、方法、事件C. 属性、对象、事件、方法D. 属性、对象、方法、事件3、对象的特征和状态特征称为?〔C〕A. 事件B. 方法C. 属性D. 类4、下面哪一个属性用来标识对象的名称?〔D〕A. CaptionB. ValueC. TextD. Name5、以下哪个符号是合法的变量名? 〔A〕A. VB123B. AbsC. 99JiD. x\y6、数学式子10sin25o写成Visual Basic表达式是?〔D〕A. 10sin25B. 10*sin(25)C. 10*sin(25o)D. 10*sin(25*3.14/180)7、Visual Basic中不存在以下哪一种数据类型?〔D〕A. 字符串类型B. 日期类型C. 逻辑类型D. 指针类型8、表达式Left(“Visual〞,3)+Lcase(“AB〞)的值是?〔C〕A. visABB. VisABC. VisabD. ualab9、表达式6+10 Mod 4*2+1的值是?〔A〕A. 9B. 11C. 1D. 310、把数值型转换为字符串型需要使用以下哪一种函数? 〔B〕A. Val()B. Str()C. Asc()D. Chr()11、VB中窗体文件的扩展名是______。

〔B〕(A)VBP (B)FRM(对) (C)VBW(D)PDM12、在设计应用程序时,通过______窗口可以查看到应用程序工程中的所有组成局部。

〔D〕(A)代码窗口(B)窗体设计窗口(C)属性窗口(D)工程资源管理器窗口(对)13、在VisualBasic中,所有的窗体和控件都必定具有的一个属性是______。

VB程序设计练习题附加答案-推荐下载

VB程序设计练习题附加答案-推荐下载

D.BACKSTYLE
11、如果要在文本框中输入字符时,只显示某个字符,如星号(*),运行时,在文本框中
输入的字符仍然显示出来,而不显示星号,原因可能是( )
D.FORECOLOR
D.FONT
D.ENABLED
D.CHANGE
C.将控件的 TABSTOP 属性设置为 FALSE
D.将控件的 ENABLED 属性设置为 FALSE
10、若要使标签控件显示时,不覆盖其背景内容,应设置标签控件的( )属性
A.BACKCOLOR
C.FORECOLOR
B.BORDERSTYLE
二、选择题
第 2 页 共 32 页
对全部高中资料试卷电气设备,在安装过程中以及安装结束后进行高中资料试卷调整试验;通电检查所有设备高中资料电试力卷保相护互装作置用调与试相技互术通关,1系电过,力管根保线据护敷生高设产中技工资术艺料0不高试仅中卷可资配以料置解试技决卷术吊要是顶求指层,机配对组置电在不气进规设行范备继高进电中行保资空护料载高试与中卷带资问负料题荷试2下卷2,高总而中体且资配可料置保试时障卷,各调需类控要管试在路验最习;大题对限到设度位备内。进来在行确管调保路整机敷使组设其高过在中程正资1常料中工试,况卷要下安加与全强过,看度并22工且22作尽22下可22都能22可地护以缩1关正小于常故管工障路作高高;中中对资资于料料继试试电卷卷保破连护坏接进范管行围口整,处核或理对者高定对中值某资,些料审异试核常卷与高弯校中扁对资度图料固纸试定,卷盒编工位写况置复进.杂行保设自护备动层与处防装理腐置,跨高尤接中其地资要线料避弯试免曲卷错半调误径试高标方中高案资等,料,编试要5写、卷求重电保技要气护术设设装交备备置底4高调、动。中试电作管资高气,线料中课并敷3试资件且、设卷料中拒管技试试调绝路术验卷试动敷中方技作设包案术,技含以来术线及避槽系免、统不管启必架动要等方高多案中项;资方对料式整试,套卷为启突解动然决过停高程机中中。语高因文中此电资,气料电课试力件卷高中电中管气资壁设料薄备试、进卷接行保口调护不试装严工置等作调问并试题且技,进术合行,理过要利关求用运电管行力线高保敷中护设资装技料置术试做。卷到线技准缆术确敷指灵设导活原。。则对对:于于在调差分试动线过保盒程护处中装,高置当中高不资中同料资电试料压卷试回技卷路术调交问试叉题技时,术,作是应为指采调发用试电金人机属员一隔,变板需压进要器行在组隔事在开前发处掌生理握内;图部同纸故一资障线料时槽、,内设需,备要强制进电造行回厂外路家部须出电同具源时高高切中中断资资习料料题试试电卷卷源试切,验除线报从缆告而敷与采设相用完关高毕技中,术资要资料进料试行,卷检并主查且要和了保检解护测现装处场置理设。备高中资料试卷布置情况与有关高中资料试卷电气系统接线等情况,然后根据规范与规程规定,制定设备调试高中资料试卷方案。

VB程序设计教程 PDF 超级合集(1-8章)(共15章)

VB程序设计教程 PDF 超级合集(1-8章)(共15章)

29
第1 章
1.面向过程的编程 过程(Process)是传统的编程方法。程序 按照事先设计好的顺序执行。
30
第1 章
2.面向对象的编程 面向对象(Object)的编程采用和面向过程编 程完全不同的方法解决问题。如果我们把数据当作 对象,面向对象的程序就是要对这些数据进行的一 系列操作。 在面向对象的编程中,编程者必须首先定义对 象(数据)和对这些对象的操作,因此数据和操作 是一个结合体。
31
第1 章
1.对象(Object) VB的对象是程序代码和数据的集合,包括窗体、控 件都是VB的对象。 VB对象具有属性、事件和方法三个要素。 2. 容器对象: 其他对象的载体或容器。如窗体
32
第1 章
3.对象的属性(Property) 属性是对象的特征。在VB中不同的对象有不同的 属性,我们需要熟悉它们的常用属性,例如名称、标 题、字体、颜色、尺寸等。
21
第1 章
2.
使用工程 创建工程 ;打开工程;保存工程;关 闭工程
使用工程资源管理器: 设置为启动 工程属性
22
第1 章
23
第1 章
在窗体上分别用中文和英文显示文字:欢迎来到 VB编程世界 Welcome To Visual Basic。 设计步骤如下: 1.启动VB IDE,选择“新建”-“标准 EXE” 选项命令,单击“打开” 2.进入VB IDE。
3
第1 章
计算机的工作原理——“程序存储” (存储程序和程 序控制) 计算机只能执行预先由程序安排它去 做的事情要利用计算机来解决问题,就必 须以计算机能够理解的语言——程序设计 语言来编制程序 程序语言三类: 机器语言,汇编语言,高级语言
4
第1 章

vb习题答案(1-9章)最全的

vb习题答案(1-9章)最全的

第一章VB程序设计概述二、选择题CADAB ACDAB CBDBB第二章VB可视化编程基础二、选择题ABDCA CACBC DADAD BDBBB三、填空题1.可视2.LEFT TOP WIDTH HEIGHT3.按字母序4.查看代码5.工具、选项6.Form1 Font7.Multiline8.只读属性9.工程属性通用Form1.show10.tabindex 0第三章VB语言基础二、选择题BCADB ADBBC DBCBA DAABB三、填空题1.整型、长整型、单精度、双精度2.sin(30*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)3.160 今天是:3-224.False5.-4 3 -3 3 -4 46.“CDEF”7.(x mod 10)*10+x\108.(35\20)*20=20 ( 35 \ 20 ) * 20 = 209.x mod 3=0 or x mod 5=010.27.6 8.2 8 1 100 397 true false第四章VB程序控制结构二、选择题DBCAD ABCAB D25BAC CBACB DABBC三、填空题1.字符型整型2. 1 2 33.x>74.x<amin5.10246.117.128.6 I “*”;9.0 100 i+1 10.2*I 6 “*”;三、编程题1.Private Sub Form_Click()Dim n As Integer, i As Integer, s As Longs = 1n = Val(InputBox("请输入一个整数:"))For i = 1 To ns = s * iNext iMsgBox n & "!=" & sEnd Sub2.Private Sub Form_Click()Dim i%, k%For j = 3 To 100k = Int(Sqr(j))For i = 2 To kIf j Mod i = 0 Then Exit ForNext iIf i > k Theny$ = y$ & " " & jEnd IfNext jMsgBox y, , "显示质数"End Sub3.Private Sub Form_Click()Dim i%, s%For i = 1 To 100s = s + iNext iMsgBox "1+2+3+……+100=" & sEnd Sub4.Private Sub Form_Click()Dim x%, y%For x = 1 To 50For y = 1 To 33z = 100 - x - yIf 2 * x + 3 * y + 0.5 * z = 100 ThenPrint "小鸡、公鸡、母鸡分别为:"; x; y; z End IfNext yNext xEnd Sub5.Private Sub Command1_Click()Dim a%, b%, c%, p!, s!doa = Val(InputBox("请输入三角形的第一条边"))if a=-1 then exit dob = Val(InputBox("请输入三角形的第二条边"))c = Val(InputBox("请输入三角形的第三条边"))If a + b > c And a + c > b And b + c > a Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print sElseMsgBox "你输入的三边不能构成三角形,请重新输入"End IfloopEnd Sub6. Private Sub Form_Click()Dim i As Integer, j As Integer,k as integerFor i = 1 To 8For k=1 to 8-iPrint spc(3);Next kFor j = 1 To 2 * i - 1Print i;Next jPrintNext iEnd Sub7. Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 1 To 30For j = 1 To 30For k = 1 To 30If i ^ 2 + j ^ 2 = k ^ 2 ThenPrint i & " ^ 2 + " & j & "^ 2 =" & k & "^ 2"End IfNext kNext jNext iEnd Sub8.Private Sub Form_Click()Dim x As Integer, a As Integer, b As Integer, c As Integer, ss As String ss = ""For x = 100 To 999a = Int(x / 100)b = Int((x - 100 * a) / 10)c = x - 100 * a - 10 * bIf a ^ 3 + b ^ 3 + c ^ 3 = x Thenss = ss & " " & xEnd IfNext xPrint ssEnd Sub9.Dim sr As Long, r As Singlesr = Val(InputBox("请输入收入:"))Select Case srCase Is < 200r = 0Case 200 To 400r = (sr - 200) * 0.04Case 400 To 5000r = sr * 0.04Case Is >= 5000r = sr * 0.05End SelectPrint "收入为" & sr & "时所缴纳的税为:" & rEnd Sub10.Private Sub Form_Click()Dim t As Single, wf As Singlet = Val(InputBox("请输入上网时间:"))Select Case tCase Is < 10wf = 50Case 10 To 60wf = t * 6Case Is >= 60wf = t * 4End SelectIf wf >= 200 Thenwf = 200End IfPrint "上网时间为" & t & "小时上网的费用为:" & wf End Sub11. Private Sub Form_Click()Dim yf As Integeryf = Val(InputBox("请输入月份"))Select Case yfCase 12, 1, 2MsgBox yf & "月份是冬季"Case 3, 4, 5MsgBox yf & "月份是冬季"Case 6, 7, 8MsgBox yf & "月份是冬季"Case 9, 10, 11MsgBox yf & "月份是冬季"Case ElseMsgBox "输入错误,请重新输入"End SelectEnd Sub12.if的方法Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))If x < 0 Thenf = 2 * x - 1ElseIf x = 0 Thenf = 4 * xElseIf x > 0 Thenf = 7 * x - 5End IfPrint "f(" & x & ")=" & fEnd SubSelect case语句:Private Sub Form_Click()Dim x As Single, f As Singlex = Val(InputBox("请输入一个数"))Select Case xCase Is < 0f = 2 * x - 1Case 0f = 4 * xCase Is > 0f = 7 * x - 5End SelectPrint "f(" & x & ")=" & fEnd Sub第五章数组一、选择题DCACD DBCDC BADAD二、填空题1.名称Index2.preserve3.变体4.235.1 2 3 1 4 16.1 2 3 2 4 67. max max=arr1(i)三、编程题1.Option Base 1Private Sub Form_Click()Dim a(10) As Integer, i%, temp%For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个整数")) Next iPrint "原来各元素的值为:"For i = 1 To 10Print a(i);Next iFor i = 1 To 5temp = a(11 - i)a(11 - i) = a(i)a(i) = tempNext iPrintPrint "交换后各元素的值为:"For i = 1 To 10Print a(i);Next iEnd Sub2.Option Base 1Private Sub Form_Click()Dim a As Variant, b As Variant, c As Variant, i%a = Array(2, 8, 7, 6, 4, 28, 70, 25)b = Array(79, 27, 32, 41, 57, 66, 78, 80)ReDim c(8)For i = 1 To UBound(a)c(i) = a(i) + b(i)Next iFor i = 1 To UBound(c)Print c(i);Next iEnd Sub3.Option Base 1Private Sub Form_Click()Dim a() As Variant, i%, j%, n%, m%, max%, hh%, lh%n = Val(InputBox("请输入一个整数:"))m = Val(InputBox("请输入一个整数:"))ReDim a(n, m)For i = 1 To n - 1For j = 1 To m - 1a(i, j) = Int(Rnd * 101 + 50)If max < a(i, j) Then max = a(i, j): hh = i: lh = jNext jNext iPrint "最大值为:"; max; "所在的行号为:"; hh; "所在的列号为:"; lh End Sub4.Option Base 1Private Sub Form_click()Dim a(50) As Integer, b(9) As Integer, i%, j% For i = 1 To 50a(i) = Int(Rnd * 90 + 10)j = Int(a(i) / 10)b(j) = b(j) + 1Next iFor j = 1 To 9Print b(j);Next jEnd Sub5.Option Base 1Private Sub Command1_Click(Index As Integer) Select Case IndexCase 0Text3 = Val(Text1) + Val(Text2)Case 1Text3 = Val(Text1) - Val(Text2)Case 2Text3 = Val(Text1) * Val(Text2)Case 3Text3 = Val(Text1) / Val(Text2)End SelectEnd Sub6.Private Sub Form_click()Dim s!, i&, j&i = 3s = 1j = 0Doj = j + 1s = s + (-1) ^ j / ii = i + 2Loop While 1 / i > 10 ^ (-6)Print 4 * sEnd Sub7.Option Base 1Private Sub Form_click()Dim a(40) As Long, i As Integera(1) = 1a(2) = 1For i = 3 To 39a(i) = a(i - 1) + a(i - 2)Next iFor i = 1 To 40Print a(i);Next iEnd Sub8.冒泡法:Option Base 1Private Sub Form_click()Dim a(10) As Single, ok As Boolean, i%, j%, x!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 10 To 2 Step -1ok = TrueFor j = 1 To i - 1If a(j) > a(j + 1) Thenx = a(j)a(j) = a(j + 1)a(j + 1) = xok = FalseEnd IfNext jIf ok Then Exit ForNext iPrintPrint "冒泡排序的结果为:"For i = 1 To 10Print a(i);Next iEnd Sub选择法:Option Base 1Private Sub Form_click()Dim a(10) As Single, p!, i%, j%, min!For i = 1 To 10a(i) = Val(InputBox("请输入第" & i & "个数"))Print a(i);Next iFor i = 1 To 9p = iFor j = i + 1 To 10If a(j) < a(p) Then p = jNext jIf p <> i Thenmin = a(i)a(i) = a(p)a(p) = minEnd IfNext iPrintPrint "排序后的结果为:"For i = 1 To 10Print a(i);Next iEnd Sub第六章过程一、选择题CDBAB DBCCC ABCBD CDB二、填空题1.sub function2.形式实际3.内存的同一地址4.myf(a%,b() as integer ) as Boolean5.值传递地址传递6.lbound ubound7.局部8.通用任何过程9.2 5 9 10.2411.2 12.30 7013.-1三、编程题1. Option Base 1Private Sub Form_Click()Dim m1%, m2%, b() As IntegerFor i = 3 To 7 Step 2ReDim b(i)For j = 1 To ib(j) = Int(Rnd * 90 + 10)Print b(j);Next jm1 = b(1)m2 = b(1)Call mm(m1, m2, b())PrintPrint "最大值为:"; m1Print "最小值为:"; m2Next iEnd SubPublic Sub mm(max%, min%, a() As Integer) Dim i%For i = LBound(a) To UBound(a)If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iEnd Sub2.sub过程:Public Sub jc(n%, s&)Dim i%s = 1For i = 1 To ns = s * iNext iEnd SubPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:")) Call jc(a, s1)s = s1 + sCall jc(b, s1)s = s1 + sCall jc(c, s1)s = s1 + sPrint a & "!+" & b & "!+" & c & "!=" & s End SubFunction过程:Public Function jc(n%) As LongDim i%, s%s = 1For i = 1 To ns = s * iNext ijc = sEnd FunctionPrivate Sub Form_click()Dim s&, a%, b%, c%, s1&a = Val(InputBox("请输入一个整数:"))b = Val(InputBox("请输入一个整数:"))c = Val(InputBox("请输入一个整数:"))s1 = jc(a) + jc(b) + jc(c)Print a & "!+" & b & "!+" & c & "!=" & s1 End Sub3.Public Sub jo(n As Integer)If n Mod 2 = 0 ThenPrint "false"ElsePrint "true"End IfEnd Sub4.Private Sub Form_click()Dim b(1 To 100) As Integer, i%For i = 1 To 100b(i) = Int(Rnd * 100 + 1)Next iCall sort(b())For i = 1 To 100If i Mod 10 = 0 Then PrintPrint b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, ok As Boolean, k As Integern = UBound(a)For i = 1 To n - 1ok = TrueFor j = 1 To n - iIf a(j) > a(j + 1) Thenk = a(j): a(j) = a(j + 1): a(j + 1) = k: ok = False End IfNext jIf ok Then Exit ForNext iEnd Sub5.Private Sub Form_click()Dim b(1 To 10) As Integer, i%For i = 1 To 10b(i) = Val(InputBox("请输入第" & i & "个整数")) Next iCall sort(b())Print "排序后的结果"For i = 1 To 10Print b(i);Next iEnd SubPublic Sub sort(a() As Integer)Dim n%, p%, k As Integern = UBound(a)For i = 1 To n - 1p = iFor j = i + 1 To nIf a(j) < a(p) Then p = jNext jIf p <> i ThenMin = a(i)a(i) = a(p)a(p) = MinEnd IfNext iEnd Sub6.Public Sub gys(m%, n%)Dim r%, t%If m <> 0 And n <> 0 ThenIf m < n Thent = m: m = n: n = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopEnd IfEnd Sub7.Public Sub ws(n%, s%)Dim k%, i%For i = 1 To n - 1If n Mod i = 0 Then s = s + iNext iEnd SubPrivate Sub Form_click()Dim m%, sum%, c$For m = 1 To 999sum = 0Call ws(m, sum)If sum = m Then c = c & sum & " " Next mMsgBox cEnd Sub8.Public Function ef(a(), k%, wz%) As Integer Dim i%, low%, mid%, top%low = LBound(a)top = UBound(a)Do While low <= topmid = (low + top) / 2If k > a(mid) Thenlow = mid + 1ElseIf k = a(mid) Thenwz = midExit FunctionElsetop = mid - 1End IfLoopwz = -1End Function9.Function MaxGY(x As Integer, y As Integer) Dim Temp As IntegerTemp = x Mod yIf Temp = 0 ThenMaxGY = yElseMaxGY = MaxGY(y, Temp)End IfEnd FunctionPrivate Sub Form_click()Dim m%, n%m = Val(InputBox("请输入第一个整数:"))n = Val(InputBox("请输入第二个整数:")) Print "最大公约数是:"; MaxGY(m, n)End Sub10. Function Ss(n%)If n = 1 ThenSs = 10ElseSs = Ss(n - 1) + 2End IfEnd FunctionPrivate Sub Form_click()Dim r%, x%r = 5x = Ss(5)Print "第5个小孩的岁数为:"; xEnd Sub第七章应用程序界面设计一、选择题BCDCA CDBBD CADAA CADBD DAAAB CAA二、填空题1.form1.show unload form12.form2.show form1.hide3.属性方法事件4、工程属性工程属性5.子窗体主窗体6、keypress list(i) additem7.0 list1.listindex list1.listcount-18、1000 true time() 9、AA10、下拉式组合框、简单组合框和下拉式列表框第八章VB图形操作一、选择题DCCDA CDAAA BABBC CAAA二、填空题1、不会也不会 2.、Scaleheight Scalewidth3、(300,-150)4、右上5、twip6、0~157、B 8、-2π~09、逆10、drawwidth11、右上12、move13、cls 14、坐标原点、坐标度量单位、坐标轴的长度与方向15、VB程序设计vbprogramming三、编程题1、Private Sub Command1_Click()Const pi = 3.14159P1.Circle (Val(Text1), Val(Text2)), Val(Text3)End SubPrivate Sub Command2_Click()P1.ClsText1 = ""Text2 = ""Text3 = ""End Sub2、Private Sub Form_Load()Pic1.Picture = LoadPicture("F:\VB程序设计\上课课件\tea.jpg")End SubPrivate Sub Pic1_Click()Pic2.Picture = Pic1.PicturePic1.Picture = LoadPicture("")End Sub3、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a1 = Xb1 = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Circle (a1, b1), Sqr((a1 - X) ^ 2 + (b1 - Y) ^ 2)End Sub4、Dim a1!, b1!Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Thena1 = Xb1 = YEnd IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenLine (a1, b1)-(X, Y), vbGreen, BFEnd IfEnd Sub5、Private Sub Form_Click()Scale (-200, 200)-(200, -200)Dim i!For i = 0 To 140 Step 20Line (-i - 10, i + 10)-(i + 10, -i - 10), , BNext iEnd Sub第9章vb文件操作一、选择题BDDCC BBAAB二、填空题1、驱动器列表框、目录列表框和文件列表框2、change 3\file1.path=dir1.path4、name “D:\old.doc” as “c:\new.doc”5、dir1.path=drive1.drive file1.path=dir1.path6、filecopy “d:\text.doc”,”e:\text.doc”7、eof 8、input not eof(1)9、for inputFor outputnot eof(1)str1Close #110、pattern 11、空12、字节。

第15章虚位移原理例题

第15章虚位移原理例题

已知ctgθ=2。
解:将杆BD截断,暴露出内力
F
、F
给出力
P

F
处的虚位移 rD、rB
几何法: rC cos rD
C
rC cos(90 2 ) rB cos
A
θ
θ rC D F Fθ
rB
B
由虚功原理 PrD FrB 0 0
PrC cos F 2sinrC 0 (P cos 2F sin )rC 0
P
rD
F P ctg P
2
FNB
P1
Hale Waihona Puke r1 rBP2rC rB
M
rB
FNB
P1
r1 rB
P2
rC rB
M
rB
M
FNB

r1 rB
1 2
,
rC rB
181
,
rB
rG
4
1rB
rE
6
1rB
rC
12
1rB
1 12
181
11 96
FNB
1 2
P1
11 8
P2
11 96
M
例11: 书15-15
用虚位移原理求图示桁架中杆BD的内力,
例9:三铰拱上有载荷作用力P及力偶M, 各尺寸如图,求B铰的约束力。 解:(1)求B 铰水平约束力:
解除B 铰的水平约束,代之以水平力FBx 分析主动力:M,P,FBx ,
给虚位移,求虚位移关系:
C*为刚体CDB的瞬心,
刚体CDB的虚转角也为 。 rD a (1)
rB 2a (2)
列虚功方程:
re
300
cos

VB程序习题集附答案

VB程序习题集附答案

VB简介1、在以下有关对象属性的叙述中,不正确的是___________。

A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________,它是应用程序的基石,也是其他控件的容器。

A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”,其中的Text1、Text和“Visual Basic”分别代表___________。

A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。

A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1,假设已存在三个整型变量a、b、c,且变量a的值为5,变量b的值为7,变量c的值为12。

以下的___________语句可以使文本框内显示的内容为:5+7=12。

A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK,在代码编辑窗口有与之对应的Cmd_Click()事件,则命令按钮的名称属性和Caption属性分别为_________。

A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm,它的Load事件过程名为___________。

vb练习题部分附有答案

vb练习题部分附有答案

2.Visual 采用了(可视化语言)编程机制。

框架由(公共语言运行库、.NET类库)组成.集成开发环境的工作模式有(设计模式)( 运行模式 )( 中断模式 )5.项目文件是以哪种扩展名来保存的( .VBprog )6.列举能打开属性窗口的操作是(视图——> 属性)7.在Visual 的设计中,项目由谁来管理(项目资源管理器)8.解决方案文件是以哪种扩展名来保存的( .snl )9.某个窗口被关闭,可以使用菜单中的哪一个选项来打开(文件——>打开)10.在中,双击窗体打开的是( 代码 )窗口11.打开代码窗口的快捷键是( F7 )12.在中,能进入运行模式的是( F5 或调试->启动或单击工具栏上的启动 )13.对象的性质,来描述和反映对象特征的参数是对象的(属性)14.当一个工程含有多个窗体时,其中的启动窗体如何设置项目->属性15.用于设置标签显示内容的属性是(name )预先设置好的,能够被对象识别的动作是(控件)17.要使某控件在运行时不可显示,应对属性( visible )进行设置18.设置标签边框的属性是( borderstyle )19.设置标签上文字的颜色的属性是( forecolor )20.不论哪种控件,共同具有的是( name )属性21.要使文本框获得输入焦点,则应采用文本框的( got focus )方法22.事件过程是指 ( 运行事件 )时所执行的程序代码。

23.决定一个窗体有无控制菜单的属性是( controlbox )24.能够获得一个文本框中被选取文本的内容的属性是( select text )25.当运行程序时,系统自动执行启动窗体的( load )事件过程26.文本框中代表其内容的属性是( text 属性)27.若要使命令按钮不可操作,要对(enabled )属性设置。

28.TextBox控件中的( multiline )属性值为True,可以设置ScrollBar属性的值。

VB练习题(含答案),推荐文档

VB练习题(含答案),推荐文档

考试题型一、单项选择题(每题1分,共35分)二、判断题(每题1分,共15分;正确的打",错误的打x。

)三、填空题(每空1分,共10分)四、读程序写出结果(每题5分,共20分)五、程序填空(每空2分,共10分)六、编程题(每小题10分,共10分)2006年4月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计11. 以下关于Visual Basic特点的叙述中,错误的是A)Visual Basic是采用事件驱动编程机制的语言B)Visual Basic程序既可以编译运行,也可以解释运行C)构成Visual Basic程序的多个过程没有固定的执行顺序D)Visual Basic程序不是结构化程序,不具备结构化程序的三种基本结构12. 以下叙述中,错误的是A)一个Visual Basic应用程序可以含有多个标准模块文件B)一个Visual Basic工程可以含有多个窗体文件D)标准模块文件的扩展名是.bas13. 以下叙述中,错误的是A)在Visual Basic中,对象所能响应的事件是由系统定义的C)Visual Basic中允许不同对象使用相同名称的方法D)Visual Basic中的对象具有自己的属性和方法14. 设有如下语句:Dim a,b As In tegerC= "VisualBasic ”D=#7/20/2005#以下关于这段代码的叙述中,错误的是A)a被定义为Integer类型变量B) b被定义为Integer类型变量C) c中的数据是字符串D)d中的数据是日期类型15. 以下能从字符串"VisualBasic "中直接取出子字符串"Basic"的函数是A)Left |B) Mid | C) Stri ng D) In str16. 设a=4,b=3,c=2,d=1下列表达式的值是a>b+1 Or c<d And b Mod cA) True B) 1 C) -1 D) 017.以下可以作为Visual Basic变量名的是A) A#A B)counstA C) 3A D) ?AA18.设x-4,y-6,则以下不能在窗体上显示出A=10 的语句是C) Print “ A= ” +Str(x+y)D) Print “ A= ” & x+y19. 假定有如下的命令按钮(名称为Comma ndl)事件过程:Private Sub Comma nd1_Click()X=lnputBox(输入::“'输入整数”)MsgBox ”输入的数据是:”,,”输入数据:”+XEnd Sub程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的是A)x的值是数值10B)输入对话框的标题是“输入整数“C)信息框的标题是“输入数据:10 “D)信息框中显示的是“输入的数据是:“20. 在窗体上画1个命令按钮(名称为Command1 )和1个文本框(名称为Text1),然后编写如下事件过程:Private Sub Comma nd1_Click()X=Val(Text1.Text)Select Case xCase 1,3Y=x*xCase Is>=10,Is<=-10Y=xCase -10 To 10Y=-xEnd SelectEnd Sub程序运行后,在文本框中输入3,然后单击命令按钮,则以下叙述中正确的是A) 执行Y=x*x B)执行Y=-xC)先执行Y=x*x,再执行Y=-x D)程序出错21. 设有命令按钮Comma nd1的单击事件过程,代码如下:Private Sub Comma nd1_Click()Dim a(30) As In tegerFor i=1 to 30a(i)=I nt(R nd*100)NextFor Each arritem In aIf arrItem Mod 7=0 Then Print arrItem;If arrItem >90 Then Exit ForNextEnd Sub对于该事件过程,以下程序中错误的是B) 语句For Each arrltem In a 有语法错误C) ........................................... If arrltem Mod 7=0 语句的功能是输出数组中能够被........................... 7整除的数D) ................................ If arrItem >90 语句的作用是当数组元素的值大于....................... 90时退出For循环22. 设有命令按钮Comma nd1的单击事件过程,代码如下:Private Sub Comma nd1_Click()Dim a(3,3) As In tegerFor i=1 to 3For j=1 to 3a(i,j)=i*j+iNext jNext iSum=0For i=1 to 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序,单击命令按钮,输出结果是A) 20 B) 7 | C) 16 ~| D) 1723. 在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Comma nd1_Click()a=0For i=1 to 2For j=1 to 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后,单击命令按钮,输出结果是A)0 B) 2 C) 3 | D)424. 窗体上有名称分别为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图2所示。

vb各章练习题

vb各章练习题

第一章选择题1. VB是一种面向对象的可视化程序设计语言,采取了(A )的编程机制。

(A)事件驱动(B) 按过程顺序执行(C)从主程序开始执行(D) 按模块顺序执行2. 以下不属于VB的工作模式的是(c )模式。

(A) 运行(B)设计(C) 编译(D)中断3. 在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体窗口、属性窗口外,必不可少的窗口是( C )。

(A)窗体布局窗口(B)立即窗口(C)代码窗口(D)监视窗口4. 保存新建工程时,默认的路径是(B )。

(A)My Documents (B)VB98 (C)\ (D)Windows5. 将调试通过的VB工程经“文件”菜单的“生成.exe文件”编译成.exe后,将该可执行文件拿到其他机器上不能运行的主要原因是(A )。

(A)运行的机器上无VB系统(B)缺少.frm窗体文件(C)该可执行文件有病毒(D)以上原因都不对6. VB6.0集成开发环境可以(D )。

(A)编辑、调试、运行程序,但不能生成可执行程序(B)编辑、调试、生成可执行程序,但不能运行程序(C)编辑、生成可执行程序、运行程序,但不能调试(D)编辑、调试、运行程序,也能生成可执行程序7. VB6.0集成环境的主窗口中不包含(B )。

(A)菜单栏(B)状态栏(C)标题栏(D)工具栏8. 在设计阶段,当双击窗体上的某个控件时,所打开的窗口是(C )。

(A)工程资源管理器窗口(B)工具箱窗口(C)代码窗口(D)属性窗口9. 下面四个选项中,不是VB6.0工具箱的标准控件的是(C )。

(A)滚动条(B)定时器(C)多媒体(D)框架10. VB6.0的(C )版本,可供专业编程人员开发功能强大的组内分布式应用程序。

(A)初级版(B)学习版(C)企业版(D)专业版11. 英文缩写“OOP”的含义是(A )。

(A)面向对象程序设计(B)结构化程序设计语言(C)事件驱动的编程机制(D)可视化程序设计12. 不能打开代码窗口的操作是(B )。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

第十五章文件教学要求:了解文件的结构与分类;熟练掌握基本文件操作语句和函数;掌握顺序文件、随机文件的打开、读、写和关闭操作;掌握随机文件中记录的添加与删除方法,掌握使用控件显示和修改随机文件的方法、掌握文件系统控件的使用;掌握资源文件的建立和使用。

知识点:文件的结构与分类;文件操作语句和函数;文件打开、读、写和关闭操作,随机文件中记录的添加与删除方法;文件系统控件的使用;资源文件的建立和使用。

内容导航:一、文件的打开与关闭(一)文件的打开(建立)在对文件进行操作以前,必须先打开或建立文件。

Visual Basic用Open语句打开或建立一个文件。

其格式为:Open 文件说明[For方式] [Access 存取类型] [锁定] As [ # ] 文件号[Len = 记录长度] Open语句的功能为:为文件的输入输出分配缓冲区,并确定缓冲区所使用的存取方式。

(二)文件的关闭文件的读写操作结束后,应将文件关闭,这可以通过Close语句来实现。

其格式为:Close [ [ # ]文件号][,[ # ]文件号]……Close语句的功能为:结束文件的输入输出操作。

二、文件操作语句和函数(一)文件指针文件指针的定位通过Seek语句来实现。

其格式为:Seek # 文件号,位置。

(二)其他语句和函数1.FreeFile函数。

2.Loc函数。

格式:Loc(文件号)。

3.LOF函数。

格式LOF(文件号)。

4.Lock和Unlock语句。

在网络环境中,有时候几个进程可能需要对同一个文件进行存取。

用Lock和Unlock语句可以对文件“锁定”和“解锁”。

其格式为:Lock[ # ]文件号[ ,记录|[开始]To 结束]Unlock[ # ]文件号[,记录|[开始]To 结束]5.fileAttr。

返回Open语句打开文件的方式。

格式FileAttr(文件号,[属性])。

6.EOF(函数)。

格式:EOF(文件号)。

三、顺序文件(一)顺序文件的写操作1.Print # 语句。

格式:Print # 文件号,[ [ Spc(n) | Tab(n) ] [ 表达式表] [ ; | , ] ]。

2.Write # 语句。

格式:Write # 文件号, 表达式表。

(二)顺序文件的读操作1.Input # 语句。

格式:Input # 文件号, 变量表。

2.Line Input # 语句。

格式:Line Input # 文件号, 字符串变量。

3.Input$函数。

格式:Input$ ( n , #文件号)。

四、随机文件(一)随机文件的打开与读写操作1.随机文件的写操作。

随机文件的写操作分为以下4步:(1)定义数据类型;(2)打开随机文件;(3)将内存中的数据写入磁盘;(4)关闭文件。

2.随机文件的读操作。

从随机文件中读取数据的操作与写文件操作步骤类似,只是把第三步中的Pub语句用Get语句来代替即可。

其格式为:Get # 文件号, [记录号], 变量。

(二)随机文件中记录的增加与删除1.增加记录。

在随机文件中增加记录,实际上是在文件的末尾附加记录。

其方法是,先找到文件最后一个记录的记录号,然后把要增加的记录写到它的后面。

2.删除记录。

在随机文件中删除一个记录时,并不是真正删除记录,而是把一个记录重写到要删除的记录的位置上,其后的所有记录依次前移。

五、文件系统控件(一)驱动器列表框和目录列表框驱动器列表框和目录列表框是下拉式列表框。

(二)文件列表框用驱动器列表框和目录列表框可以指定当前驱动器和当前目录,而文件列表框可以用来显示当前目录下的文件(可以通过Path属性改变)。

文件列表框的默认控件名是File1。

六、文件基本操作文件的基本操作指的是文件的删除、拷贝、移动及改名等。

在Visual Basic中,可以通过相应的语句执行这些基本操作。

1.删除文件(Kill语句)。

格式:Kill 文件名。

用该语句可以删除指定的文件。

这里的“文件名”可以含有路径。

2.拷贝文件(FileCopy语句)。

格式FileCopy 原文件名, 目标文件名。

用FileCopy语句可以把原文件拷贝到目标文件,拷贝后两个文件的内容完全一样。

3.文件(目录)重命名(Name语句)。

格式:Name 原文件名As 新文件名。

用Name语句可以对文件或目录重命名,也可以用来移动文件。

训练:一、选择题:1.________是构成文件的最基本单位。

A)汉字B)记录C)字符D)字段2.下列关于VB中文件的命名原则的叙述,正确的是________。

A)与Windows命名方式一致B)与Windows命名方式不一致C)可以在文件名中使用*、?D)文件名可以任意长度3.使用Open语句打开文件时,如果省略“For方式”,则打开的文件的存取方式是________。

A)二进制方式B)随机存取方式C)顺序存取方式D)会提示错误4.如果准备读文件,打开顺序文件“text.dat”的正确语句是________。

A)Open "text.dat" For Input As #1B)Open "text.dat" For Write As #1C)Open "text.dat" For Binary As #1D)Open "text.dat" For Random As #15.按文件中数据的编码方式文件可以分为________。

A)程序文件和数据文件B)ASCII码文件和二进制文件C)顺序文件和随机文件D)以上都不对6.以下四个控件中可以列出计算机中所有驱动器的是________。

A)文件列表框B)目录列表框C)驱动器列表框D)列表框7.下面对语句Open "Text.dat" For Output As #FreeFile 的功能说明中错误的是________。

A)如果文件Text.dat已存在,则打开该文件,新写入的数据将覆盖原有的数据B)如果文件Text.dat已存在,则打开该文件,新写如的数据将增加到该文件中C)如果文件Text.dat不存在,则建立一个新文件D)以顺序输出模式打开文件Text.dat8.要对顺序文件进行写操作,下列打开文件语句中正确的是________。

A)Open "file1.txt" For Output As #1B)Open "file1.txt" For Input As #1C)Open "file1.txt" For Random As #1D)Open "file1.txt" For Binary As #19.下述4个控件中具有FileName属性的是________。

A)驱动器列表框B)文件列表框C)目录列表框D)列表框10.将一个记录型变量的内容写如文件中指定的位置,所使用的语句格式为________。

A)Put文件号,记录号,变量名B)Put文件号,变量名,记录号C)Get文件号,变量名,记录号D)Get文件号,记录号,变量名11.在下面向文件中写入数据的命令语句中,不正确的是________。

A)Print # 文件号,输出项列表B)Print # 文件号,Using: 输出项列表C)Write # 文件号,输出项列表D)Write # 文件号,Using: 输出项列表12.用Close语句来关闭已用完不再使用的文件,当该语句不使用任何参数时,其功能是________。

A)只能关闭一个已打开的文件B)关闭所有已打开的文件C)有语法错误D)只能关闭两个已打开的文件13.根据数据的存取方式和结构,文件可分为________。

A)程序文件和数据文件B)ASCII码文件和二进制文件C)顺序文件和随机文件D)以上都不对14.使用目录列表框的________属性可以返回或设置工作目录的完整路径。

A)Path B)Dir C)ListIndex D)以上都不对15.目录列表框的Path属性的作用是________。

A)显示当前驱动器或指定驱动器上的路径B)显示当前驱动器或指定驱动器上的某目录下的文件名C)显示根目录下的文件名D)只显示当前路径下的文件16.在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框。

当改变当前驱动器时,目录列表框应该与之同步改变。

设置两个控件同步的命令放在一个事件过程中,这个事件过程是________。

A)Drive1_Change B)Drive1_Click C)Dir1_Click D)Dir1_Change17.要获得当前驱动器应使用驱动器列表框的属性是________。

A)Path B)Dir C)Pattern D)Drive18.在窗体上画一个名称为File1的文件列表框,并编写如下程序:Private Sub File1_DblClick()x=Shell(File1.FileName)End Sub以下关于该程序的叙述,错误的是________。

A)x没有实际作用,因此可以将该语句写为:Call Shell(File1,FileName,1)B)双击文件列表框中的文件,将触发该事件过程C)要执行的文件的名字通过File1.FileName指定D)File1中显示的是当前驱动器、当前目录下的文件19.下面关于顺序文件的描述正确的是________。

A)每条记录的长度必须相同B)可通过变成对文件中的某条记录方便的修改C)数据只能对ASCII码形式存放在文件中,所以可通过编辑软件显示D)文件的组织结构复杂20.下面关于随机文件的描述不正确的是________。

A)每条记录的长度必须相同B)一个文件的记录号不必唯一C)数据只能对ASCII码形式存放在文件中,所以可通过编辑软件显示D)其组织结构比顺序文件复杂21.下列关于文件的叙述中,错误的是________。

A)顺序文件中的记录一个接一个的顺序存放B)随机文件中的记录的长度是随机的C)执行打开文件的命令后,自动生成一个文件指针D)LOF函数返回给文件分配的字节数22.要从磁盘上读入一个文件名为“c:\file1.txt”的顺序文件,下面程序段正确的是________。

A)F="c:\file1.txt"Open F For Input As #1B)F="c:\file1.txt"Open "F" For Input As #2C)Open "c:\file1.txt" For Output As #2D)Open c:\file1.txt For Input As #123.假定在窗体Form1的代码窗口中定义如下记录类型:Private Type animalanimalName As String * 20acolor As String * 10End Type在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim rec As animalOpen "c:\vbTest.dat" For Random As #1 Len = Len(rec)rec.animalName = "cat"rec.acolor = "White"Put #1, , recClose #1End Sub以下叙述正确的是________。

相关文档
最新文档