VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3225 ClientLeft = 60 ClientTop = 450 ClientWidth = 6150 LinkTopic = "Form1" ScaleHeight = 3225 ScaleWidth = 6150 StartUpPosition = 3 '系統預設值 Begin VB.CommandButton Command2 Caption = "清除" Height = 615 Left = 4920 TabIndex = 17 Top = 2040 Width = 975 End Begin VB.CommandButton Command1 Caption = "計算" Height = 615 Left = 3600 TabIndex = 16 Top = 2040 Width = 975 End Begin VB.TextBox Text6 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 5280 TabIndex = 13 Top = 840 Width = 735 End Begin VB.TextBox Text5 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 5280 TabIndex = 11 Top = 120 Width = 735 End Begin VB.TextBox Text4 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 3840 TabIndex = 9 Top = 840 Width = 735 End Begin VB.TextBox Text3 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 3840 TabIndex = 8 Top = 120 Width = 735 End Begin VB.TextBox Text2 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 2520 TabIndex = 5 Top = 840 Width = 735 End Begin VB.TextBox Text1 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 2520 TabIndex = 4 Top = 120 Width = 735 End Begin VB.Label Label12 BackColor = &H00FFFFFF& BorderStyle = 1 '單線固定 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 2400 TabIndex = 19 Top = 2040 Width = 975 End Begin VB.Label Label11 BackColor = &H00FFFFFF& BorderStyle = 1 '單線固定 BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 720 TabIndex = 18 Top = 2040 Width = 975 End Begin VB.Label Label10 Caption = "y=" BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 1920 TabIndex = 15 Top = 2040 Width = 615 End Begin VB.Label Label9 Caption = "x=" BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 120 TabIndex = 14 Top = 2040 Width = 615 End Begin VB.Label Label8 Caption = "n=" BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 4680 TabIndex = 12 Top = 960 Width = 615 End Begin VB.Label Label7 Caption = "m=" BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4680 TabIndex = 10 Top = 240 Width = 735 End Begin VB.Label Label6 Caption = "d=" BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 3360 TabIndex = 7 Top = 960 Width = 735 End Begin VB.Label Label5 Caption = "b=" BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 3360 TabIndex = 6 Top = 240 Width = 615 End Begin VB.Label Label4 Caption = "c=" BeginProperty Font Name = "微軟正黑體" Size = 14.25 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 2040 TabIndex = 3 Top = 960 Width = 495 End Begin VB.Label Label3 Caption = "a=" BeginProperty Font Name = "微軟正黑體" Size = 15.75 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 2040 TabIndex = 2 Top = 240 Width = 495 End Begin VB.Label Label2 Caption = "cx+dy=n" BeginProperty Font Name = "微軟正黑體" Size = 18 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 1 Top = 840 Width = 1815 End Begin VB.Label Label1 Caption = "ax+by=m" BeginProperty Font Name = "微軟正黑體" Size = 18 Charset = 136 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 0 Top = 240 Width = 1695 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() '簡易二元一次方程式 by忽悠貓子105/3/4 '技術性問題，寫得有點亂 a = Val(Text1.Text) c = Val(Text2.Text) b = Val(Text3.Text) d = Val(Text4.Text) m = Val(Text5.Text) n = Val(Text6.Text) 'adx+bdy=md 'cbx+bdy=nb '相減(ad-cb)x=md-nb 'x=(md-nb)/(ad-cb) '斜率-a/b=-c/d時，兩線平行或重疊 '=> ad=bc '檢測是否為直線 If (Not (a = 0 And b = 0)) And (Not (c = 0 And d = 0)) Then If a * d = b * c Then '重疊a/c=m/n 'an=cm If a * n = c * m And (Not (a = 0 And c = 0)) Then x = "無限多組解" y = x Else x = "無解" y = x End If Else x = (m * d - n * b) / (a * d - c * b) y = (m * c - n * a) / (b * c - d * a) '函數round:四捨五入 '例子:round(10.456,2)=>10.46 ' round(10.456,0)=>10 x = Round(x, 2) '取小數兩位 y = Round(y, 2) End If Else x = "異常" y = x End If Label11.Caption = x Label12.Caption = y End Sub Private Sub Command2_Click() '清除 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Label11.Caption = "" Label12.Caption = "" End Sub