vb教案第八章练习题
VB课后练习答案.doc
VB课后练习答案P12第一章课后练习答案:一、选择题二、填空题第二章（P39）选择题答案：填空题答案：1.Cmdl, Click2.Text 1.Text二"Hello"P64第三章课后练习答案一、选择题二、填空题1.(Y Mod 4=0 And Y Mod 10000) Or Y Mod 400=0 2.a<>0 And b*2-4*a*c>=0 3.X Mod 5=0 And X Mod 2=0 或 Tnt(x/5)=X/5 And Int(X/2)=X/2 4. 注意：返回的均是字符型。
第四章课后答案：P79一、选择题答案为：$$41.50010二、填空题三、程序设计题（提示）1、鸡的头数为x,兔的头数为y,则可列方程式:\x-\- y = h （兀 * 2 + y * 4 =于求得x, y 的值再在窗体上输出结果。
2、 利用Format 格式函数，再通过窗体的Print 将格式化后的信息输出到窗体上。
3、 厶员I 的周长=2加" $岡的面积=加25、通过Inputbox 函数或用文本框输入三边和圆的半径a,b,c, r,利用公式：. a + b + cn 二 ---------2 S 三角形面积=Jh （h - - b ）（h - c ）P97第五章课后练习答案:第9题| D一、选择题答案D 改为:30二、填空题第］题Y Mod 4二0 And Y Mod 100二0 Or Y Mod 400二0 第2题笫3题笫4题Private Sub Command l_Click()X=Val(Textl.Text)Select Case XCase Is>200. Isv-10()Print “xv 100 Or x>200"Case ls<=0Y=l()()-XCase Isv二100Y=100+XCase Is<=200Y=400End SelectText2.Text=yEnd Sub三、程序设计题(提示)1、判断条件：假设一个整数为xX Mod 3=0 Or x Mod 5=0 或x/3=x\3 Or x/5=x\52、选项按钮的知识点在P182,利用该控件的Wlue属性判断是否选中该项。
VB程序设计教案,过程7,嵌套过程
变量的内容，即形参与实参使用相同的内存地址单元，这样通过子过程就可以改变变量本身的值。
(2) 在传址调用时，实际参数必须是变量，常量或表达式无法传址。
(3) 系统缺省按地址传递参数。
2. 传值(1) 传值就是通过值传送实际参数，即传送实参的值而不是传送它的地址。
(2) 当要求变量按值传送时，可以用下面的方法：①把变量变成一个表达式。
把变量转换成表达式的最简单的方法就是把它放在括号内。
例如把变量用括号括起来，把它变为一个表达式，如“(a)”。
②定义过程时用ByVal关键字指出参数是按值来传递的，例如：Sub PostAc( ByVal x As Integer )x = x + 2End Sub提问：学生复述：传值与传址的区别。
设置两个通用过程Test1和Test2，分别按值传递和按地在上节课的作业中出现的的纳税问题，作为一个社会主义新一代的建设者，数组也可以作为过程的参数，定义形参数组的格式为：ByRef 形参数组名()[As 数据类型]【例7.6】编写一个Function过程Fnsum，求任意一维数值数组中各元素的n次方之和。
调用该过程并输出结果。
参数传递：提问：参数传递的类型？有何区别传址：传值：提问：调用过程后的工作流程：调用过后，回到主过程往下进行。
过程调用示例演示操作输入参数n，m，求组合数的值。
Private Function fact(x)p = 1For i = 1 To xp = p * iNext ifact = pEnd FunctionPrivate Function comb(n, m)comb = fact(n) / (fact(m) * fact(n – m)) End FunctionPrivate Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)If m > n ThenMsgBox "输入数据不正确！", 0, "请检查！"输入两个数n、m，求组合数C n m 的值使用inpubox输入数字内容。
vb程序设计基础课后答案
vb程序设计基础课后答案【篇一：《vb程序设计基础与vba应用》1-8章参考答案】s=txt>p28 习题一二，单选题1，b 2，b 3，d 4，a 5，d 6，b 7，b 8,c 9,d三, 程序设计题5, private sub command1_click()form1.fontname = 宋体form1.print 中文字体宋体end subprivate sub command2_click()form1.fontname = 楷体_gb2312form1.print 中文字体楷体end subprivate sub command3_click()form1.fontname = 仿宋_gb2312form1.print 中文字体仿宋end subp57 习题二一，判断题对:1, 3， 7，10，14错:2，4，5，6，8，9，11，12，13二，单选题1， a 2， c 3， c4， b6， a 7， b 8， c9， b11， c12， d13， b 14， a16， b17， b18， c19， b21， b 22， d 23， a24， c26， a 27， d28， b三，简答题1. (1) 2 * cos(alfa) * sin(alfa/ ( 2 * a )(2) sqr( s*(s–a)*(s–b )*(s - c))(3) ( a*a + b*c*(x +y)) / (a+b)(4) ( 2* 3.14159*r +exp(-5))* log(x) 5， b 10， c 15， d 20， b 25， b(5) 1/( x + 1/(y+1) )(6) k / ( 1 + a * exp(-b*x) )(7) cos(alfa) ^ 2 + atn(alfa)(8) sqr( y^3 + 3 * (a*a+b*b) / (x*x+y*y) )2. (1) (a+b) mod c (2) sqr(abs(x))(3) int(x) + 1(4) int(rnd *101)+2003。
vb大一程序设计第八章习题答案1
第八章1．Sub过程与Function过程的主要区别是 BA．Sub过程可以通过Call语句调用，而Function过程不可以B．Sub过程不能通过过程名返回值，而Function过程可以C．Sub过程与Function过程的参数传递方式不一样D．Function过程只能返回1个值，而Sub过程可以返回多个值2．以下叙述中错误的是C．。
A．在Sub过程中可以调用Function过程B．可以在程序的任何地方调用以Public声明的过程C．在Sub过程中可以嵌套定义Function过程D．用Static声明的过程中的局部变量都是Stati变量3．以下关于函数过程的叙述中，正确的是A 。
A．函数过程虚参的类型与函数返回值的类型没有关系B．在函数过程中，过程的返回值可以有多个C．当数组作为函数过程的参数时，既能以按值方式传递，也能以按址方式传递D．若不指明函数过程参数的类型，则该参数没有数据类型4．以下叙述中错误的是B 。
在VB应用程序中，A．过程的定义不可以嵌套，但过程的调用可以嵌套B．过程的定义可以嵌套，但过程的调用不能嵌套C．程序设计人员不能任意指定事件过程的名称D．在Function过程中可以Sub过程5. 下列描述中正确的是（A ）（A）VB只能通过调用Sub过程(B)Sub过程可以嵌套定义也可以嵌套调（C）可以在Sub过程中定义1个Function过程，但不能定义Sub过程（D）Sub过程和Function过程都必须带返回值6.下列叙述中正确的是（（B））（A）一个Sub过程至少要有一个Exit Sub语句（B）一个Sub过程必须有一个End Sub语句（C）可以在Sub过程中定义一个Function过程，但不能定义Sub过程（D）调用一个Function过程可以获得多个返回值7．以下语句用来定义过程subP，其中正确的是 D 。
A．Dim Sub subP(x , y) B．Public subP(x , y)C．Private Sub subP(x , y) As Integer D．Sub subP(x , y)8.在窗体上放置2个标签和一个命令按钮，其名称分别为Label1. 、Label2、command1 Private Sub Command1_Click()a = Val(Label2.Caption)Call func(Label1, a)Label2.Caption = aEnd SubPrivate Sub Form_Load()Label1.Caption = "ABCDE"Label2.Caption = 10End SubPrivate Sub func(L As Label, ByVal X As Integer)L.Caption = "1234"a = a * aEnd Sub程序运行后，单击命令按钮在2个标签中显示的内容分别是1234 10 9. Option Base 1Sub subp(b() As Integer)For i = 1 To 3b(i) = 3 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(3) As Integerarr = Array(8, 4, 3)For i = 1 To 3a(i) = arr(i)Next isubp a()For i = 1 To 3Print a(i)Next iEnd Sub运行程序后，在窗体上输出的内容为（A）A）3 6 9 B）8 4 3 C）9 6 3 D）3 4 8 10. Function func(a As Integer, b As Integer) As IntegerStatic x As Integer, y As Integerx = 0: y = 2y = y + x + 1: x = y + a + bfunc = xEnd FunctionPrivate Sub Command1_Click()Static k As Integer, m As IntegerDim p As Integerk = 5: m = 2p = func(k, m)Print pp = func(k, m)Print pEnd Sub输出结果是10 1011. Sub s1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert = x: x = y: y = tEnd SubPrivate Sub Command1_Click()Dim a As Integer, b As Integera = 10:b = 30s1 a, bPrint "a="; a; "b="; bEnd Sub运行程序后，在窗体上输出的内容为（C）A）a = 30 b = 10B）a = 30 b = 30C）a = 10 b = 30D）a = 10 b = 1012. Sub s(x As Single, y As Single)t = x: x = t / y: y = t Mod yEnd SubPrivate Sub Command1_Click()Dim a As Single, b As Singlea = 5:b = 4s a, bPrint a; bEnd Sub输出结果1.25 113. Function subl(a As Integer, ByVal b As Integer) As Integera = Val(b)subl = aPrint sublEnd FunctionPrivate Sub Command1_Click()Call subl(-15.1, 2.54)End Sub运行程序后，在窗体上输出的内容为（A）A）3 B）2 C）-15 D）提示错误运行结果3 14. 假定有以下两个过程：Sub S1(ByVal x As Integer, ByVal y As Integer)Dim t As Integert=x: x=y: y=tEnd Sub SubS2(x As Integer, y As Integer)Dim t As Integert=x: x=y: y=tEnd Sub则以下说法中正确的是(B )A．用过程S1可以实现交换两个变量值的操作，S2不能实现B．用过程S2可以实现交换两个变量值的操作，S1不能实现C．用过程S1和S2都可以实现交换两个变量值的操作D．用过程S1和S2都不能实现交换两个变量值的操作15.下列关于过程及过程参数的描述中，错误的是（C ）A．过程的参数可以是控件名称B．用数组作为过程的参数时，使用的是“传地址”方式C．只有函数过程能够将过程中处理的信息传回调用的程序中D．窗体可以作为过程的参数16.以下说法正确的是（ D ）A）事件过程也是过程，与通用过程完全一样B）事件过程是程序员编写的各种子过程C）事件过程通常放在标准模块中D）事件过程是用来处理由用户操作或系统激发的事件的代码17. 执行“工程”菜单中的（D ）命令可以添加一个标准模块。
VB复习题答案_第八章.docx
第八章程序界面设计第一题：是非题（共1（）分，每项1分）1.在-个窗体代码屮不能使用Unload语句來卸载本窗体，即一个窗体只能由其他的窗体卸载。
4A.对B.错J2.窗休的Enabled屈性设为False时，窗体题的按钮、文本框控件就不会对川户的操作做出反应。
A.对V 8.错3.菜单项的快捷键不能任意设置。
6A.対JB.错4.每个菜单项都是一个控件，与其他控件一样也有白己的屈性和事件。
7A.对JB.错5.菜单选项“Enabled”属性与“Visible”属性是相同的。
5A.对B.错J6.窗体的Enabled属性设为False时，窗体题的按钮、文本椎控件就不会対用八的操作做出反应。
2A.对JB.错7.定义菜单项时，可以不设査分隔线的菜单项控件名称。
7A.对B.错J&普通窗体与子窗体建立的方法是相同的，不同之处是子窗体的MDIChild属性设置为False,而普通窗体的MDIChild属性设置为True。
2A.对VB.错9.除了Click事件Z外，菜单项还能响应其他的事件。
5A.对B.错J10.窗体的Moveabel属性设为False时，不能改变窗体的大小，只能移动窗体。
3A.对B.错J11.显示和隐藏窗体比载入和卸载窗体要快得多。
4A.对V 8.错12.用户在“文件打开”通用对话框中选择一个文件时，对话框控件的FileName属性含有所选文件名字。
4A.对J8.错第二题、单选题（共45分，每项1.5分）1.为减少语句的使用，将一个窗体加载到内存中并显示出来，所使用的语句或方法是o 6A.LoadB.UnloadC.Show JD.Hide2.下列不能打开菜单编辑器的操作是____ o 6A.按Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按Shift + Alt + M V3.利用菜单编辑器设计菜单时，如果要在菜单中加入一个分隔符，菜单分隔符的标题必须设置为____ 0 10A.+B.- VC.*D./4.窗体从加载到显示，依次引发的事件冇。
vb练习题(有答案)(打印)
《大学Visaul Basic程序设计》复习题第一章Visual Basic程序设计概述第一题:是非题(共10分,每项1分)1. VB6.0只能运行在Windows 2000下,不能运行在Windows 98下。
13A.对B.错√2. 用户控件和系统控件都可以加载到工具箱上,并且永久保留。
4A.对B.错√第二题、单选题(共45分,每项1.5分)1. VB中的工具栏可以从______菜单上的“工具栏”命令中移进或移出。
15A.工具B.编辑C.视图√D.调试2. 在VB的集成环境中创建VB应用程序时,除了工具箱窗口、窗体设计窗口、属性窗口外,必不可少的窗口是______。
2A.窗体布局窗口B.立即窗口C.代码窗口√D.监视窗口第二章VB的编程机制第一题:是非题(共10分,每项1分)1. 在事件驱动的应用程序中,代码是按照预定的路径执行的。
15A.对B.错√2. 标签控件即可以用来显示用户不能编辑和修改的文本,也可以用来编辑和修改文本。
9A.对B.错√3. 每一个控件实质上都是一个微型程序。
2A.对√B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对√B.错第二题、单选题(共45分,每项1.5分)1. 文本框没有_____属性。
21A.EnabledB.VisibleC.BackColorD.Caption√2. 文本框(Text1)中有选定的文本,执行Text1.SelText=”Hello”的结果是___。
9A.“Hello”将替换掉原来选定的文本√B.“Hello”将插入到原来选定的文本之前C.Text1.SelLength为5D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击,应在“命令按钮”的______事件中判断。
3A.ChangB.KeyDownC.Click√D.KeyPress4. 如果文本框的Enabled属性设为False,则___。
6A.文本框的文本将变成灰色,并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色,用户仍然能将光标置于文本框上,但是不能改变文本框中的内容√C.文本框的文本将变成灰色,用户仍然能改变文本框中的内容D.文本框的文本正常显示,用户能将光标置于文本框上,但是不能改变文本框中的内容第三题、简单程序(共15分,每项1.5分)1. 以下程序的输出结果是______。
VB程序设计课后习题答案
VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Windows子目录删除。
当重新安装Windows后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。
3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装Visual Basic 6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用Visual Basic 6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定内容有关的帮助信息。
VB教材课后习题答案
<大学程序设计基础-Visual Basic>教材课后习题答案第1章一、选择题1 2 3 4 5 6 7B D BC B B D第2章一、选择题1 2 3 4 5 6 7 8 9 10B C B C B C A A A A11 12 13 14A B A A二、填空题1.rem或’ _ ：2.“” # #3.5x2-3x-2sinA/34.3214565.300三、操作题1、程序段：Private Sub Command1_Click()Dim x As Integer, y As IntegerDim s As Long, c As Longx = Text1.Texty = Text2.Texts = x * yc = (x + y) * 2Label3.Caption = "长方形的面积为" + Str(s)Label4.Caption = "长方形的周长为" + Str(c)End Sub3、程序段：Private Sub Command1_Click()Text1.Text = "第一"End SubPrivate Sub Command2_Click()Text1.Text = "第二"End Sub4、程序代码：Private Sub Text1_Change()Text1.MaxLength = 10End Sub5、程序代码：Private Sub Text1_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub第3章一、选择题1 2 3 4 5 6 7D A D B A D B二、填空题1. False2.B^2-4*a*c else三、操作题1．从键盘输入三个值，判断它们能否构成三角形的三个边。
如果能构成一个三角形，则计算三角形的面积。
《VB语言程序设计》习题答案
《VB语言程序设计》习题参考答案第1章习题一、单选题1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B二、多选题1．ACDE 2．BCDE 3．CD 4. CE三、填空题1．事件驱动 2．解释，编译 3．设计，运行，中断4. 属性，方法，事件5. Command2_Click6. 中央，代码7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计"编程及上机调试1. 按要求设置窗体属性2．在窗体上建立一个标签Label1。
程序代码如下：Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章习题一、单选题1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B二、多选题1．BD 2．CD 3．AC 4. AD三、填空题1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)(3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))2．Int(50+6*Rnd)3．(1)138 (2)3 (3)214 (4) "inchina" (5)70 (6) "45"(7)04. "系统管理数据库"编程及上机调试1～3题：按要求完成操作练习。
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、字节。
VB程序设计教材习题及参考解答
第 1 章概述一、叙述题1．简述VB具有哪些特点。
（1）面向对象的可视化设计工具（2）事件驱动的编程机制（3）易学易用的应用程序集成开发环境（4）结构化的程序设计语言（5）充分利用Windows资源（6）开放的数据库功能与网络支持2．简述事件驱动的程序设计原理。
解答：VB程序的运行没有固定的顺序，它通过事件来激活某个对象，随着该对象的活动，会引发新的事件，这个事件又可能使另一个对象激活，对象之间就是以这种方式联系在一起的。
每个事件都可以通过一段程序（称为“事件过程”）来响应，在事件发生时，系统将自动执行相应的事件过程，用以实现指定的操作并达到运算、处理的目的。
为不同对象响应不同事件编写的事件过程构成了一个完整的应用程序，这就是VB事件驱动的程序设计原理。
3．VB的集成开发环境由哪些元素组成？解答：标题栏、菜单栏、工具栏、工具箱、窗体窗口、代码窗口、工程资源管理器窗口、属性窗口及窗体布局窗口等。
4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？解答：VB集成开发环境的工具栏可以自定义，方法是：用鼠标右击标准工具栏的任意位置，可以打开或关闭其余工具栏。
标准工具栏中包含的按钮有：添加Standard EXE工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、重复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口、可视组件管理器及窗体位置与大小等。
5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？解答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
6．简述用VB开发应用程序的一般步骤。
（1）创建应用程序界面（2）设置界面上各个对象的属性（3）编写对象响应事件的程序代码（4）保存工程（5）运行和调试应用程序（6）创建可执行程序二、单选题1．D VB是一种面向对象的可视化程序设计语言。
visual_Basic程序设计教程_课后习题答案及练习
"VB程序设计"综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程〞菜单下的__________命令，可选择并添加Active*控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是〔〕A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是〔〕A．具有标准工具箱B．一个工程文件由假设干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、以下不能翻开属性窗口的操作是〔〕A．执行“视图〞菜单中的“属性窗口〞命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口〞按钮4、以下可以翻开立即窗口的操作是〔〕A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是〔〕A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几局部？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的根本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能承受焦点。
vb第8章全部教案
第八章数组一、引入课题例．输入100个学生的成绩，一起正序输出显示，换行后再一起反序输出。
思路：为了将输入的100个学生的成绩，先一起正序输出显示，换行后再一起反序输出显示。
就必须将这100个成绩一个一个保存起来，显示完一次后，才能再显示一次。
不保存起来，就无法再显示。
问题：如何将这100个成绩一个一个保存起来？基本方法：可以设立一个一个的变量，将这些成绩按顺序赋值给这些变量，就等于保存起来了。
只要保存起来，就可以随意正序、反序输出显示了。
问题：要设立几个变量才够呢？100个成绩就需要100个变量，如何设立100个变量呢？容易想到：用x1, x2, x3, ……, x100？但是如何对x1, x2, x3, ……, x100输入、输出呢？输入100个变量，重复输入100次，必须用循环！循环体如何写呢？是否可以写成：For i=1 To 100xi=InputBox( "请输入成绩X" )Next i不可以！xi只能代表一个变量，它不会随着I的变化，自动变成x1, x2, x3, ……, x100，即xi不可能代表100个变量。
即使输入100个成绩，最后xi只留下一个。
那么应该怎么办呢？能不能将x与i分离，而且实现x不动，但i确实会随着For i 的变化而变化呢？可以！方法：VB的分离方法是x ( i )象x ( i ) 这样的变量称为“数组”（即一组数）。
当i = 1～100变化时，x ( i ) 也跟着一起变化为x(1)、x(2)、x(3)、……、x(100)，产生100个变量。
于是，输入100个成绩可以这样解决：For i=1 To 100X ( i ) = InputBox( "请输入成绩X" )Next iVB中象x ( i ) 这样的变量称为“数组”。
前面学的Integer、Long、Single、Double、String、Date、Boolean等都是VB的基本数据类型，可以处理少量的单个数据，称为简单变量。
VB程序设计课后习题答案
VB程序设计课后习题答案VB课后习题解答第一、二章：1、简述VB6.0的主要特点答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。
2、当正常安装VB6.0后，误把Window子目录删除。
当重新安装Window后，是否需要再次安装VB6.0？答：要重新安装的。
因为安装VB6.0时，有些VB程序被系统自动安装在Window目录下，所以一旦删除Window子目录，就必须重新安装VB6.0。
3、ViualBaic6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？答：在VB6.0的启动界面上，能显示对应的版本。
4、叙述建立一个完整应用程序的过程答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程；保存应用程序；程序调试和运行。
5、ViualBaic6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。
6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？答：涉及两个文件要保存。
先保存窗体文件（.frm），再保存工程文件（.vbp）。
若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。
7、保存文件时，若不改变目录名，则系统默认的目录是什么？答：系统默认的目录是VB988、安装ViualBaic6.0后，帮助系统是否也已安装？答：没有。
VB6.0的帮助系统在两张光盘上，即MSDNLibrary，其中还包含了VC、VFP等其他语言的帮助系统。
9、如何使用ViualBaic6.0的帮助系统？答：最方便的方法是选定要帮助的内容，然后按F1功能键，这时系统打开MSDNLibrary查阅器，直接显示与选定内容有关的帮助信息。
Basic程序设计课后习题
《Visual Basic程序设计》课后习题第一章VB程序设计概述习题1.简述VB 6.0的主要特点。
2.Visual Basic 6.0有多种类型的窗口，若要在设计时看到代码窗口，应怎样操作？3.叙述建立一个完整应用程序的过程。
4.当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。
试问该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件，再保存什么文件？若不这样做，系统会出现什么信息？5.Visual Basic6. 0窗体设计器的主要功能是什么？6.如何使用VB 6.0的帮助系统？第二章VB编程基础习题1.要判断在文本框中是否按下Enter键，应在文本框的（）事件中判断。
2.文本框中的Scrollbars属性设置了非零值，却没有效果，原因是（）。
3.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对（）属性设置就有效。
4.要使控件在运行时不可显示，应对（）属性进行设置。
5.要使Forml窗体的标题栏显示“欢迎使用”语句应写为（）6.不论任何控件，共同具有的属性是（）。
7.要使命令按钮不可操作，要对（）属性设置。
8.在窗体上建立了文本框对象Textl,可以通过（）事件获得输入键盘的KeyAscii码。
9.在新建工程时，使窗体上的所有控件具有相同的字体格式，应对（）的（）属性进行设置。
第三章VB语言基础习题1.下列哪些是VB的合法常量，分别指出其类型。
(1)100. 0(2)%100(3) 1E1 (5)123,456(6)0100(7) ASDF (9)#2000/10/7#(10)100#(11)&0100(14) T2.把下列算术表达式写成VB表达式(4) 123D3(8) "12345”(12) &H123(13)true10X+V3F,, s z …e10 +lnl0（1）~XY~（2）\X + Y\ + Z5（3） Sin（45"） + ,（4）（1+XY）11J X + P + I3.根据条件写出相应的VB表达式（1）产生“C”到“L”范围内的一个大写字符。
vb8-12章试卷
一、选择（45分，30小题，每题1.5分）1、.使用Visual Basic进行程序设计时，控件可以被添加到（）中。
（A）标准模块（B）窗体模块（C）类模块（D）工程模块2、设有如下语句：Str1=InputBox ("输入"，" "，"练习")从键盘上输人字符串“示例”后，Str1的值是（）。
A．“输入” B．“” C．“练习”D．“示例”3、在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox("请输入一个整数")b = InputBox("请输入一个整数")Print a + bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为______（A）a+b （B）1234 （C）46 （D）系统报错4、在VB中，建立一个文本编辑区域，可采用（）A、命令按钮B、标签控件C、文本框控件D、定时器控件5、在VB应用程序中，要隐藏窗体Form1，调用格式为（）A、Form1.ShowB、Form1.HideC、Hide.Form1D、Show.Form16、运行VB程序时，若要在名为Tx1的Label控件中显示字样“请输入n的值”，则下列代码中正确的是（）(A) Label.Caption="请输入n的值" (B) Label.Text="请输入n的值"(C) Tx1.Caption="请输入n的值" (D) Tx1.Text="请输入n的值"7、窗体的标题栏显示内容由窗体对象的（）属性决定。
Ａ、BackColorＢ、BackStyleＣ、TextＤ、Caption8、程序运行时，若要通过回车键调用某命令按钮的Click事件过程，则可设置该命令按钮的（）属性值为True来实现。
VB教程第8章教案
8.1.4 文件的打开和关闭
2. 关闭文件(Close)
打开的文件使用完后必须关闭。 关闭文件的语句格式： Close [#] 文件号1 [,[#] 文件号 2 …] ] 示例： Close #1
Close #1,#2,#3 Close ’关闭文件号分别为1、2、3的文件。 ’关闭所有已打开的文件。
说明：num1.txt文件中一共写入50个记录，而num2.txt文件只写入其 中能被7整除的若干个记录 主页
例8.5 从文件“num2.txt”中读取数据
已知文件“num2.txt”中存放一批能被7整除的数(见例8.1)，
现要求把这些数显示出来。每行显示4个数。
Private Sub Form_Load() Show Open "num2.txt" For Input As #1 Do While Not EOF(1) '文件未结束时，循环 Input #1, x Print x Loop Close #1 End Sub
主页
2．Write #语句 语法格式：
Write #文件号, [输出列表]
Write #语句的功能和Print #语句的功能基本相同，都 是将输出项写入指定文件中，不同的是： （1）Write #语句在文件中的各个输出项都以紧缩格式输出， 并自动在输出项之间插入逗号分隔。 （2）Write #语句为文件中的字符串加上双引号。
主页 例8.5a
8.3
随机文件
随机文件中每一个记录定长，并设置记录号(从1开始)。
存取记录时，只要说明所需记录的编号，系统就以此算出记录所在位置
(1) 使用Type…End Type语句定义一个记录类型，该类型包括
多个数据项，并与文件中记录应包括的域一致。
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. 集成开发环境可以（ D ）。
（A）编辑、调试、运行程序，但不能生成可执行程序（B）编辑、调试、生成可执行程序，但不能运行程序（C）编辑、生成可执行程序、运行程序，但不能调试（D）编辑、调试、运行程序，也能生成可执行程序7. 集成环境的主窗口中不包含（ B ）。
（A）菜单栏（B）状态栏（C）标题栏（D）工具栏8. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ C ）。
（A）工程资源管理器窗口（B）工具箱窗口（C）代码窗口（D）属性窗口9. 下面四个选项中，不是工具箱的标准控件的是（ C ）。
（A）滚动条（B）定时器（C）多媒体（D）框架10. 的（ C ）版本，可供专业编程人员开发功能强大的组内分布式应用程序。
（A）初级版（B）学习版（C）企业版（D）专业版11. 英文缩写“OOP”的含义是（ A ）。
（A）面向对象程序设计（B）结构化程序设计语言（C）事件驱动的编程机制（D）可视化程序设计12. 不能打开代码窗口的操作是（ B ）。