vb課程設(shè)計(jì)--簡單計(jì)算器

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：33 大?。?79.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩32頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　摘要　　我用VB制作這個(gè)程序的簡單計(jì)算器，它包括一個(gè)標(biāo)準(zhǔn)的計(jì)算器和一個(gè)科學(xué)計(jì)算器。它可以實(shí)現(xiàn)簡單的加減乘除四則運(yùn)算，數(shù)字的平方、平方根，正弦、余弦、正切，倒數(shù)、指數(shù)函數(shù)、對數(shù)函數(shù)，角度、弧度、梯度的轉(zhuǎn)換，以及各進(jìn)制的相互轉(zhuǎn)換。而且它的功能還有退格，清除當(dāng)前數(shù)據(jù)，清除所有數(shù)據(jù)，復(fù)制數(shù)據(jù)，粘貼數(shù)據(jù)。<p&g

2、t;　　在這個(gè)計(jì)算器的程序中，我用到了單行選擇語句If … Then …Else…,　　塊語句if…then…end if,If語句的嵌套，多條件選擇語句Select Case,而且還用到了按鈕、文本框、框架、單選按鈕控件，菜單的設(shè)計(jì)。　　在此報(bào)告中我重點(diǎn)敘述了計(jì)算機(jī)的各個(gè)功能及用法。特別是進(jìn)制間的轉(zhuǎn)換和數(shù)字與運(yùn)算符之間的聯(lián)系。。雖然描述的不太完整，但我

3、會(huì)盡力使用系統(tǒng)結(jié)構(gòu)圖，劃分多個(gè)模塊，讓大家明白我設(shè)計(jì)的運(yùn)算器的功能的。　　目錄　　第一章、程序概述- 3 -　　1.1、創(chuàng)作目的- 3 -　　1.2、基本功能- 3 -　　第二章、總

4、體設(shè)計(jì)- 4 -　　2.1、程序輪廓圖- 4 -　　第三章、程序代碼- 6 -　　3.1、計(jì)算器界面- 6 -　　3.1.1、標(biāo)準(zhǔn)型計(jì)算器：- 6 -　　3.1.2、科學(xué)型計(jì)算器：- 7 -&l

5、t;p>　　3.2、標(biāo)準(zhǔn)計(jì)算器代碼- 8 -　　3.2.1、變量的定義及初始化- 8 -　　3.2.2、簡單的運(yùn)算- 8 -　　3.2.3、退格、清除、清空- 10 -　　3.2.4、復(fù)制、粘貼- 11 -　　3.

6、2.5、兩窗體的切換- 12 -　　3.3、科學(xué)型計(jì)算器的代碼- 12 -　　3.3.1、變量的定義及初始化- 12 -　　3.3.2、簡單的運(yùn)算- 13 -　　3.3.3、正弦、余弦、正切- 15 -　　3.3.4、平

7、方、立方、多次方- 15 -　　3.3.5、指數(shù)函數(shù)、對數(shù)函數(shù)- 16 -　　3.3.6、倒數(shù)、平方根- 16 -　　3.3.7、角度、弧度、梯度- 17 -　　3.3.8、各進(jìn)制轉(zhuǎn)換- 18 -　　3.3.9、退格、清

8、除、清空- 27 -　　3.3.10、復(fù)制、粘貼- 28 -　　3.3.11、兩窗體的切換- 29 -　　第四章、總結(jié)- 30 -　　4.1、對學(xué)習(xí)者知識的要求：- 30 -　　4.2、學(xué)習(xí)程序設(shè)計(jì)基本要求：- 30

9、-　　4.3、程序設(shè)計(jì)方法概述- 31 -　　4.4、如何學(xué)好VB- 31 -　　4.5、不足之處- 32 -　　參考文獻(xiàn)- 33 -　　第一章、程序概述<

