VB程序設(shè)計(jì)實(shí)驗(yàn)要求及報(bào)告8答案詳解

1、上海立信會(huì)計(jì)學(xué)院本科實(shí)驗(yàn)報(bào)告班級： 學(xué)號： 姓名： 指導(dǎo)教師： 系部： 專業(yè)： 實(shí)驗(yàn)時(shí)間： 實(shí)驗(yàn)8 數(shù)據(jù)文件及圖形操作一、 實(shí)驗(yàn)?zāi)康? 掌握順序文件的特點(diǎn)和使用2 掌握順序文件的打開、關(guān)閉和讀寫操作3 掌握在應(yīng)用程序中使用文件4 掌握圖形操作二、實(shí)驗(yàn)要求1 在C:下建立子文件夾“VB實(shí)驗(yàn)8”，按照題目要求，在該文件夾下為各題保存相應(yīng)的文件，如本實(shí)驗(yàn)中的第一題，需保存的文件有：工程文件(81.vbp)、窗體文件(81.frm) 及可執(zhí)行文件（81.exe），本實(shí)驗(yàn)中的第二題，需保存的文件有：工程文件(82.vbp)、窗體文件(82.frm) 及可執(zhí)行文件（82.exe），其余實(shí)驗(yàn)依此類推。2 撰

2、寫實(shí)驗(yàn)過程中出現(xiàn)了哪些問題、錯(cuò)誤，你是如何解決的，做一個(gè)小結(jié)。三、 實(shí)驗(yàn)內(nèi)容：1. 設(shè)計(jì)一個(gè)應(yīng)用程序，窗體內(nèi)所有控件字體為宋體、大小為五號，運(yùn)行界面如圖8-1所示。若單擊“建立文件”按鈕，則分別用Print # 和 Write # 語句將三個(gè)同學(xué)的學(xué)號、姓名和成績寫入（當(dāng)前目錄）文件Score.dat和Score1.dat；若單擊“讀取文件”按鈕，則用line Input 語句按行將兩個(gè)（當(dāng)前目錄）文件中的數(shù)據(jù)送往相應(yīng)的文本框。其中：學(xué)號和姓名是字符串類型，成績是整型：數(shù)據(jù)如下： , 王海濤, 66 , 周文英, 88, 王海濤, 71圖8-1Private Sub Command1_Clic

3、k()Open score.dat For Output As #1Print #1, , 王海濤anghai, 66Print #1, , 周文英, 88Print #1, , 王海濤, 71Close #1Shell notepad score.datOpen score1.dat For Output As #1Write #1, , 王海濤, 66Write #1, , 周文英, 88Write #1, , 王海濤, 71Close #1Shell notepad score1.datEnd SubPrivate Sub Command2_Click()Dim inputdata As

4、 StringOpen score.dat For Input As #1Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLfLoop Close #1Open score1.dat For Input As #1Do While Not EOF(1) Line Input #1, inputdata Text2.Text = Text2.Text + inputdata + vbCrLfLoop Close #1End SubPrivate Sub Form_Load

5、()Text1.Text = Text2.Text = End Sub2. 設(shè)計(jì)一個(gè)應(yīng)用程序，界面如圖8-2(1)，窗體內(nèi)所有控件字體為宋體、大小為五號，點(diǎn)擊“建立文件”按鈕，則建立數(shù)組num，數(shù)組元素為10個(gè)小于100的隨機(jī)整數(shù)，將數(shù)組數(shù)據(jù)寫入文件（當(dāng)前目錄）Fb.dat，文件內(nèi)容及格式如圖8-2(2)；點(diǎn)擊“讀取文件”按鈕，則從（當(dāng)前目錄）Fb.dat文件中將數(shù)據(jù)讀取出來，顯示在列表框中，并計(jì)算這些數(shù)的合計(jì)與平均數(shù)，并把計(jì)算結(jié)果也顯示在列表框中。 圖8-2 (1) 圖8-2 (2) Private Sub Command1_Click()Dim num(9) As IntegerDim i

6、%, outputstring As StringOpen Fb.dat For Output As #1For i = 0 To 9 num(i) = Int(Rnd * 100) outputstring = num( & i & )= Write #1, outputstring, num(i)Next iClose #1End SubPrivate Sub Command2_Click()Dim sum%, ave!Dim inputstring As String, inputdata As IntegerOpen Fb.dat For Input As #1sum = 0Do Wh

