vb程序設(shè)計(jì)第十二章-資料下載頁
2025-01-12 20:42本頁面
【正文】 sin cos tan 0 ？ ？ ？ 10 ？ ？ ？ 20 ？ ？ ？ … 90 ？ ？ ？ 解題思路： 以寫文件方式建立一個(gè)順序文件 d:\，調(diào)用三角函數(shù) sin、 cos、 tan計(jì)算 0～ 90度的函數(shù)值，并將值寫入順序文件中。 打開順序文件： open “d:\” for output as 1 寫入順序文件： print 1,I sinval,cosval,tancal 綜合應(yīng)用程序舉例 例 [128]某單位全年每次報(bào)銷的經(jīng)費(fèi)（整數(shù)）存放在一個(gè)文件中，從該文件讀取每次報(bào)銷的經(jīng)費(fèi)，計(jì)算總和，結(jié)果存入另一個(gè)文件中。 解題思路： 先從經(jīng)費(fèi)文件中讀出每次的經(jīng)費(fèi)，在列表框中顯示出來，并累加到變量 sum中，在文本框中顯示經(jīng)費(fèi)總和，最終把結(jié)果寫入文本文件中 . Dim sum As Long Open “d:\” For Input As 1 ?以順序文件方式打開文件 sum = 0 Do While Not EOF(1) Input 1, n ?讀出文件的每一次經(jīng)費(fèi) n ?加入到列表框中 sum = sum + n ? 求累加總和 Loop Close 1 = Str(sum) Open d:\ For Output As 1 Print 1, “經(jīng)費(fèi)總和： ”。 sum ?將累加總和寫入文件 Close 1 綜合應(yīng)用程序舉例 例 [129]有 20個(gè)整數(shù)保存到 d:\，讀文件，并將整數(shù)顯示在 Text1中，而后按升序排序，排序后的結(jié)果顯示在 Text2中，并保存在 d:\。 解題思路 ：首先按順序讀方式讀出數(shù)據(jù)，存放在數(shù)組 a中，再對數(shù)組 a排序，最后將排序后的數(shù)組 a寫入文件中。
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1