2010計(jì)算機(jī)應(yīng)用基礎(chǔ)二實(shí)驗(yàn)教學(xué)大綱

1、2010理科計(jì)算機(jī)應(yīng)用基礎(chǔ)（二）實(shí)驗(yàn)教學(xué)大綱課程編號(hào)：01332012 課程名稱：計(jì)算機(jī)應(yīng)用基礎(chǔ)二英文名稱：Fundamentals 2 of Computer Application對(duì) 象：本科上機(jī)時(shí)數(shù)：28一、實(shí)驗(yàn)要求1 程序壓縮為 .rar 文件，文件名為：學(xué)號(hào)-姓名-題目序號(hào).rar2 請(qǐng)將程序提交到指定服務(wù)器。二、實(shí)驗(yàn)項(xiàng)目1項(xiàng)目： 編寫計(jì)算表達(dá)式值程序 性質(zhì)：驗(yàn)證 題目：練習(xí)在VB中設(shè)計(jì)簡(jiǎn)單界面，例如按鈕、文本框等，在按鈕的click事件中將下列表達(dá)式的值輸出到各文本框中。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目標(biāo)與要求： （1）熟悉可視控件。（2）熟悉VB表達(dá)式。 （3）在教學(xué)第5周安排的上機(jī)時(shí)間內(nèi)提交程序。2項(xiàng)目： 輸入輸出函數(shù)應(yīng)用 性質(zhì)：驗(yàn)證題目： 采用inputbox輸入兩個(gè)數(shù)，將他們相加的結(jié)果用msgbox輸出。目標(biāo)與要求： （1）熟悉inputbox對(duì)話框的使用方法。（2）熟悉msgbox對(duì)話框的使用方法。（3）在教學(xué)第6周安排的上機(jī)時(shí)間內(nèi)提交程序。3項(xiàng)目： 選擇結(jié)構(gòu) 性質(zhì)：驗(yàn)證 題目：1） 輸入一個(gè)學(xué)生的五門課的

3、考試成績(jī)，判斷其是否為優(yōu)秀。優(yōu)秀的條件為：五門課成績(jī)總分超過450分或每門課程在88以上或每門主課（前三門）的成績(jī)都在95分以上其他課程在80分以上；2） 運(yùn)輸部門的貨物運(yùn)輸與里程有關(guān)，距離越遠(yuǎn)，每噸貨物的單價(jià)越低，假設(shè)每噸單價(jià)P與距離S之間的關(guān)系如下，32S<10028100<=S<200P= 25200<=S<30022.5300<=S<40020400<=S>=100015S>1000請(qǐng)編寫程序輸入貨物重量后計(jì)算運(yùn)費(fèi)。目標(biāo)與要求： （1）熟悉if和select case語句。（2）達(dá)到可以判定什么時(shí)候采用哪種結(jié)構(gòu)簡(jiǎn)單的目的。（3

4、）在教學(xué)第7周安排的上機(jī)時(shí)間內(nèi)提交程序。4項(xiàng)目： 循環(huán)結(jié)構(gòu) 性質(zhì)：驗(yàn)證題目：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("請(qǐng)輸入行數(shù)吧! ") 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目標(biāo)與要求： （1）熟悉for、While和do loop語句。（2）達(dá)到可以判定什么時(shí)候采用哪種結(jié)構(gòu)簡(jiǎn)單的目的。（3）在教學(xué)第8周安排的上機(jī)時(shí)間內(nèi)提交程序。5項(xiàng)目： 控件 性質(zhì)：驗(yàn)證題目： 1） 編程序?qū)崿F(xiàn)一個(gè)簡(jiǎn)單的計(jì)算器；（能實(shí)現(xiàn)正整數(shù)的加減乘除即可）2） 編程序?qū)崿F(xiàn)一個(gè)數(shù)字時(shí)鐘，在標(biāo)簽框中顯示時(shí)分秒；并且在該程序中練習(xí)其他控件的使用方法；目標(biāo)與要求： （1）熟悉基本控件的使用方法。（2）熟悉時(shí)鐘控件。（3）在教學(xué)第9周安排的上機(jī)時(shí)間內(nèi)提交程序。6項(xiàng)目： 數(shù)組 性質(zhì)：驗(yàn)證題目：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） 產(chǎn)生100個(gè)100以內(nèi)的隨機(jī)數(shù)，將他們從大到小排序后輸出。

9、目標(biāo)與要求： （1）熟悉數(shù)組的定義以及使用方法。（2）熟悉排序算法。（3）在教學(xué)第10周安排的上機(jī)時(shí)間內(nèi)提交程序。7項(xiàng)目： 過程 性質(zhì)：設(shè)計(jì)題目：編寫求s=1+2!+3!+n! 程序，要求計(jì)算n！用過程實(shí)現(xiàn)。目標(biāo)與要求： （1）熟悉過程的定義以及調(diào)用方法。（2）熟悉傳“值”與傳“址”的區(qū)別。（3）在教學(xué)第11周安排的上機(jī)時(shí)間內(nèi)提交程序。8項(xiàng)目： 菜單 性質(zhì)：驗(yàn)證題目： 編程序采用菜單建立設(shè)置文本框字體的各種屬性的程序。(在文本框中輸入文字，通過菜單選項(xiàng)改變文字的字體、字號(hào))目標(biāo)與要求： （1）熟悉菜單的使用方法。（2）熟悉在程序運(yùn)行期設(shè)定控件的字體的方法。（3）在教學(xué)第12周安排的上機(jī)時(shí)間內(nèi)提

10、交程序。9項(xiàng)目： 文件 性質(zhì)：驗(yàn)證題目：編寫程序產(chǎn)生100個(gè)兩位數(shù)的隨機(jī)數(shù)，將他們以逗號(hào)分割后存入順序文件num.txt，然后讀入到一個(gè)數(shù)組中排序后輸出。目標(biāo)與要求： （1）熟悉文件的使用方法。（2）熟悉另一種排序算法。（3）在教學(xué)第13周安排的上機(jī)時(shí)間內(nèi)提交程序。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; 隨機(jī)產(chǎn)生100個(gè)1020的自然數(shù) Randomize b = Int(Rnd * 11) + 10 Write #1, b, Next i Close #1 n = 0 Open "e:num.txt" For Input As 1 '先把待排序的數(shù)據(jù)從文件中讀出來 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)