求救!怎麼用vb 2010寫計算機?

我要交功課呀
但我不懂怎麼做
求大家幫我
這是題目

howhowgood

去google excel vba指令表,會有教你用那些按鍵與格子的使用方式,花個兩小時就會寫了很簡單的,自己去看看吧,會寫的話就是相同指令大概幾行就搞定了

有無好心人打code給我看看啊?

saintwong

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim num1 As Integer = txtNum1.Text
        Dim num2 As Integer = txtNum2.Text
        Dim result
        result = num1 + num2
        lblResult.Text = result
...

瀏覽完整內容，請先 註冊 或 登入會員

gpgpi

你好，請先安排表單物件如下

並在方案總管加入一個Module，如下


主程式如下

1. Public Class Form1
   
2.     Dim n1, n2 As Double
   
3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   
4.         Me.Text = "Calculator"
   
5.         Label1.Text = "Number 1:"
   
6.         Label2.Text = "Operation:"
   
7.         Label3.Text = ""
   
8.         Label4.Text = "Number 2:"
   
9.         Label5.Text = "Result:"
   
10.         Button1.Text = "+"
    
11.         Button2.Text = "-"
    
12.         Button3.Text = "*"
    
13.         Button4.Text = "/"
    
14.         Button5.Text = "^"
    
15.         Button6.Text = "√"
    
16.         Button7.Text = "mod"
    
17.         Button8.Text = "Clear"
    
18.         Button9.Text = "Exit"
    
19.         TextBox3.Enabled = False
    
20.     End Sub
    
21. 
    
22.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
23.         Label3.Text = "n1+n2"
    
24.         Try
    
25.             n1 = TextBox1.Text
    
26.             n2 = TextBox2.Text
    
27.             TextBox3.Text = Equal(1, n1, n2)
    
28.         Catch ex As Exception
    
29.             TextBox3.Text = Equal(1, n1, n2)
    
30.         End Try
    
31.     End Sub
    
32. 
    
33.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    
34.         Label3.Text = "n1-n2"
    
35.         Try
    
36.             n1 = TextBox1.Text
    
37.             n2 = TextBox2.Text
    
38.             TextBox3.Text = Equal(2, n1, n2)
    
39.         Catch ex As Exception
    
40.             TextBox3.Text = Equal(2, n1, n2)
    
41.         End Try
    
42.     End Sub
    
43. 
    
44.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
45.         Label3.Text = "n1*n2"
    
46.         Try
    
47.             n1 = TextBox1.Text
    
48.             n2 = TextBox2.Text
    
49.             TextBox3.Text = Equal(3, n1, n2)
    
50.         Catch ex As Exception
    
51.             TextBox3.Text = Equal(3, n1, n2)
    
52.         End Try
    
53.     End Sub
    
54. 
    
55.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    
56.         Label3.Text = "n1/n2"
    
57.         Try
    
58.             n1 = TextBox1.Text
    
59.             n2 = TextBox2.Text
    
60.             TextBox3.Text = Equal(4, n1, n2)
    
61.         Catch ex As Exception
    
62.             TextBox3.Text = Equal(4, n1, n2)
    
63.         End Try
    
64.     End Sub
    
65. 
    
66.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    
67.         Label3.Text = "n1^n2"
    
68.         Try
    
69.             n1 = TextBox1.Text
    
70.             n2 = TextBox2.Text
    
71.             TextBox3.Text = Equal(5, n1, n2)
    
72.         Catch ex As Exception
    
73.             TextBox3.Text = Equal(5, n1, n2)
    
74.         End Try
    
75.     End Sub
    
76. 
    
77.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    
78.         Label3.Text = "n1^(1/n2)"
    
79.         Try
    
80.             n1 = TextBox1.Text
    
81.             n2 = TextBox2.Text
    
82.             TextBox3.Text = Equal(6, n1, n2)
    
83.         Catch ex As Exception
    
84.             TextBox3.Text = Equal(6, n1, n2)
    
85.         End Try
    
86.     End Sub
    
87. 
    
88.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    
89.         Label3.Text = "n1 mod n2"
    
90.         Try
    
91.             n1 = TextBox1.Text
    
92.             n2 = TextBox2.Text
    
93.             TextBox3.Text = Equal(7, n1, n2)
    
94.         Catch ex As Exception
    
95.             TextBox3.Text = Equal(7, n1, n2)
    
96.         End Try
    
97.     End Sub
    
98. 
    
99.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    
100.         TextBox1.Clear()
     
101.         TextBox2.Clear()
     
102.         TextBox3.Clear()
     
103.         Label3.Text = ""
     
104.     End Sub
     
105. 
     
106.     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
     
107.         Me.Close()
     
108.     End Sub
     
109. End Class

複製代碼

Module的程式如下

1. Imports System.Math
   
2. Module Module1
   
3.     Dim n As Double
   
4.     Dim t As String
   
5.     Public Function Equal(ByVal type As Integer, ByVal x As Double, ByVal y As Double)
   
6.         If x = Nothing Or y = Nothing Then
   
7.             t = "Error!"
   
8.             Return t
   
9.         Else
   
10.             Select Case type
    
11.                 Case 1
    
12.                     n = x + y
    
13.                 Case 2
    
14.                     n = x - y
    
15.                 Case 3
    
16.                     n = x * y
    
17.                 Case 4
    
18.                     n = x / y
    
19.                 Case 5
    
20.                     n = x ^ y
    
21.                 Case 6
    
22.                     If (x > 0 And y > 0) Or (x > 0 And y < 0) Then
    
23.                         n = x ^ (1 / y)
    
24.                     ElseIf (x < 0 And y > 0) Or (x < 0 And y < 0) Then
    
25.                         n = -(Abs(x) ^ (1 / y))
    
26.                     End If
    
27.                 Case 7
    
28.                     n = x Mod y
    
29.             End Select
    
30.             Return n
    
31.         End If
    
32.     End Function
    
33. End Module

複製代碼

執行後


PS.

我是用VB2008寫的，你要用在VB2010可以直接改過去，可能會有些我沒注意到的數學上的小bug，你測試看看，提出來我再改。還有，"Exponentiation"我不確定是甚麼運算QQ"，所以我用開幾次方根來代替...

這種有兩個textbox當作輸入來做計算是很間單的，翻書想一下就可以做出來了喔！

熟了之後，你可以嘗試做看看類似電腦內建的計算機程式，會學到更多東西唷！


...

瀏覽完整內容，請先 註冊 或 登入會員

十分感謝你呀!!!!!!!!!!!!!!!!!!!!!!!!!