计算机程序设计化强复习.ppt

《计算机程序设计化强复习.ppt》由会员分享，可在线阅读，更多相关《计算机程序设计化强复习.ppt（98页珍藏版）》请在三一办公上搜索。

1、计算机程序设计强化复习,Visual Basic 6.0,2,全文结构,VB语法知识基础VB语法知识进阶常用算法及编程技巧界面元素与程序调试真题讲解,3,第1章 程序代码的组织方式,1.1 程序代码的基本构成字符集关键字标识符运算符表达式语句及语法规则语义Print aPrint a,Print a;,4,第1章 程序代码的组织方式,1.2 VB中的过程用过程编程的两大好处VB中过程的种类事件过程系统提供的过程通用过程用户自定义过程 1.3 VB中的模块窗体模块标准模块类模块,5,第2章 数据类型、常量与变量,2.1 基本数据类型数值型字符串型逻辑型日期型变体型数据类型转换数值类型间的转换数值

2、类型与字符串类型的转换数值类型与逻辑类型的转换字符串类型与逻辑类型的转换Print True+3显示结果为2Print“123”+100显示结果为223Print#5/1/2000#+3显示结果是00-5-4,6,第2章 数据类型、常量与变量,2.2 构造数据类型数组固定大小数组动态数组自定义类型2.3 常量与变量字面常量符号常量系统内部常量VbRed、VbCrLf等用户自定义符号常量Const Pi As Single=3.14变量,7,第3章 运算符、表达式与公共函数,3.1 VB中的运算符与表达式算术运算符与算术表达式字符串连接符关系运算符与关系表达式逻辑运算符与逻辑表达式运算符的优先级

3、算术运算符、-、*或/、Mod、+或-字符运算符+或&关系运算符=、=、Is、Like逻辑运算符 Not、And、Or、Xor、Eqv、Imp,8,第3章 运算符、表达式与公共函数,3.2 VB中的公共函数数学函数字符串函数类型转换函数随机函数生成某个范围内的随机整数Int(upperbound lowerbound+1)*Rnd+lowerbound)输入与输出函数,9,第4章 数 组,4.1 数组的命名及说明数组的命名数组的说明4.2 数组结构与数组元素数组的逻辑结构与存储结构数组元素4.3 固定大小数组与动态数组固定大小数组动态数组4.4 Erase语句,10,第5章 顺序结构,5.1

4、赋值语句赋值语句的格式=不同类型数据之间的赋值赋值号与等号的区别,11,第5章 顺序结构,5.2 Print 方法、Cls 方法方法调用语句的一般形式.参数列表Print 方法对象.Print p1p2例5-7：下列程序片断的输出结果是什么？a=3:b=5Print a;bPrint a,Print bPrint aPrint bCls 方法、Clear方法,3 5 3 5 3 5,12,第6章 选择结构,6.1 IfThen 结构语句标准分支选择结构例6-1：写出根据键盘输入的百分制学生成绩判断该学生是否及格并输出“Pass”或“Fault”。单分支结构例6-2：写出根据键盘输入的百分制学生

5、成绩判断该学生是否及格并将及格学生的成绩输出的程序片段。多分支结构例6-3：写出将键盘输入的百分制学生成绩转换成五分制并输出的程序片段。,13,第6章 选择结构,6.2 Select Case 结构语句一般形式测试项的形式例6-4：在 Select Case X 结构中，描述判断条件3X7的测试项应该写成。A.Case 3 X7B.Case 3 X,X7C.Case Is7,Is3D.Case 3 To 7,14,第7章 循环结构,7.1 DoLoop 结构语句Do-While循环结构Do-Until循环结构,“当”型循环,“直到”型循环,15,第7章 循环结构,7.2 ForNext 结构语

6、句一般形式For=ToStepExit ForNextFor循环与Do循环的比较循环嵌套,16,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用Sub过程的定义Private|Public Static Sub 过程名(参数列表)局部变量和常量声明语句体Exit SubEnd SubSub事件过程的定义Sub通用过程的定义,17,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用Function过程的定义Private|Public Static Function 函数名(参数列表)As 数据类型局部变量和常量声明语句体Exit Function函数名

