vb-股市計算器課程設(shè)計報告書

1、<p>　　編程語言課程設(shè)計報告書</p><p>　　所屬課程名稱： VB程序設(shè)計語言</p><p>　　題 目： 股市計算器</p><p>　　學(xué) 院： 經(jīng)管學(xué)院</p><p><b>　　課程設(shè)計報告任務(wù)書</b></p><p>　　課程設(shè)計題目：股市計算器</p

2、><p>　　課程設(shè)計時間：2011年6月20日起至2011年6月24日止</p><p>　　課程設(shè)計地點：經(jīng)管機(jī)房908</p><p><b>　　課程設(shè)計要求：</b></p><p><b>　　評分標(biāo)準(zhǔn)</b></p><p>　　基本功能實現(xiàn)（30分）</p&

3、gt;<p>　　獨立工作能力及工作量（30分）</p><p>　　問題復(fù)雜程度/代碼量（25分）</p><p>　　代碼質(zhì)量：容錯、通用性、可讀性。（10分）</p><p><b>　　改進(jìn)或創(chuàng)新（5分）</b></p><p><b>　　提交成果</b></p>

4、<p>　　可執(zhí)行程序（現(xiàn)場驗收）。</p><p>　　課程設(shè)計報告。內(nèi)容包括：</p><p>　?。?）問題描述、任務(wù)分工（合作完成）</p><p>　?。?）數(shù)據(jù)庫設(shè)計（如果有）</p><p><b>　　（3）功能模塊描述</b></p><p>　?。?）難點及解決方

5、法</p><p><b>　?。?）體會</b></p><p><b>　?。?）其它 </b></p><p><b>　　參考資料</b></p><p>　　Visual Basic 課程設(shè)計，王棟，清華大學(xué)出版社</p><p><b&

6、gt;　　目 錄</b></p><p>　　功能描述……………………………………………………………….2</p><p>　　二、 設(shè)計思路……………………………………………………………….2</p><p>　　三、 具體實現(xiàn)………………………………………………………………..3-6</p><p>　　四、 運(yùn)

7、行結(jié)果及難點解決…………………………………………………..7-8</p><p>　　五、 設(shè)計體會………………………………………………………………..9</p><p><b>　　一、功能描述</b></p><p><b>　　股市計算器：</b></p><p>　　隨著社會的發(fā)展，股市

8、越來越受到人們青睞。股民在進(jìn)行股票投資和交易時，經(jīng)常需要對買賣股票作出投資分析：在上市公司進(jìn)行送股、分紅河配股后還需對股票除權(quán)后的價格進(jìn)行計算。所以“股市計算器”應(yīng)運(yùn)而生。</p><p>　　打來程序，運(yùn)行并進(jìn)入主界面。</p><p>　　當(dāng)需要對投資進(jìn)行評估，并計算相應(yīng)費(fèi)用時，單擊“投資分析”按鈕，進(jìn)入“投資分析”窗口，輸入數(shù)據(jù)并計算結(jié)果。</p><p>　

9、　當(dāng)需要對上市公司進(jìn)行送股、分紅和配股后的除權(quán)價格進(jìn)行計算時，單擊“除權(quán)除息”按鈕，輸入數(shù)據(jù)并計算結(jié)果。</p><p>　　“參數(shù)設(shè)置”是根據(jù)相應(yīng)數(shù)值設(shè)置的默認(rèn)值，考慮到各種數(shù)率的變化情況，將其設(shè)置為可輸入文本框。</p><p>　　“關(guān)于”窗體主要軟件的功能及版本信息進(jìn)行說明。讓使用者更加了解該軟件的用途。</p><p><b>　　二、設(shè)計思路&

10、lt;/b></p><p><b>　　思想原理：</b></p><p>　　本題主要涉及多窗體的使用、文本框等基本控件的使用、控件的鍵盤輸入焦點等知識點。</p><p>　　由一個窗體聯(lián)結(jié)到多個窗體，進(jìn)入不同的功能板塊。</p><p>　　運(yùn)用文本框的各項控件，進(jìn)行調(diào)試。</p><p

