主板显卡CPU三大件

Question

I5CPU 配GTX460 用什么主板好？全部预算3k左右
（要三好街的报价）

Answer 1

Dim f As Double
Dim e As Integer
Dim num1 As Double
Dim num2 As Double
Dim a As String
Dim b As Double
Dim c As Boolean
Dim d As Boolean
Private Sub cmd1_Click()

If c = True Then
txt1 = cmd1.Caption
c = False
Else
txt1 = txt1 & cmd1.Caption
End If

End Sub

Private Sub cmd10_Click()
If c = True Then
txt1 = cmd10.Caption
c = False
Else

e = InStr(txt1, ".")
If e <= 0 Then
If Val(txt1) = 0 Then

txt1 = "0"
Else
txt1 = txt1 & cmd10.Caption
End If
Else

txt1 = txt1 & cmd10.Caption
End If
End If
End Sub

Private Sub cmd11_Click()
If d = True Then
txt1 = txt1 & cmd11.Caption
d = False
If Left(CStr(txt1), 1) = "." Then
txt1 = "0" & cmd11.Caption
End If

End If

End Sub

Private Sub cmd12_Click()
txt1 = 0 - Val(txt1)
End Sub

Private Sub cmd13_Click()
d = True
num1 = Val(txt1)
c = True
a = "+"

End Sub

Private Sub cmd14_Click()
d = True
num1 = Val(txt1)
c = True
a = "-"
End Sub

Private Sub cmd15_Click()
d = True
num1 = Val(txt1)
c = True
a = "*"
End Sub

Private Sub cmd16_Click()
d = True
num1 = Val(txt1)
c = True
a = "/"
End Sub

Private Sub cmd17_Click()
txt1 = ""
d = True
End Sub

Private Sub cmd18_Click()
c = True
num2 = Val(txt1)
If a = "+" Then
b = num1 + num2
ElseIf a = "-" Then
b = num1 - num2
ElseIf a = "*" Then
b = num1 * num2
Else
b = num1 / num2
End If

txt1 = CStr(b)
d = True
If Left$(CStr(txt1), 1) = "." Then
txt1 = "0" & CStr(b)
End If

End Sub

Private Sub cmd19_Click()
f = Val(txt1)
txt1 = "" & Fix(f)

End Sub

Private Sub cmd2_Click()
If c = True Then
txt1 = cmd2.Caption
c = False
Else
txt1 = txt1 & cmd2.Caption
End If
End Sub

Private Sub cmd20_Click()
f = Val(txt1)
txt1 = "" & Int(f)

End Sub

Private Sub cmd21_Click()
f = Val(txt1)
txt1 = "" & Abs(f)

End Sub

Private Sub cmd22_Click()
f = Val(txt1)
txt1 = "" & Sgn(f)

End Sub

Private Sub cmd23_Click()
f = Val(txt1)
txt1 = "" & Sqr(f)

End Sub

Private Sub cmd24_Click()
f = Val(txt1)
txt1 = "" & Cos(f)
If Left(CStr(txt1), 1) = "." Then
txt1 = "0" & txt1
End If
End Sub

Private Sub cmd25_Click()
f = Val(txt1)
txt1 = "" & Exp(f)
End Sub

Private Sub cmd26_Click()
Dim aa As Double

f = Val(txt1)
aa = f * f
txt1 = "" & aa

End Sub

Private Sub cmd27_Click()
Dim bb As Double
f = Val(txt1)
bb = f * f * f
txt1 = "" & bb
End Sub

Private Sub cmd28_Click()
End
End Sub

Private Sub cmd3_Click()
If c = True Then
txt1 = cmd3.Caption
c = False
Else
txt1 = txt1 & cmd3.Caption
End If
End Sub

Private Sub cmd4_Click()
If c = True Then
txt1 = cmd4.Caption
c = False
Else
txt1 = txt1 & cmd4.Caption
End If
End Sub

Private Sub cmd5_Click()
If c = True Then
txt1 = cmd5.Caption
c = False
Else
txt1 = txt1 & cmd5.Caption
End If
End Sub

Private Sub cmd6_Click()
If c = True Then
txt1 = cmd6.Caption
c = False
Else
txt1 = txt1 & cmd6.Caption
End If
End Sub

Private Sub cmd7_Click()
If c = True Then
txt1 = cmd7.Caption
c = False
Else
txt1 = txt1 & cmd7.Caption
End If
End Sub

Private Sub cmd8_Click()
If c = True Then
txt1 = cmd8.Caption
c = False
Else
txt1 = txt1 & cmd8.Caption
End If
End Sub

Private Sub cmd9_Click()
If c = True Then
txt1 = cmd9.Caption
c = False
Else
txt1 = txt1 & cmd9.Caption
End If
End Sub

Private Sub Form_Load()
c = False
d = True
Form1.BackColor = vbCyan

End Sub