7、=表达式End Function例8-5：以下有关过程的说法中错误的是。A.在Sub或Function过程中不能再定义其他Sub或Function过程B.在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合。C.递归过程既可以是递归Function过程，也可以是递归Sub过程。D.在调用过程时，形参为数组的参数对应的实参只能是数组。,18,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用Function过程与Sub过程的区别例8-6：分别用Sub过程和Function过程编写一个求n!的自定义过程。,Sub过程：Private Sub fact(n A

8、s Integer,f As Long)Dim i As Integerf=1For i=1 To n f=f*iNext iEnd Sub,Function过程：Private Function fact(n As Integer)As LongDim i As Integerfact=1For i=1 To n fact=fact*iNext iEnd Sub,19,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用Sub过程与Function过程的调用Sub事件过程的调用Sub通用过程的调用 Call 语句调用：Call(实参表)将过程名作为语句调用：过程名 实参表F

9、unction过程的调用 变量=过程名（实参表）,20,第8章 过程设计,8.1 Sub过程与Function过程的定义与调用过程的嵌套调用过程调用的注意事项把Sub过程名作为语句调用时，参数不需要加括号Function过程无参时，括号不可省，其调用方法与公共函数类似由于Function过程本身返回值，所以一般不使用Sub通过过程的调用方法，因为这两种方法将放弃函数名的返回值若对Function过程的调用出现在表达式中，则其运算优先级最高,21,第8章 过程设计,8.2 过程调用时的参数参数传递的限制形参与实参的个数、类型和顺序必须严格匹配,22,第8章 过程设计,8.2 过程调用时的参数按值

10、传递ByVal数组、自定义记录类型的变量、对象变量不能按值传递；常数和表达式必须按值传递按值传递的参数，形参和实参的类型只需要相容即可按地址传递 ByRef,23,第8章 过程设计,8.3 递归过程递归过程的定义在过程定义中调用自身或以其他方式间接调用自身的过程可以递归Sub过程，也可以递归Function过程递归过程的构成条件有对本身的调用语句有一个结束递归过程的条件（终止条件或边界条件）三题递归相关求 N!求 菲布拉及数列求 最大公约数,24,第8章 过程设计,8.4 变量的作用域与生命期变量的作用域 在窗体模块中，不能定义数组、定长字符串、用户自定义类型等为全局变量。,25,第8章 过程

11、设计,8.4 变量的作用域与生命期变量的生命期8-22：若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用关键字在该过程中定义局部变量。A.DimB.PrivateC.PublicD.Static同名变量,26,第9章 文件操作,9.1 文件的基本概念文件的概念文件类型文件操作步骤9.2 基本文件操作控件驱动器列表框目录列表框文件列表框,27,第9章 文件操作,9.3 常用文件操作语句与文件操作函数Open语句Close语句与Reset语句Lock和Unlock语句Seek语句Print#和Write#语句Input#和Line Input#语句Put#和 Get#语句常用文件操作函

12、数,28,第10章 算法中使用的基本技巧,10.1.1 交换t=a:a=b:b=tt=b:b=a:a=tt=a:a=b:b=c:c=ta=a+b:b=a-b:a=a-b10.1.2 累加、累乘n=n+1Sum=Sum+n P=P*n10.2 最大/小值问题 max=a(1)for i=2 to Ubound(a)if a(i)max then max=a(i)next i,29,第10章 算法中使用的基本技巧,10.3.1 穷举10-1：用100元买100只鸡，公鸡每只5元，母鸡每只3元，小鸡每1元3只，问可以买多少只公鸡、母鸡和小鸡？有多少种组合？Private Sub Command1_C

13、lick()Dim X As Integer,Y As Integer,Z As IntegerDim Count As IntegerCount=0For X=0 To Fix(100/5)For Y=0 To Fix(100/3)For Z=0 To 100 If X*5+Y*3+Z/3=100 And X+Y+Z=100 Then Print X,Y,Z Count=Count+1 End If Next NextNextPrint 组合个数：;CountEnd Sub,For X=0 To 100 For Y=0 To 100-X Z=100-X-Y If 0.5*X+2*Y+3*Z=