10、;p>　　1.1、創(chuàng)作目的　　本程序的目標(biāo)是建立一套可以計(jì)算數(shù)的平方，平方根，倒數(shù)，正弦，余弦，正切，指數(shù)函數(shù)，對數(shù)函數(shù)，角度、弧度、梯度相互轉(zhuǎn)換和數(shù)字的　　進(jìn)制轉(zhuǎn)換的計(jì)算器系統(tǒng)，系統(tǒng)可以幫助我們更快的計(jì)算，更好的學(xué)習(xí)，更　　好的節(jié)省時(shí)間。還能避免出現(xiàn)一些不必要的計(jì)算錯(cuò)

11、誤。　　1.2、基本功能　　能夠完成整型和實(shí)型常數(shù)的四則運(yùn)算。　　能夠進(jìn)行如下函數(shù)的求值運(yùn)算，包括sin, cos,tan, exp, log, sqr, 1/x，及和園周率π。　　能夠?qū)崿F(xiàn)角度、弧度、梯度的相互轉(zhuǎn)換。</p&g

12、t;　　能夠?qū)崿F(xiàn)的進(jìn)制的相互轉(zhuǎn)換。　　輸出時(shí)的格式：結(jié)果為整數(shù)時(shí)不顯示小數(shù)點(diǎn)，結(jié)果為1以下小數(shù)時(shí)要顯示前導(dǎo)0。　　分門別類采用控件數(shù)組，以減少事件處理的復(fù)雜程度，使程序簡潔高效。　　能夠?qū)崿F(xiàn)退格鍵、清除、清空功能。　　出錯(cuò)處理:操作數(shù)如果不符合數(shù)學(xué)上

13、的定義，應(yīng)該給出錯(cuò)誤信息。例：0做除數(shù)，負(fù)數(shù)或0做真數(shù)等情況　　第二章、總體設(shè)計(jì)　　2.1、程序輪廓圖　　圖一　　第三章、程序代碼<

14、;/b>　　3.1、計(jì)算器界面　　3.1.1、標(biāo)準(zhǔn)型計(jì)算器：　　圖二　　3.1.2、科學(xué)型計(jì)算器：　　圖三</b&g

15、t;　　3.2、標(biāo)準(zhǔn)計(jì)算器代碼　　3.2.1、變量的定義及初始化　　Dim dflag As Integer　　Dim i As Integer　　Dim opnre As Integer

16、　　Dim prev As Double　　Dim oflag As Integer　　Dim ind As Integer　　Dim X As Double　　Dim Y As Double　　Private Sub Form_

17、Load()　　prev = 0　　oflag = 0　　ind = 0　　opnre = 0&

18、lt;p>　　Clipboard.Clear　　ang = 3.14 / 180　　End Sub　　3.2.2、簡單的運(yùn)算　　Private Sub Command1_Click(Index As Integer)</p

19、>　　If ind = 4 Then　　prev = 0　　Text1.Text = " "　　ind = 0　　End If&l

20、t;/b>　　opnre = 0　　If oflag = 0 Then　　Text1.Text = " "　　End If<

21、;b>　　oflag = 1　　If Command1(Index).Caption <> "." Then　　If Text1.Text <> " 0" Then　　Text1.Text = Text1.Text &

22、; Command1(Index).Caption　　Else　　Text1.Text = " " & Command1(Index).Caption　　End If&

23、lt;b>　　Else　　If dflag = 0 Then　　Text1.Text = Text1.Text & "."　　dflag = 1　　Else<

24、;/b>　　MsgBox ("Error")　　End If　　End If　　End Sub<p&g

25、t;　　Private Sub Command2_Click(Index As Integer)　　If opnre = 0 Or Index = 4 Then　　If ind = 0 Then　　prev = prev + Val(Text1.Text)　　ElseIf

26、 ind = 1 Then　　prev = prev - Val(Text1.Text)　　ElseIf ind = 2 Then　　If Val(Text1.Text) = 0 Then　　MsgBox ("SORRY DIVIDE ZERO")&l

27、t;/p>　　Exit Sub　　Else　　prev = prev / Val(Text1.Text)　　End If　　Els

28、eIf ind = 3 Then　　prev = prev * Val(Text1.Text)　　End If　　Text1.Text = Str(prev)　　oflag = 0</p&g

29、t;　　End If　　opnre = 1　　ind = Index　　dflag = 0　　End Sub</

