总复习.pptVIP

?台州学院计算机系 * 人的天才只是火花, 要想使它成熊熊火焰, 就只有学习 如果你年轻时就没有学会思考，那么就永远学不会思考 Visual Basic程序设计 如果你年轻时就没有学会思考，那么就永远学不会思考 人的天才只是火花，要想使它成熊熊火焰，就只有学习! http://www.jsj. 总复习 * 试卷题型 一、程序阅读与填空（共26个空，每空3分，共78分）共7个程序 二、程序编写（2小题，每小题11分，共22分）共有2个程序 试题： 1、课本附录3套试卷 2、课本例题 3、课后习题 4、实验报告 * 知识点： 掌握字符串函数，随机函数的使用 掌握选择、循环语句的使用 掌握变量的作用范围 掌握一维数组的使用 掌握冒泡排序和选择排序 掌握过程和函数的建立和调用 掌握列表框各属性和方法 掌握定时器的各种属性和Timer事件 掌握自定义坐标系的方法 掌握画点、线、矩形、圆和扇形的方法 掌握打开文件的方式及读写 * 课后习题： 习题三：全部 习题四：全部 习题五：一：1、2、4 二：1、2、4 三：2 习题六：一：2、3、6 二：1、3、4 三：2、6 习题七：三：1、2 习题九：三：1、2 * 文本文件合并。将文本文件t2.txt合并到t1.txt文件中。 Private Sub Command1_Click() Dim s As String Open t1.txt For (1) As #1 Open t2.txt For (2) As #2 Do While Not EOF(2) (3) #2, s Print #1, s Loop (4) End Sub 【供选择的答案】 (13) A、Input B、Output C、Append D、Read (14) A、Input B、Output C、Append D、Read (15) A、Line B、Input C、Line Input D、Read (16) A、Close #1 B、Close #2 C、Close #1, #2 D、Close #1: #2 * 【程序说明】将E：盘根目录下的一个文本文件old.txt复制到新文件new.txt中，并利用文件操作语句将old.dat文件从磁盘上删除。 Private Sub Command1_Click() Dim str1 As String Open E:\old.txt For (1) As #1 Open E:\new.txt For Output As (2) Do While Not EOF(1) (3) #1, str1 Print #2, str1 Loop Close #1, #2: (4) End Sub (1) A、Input B、Output C、Append D、Read (2) A、#1 B、#2 C、#3 D、#4 (3) A、Line B、Input C、Line Input D、Read (4) A、Delete E:\new.txt“ B、Kill E:\new.txt C、Delete E:\old.txt D、Kill E:\old.txt * Dim k As Integer Private Sub Form_Load() p1.Scale (-100, 100)-(100, -100) k = 0 : p1.DrawWidth = 5 Timer1.Interval = 10 : Timer1.Enabled = True End Sub Private Sub Timer1_Timer() p1.Circle (0, 0), 80, vbRed, k * 3.141593 / 180, (k + 1) * 3.141593 / 180 k = k + 1: If k = 360 Then Timer1.Enabled = False End Sub (1) 运行终止时，图片框控件P1中的显示为： (2) 运行时P1中的圆或圆弧或扇形的绘制方式是： 逆时针 (3) 运行时P1中的圆或圆弧或扇形的半径为： (4) 将Timer过程中Circle语句内的“k * 3.141593 / 18