11、><b>　　三、具體實現(xiàn)</b></p><p>　　在右邊的屬性窗口中把五個command屬性依次改為“投資分析”，“除權(quán)除息”，“參數(shù)設(shè)置”，“關(guān)于”，“退出”；雙擊form1屬性窗口中的Icon屬性，選取圖標(biāo)，再將caption屬性改為“股市計算器”。</p><p><b>　　程序源代碼：</b></p><

12、p><b>　　Form1</b></p><p>　　Option Explicit</p><p>　　Private Sub Command1_Click()</p><p>　　Form2.Show</p><p><b>　　Me.Hide</b></p><p&

13、gt;<b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Form3.Show</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p&

14、gt;<p>　　Private Sub Command3_Click()</p><p>　　Form4.Show</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_C

15、lick()</p><p>　　Form5.Show</p><p><b>　　Me.Hide</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　

16、End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Resize()</p><p>　　Private Sub Form_Resize()</p><p>　　Dim objpicbuf As IPictureDisp</p>

17、<p>　　AutoRedraw = True</p><p>　　Set objpicbuf = LoadPicture("123.jpg")</p><p>　　PaintPicture objpicbuf, 0, 0, ScaleWidth, ScaleHeight</p><p><b>　　End Sub<

18、/b></p><p><b>　　End Sub</b></p><p><b>　　Form2</b></p><p>　　Option Explicit</p><p>　　Private Sub Command1_Click()</p><p>　　Dim b,

19、 c, d, e, f, g, h, i, j As Single</p><p>　　Dim a As Long</p><p>　　If Text1.text = "" Then</p><p>　　MsgBox "股票代碼不能為空！"</p><p><b>　　Exit Sub&

20、lt;/b></p><p><b>　　End If</b></p><p>　　a = Val(Text1.text)</p><p>　　b = Val(Text2.text)</p><p>　　c = Val(Text3.text)</p><p>　　d = Val(Text4.

21、text)</p><p>　　Form4.Hide</p><p>　　e = c + 0.003 * c + c * x + d * 0.003 + d * x</p><p>　　Text5.text = Format(Val(e), "0.00")</p><p>　　f = b * c * y + b * d *

22、 x * y</p><p>　　Text6.text = Format(Val(f), "0.00")</p><p>　　g = b * c + c * y * b</p><p>　　Text7.text = Format(Val(g), "0.00")</p><p>　　h = b * d -

23、 g + b * c</p><p>　　Text8.text = Format(Val(h), "0.00")</p><p><b>　　i = h - g</b></p><p>　　Text9.text = Format(Val(i), "0.00")</p><p>　　

24、j = (i / g) * 100</p><p>　　Text10.text = Format(Val(j), "0.00")</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Text1.text

25、= ""</p><p>　　Text2.text = ""</p><p>　　Text3.text = ""</p><p>　　Text4.text = ""</p><p>　　Text5.text = ""</p>&l

26、t;p>　　Text6.text = ""</p><p>　　Text7.text = ""</p><p>　　Text8.text = ""</p><p>　　Text9.text = ""</p><p>　　Text10.text = "

27、;"</p><p>　　Text1.SetFocus</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form1.Show</p><p>　　Form2.Hide</p>

28、<p><b>　　End Sub</b></p><p><b>　　Form3</b></p><p>　　Private Sub Command1_Click()</p><p>　　Form1.Show</p><p>　　Form3.Hide</p><p

29、><b>　　End Sub</b></p><p>　　Private Sub Command13_Click()</p><p>　　Dim a, b, c, d, e, f As Single</p><p>　　If Text1.text = "" Then</p><p>　　Msg

30、Box "當(dāng)前價位不能為空！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text2.text = "" Then</p><p>　　MsgBox "每股送股不

31、能為空！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text3.text = "" Then</p><p>　　MsgBox "每股分紅不能為空！"</

32、p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text4.text = "" Then</p><p>　　MsgBox "每股配股不能為空！"</p><p>

33、;<b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text5.text = "" Then</p><p>　　MsgBox "配股價位不能為空！"</p><p><b>　　Exi

34、t Sub</b></p><p><b>　　End If</b></p><p>　　a = Val(Text1.text)</p><p>　　b = Val(Text2.text)</p><p>　　c = Val(Text3.text)</p><p>　　d = Val(

35、Text4.text)</p><p>　　e = Val(Text5.text)</p><p>　　f = (a + d * e - c) / (1 + b + d)</p><p>　　Text6.text = Format(Val(f), "0.00")</p><p><b>　　End Sub<