30、b>　　3.2.3、退格、清除、清空　　Private Sub Command3_Click()　　Dim length As Integer　　length = Len(Text1.Text)　　If length =

31、1 Then　　If Text1.Text <> "0" Then　　Text1.Text = "0"　　End If　　Else</p&

32、gt;　　Text1.Text = Left(Text1.Text, length - 1)　　End If　　flag = True　　End Sub　　Private S

33、ub Command4_Click()　　dflag = 0　　prev = 0　　oflag = 0　　ind = 0

34、　　opnre = 0　　Text1.Text = " 0"　　End Sub　　Private Sub Command5_Click()<p&g

35、t;　　Text1.Text = " 0"　　End Sub　　3.2.4、復(fù)制、粘貼　　Private Sub fz_Click()　　Clipboard.Clear

36、Clipboard.SetText Text1.Text　　End Sub　　Private Sub zt_Click()　　Text1.Text = ""　　Text1.Text = Clipboard.GetT

37、ext()　　End Sub　　3.2.5、兩窗體的切換　　Private Sub ck_Click()　　form1.Hide　　Form2.Show

38、;　　End Sub　　Private Sub ckx_Click()　　Form2.Hide　　form1.Show　　End Sub　　3.3、科學(xué)型

39、計(jì)算器的代碼　　3.3.1、變量的定義及初始化　　Dim dflag As Integer　　Dim i As Integer　　Dim opnre As Integer　　Dim prev As Double

40、　　Dim oflag As Integer　　Dim ind As Integer　　Dim X As Double　　Dim Y As Double　　Private Sub Form_Load()<

41、;b>　　prev = 0　　oflag = 0　　ind = 0　　opnre = 0　　Clipboard.Clear</

42、p>　　ang = 3.14 / 180　　End Sub　　3.3.2、簡單的運(yùn)算　　Private Sub Command1_Click(Index As Integer)　　If ind = 4 Th

43、en　　prev = 0　　Text1.Text = " "　　ind = 0　　End If&

44、lt;b>　　opnre = 0　　If oflag = 0 Then　　Text1.Text = " "　　End If　　oflag = 1<

45、;/p>　　If Command1(Index).Caption <> "." Then　　If Text1.Text <> " 0" Then　　Text1.Text = Text1.Text & Command1(Index).Caption</

46、p>　　Else　　Text1.Text = " " & Command1(Index).Caption　　End If　　Else</p

47、>　　If dflag = 0 Then　　Text1.Text = Text1.Text & "."　　dflag = 1　　Else

48、MsgBox ("Error")　　End If　　End If　　End Sub　　Private Sub Command2_Click

49、(Index As Integer)　　If opnre = 0 Or Index = 4 Then　　If ind = 0 Then　　prev = prev + Val(Text1.Text)　　ElseIf ind = 1 Then<p

50、>　　prev = prev - Val(Text1.Text)　　ElseIf ind = 2 Then　　If Val(Text1.Text) = 0 Then　　MsgBox ("SORRY DIVIDE ZERO")

51、Exit Sub　　Else　　prev = prev / Val(Text1.Text)　　End If　　ElseIf ind = 3 Then&l

52、t;p>　　prev = prev * Val(Text1.Text)　　End If　　Text1.Text = Str(prev)　　oflag = 0　　End If

53、　　opnre = 1　　ind = Index　　dflag = 0　　End Sub　　3.

54、3.3、正弦、余弦、正切　　Private Sub Command5_Click()　　Text1.Text = Str(Sin(ang * Val(Text1.Text)))　　End Sub　　Private Sub Comman

55、d6_Click()　　Text1.Text = Str(Cos(ang * Val(Text1.Text)))　　End Sub　　Private Sub Command7_Click()　　If (Cos(Val(Text1.Te

56、xt))) <> 0 Then　　Text1.Text = Str(Sin(ang * Val(Text1.Text)) / Cos(ang * Val(Text1.Text)))　　Else　　MsgBox ("該數(shù)無正切值 ")</p