7、ile Not EOF(1) Input #1, inputstring, inputdata List1.AddItem inputstring & inputdata sum = sum + inputdataLoopClose #1List1.AddItem 合計(jì)： & sumave = sum / 10List1.AddItem 平均： & aveEnd SubPrivate Sub Form_Load()RandomizeEnd Sub3. 設(shè)計(jì)一個(gè)應(yīng)用程序，界面如圖8-3，窗體內(nèi)所有控件字體為宋體、大小為五號。要求：1） 點(diǎn)擊“打開文件”按鈕，則彈出一個(gè)“打開”通用對話框，用戶選擇

8、文件后將文件內(nèi)容顯示在文本框中；“C:VB實(shí)驗(yàn)8”下的“實(shí)驗(yàn)83.txt”供調(diào)試使用；2） 點(diǎn)擊“保存文件”按鈕，則彈出“另存為”通用對話框，用戶確定文件保存目錄為“C:VB實(shí)驗(yàn)8”，文件名為83.dat，保存內(nèi)容為文本框中顯示的所有文字內(nèi)容；3） 點(diǎn)擊“結(jié)束”，則退出程序。圖8-3Private Sub Command1_Click()CommonDialog1.Filter = Text files(*.txt)|*.txt|Data files(*.dat)|*.dat|All files(*.*)|*.*CommonDialog1.FilterIndex = 1CommonDialog

9、1.FileName = CommonDialog1.Action = 1Open CommonDialog1.FileName For Input As #1Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub Command2_Click()CommonDialog1.Filter = Text files(*.txt)|*.txt|Data files(*.dat)|*.dat|All files(*.*

10、)|*.*CommonDialog1.FilterIndex = 2CommonDialog1.FileName = CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = End Sub4. 編一循環(huán)程序，單擊窗體后，用Line方法在屏幕上隨機(jī)產(chǎn)生20條長度、顏色（用QBColor實(shí)現(xiàn)）、寬度（2-

11、4單位）各異的直線，效果圖8-4所示。圖8-4Private Sub Form_Click()ClsDim i%, lx1%, lx2%, lx3%, lx4%, c$RandomizeFor i = 1 To 20 lx1 = Rnd * Form1.ScaleWidth ly1 = Rnd * Form1.ScaleHeight lx2 = Rnd * Form1.ScaleWidth ly2 = Rnd * Form1.ScaleHeight Form1.DrawWidth = Int(Rnd * 3 + 2) c = RGB(Rnd * 255, Rnd * 255, Rnd * 25

12、5) QBColor(Rnd * 15) Line (lx1, ly1)-(lx2, ly2), cNext iEnd Sub5. 編一程序，單擊窗體后，用Pest方法在窗體內(nèi)畫200個(gè)隨機(jī)彩色點(diǎn)（顏色用QBColor實(shí)現(xiàn)），點(diǎn)的大小在單位36之間變化，如圖8-5所示。圖8-5Private Sub Form_Click()ClsDim i%, lx1%, lx2%, c$RandomizeFor i = 1 To 200 lx1 = Rnd * Form1.ScaleWidth ly1 = Rnd * Form1.ScaleHeight Form1.DrawWidth = Int(Rnd *

13、 4 + 3) c = RGB(Rnd * 255, Rnd * 255, Rnd * 255) QBColor(Rnd * 15) PSet (lx1, ly1), cNext iEnd Sub6. 編一程序，在窗體上放置一個(gè)“繪圖”按鈕。單擊“繪圖”按鈕，定義窗體的坐標(biāo)體系為(-5, 5) - (7, -8)；用Line方法在窗體上按阿基米德螺線方程在02之間展開直線（直線的一端為坐標(biāo)系原點(diǎn)，另一端坐標(biāo)用阿基米德方程計(jì)算），要求直線的顏色隨機(jī)變化（用QBColor實(shí)現(xiàn)），步長為0.1，如圖8-6所示。圖8-6Private Sub Command1_Click()ClsDim a!, c$RandomizeForm1.DrawWidth = 1Form1.Scale (-4, 4)-(4, -8)For a = 0 To 6.28 Step 0.1 c = RGB(Rnd * 255, Rnd * 255, Rnd * 255) QBColor(Rnd * 15) Line (0, 0)-(a * Cos(a), a * Sin(a), cNext aEnd Sub7. 編一程序