36、/b></p><p>　　Private Sub Command14_Click()</p><p>　　Text1.text = ""</p><p>　　Text2.text = ""</p><p>　　Text3.text = ""</p><p&

37、gt;　　Text4.text = ""</p><p>　　Text5.text = ""</p><p>　　Text6.text = ""</p><p>　　Text1.SetFocus</p><p><b>　　End Sub</b></p&g

38、t;<p><b>　　Form4</b></p><p>　　Dim z As Single</p><p>　　Option Explicit</p><p>　　Private Sub Command1_Click()</p><p>　　Form1.Show</p><p>

39、　　Form4.Hide</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Form2.Show</p><p>　　Form4.Hide</p><p>　　x = Val(Text1.text)

40、</p><p>　　y = Val(Text2.text)</p><p>　　z = Val(Text3.text)</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　x = 0.004

41、</b></p><p>　　y = 0.0035</p><p><b>　　z = 10</b></p><p><b>　　End Sub</b></p><p><b>　　Form5</b></p><p>　　Private Su

42、b Command1_Click()</p><p>　　Form1.Show</p><p>　　Form5.Hide</p><p><b>　　End Sub</b></p><p>　　模塊：Public x, y As Single</p><p>　　四、運(yùn)行結(jié)果及難點解決</p

43、><p><b>　　程序主界面：</b></p><p><b>　　投資分析：</b></p><p><b>　　除權(quán)除息：</b></p><p><b>　　參數(shù)設(shè)置：</b></p><p><b>　　關(guān)于：&l

44、t;/b></p><p><b>　　問題及解決方案：</b></p><p>　　問題1：運(yùn)行時，text中輸出的數(shù)據(jù)有多位小數(shù)點，要求保留兩位。</p><p>　　原因：對text輸出結(jié)果沒有做取舍。</p><p>　　解決辦法：對text輸出結(jié)果用format函數(shù)進(jìn)行控制，如text1.text=for

45、mat（val（text1.text），“0.00”）</p><p>　　問題2：運(yùn)行過程中，form4參數(shù)設(shè)置中的數(shù)據(jù)改動，但是form2投資分析中的計算依然按照默認(rèn)值計算。</p><p>　　原因：沒有將form4中的變量定義為全局變量。</p><p>　　解決辦法：添加模塊，將form4中的變量定義為全局變量，如：Public x，y as single

46、</p><p>　　問題3：設(shè)置全局變量后，計算時仍是按照默認(rèn)值計算。</p><p>　　原因：，計算時form4沒被調(diào)用。</p><p>　　解決辦法：在計算控件下，計算代碼前調(diào)用form4，如 form4.hide</p><p>　　問題4：給主界面插入背景圖片時大小不與窗體相符。</p><p>　　原因

47、：沒有設(shè)置圖片大小。</p><p>　　解決辦法：設(shè)置VB的form屬性AutoRedraw=ture ，同時Set objpicbuf = Picture</p><p>　　PaintPicture objpicbuf, 0, 0, ScaleWidth, ScaleHeight，圖片就能與窗體大小一致。</p><p>　　問題5：在運(yùn)行時，text中的文字

48、不會換行，并且不能閱讀到所有內(nèi)容。</p><p>　　原因：在繪制界面時，沒有改動屬性窗口里的Mutiline的屬性。</p><p>　　解決辦法：將原來Mutiline的false改為true。</p><p><b>　　五、設(shè)計體會</b></p><p>　　一、體會小結(jié)：經(jīng)過三天時間，終于完成了本次的課程

49、設(shè)計。通過本次的課程設(shè)計了解到了文本框等基</p><p>　　本控件的使用的多方面知識，特別是關(guān)于多窗體的使用、文本框等基本控件的使用、控件的</p><p>　　鍵盤輸入焦點這方面知識。通過這次股市程序的編寫，對VB的基本概念有了進(jìn)一步的了解。</p><p>　　同時在做實驗實現(xiàn)過程中還是遇見了不少問題。例如在編寫塊if時，常忘了寫End if；還有忘記對一些