57、>　　Text1.Text = "0"　　End If　　End Sub　　3.3.4、平方、立方、多次方　　Private Sub Command

58、8_Click()　　X = Val(Text1.Text)　　Text1.Text = X ^ 2　　End Sub　　Private Sub Command9_Click()　　X = V

59、al(Text1.Text)　　Text1.Text = X ^ 3　　End Sub　　Private Sub Command10_Click()　　If (Text1.Text = "" Or prev = 0

60、) Then　　MsgBox ("不合法輸入！?。?quot;)　　Text1.Text = "0"　　Else　　prev = power(prev, Fix(Val(Text1.Text)))<

61、/p>　　End If　　End Sub　　3.3.5、指數(shù)函數(shù)、對數(shù)函數(shù)　　Private Sub Command11_Click()　　e = Val(Text1.

62、Text)　　Text1.Text = Exp(e)　　End Sub　　Private Sub Command12_Click()　　L = Val(Text1.Text)　　Text1.T

63、ext = Log(L)　　End Sub　　3.3.6、倒數(shù)、平方根　　Private Sub Command13_Click()　　X = Val(Text1.Text)　　If X =

64、0 Then　　MsgBox ("除數(shù)不能為零！")　　Else　　Text1.Text = 1 / X　　End If<b&g

65、t;　　End Sub　　Private Sub Command14_Click()　　If Text1.Text < 0 Then　　MsgBox ("負(fù)數(shù)不能開方")　　Text1.Text = "0"

66、　　Else　　Text1.Text = Str(Sqr(Val(Text1.Text)))　　End If　　End Sub<

67、p>　　3.3.7、角度、弧度、梯度　　Private Sub Option5_Click(Index As Integer)　　Dim jd As Double, hu As Double, td As Double　　ju = Val(Text1.Text)

68、Select Case Index　　Case 0　　Text1.Text = ju　　Case 1　　hu = 3.141592654 / 180 * ju<p&g

69、t;　　Text1.Text = hu　　Case 2　　td = 3.141592654 / 200　　Text1.Text = td　　End Select　　ind = Index<

70、;/p>　　End Sub　　3.3.8、各進(jìn)制轉(zhuǎn)換　　Private Sub Option1_Click(Index As Integer)　　Static r　　S

71、elect Case Index　　Case 0　　Dim w As Integer　　For w = 2 To 9　　Command1(w).Enabled = True

72、　Next w　　For w = 0 To 5　　Command3(w).Enabled = True　　Next w　　If r = 10 Then　　Text1.Tex

73、t = trandec(Val(Text1.Text), 16)　　ElseIf r = 2 Then　　Text1.Text = Two16(Text1.Text)　　ElseIf r = 8 Then　　Text1.Text = OCT_to_HEX(Text1.Te

74、xt)　　End If　　r = 16　　Case 1　　Dim X As Integer　　For X = 2 T

75、o 9　　Command1(X).Enabled = True　　Next X　　For X = 0 To 5　　Command3(X).Enabled = False　　N

76、ext X　　Text1.Text = Convert(Text1.Text, r)　　If r = 8 Then Text1.Text = trandec(Val(Text1.Text), 10)　　r = 10

77、　　Case 2　　Dim Y As Integer　　For Y = 2 To 7　　Command1(Y).Enabled = True　　Next Y

78、;　　Command1(8).Enabled = False　　Command1(9).Enabled = False　　For Y = 0 To 5　　Command3(Y).Enabled = False　　Next Y</

79、p>　　If r = 10 Then　　Text1.Text = trandec(Val(Text1.Text), 8)　　ElseIf r = 16 Then　　Text1.Text = HEX_to_OCT(Text1.Text)　　Els

80、eIf r = 2 Then　　Text1.Text = BIN_to_OCT(Text1.Text)　　End If　　r = 8　　Case 3</

81、p>　　Dim z As Integer　　For z = 2 To 9　　Command1(z).Enabled = False　　Next z　　For z = 0 To 5&l

82、t;p>　　Command3(z).Enabled = False　　Next z　　If r = 10 Then　　Text1.Text = trandec(Val(Text1.Text), 2)　　End

83、If　　If r = 16 Then　　Text1.Text = HEX_to_BIN(Text1.Text)　　ElseIf r = 8 Then　　Text1.Text = OCT_to_BIN(Text1.Text)<

84、;p>　　End If　　r = 2　　End Select　　Y = N　　End Sub

85、　　Function fact(num As Long) As Long　　If (num < 0 Or num = 0) Then　　MsgBox ("Error")　　fact = num　　Else&l

86、t;/b>　　If (num > 12) Then　　MsgBox ("指太大")　　fact = num　　Else　　re = 1<

87、/b>　　While (num > 0)　　re = re * num　　num = num - 1　　Wend　　fact = re<

88、/p>　　End If　　End If　　End Function　　Public Function trandec$(ByVal m%, ByVal r%)　　Dim

89、 strdtor$　　Dim iB%, mr%　　strdtor = ""　　Do While m <> 0　　mr = m Mod r　　m = m \ r&

90、lt;/p>　　If mr >= 10 Then　　strdtor = Chr(mr - 10 + 65) & strdtor　　Else　　strdtor = mr & strdtor

91、;　　End If　　Loop　　trandec = strdtor　　End Function　　Public Function Convert(ByVal S As String, ByVal

92、 N As Integer) As Double　　Dim r() As String　　Dim i As Integer　　Dim j As Integer　　L = "0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M

93、|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"　　r = Split(L, "|")　　For i = 1 To Len(S)　　For j = 0 To UBound(r)　　If UCase(Mid(S, i, 1)) = r(j

94、) Then　　Convert = Convert * N + j　　End If　　Next j　　Next i

