vb課程設計--簡單計算器

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數：33 大?。?79.00KB 人氣指數：12 舉報 版權申訴

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

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　摘要　　我用VB制作這個程序的簡單計算器，它包括一個標準的計算器和一個科學計算器。它可以實現簡單的加減乘除四則運算，數字的平方、平方根，正弦、余弦、正切，倒數、指數函數、對數函數，角度、弧度、梯度的轉換，以及各進制的相互轉換。而且它的功能還有退格，清除當前數據，清除所有數據，復制數據，粘貼數據。<p&g

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

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

4、體設計- 4 -　　2.1、程序輪廓圖- 4 -　　第三章、程序代碼- 6 -　　3.1、計算器界面- 6 -　　3.1.1、標準型計算器：- 6 -　　3.1.2、科學型計算器：- 7 -&l

5、t;p>　　3.2、標準計算器代碼- 8 -　　3.2.1、變量的定義及初始化- 8 -　　3.2.2、簡單的運算- 8 -　　3.2.3、退格、清除、清空- 10 -　　3.2.4、復制、粘貼- 11 -　　3.

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

7、方、立方、多次方- 15 -　　3.3.5、指數函數、對數函數- 16 -　　3.3.6、倒數、平方根- 16 -　　3.3.7、角度、弧度、梯度- 17 -　　3.3.8、各進制轉換- 18 -　　3.3.9、退格、清

8、除、清空- 27 -　　3.3.10、復制、粘貼- 28 -　　3.3.11、兩窗體的切換- 29 -　　第四章、總結- 30 -　　4.1、對學習者知識的要求：- 30 -　　4.2、學習程序設計基本要求：- 30

9、-　　4.3、程序設計方法概述- 31 -　　4.4、如何學好VB- 31 -　　4.5、不足之處- 32 -　　參考文獻- 33 -　　第一章、程序概述<

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

11、誤。　　1.2、基本功能　　能夠完成整型和實型常數的四則運算。　　能夠進行如下函數的求值運算，包括sin, cos,tan, exp, log, sqr, 1/x，及和園周率π。　　能夠實現角度、弧度、梯度的相互轉換。</p&g

12、t;　　能夠實現的進制的相互轉換。　　輸出時的格式：結果為整數時不顯示小數點，結果為1以下小數時要顯示前導0。　　分門別類采用控件數組，以減少事件處理的復雜程度，使程序簡潔高效。　　能夠實現退格鍵、清除、清空功能。　　出錯處理:操作數如果不符合數學上

13、的定義，應該給出錯誤信息。例：0做除數，負數或0做真數等情況　　第二章、總體設計　　2.1、程序輪廓圖　　圖一　　第三章、程序代碼<

14、;/b>　　3.1、計算器界面　　3.1.1、標準型計算器：　　圖二　　3.1.2、科學型計算器：　　圖三</b&g

15、t;　　3.2、標準計算器代碼　　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、簡單的運算　　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、復制、粘貼　　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、科學型

39、計算器的代碼　　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、簡單的運算　　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 ("該數無正切值 ")</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、指數函數、對數函數　　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、倒數、平方根　　Private Sub Command13_Click()　　X = Val(Text1.Text)　　If X =

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

65、t;　　End Sub　　Private Sub Command14_Click()　　If Text1.Text < 0 Then　　MsgBox ("負數不能開方")　　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、各進制轉換　　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、復制、粘貼　　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　　第四章、總結　　經過課程設計后我總結了一些學習方法，學到了一些知識，以下是我對此次實

139、習的總結　　4.1、對學習者知識的要求： 　　首先，學習程序設計要有一定的邏輯思維能力，邏輯思維需要長時間的鍛煉，如果你覺得　　自己在邏輯思維能力上有不足，也沒有關系，因為編寫程序本身也是對邏輯思維的鍛煉，　　初學程序設計應具備的邏輯基礎可以從高中數學中學到。</p

140、>　　其次，學習程序設計要具備一定的數學基礎，計算機與數學有很大的聯系，綜觀計算機歷　　史，計算機的數學模型和體系結構等都是由數學家提出的。因此，要學習好計算機就要有　　一定的數學基礎，不過對于初學者來說，在數學基礎方面的要求并不是很高，從我個人的　　角度來看，有高中數學水平就差不多了

141、。　　4.2、學習程序設計基本要求：　　熟悉Visual Basic操作環(huán)境與設計工具，能設計應用程序界面。　　掌握，理解面向對象程序設計基本概念。　　理解、運用數據庫的連接，及調用。　　掌握數據庫對數據的管理。</p&g

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

143、/p>　　1、初期的程序設計 　　高運行效率，少占用內存為目標 　　2、結構化程序設計 　　程序的可讀性，可維護性為目標 　　程序=算法+數據結構+計算機語言+面向過程的程序設計方法 　　3、面向對象的

144、程序設計　　降低程序的復雜性，提高軟件的開法效率和改善工作界面為目標 　　程序=對象+消息+面向對象的程序設計 　　4.4、如何學好VB　　(1)養(yǎng)成良好的學習習慣 　　(2)學習程序設計要注重理解一些重要的概念。 </p&

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

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

溫馨提示

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

vb課程設計--簡單計算器

文檔簡介

溫馨提示

最新文檔

評論

vb課程設計--簡單計算器

文檔簡介

溫馨提示

最新文檔

評論

免費下載