14、100 Then Print X,Y,Z Count=Count+1 End If Next YNext,30,第10章 算法中使用的基本技巧,10-2：求出所有的水仙花数，如153=13+53+33Private Sub Command1_Click()Dim X As Integer,Y As Integer,Z As IntegerFor X=1 To 9 For Y=0 To 9 For Z=0 To 9 If X 3+Y 3+Z 3=100*X+10*Y+Z Then Print 100*X+10*Y+Z End If Next NextNextEnd Sub,31,第10章 算法中

15、使用的基本技巧,10.3.2 迭代10-3：设方程为4*x2-3*x-7=0，给出不精确的初始根x0=2，利用公式：xn+1=xn-f(xn)/f(xn)n=0，1，2求出方程的近似根，直到|xn+1-xn|0.00001。Dim X0 As Double,X1 As DoubleX0=2Do X1=X0-(4*X0 2-3*X0-7)/(8*X0-3)If Abs(X1-X0)0.00001 Then Exit Do X0=X1LoopPrint X1,Dim X0 As Double,X1 As DoubleX1=2Do X0=X1 X1=X0-(4*X0 2-3*X0-7)/(8*X0-

16、3)Loop Until Abs(X1-X0)0.00001Print X1,32,第10章 算法中使用的基本技巧,10.4.1 递推10-4：已知一对成熟的兔子每月可以生一对小兔子。出生的小兔子两个月后成熟，就可再生一对小兔子。问一对成熟的兔子在一年内能繁殖成多少对兔子？10-5：细胞分裂，每分裂一次要用3分钟，30分钟后有细胞2048个。问开始时有多少个细胞？Dim F(10)As Integer,i As IntegerF(10)=2048For i=9 To 0 Step-1 F(i)=F(i+1)/2Next iPrint F(0)10.4.2 递归,Private Sub Comm

17、and1_Click()Print 开始时的细胞数：;f(0)End SubFunction f(n As Integer)As IntegerIf n=30 Then f=2048Else f=f(n+3)/2End IfEnd Function,f=f(n-3)*2,33,第11章 数列、级数求和及矩阵运算问题,11.1 数列问题固定公式11-1：利用公式 k*k+k+17 生成一组两位数的整数。递推公式11-2：利用初值 x1=15 以及公式 xi+1=(3*xi+153)mod 256产生一个10个数的数列。Dim x1 As Integer,x2 As IntegerDim coun

18、t As Integerx1=15:Print x1For count=2 To 10 x2=(3*x1+153)Mod 256 Print x2 x1=x2Next count,Dim a(1 To 10)As IntegerDim count As Integera(1)=15:Print a(1)For count=2 To 10 a(count)=(3*a(count-1)+153)Mod 256 Print a(count)Next count,34,第11章 数列、级数求和及矩阵运算问题,11.2.1 级数求和确定通项确定求和结束条件11-3：求 cos(x)=1-x2/2!+x4