95、　End Function　　Private Function Two16(ByVal X As String) As String　　Do While Len(X) Mod 4 <> 0　　X = "0" + X　　Lo

96、op　　Do While Len(X) > 0　　Select Case Right(X, 4)　　Case "0000"　　Two16 = "0" + Two16

97、　　Case "0001"　　Two16 = "1" + Two16　　Case "0010"　　Two16 = "2" + Two16　　Case "0011"</

98、p>　　Two16 = "3" + Two16　　Case "0100"　　Two16 = "4" + Two16　　Case "0101"　　Two16 = &q

99、uot;5" + Two16　　Case "0110"　　Two16 = "6" + Two16　　Case "0111"　　Two16 = "7" + Two16

100、;　　Case "1000"　　Two16 = "8" + Two16　　Case "1001"　　Two16 = "9" + Two16　　Case "101

101、0"　　Two16 = "A" + Two16　　Case "1011"　　Two16 = "B" + Two16　　Case "1100"

102、　　Two16 = "C" + Two16　　Case "1101"　　Two16 = "D" + Two16　　Case "1110"　　Two16 = "E" + Tw

103、o16　　Case "1111"　　Two16 = "F" + Two16　　End Select　　X = Left(X, Len(X) - 4)　　Loop</b

104、>　　End Function　　Public Function HEX_to_BIN(ByVal Hex As String) As String　　Dim i As Long　　Dim B As String　　Hex

105、= UCase(Hex)　　For i = 1 To Len(Hex)　　Select Case Mid(Hex, i, 1)　　Case "0": B = B & "0000"　　Case "1": B

106、 = B & "0001"　　Case "2": B = B & "0010"　　Case "3": B = B & "0011"　　Case "4": B = B &a

107、mp; "0100"　　Case "5": B = B & "0101"　　Case "6": B = B & "0110"　　Case "7": B = B & &qu

108、ot;0111"　　Case "8": B = B & "1000"　　Case "9": B = B & "1001"　　Case "A": B = B & "1010

109、"　　Case "B": B = B & "1011"　　Case "C": B = B & "1100"　　Case "D": B = B & "1101"&

110、lt;/p>　　Case "E": B = B & "1110"　　Case "F": B = B & "1111"　　End Select　　Next i</b&g

111、t;　　Do While Left(B, 1) = "0"　　B = Right(B, Len(B) - 1)　　Loop　　HEX_to_BIN = B　　End Fun

