东北林业大学VB期末复习资料.docVIP

期末成绩：笔试50分、上机40分、平时10分、。 笔试时间为1小时。四道大题为：程序运行结果（10分）、叙述程序段功能（10分）、程序填空（10分）、编程题（20分） 上机考试时间40分钟。两道大题，每题20分。 笔试复习提纲 常用函数使用：String（N,C）、随机函数Rnd、chr（N）、Round（N）、Str（N）、val（C）、mid（C，N1，N2）、Left（C,N）Trim（C）、Time（）、Now（）等。 参考例题： P263 实验 第4、5、6题 顺序结构：理解赋值语句、会使用Inputbox（）函数和Msgbox子过程、print语句进行输入和输出。参考例题：P67 例4.3，P263 第8题 选择结构：参考例题：P265 第1、3题 循环结构：利用循环结构输出图形；判断素数、水仙花数、回文数算法；计算最大公约数和最小公倍数；计算级数部分和；参考例题：P268 第1、2题，P83 例4.15，P269 第6题，P278 第4题，P87 例4.17 数组：掌握静态数组、动态数组的使用以及利用数组的常用算法。计算一组数中的最大值、最小值、平均值；数组排序（选择排序法）；显示杨辉三角形；参考例题：P105 例5.4、5.5， P271 第1、4、6题 过程：掌握函数过程、子过程的定义及调用方法、参数的传递方式。参考例题：P133 例6.6， P277 第1、2、4题以及如下例题： 使用函数过程计算：s=4!+5!+6! 主程序 Private Sub Form_Click() Print fax(4) + fax(5) + fax(6) End Sub 函数定义 Private Function fax(k As Integer) As Single t = 1 For i = 2 To k t = t * i Next i fax = t End Function 7、文件 要求对随机文件进行操作，实现以下功能： （1）输入：由键盘输入5个学生信息保存到随机文件D:\TT\T.DAT中 （2）每个学生包括学号、姓名、总分 （3）显示：显示不及格的学生信息 （4）修改：将不及格的学生成绩增加5分 机试复习提纲 单选按钮和复选框。参考例题：P154 例 7.1；P280 第2题 组合框、列表框。参考例题：P111 例 5.9；P273 第7题及以下例题： （1）文本框的内容添加到列表框： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then List1.AddItem Text1.Text Text1.Text = End If End Sub （2）在窗体上显示列表框中的所有内容： Private Sub Form_Click() For i = 0 To List1.ListCount - 1 Print List1.List(i) Next i End Sub （3）组合框中的文本框中的内容添加到组合框：style=1 Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.AddItem Combo1.Text Combo1.Text = End If 滚动条 调色板程序P157 例7.4 时钟 参考例题：P4 例1.1及以下例题： 建立对象时钟、两个命令按钮、一个标签，随机产生六位数中奖号码。(时钟Interval=100) Private Sub Command1_Click() Private Sub Form_Load() Timer1.Enabled = True Timer1.Enabled = False End Sub End Sub Private Sub Command2_Click() Private Sub Timer1_Timer() Timer1.Enabled = False Label1.Caption = Int(Rnd * 900000 + 100000) End Sub End Sub 通用对话框 掌握利用通用对话框实现打开文件功能。参考例题：P164 例7.9 菜单 掌握菜单的设计及菜单编程。 参考例题：P281 第6、7题 要求会画圆、画椭圆、画曲线（正弦、余弦、y=x^3、玫瑰曲线等）、画矩形以及边框颜色和填充颜色。 参考例题：P20