2010计算机应用基础二实验教学大纲

1、2010理科计算机应用基础（二）实验教学大纲课程编号：01332012 课程名称：计算机应用基础二英文名称：Fundamentals 2 of Computer Application对 象：本科上机时数：28一、实验要求1 程序压缩为 .rar 文件，文件名为：学号-姓名-题目序号.rar2 请将程序提交到指定服务器。二、实验项目1项目： 编写计算表达式值程序 性质：验证 题目：练习在VB中设计简单界面，例如按钮、文本框等，在按钮的click事件中将下列表达式的值输出到各文本框中。1） 8*3*622） 7/6*3.2/2.15*(5.5+3.5)3） 344+4.05/124） 653 m

2、od 3.4*fix(3.8)5） “abg”+”34” & “erert”6） true or not (8+3>=23)7） 7>2 or 4<9目标与要求： （1）熟悉可视控件。（2）熟悉VB表达式。 （3）在教学第5周安排的上机时间内提交程序。2项目： 输入输出函数应用 性质：验证题目： 采用inputbox输入两个数，将他们相加的结果用msgbox输出。目标与要求： （1）熟悉inputbox对话框的使用方法。（2）熟悉msgbox对话框的使用方法。（3）在教学第6周安排的上机时间内提交程序。3项目： 选择结构 性质：验证 题目：1） 输入一个学生的五门课的

3、考试成绩，判断其是否为优秀。优秀的条件为：五门课成绩总分超过450分或每门课程在88以上或每门主课（前三门）的成绩都在95分以上其他课程在80分以上；2） 运输部门的货物运输与里程有关，距离越远，每吨货物的单价越低，假设每吨单价P与距离S之间的关系如下，32S<10028100<=S<200P= 25200<=S<30022.5300<=S<40020400<=S>=100015S>1000请编写程序输入货物重量后计算运费。目标与要求： （1）熟悉if和select case语句。（2）达到可以判定什么时候采用哪种结构简单的目的。（3

4、）在教学第7周安排的上机时间内提交程序。4项目： 循环结构 性质：验证题目：1） 编写程序输出乘法九九表，要求按上三角形式输出。Private Sub Form_Click()（下三角形） Dim i As Integer, j As Integer For i = 1 To 9 For j = 1 To i Print i; "x" j; "=" i * j; Next j Print Next iEnd SubPrivate Sub Form_Click()（上三角形） Dim i As Integer, j As Integer For i = 9

5、 To 1 step -1 For j = i To1 step -1 Print i; "x" j; "=" i * j; Next j Print Next iEnd Sub2） 编写程序输出如下图形：Private Sub Command1_Click() Dim i%, j%, n% n = Val(InputBox("请输入行数吧! ") For i = 1 To n Print Tab(n + 1 - i); For j = 1 To i * 2 - 1 Print "*" Next j Print N

6、ext iEnd Sub目标与要求： （1）熟悉for、While和do loop语句。（2）达到可以判定什么时候采用哪种结构简单的目的。（3）在教学第8周安排的上机时间内提交程序。5项目： 控件 性质：验证题目： 1） 编程序实现一个简单的计算器；（能实现正整数的加减乘除即可）2） 编程序实现一个数字时钟，在标签框中显示时分秒；并且在该程序中练习其他控件的使用方法；目标与要求： （1）熟悉基本控件的使用方法。（2）熟悉时钟控件。（3）在教学第9周安排的上机时间内提交程序。6项目： 数组 性质：验证题目：1） 在form中打印输出杨辉三角，按等腰三角形形式输出；Private Sub Form

7、_Click() （杨辉下） Dim a(21, 21) As Long Dim b(21) As String Dim I As Byte Dim j As Byte a(0, 0) = 1 For I = 1 To 20 For j = 1 To 20 a(I, j) = a(I - 1, j - 1) + a(I - 1, j) If a(I, j) <> 0 Then b(j) = b(j - 1) & " " & a(I, j) End If Next Print b(I) NextPrivate Sub Form_Click()（等腰

8、三角形） Dim a(21, 21) As Long Dim b(21) As String Dim I As Byte Dim j As Byte a(0, 0) = 1 For I = 1 To 20 For j = 1 To 20 a(I, j) = a(I - 1, j - 1) + a(I - 1, j) Next Next For I = 0 To 10 Print Tab(10 + 1 - I); For j = 1 To I Print a(I, j); Next Print Next End SubEnd Sub2） 产生100个100以内的随机数，将他们从大到小排序后输出。

9、目标与要求： （1）熟悉数组的定义以及使用方法。（2）熟悉排序算法。（3）在教学第10周安排的上机时间内提交程序。7项目： 过程 性质：设计题目：编写求s=1+2!+3!+n! 程序，要求计算n！用过程实现。目标与要求： （1）熟悉过程的定义以及调用方法。（2）熟悉传“值”与传“址”的区别。（3）在教学第11周安排的上机时间内提交程序。8项目： 菜单 性质：验证题目： 编程序采用菜单建立设置文本框字体的各种属性的程序。(在文本框中输入文字，通过菜单选项改变文字的字体、字号)目标与要求： （1）熟悉菜单的使用方法。（2）熟悉在程序运行期设定控件的字体的方法。（3）在教学第12周安排的上机时间内提

10、交程序。9项目： 文件 性质：验证题目：编写程序产生100个两位数的随机数，将他们以逗号分割后存入顺序文件num.txt，然后读入到一个数组中排序后输出。目标与要求： （1）熟悉文件的使用方法。（2）熟悉另一种排序算法。（3）在教学第13周安排的上机时间内提交程序。Private Sub form_Click() Dim A(1 To 100) As Integer, b%, n% Dim i As Integer, j As Integer, t As Integer Open "e:num.txt" For Output As 1 For i = 1 To 100 &#

11、39; 随机产生100个1020的自然数 Randomize b = Int(Rnd * 11) + 10 Write #1, b, Next i Close #1 n = 0 Open "e:num.txt" For Input As 1 '先把待排序的数据从文件中读出来 Do While Not EOF(1) n = n + 1 Input #1, A(n) Loop Close #1 For i = 1 To 99 ' 冒泡法排序 For j = 1 To 99 - i If A(j) > A(j + 1) Then t = A(j): A(j)