112、ction　　Public Function OCT_to_BIN(ByVal Oct As String) As String　　Dim i As Long　　Dim B As String　　For i = 1 To Len(Oct)<p

113、>　　Select Case Mid(Oct, i, 1)　　Case "0": B = B & "000"　　Case "1": B = B & "001"　　Case "2": B = B

114、 & "010"　　Case "3": B = B & "011"　　Case "4": B = B & "100"　　Case "5": B = B & &qu

115、ot;101"　　Case "6": B = B & "110"　　Case "7": B = B & "111"　　End Select　　Nex

116、t i　　While Left(B, 1) = "0"　　B = Right(B, Len(B) - 1)　　Wend　　OCT_to_BIN = B

117、　End Function　　Public Function HEX_to_OCT(ByVal Hex As String) As String　　Dim bin As String　　Hex = UCase(Hex)　　bin = HEX_to_BIN(Hex)<

118、/p>　　HEX_to_OCT = BIN_to_OCT(bin)　　End Function　　Public Function BIN_to_OCT(ByVal bin As String) As String　　Dim i As Long

119、　Dim H As String　　If Len(bin) Mod 3 <> 0 Then　　bin = String(3 - Len(bin) Mod 3, "0") & bin　　End If

120、;　　For i = 1 To Len(bin) Step 3　　Select Case Mid(bin, i, 3)　　Case "000": H = H & "0"　　Case "001": H = H & "1"

121、　　Case "010": H = H & "2"　　Case "011": H = H & "3"　　Case "100": H = H & "4"

122、　　Case "101": H = H & "5"　　Case "110": H = H & "6"　　Case "111": H = H & "7"

123、;　　End Select　　Next i　　While Left(H, 1) = "0"　　H = Right(H, Len(H) - 1)　　Wend

124、　　BIN_to_OCT = H　　End Function　　Public Function OCT_to_DEC(ByVal Oct As String) As Long　　Dim i As Long　　Dim B As Long

125、;　　For i = 1 To Len(Oct)　　Select Case Mid(Oct, Len(Oct) - i + 1, 1)　　Case "0": B = B + 8 ^ (i - 1) * 0　　Case "1": B = B + 8 ^

126、(i - 1) * 1　　Case "2": B = B + 8 ^ (i - 1) * 2　　Case "3": B = B + 8 ^ (i - 1) * 3　　Case "4": B = B + 8 ^ (i - 1) * 4

127、　　Case "5": B = B + 8 ^ (i - 1) * 5　　Case "6": B = B + 8 ^ (i - 1) * 6　　Case "7": B = B + 8 ^ (i - 1) * 7　　End Select

128、　　Next i　　OCT_to_DEC = B　　End Function　　Public Function OCT_to_HEX(ByVal Oct As String) As String

129、;　　Dim bin As String　　bin = OCT_to_BIN(Oct)　　OCT_to_HEX = Two16(bin)　　End Function　　3.3.9、退格、清除、清空　　Private Sub Com

130、mand15_Click()　　Dim length As Integer　　length = Len(Text1.Text)　　If length = 1 Then　　If Text1.Text <> "0" Then

131、;　　Text1.Text = "0"　　End If　　Else　　Text1.Text = Left(Text1.Text, length - 1)&

132、lt;b>　　End If　　flag = True　　End Sub　　Private Sub Command16_Click()　　dflag = 0</p&g

133、t;　　prev = 0　　oflag = 0　　ind = 0　　opnre = 0　　Text

134、1.Text = " 0"　　End Sub　　Private Sub Command17_Click()　　Text1.Text = " 0"　　End Sub</b&

135、gt;　　3.3.10、復(fù)制、粘貼　　Private Sub fz_Click()　　Clipboard.Clear　　Clipboard.SetText Text1.Text　　End Sub

136、;　　Private Sub zt_Click()　　Text1.Text = ""　　Text1.Text = Clipboard.GetText()　　End Sub

137、　3.3.11、兩窗體的切換　　Private Sub ck_Click()　　form1.Hide　　Form2.Show　　End Sub　　Private Sub ckx_Click()