19、/4!-+(-1)n+1x2(n-1)/2(n-1)!+n=1，2，直到级数的第n项的绝对值小于等于10-6为止。,Private Sub Command1_Click()Const x As Single=3.14159/3Dim Sum As Single,N As Integer,T As SingleN=1:T=1Do Sum=Sum+T N=N+1 T=-T T=T*x 2/(2*(N-1)*(2*N-3)Loop While Abs(T)=10-10Print SumEnd Sub,35,Private Sub Command1_Click()Const x As Single=3

20、.14159/3Dim Sum As Single,n As Integer,T As Singlen=1:T=1Do Sum=Sum+T n=n+1 T=(-1)(n+1)*x(2*(n-1)/F(2*(n-1)Loop While Abs(T)=10-10Print SumEnd Sub q Function F(ByVal k As Integer)As DoubleDim i As IntegerF=1For i=2 To k F=F*iNext iEnd Function,cos(x)=1-x2/2!+x4/4!-+(-1)n+1x2(n-1)/2(n-1)!+,36,第11章 数列

21、、级数求和及矩阵运算问题,11.2.2 连乘积11-4：到通项接近1时停止计算。,Private Sub Command1_Click()Dim Sum As Single,T As SingleSum=2:T=Sqr(2)Do Sum=Sum*2/T T=Sqr(2+T)Loop While Abs(2/T-1)=10-10Print SumEnd Sub,37,第11章 数列、级数求和及矩阵运算问题,11.3.1 矩阵的生成和打印生成数组打印数组11.3.2 矩阵的行列交换11.3.3 矩阵的变换11-10：将一个4行4列矩阵进行转置11-11：求出一给定矩阵的旋转矩阵。,38,第11章

22、数列、级数求和及矩阵运算问题,11.3.4 寻找某些特殊点11-12：求6*5数组的鞍点，鞍点是指本行最大、本列最小的元素。11.3.5 特殊矩阵按以下样式输出5行杨辉三角。111 1 2 1 1 33 1 1 4 6 4 1,Private Sub Command1_Click()Dim A(5,5)As Integer,I As Integer,J As IntegerFor I=1 To 5 A(I,1)=1 A(I,I)=1Next IFor I=3 To 5 For J=2 To I-1 A(I,J)=A(I-1,J-1)+A(I-1,J)Next JNext IFor I=1 To

23、 5 Print Space(5-I);For J=1 To I Print CStr(A(I,J);Next J PrintNext IEnd Sub,39,11.3.6 综合例题,11-4：标记出5*5方阵中每一行最小元素的位置。如果某一行有多个数值相等的最小元素，也要同时标记出来。标记方式为每一行的最小元素为0，其他元素为1。,Option ExplicitOption Base 1Private A(5,5)As IntegerPrivate Sub Form_click()Text1=Dim I As Integer,J As IntegerRandomizeFor I=1 To 5

24、 For J=1 To 5 A(I,J)=Int(20-10+1)*Rnd+10)Text1.Text=Text1&A(I,J)&Next J Text1=Text1&vbCrLfNext IEnd Sub,Private Sub Command1_Click()Dim I As Integer,J As Integer,Min As IntegerFor I=1 To 5 Min=A(I,1)For J=2 To 5 If A(I,J)Min Then Min=A(I,J)Next J For J=1 To 5 If A(I,J)=Min Then Text2=Text2&0 Else Te

25、xt2=Text2&1 End If Next J Text2=Text2&vbCrLfNext IEnd Sub,40,11.3.6 综合例题,11-15：找出5*5数组中最大元素和最小元素所在行，如果不在同一行则交换这两行。,Option ExplicitOption Base 1Private A(5,5)As IntegerPrivate Sub Form_click()Dim I As Integer,J As IntegerRandomizeFor I=1 To 5 For J=1 To 5 A(I,J)=Int(99-10+1)*Rnd+10)Text1.Text=Text1&A

26、(I,J)&Next J Text1=Text1&vbCrLfNext IEnd Sub,Private Sub Command1_Click()Dim I As Integer,J As Integer,T As IntegerDim Min As Integer,Max As IntegerDim LMin As Integer,LMax As IntegerMin=A(1,1):Max=A(1,1)For I=1 To 5 For J=1 To 5 If A(I,J)Max Then Max=A(I,J)LMax=I End If End If Next JNext IIf LMin L

27、Max Then For I=1 To 5 T=A(LMin,I)A(LMin,I)=A(LMax,I)A(LMax,I)=T Next IEnd IfFor I=1 To 5 For J=1 To 5 Text2=Text2&A(I,J)&Next J Text2=Text2&vbCrLfNext IEnd Sub,41,第12章 数组的移动、排序及查找,12.1 移动12-1：将一个10个元素的数组A循环向右移动一位。1 2 3 4 5 6 7 8 9 10 10 1 2 3 4 5 6 7 8 912-2：将一个10个元素的数组A循环向左移动一位。12-3：将一个10个元素的数组A循环向

28、右移动三位。12-4：将一个4行4列数组的列循环右移一列。,42,第12章 数组的移动、排序及查找,12.2 排序12.2.1 选择法排序 12.2.2 冒泡法排序12.2.3 插入法排序12.2.4 合并排序12.2.5 拉锯式排序法每一轮先把最小的元素从前到后送到最后面的位置，然后从后到前把最大的元素送到最前面的位置。,43,第12章 数组的移动、排序及查找,12.3 查找12.3.1 顺序查找 12.3.2 二分法查找,Option Base 1Private a(10)As IntegerPrivate Sub Command1_Click()Dim N As Integer,Midd

29、 As Integer,Low As Integer,High As IntegerDim Flag As BooleanFor i=1 To 10 a(i)=i*10+i Print a(i);Next iPrintFlag=FalseN=120Low=1:High=10Do Midd=Int(Low+High)/2)If a(Midd)=N Then Print CStr(N);is in array;CStr(Midd)Flag=True Exit Do Else If a(Midd)N Then High=Midd-1 Else Low=Midd+1 End If End If Loo

30、p While Low=HighIf Not Flag Then Print Cant find the Number;CStr(N);!End Sub,44,第13章 因数、最大公约数与素数等问题,13.1 整数的因数计算问题穷举法求整数的所有因子动态数组保存整数的所有因子整数的连乘积表达24=2223,Private Sub Command1_Click()Dim i As Integer,N As IntegerN=InputBox(Please Input a number)i=2Print CStr(N);=;Do While i N If N Mod i=0 Then Print

31、CStr(i);*;N=N i i=2 Else i=i+1 End IfLoopPrint CStr(N)End Sub,45,第13章 因数、最大公约数与素数等问题,13.2 最大公约数与最小公倍数问题最大公约数的求法穷举法欧几里德法递归法最小公倍数的求法穷举法利用最大公约数求最小公倍数,46,穷举法 求最大公约数,Private Sub Command1_Click()Dim R As Integer,M As Integer,N As Integer,T As IntegerM=InputBox(Please Input number A)N=InputBox(Please Input

32、 number B)确认MNIf M N Then T=M:M=N:N=TEnd IfFor R=1 To N If M Mod R=0 And N Mod R=0 Then T=RNext RMsgBox(最大公约数是：&T)End Sub,47,欧几里德法 求最大公约数,Private Sub Command1_Click()Dim R As Integer,M As Integer,N As Integer,T As IntegerM=InputBox(Please Input number A)N=InputBox(Please Input number B)确认MNIf M 0 M=

33、N N=R R=M Mod NLoopMsgBox(最大公约数是：&N)End Sub,48,递归法 求最大公约数,Private Sub Command1_Click()Dim R As Integer,M As Integer,N As Integer,T As IntegerM=InputBox(Please Input number A)N=InputBox(Please Input number B)确认MNIf M N Then T=M:M=N:N=TEnd IfMsgBox(最大公约数是：&GCD(M,N)End SubPrivate Function GCD(a As Inte

34、ger,b As Integer)As IntegerIf a Mod b=0 Then GCD=bElse GCD=GCD(b,a Mod b)End IfEnd Function,49,第13章 因数、最大公约数与素数等问题,13.3 素数问题素数判断的基本方法找出给定范围内的素数扩展无暇素数：本身为素数，且其逆序数也是素数（149）超级素数：一个素数从低数到高位依次去掉一位数后仍然是素数（2939）孪生素数：数值相差为2的两个素数（29，31）分解质因数,50,第14章 整数拆分、进制转换,14.1 整数拆分转换成字符型处理数值法处理整数拆分的应用求一个整数的各位数字之和水仙花数逆序数,

35、51,求一个整数的各位数字之和,Private Sub Command1_Click()Dim N As Integer,I As Integer,Sum As IntegerN=InputBox(Please input a number:)For I=1 To Len(CStr(N)Sum=Sum+Mid(CStr(N),I,1)Next IPrint Sum=;SumEnd Sub,52,逆序数,Private Sub Command1_Click()Dim M As Integer,I As Integer,N As IntegerM=InputBox(Please input a n

36、umber:)Print M;的逆序数是：;Do While M=1 N=N*10+M Mod 10 M=M 10LoopPrint NEnd Sub,53,第14章 整数拆分、进制转换,14.2 进制转换14.2.1 十进制转换为二进制14.2.2 十进制转换为十六进制14.2.3 二进制转换为十进制14.2.4 十六进制转换为十进制14.2.5 二进制转换为八进制,54,十进制转换为二进制,Private Sub Command1_Click()Dim M As Integer,I As Integer,N As StringM=InputBox(Please input a number

37、:)Do While M=1 N=CStr(M Mod 2)&N M=M 2LoopPrint NEnd Sub,55,第15章 字符运算及圆圈数问题,15.1 字符运算15.1.1 字符的替换例：将由大写字母组成的某字符串中的字符进行转换，转换规则如下：AC，B DX Z，Y A，Z B15.1.2 字符串的替换 例：将字符串x中出现的子串s统统替换成子串 s1，如图,56,第15章 字符运算及圆圈数问题,15.1 字符运算15.1.3 逆序、回文串例15-3：将一个字符串逆转。如“1234”转为“4321”例15-4：判断一个数是否为回文串15.1.4 统计例15-1：统计一段文本中英文字

38、母出现的次数例15-2：统计一段文本中单词的个数，约定连续出现的英文字母为一个单词。,Dim Char()As String,S As String,T As String,C As StringDim I As Integer,Flag As Boolean,Count As IntegerS=Text1:T=:C=:Count=0For I=1 To Len(S)C=Mid(S,I,1)If C=a And C=A And C=Z Then T=T&C Flag=True Else If Flag Then Count=Count+1 ReDim Preserve Char(Count)C

39、har(Count)=T T=End If Flag=False End IfNextIf Flag Then Count=Count+1 ReDim Preserve Char(Count)Char(Count)=TEnd If,57,第15章 字符运算及圆圈数问题,15.2 圆圈数问题15.2.1 报数问题例15-3：14人围成一圈，从1开始报数，凡报到3的出列，接着继续从1开始报数，直到全部出列为止，问依次出列的顺序。,Dim A(1 To 14)As IntegerDim I As Integer,Count As Integer,Js As IntegerFor I=1 To 14

40、A(I)=1Next ICount=0:Js=0:I=0Do Do While Count 3 I=IIf(I=14,1,I+1)Count=Count+A(I)Loop Print I;A(I)=0:Js=Js+1:Count=0Loop While Js 14,58,第15章 字符运算及圆圈数问题,15.2 圆圈数问题15.2.2 圆圈中的特殊点例15-4：将20个两位正整数排成圆圈依次编号。找出其中的拐点元素（即指它比左右相邻元素都大或都小），并输出拐点元素的值及位置。,Dim A(1 To 20)As IntegerDim I As Integer,Count As IntegerDi

41、m Left As Integer,Right As IntegerFor I=1 To 20 A(I)=Int(99-10+1)*Rnd+10)Print A(I);Next IPrintFor Count=1 To 20 Left=IIf(Count=1,20,Count-1)Right=IIf(Count=20,1,Count+1)If A(Count)A(Left)And A(Count)A(Right)Or A(Count)A(Left)And A(Count)A(Right)Then Print A(Count);Count End IfNext Count,59,第15章 字符运

42、算及圆圈数问题,15.2 圆圈数问题15.2.3 翻转问题例15-5：翻转硬币。设硬币画面为1，字面为0。14个硬币画面向上围成一圈，按顺时针方向数，凡数到可被3整除的数时，将硬币翻转。问数到100以后硬币的状态。,Private Sub Command1_Click()Dim a(1 To 14)As IntegerDim I As Integer,Id As IntegerFor I=1 To 14 a(I)=1Next IList1.AddItem F(a)Id=1For I=1 To 100 If I Mod 3=0 Then a(Id)=IIf(a(Id)=0,1,0)List1.A

43、ddItem F(a)End If Id=IIf(Id 14,Id+1,1)Next IEnd SubFunction F(Arr()As Integer)As StringDim I As IntegerFor I=1 To UBound(Arr)F=F&Str(Arr(I)Next IEnd Function,60,示例文件操作语句/函数,9-8：下列关于文件的说法正确的是。A.打开随时文件时，参数Len的值可任意设置B.若以Output、Append、Random或Binary方式打开一个不存在的文件，系统会出错C.在Input方式下，不能使用不同文件号同时打开同一个文件D.在一个过程中

44、，一个文件号有可能被用于打开不同的文件9-9：若磁盘文件C:Data1.dat不存在，下列打开文件语句中，会产生错误的是。A.Open“C:Data1.dat”For Output As#1B.Open“C:Data1.dat”For Input As#2C.Open“C:Data1.dat”For Append As#3D.Open“C:Data1.dat”For Binary As#4,61,示例文件操作语句/函数,9-10：下面能够正确打开文件的一级语句是。A.Open“data”For Output As#5 Open“data2”For Input As#5B.Open“data1”

45、For Output As#5 Open“data1”For Input As#6C.Open“data1”For Input As#5 Open“data1”For Input As#6D.Open“data1”For Output As#5 Open“data1”For Random As#69-11：下面说法是不正确的。A.当程序正确结束时，所有没有用Close语句关闭的文件都会自动关闭B.在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁C.可以用不同的文件号打开同一随机文件D.用Output模式打开一个顺序文件，即使不对它进行写操作，原来的内容也会被清除。,Back

46、,62,示例基本文件操作控件,9-4：改变目录列表框控件的Path属性的途径可以有。单击目录列表框某一项程序代码中改变目录列表框的Path属性值双击目录列表框某一项在程序中用ChDir命令设置当前工作目录A.B.C.D.9-5：下面有关文件管理控件的说法，正确的是。A.ChDir语句的作用是指明新的缺省工作目录，同时也改变目录列表框的Path属性B.改变文件列表框的FileName属性值，仅改变列表框中显示的文件名，不会引发其它事件C.改变驱动器列表框的ListIndex属性值，会改变Drive属性并触发Change事件D.单击目录列表框中某一项会触发Change事件,63,示例基本文件操作控

47、件,9-6：执行赋值语句后，会触发相应控件的Change事件。A.Dir1.ListIndex=-2B.Drive1.ListIndex=2C.List1.ListIndex=3D.File1.ListIndex=39-7：在窗体上设置了DriveListBox、DirListBox和FileListBox等三个控件，下面语句一定不会改变相应控件的Path或Drive属性。A.Drive1.ListIndex=2B.Dir1.ListIndex=-2C.File1.FileName=“a:*.*”D.File1.Path=Drive1.Drive,Back,64,示例文件类型,9-1：在Vis

48、ual Basic中文件访问的类型有。A.顺序、随机、二进制B.顺序、随机、字符C.顺序、十六进制、随机D.顺序、记录、字符9-2：下面关于顺序文件的描述，正确的是。A.每条记录的长度必须相同B.可通过编程对文件中的某条记录方便地修改C.数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D.文件的组织结构复杂9-3：下面关于随机文件的描述，不正确的是。A.每条记录的长度必须相同B.一个文件中记录号不必唯一C.可通过编程对文件中的某条记录方便地修改D.文件的组织结构比顺序文件复杂,Back,65,示例同名变量,8-25：程序中的不同过程之间，不能通过进行数据传递。全局变量窗体或模

49、块级变量形参与实参结合静态变量A.B.C.D.8-27：若在应用程序的标准模块、窗体模块和过程模块Sub1的说明部分，分别用“Public G As Integer”、“Private G As Integer”和“Dim G As Integer”语句说明了三个同名变量G。如果在过程Sub1中使用赋值语句“G=3596”，则语句是在说明部分定义的变量G赋值。A.标准模块B.过程Sub1C.窗体模块D.标准模块、窗体模块和过程Sub1,66,示例同名变量,8-26：执行下面程序后，输出结果是什么？Option ExplicitDim a As SinglePrivate Sub Command

50、1_Click()Dim a As Single,b As Integera=1.2:b=3Debug.Print fun1(a,b)Debug.Print aEnd SubPrivate Function fun1(x As Single,y As Integer)As IntegerDim i As IntegerFor i=1 To y x=x*2 a=a+1Next ifun1=aEnd Function,3 9.6,Back,67,示例变量的生命期,8-23：执行下面程序后，输出结果是什么？Private Sub Command1_Click()Dim i As Integer,j