138、　　Form2.Hide　　form1.Show　　End Sub　　第四章、總結(jié)　　經(jīng)過課程設(shè)計(jì)后我總結(jié)了一些學(xué)習(xí)方法，學(xué)到了一些知識，以下是我對此次實(shí)

139、習(xí)的總結(jié)　　4.1、對學(xué)習(xí)者知識的要求： 　　首先，學(xué)習(xí)程序設(shè)計(jì)要有一定的邏輯思維能力，邏輯思維需要長時(shí)間的鍛煉，如果你覺得　　自己在邏輯思維能力上有不足，也沒有關(guān)系，因?yàn)榫帉懗绦虮旧硪彩菍壿嬎季S的鍛煉，　　初學(xué)程序設(shè)計(jì)應(yīng)具備的邏輯基礎(chǔ)可以從高中數(shù)學(xué)中學(xué)到。</p

140、>　　其次，學(xué)習(xí)程序設(shè)計(jì)要具備一定的數(shù)學(xué)基礎(chǔ)，計(jì)算機(jī)與數(shù)學(xué)有很大的聯(lián)系，綜觀計(jì)算機(jī)歷　　史，計(jì)算機(jī)的數(shù)學(xué)模型和體系結(jié)構(gòu)等都是由數(shù)學(xué)家提出的。因此，要學(xué)習(xí)好計(jì)算機(jī)就要有　　一定的數(shù)學(xué)基礎(chǔ)，不過對于初學(xué)者來說，在數(shù)學(xué)基礎(chǔ)方面的要求并不是很高，從我個(gè)人的　　角度來看，有高中數(shù)學(xué)水平就差不多了

141、。　　4.2、學(xué)習(xí)程序設(shè)計(jì)基本要求：　　熟悉Visual Basic操作環(huán)境與設(shè)計(jì)工具，能設(shè)計(jì)應(yīng)用程序界面。　　掌握，理解面向?qū)ο蟪绦蛟O(shè)計(jì)基本概念。　　理解、運(yùn)用數(shù)據(jù)庫的連接，及調(diào)用。　　掌握數(shù)據(jù)庫對數(shù)據(jù)的管理。</p&g

142、t;　　掌握VB語言的基礎(chǔ)知識，程序設(shè)計(jì)的方法。 　　能閱讀一般難的程序； 　　能應(yīng)用編寫一些簡單程序；　　具有用Visual Basic開發(fā)Windows環(huán)境下應(yīng)用程序的能力和閱讀分析一般難度的VB程序的能力。 　　4.3、程序設(shè)計(jì)方法概述<

143、/p>　　1、初期的程序設(shè)計(jì) 　　高運(yùn)行效率，少占用內(nèi)存為目標(biāo) 　　2、結(jié)構(gòu)化程序設(shè)計(jì) 　　程序的可讀性，可維護(hù)性為目標(biāo) 　　程序=算法+數(shù)據(jù)結(jié)構(gòu)+計(jì)算機(jī)語言+面向過程的程序設(shè)計(jì)方法 　　3、面向?qū)ο蟮?/p>

144、程序設(shè)計(jì)　　降低程序的復(fù)雜性，提高軟件的開法效率和改善工作界面為目標(biāo) 　　程序=對象+消息+面向?qū)ο蟮某绦蛟O(shè)計(jì) 　　4.4、如何學(xué)好VB　　(1)養(yǎng)成良好的學(xué)習(xí)習(xí)慣 　　(2)學(xué)習(xí)程序設(shè)計(jì)要注重理解一些重要的概念。 </p&

145、gt;　　(3)自己動(dòng)手編寫程序 　　(4)閱讀。借簽別人設(shè)計(jì)的好程序 　　(5) VB程序設(shè)計(jì)學(xué)習(xí)的重點(diǎn) 　　(6)養(yǎng)成良好的編程習(xí)慣 　　4.5、不足之處　　由于水

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

vb課程設(shè)計(jì)--簡單計(jì)算器

文檔簡介

溫馨提示

最新文檔

評論

vb課程設(shè)計(jì)--簡單計(jì)算器

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載