我是新手,不知道怎么办
源代码和窗口下载
源代码如下请各位帮忙指点===========================================================================================================
Private Sub Command1_Click()
jsz1 = Val(TextBox1.Value)
jsz2 = Val(TextBox2.Value)
jsz3 = Val(TextBox3.Value)
bsz1 = Val(TextBox4.Value)
bsz2 = Val(TextBox5.Value)
bsz3 = Val(TextBox6.Value)
qw1 = Val(TextBox7.Value)
qw2 = Val(TextBox8.Value)
qw3 = Val(TextBox91.Value)
bw1 = Val(TextBox10.Value)
bw2 = Val(TextBox11.Value)
bw3 = Val(TextBox12.Value)
If ComboBox1.Value = "不锈钢" Then
cl = 0.00005
ElseIf ComboBox1.Value = "碳钢" Then
cl = 0.000033
ElseIf ComboBox1.Value = "黄铜、青铜" Then
cl = 0.000053
End If
If ComboBox3.Value = "汽油" Then
yp = 0.0012
ElseIf ComboBox3.Value = "轻柴油" Then
yp = 0.0009
ElseIf ComboBox3.Value = "煤油" Then
yp = 0.0009
End If
If ComboBox2.Value = "20L" Then
gg = 20
v1 = ((bsz1 - 111) * 4.237 * 0.001 + 20) * (1 + yp * (qw1 - bw1) + cl * (bw1 - 20))
v2 = ((bsz2 - 111) * 4.237 * 0.001 + 20) * (1 + yp * (qw2 - bw2) + cl * (bw2 - 20))
v3 = ((bsz3 - 111) * 4.237 * 0.001 + 20) * (1 + yp * (qw3 - bw3) + cl * (bw3 - 20))
wc1 = (((jsz1 - v1) / v1) * 100)
wc2 = (((jsz2 - v2) / v2) * 100)
wc3 = (((jsz3 - v3) / v3) * 100)
ElseIf ComboBox2.Value = "50L" Then
gg = 50
v1 = ((bsz1 - 136) * 7.669 * 0.001 + 50) * (1 + yp * (qw1 - bw1) + cl * (bw1 - 20))
v2 = ((bsz2 - 136) * 7.669 * 0.001 + 50) * (1 + yp * (qw1 - bw1) + cl * (bw1 - 20))
v3 = ((bsz3 - 136) * 7.669 * 0.001 + 50) * (1 + yp * (qw1 - bw1) + cl * (bw1 - 20))
wc1 = (((jsz1 - v1) / v1) * 100)
wc2 = (((jsz2 - v2) / v2) * 100)
wc3 = (((jsz3 - v3) / v3) * 100)
End If
wc11 = Format(wc1, "##0.000000")
wc22 = Format(wc2, "##0.000000")
wc33 = Format(wc3, "##0.000000")
TextBox13.Value = v1
TextBox14.Value = v2
TextBox15.Value = v3
TextBox16.Value = wc11
TextBox17.Value = wc22
TextBox18.Value = wc33
zqd1 = ((wc1 + wc2 + wc3) / 3)
zqd = Format(zqd1, "##0.000000")
Dim AA(2) As Double
Dim max1 As Double
Dim min1 As Double
AA(O) = wc11
AA(1) = wc22
AA(2) = wc33
max1 = AA(0)
min1 = AA(0)
For i = 0 To 2
If AA(i) > max1 Then
max1 = AA(i)
End If
If AA(i) < min1 Then
min1 = AA(i)
End If
Next i
cfx1 = Abs(max1 - min1)
End If
cfx = Format(cfx1, "##0.000000")
TextBox20.Value = cfx
TextBox19.Value = zqd
End Sub
Private Sub Command2_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
TextBox20.Value = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Dim jsz1 As Double
Dim jsz2 As Double
Dim jsz3 As Double
Dim bsz1 As Double
Dim bsz2 As Double
Dim bsz3 As Double
Dim qw1 As Double
Dim qw2 As Double
Dim qw3 As Double
Dim bw1 As Double
Dim bw2 As Double
Dim bw3 As Double
Dim v1 As Double
Dim v2 As Double
Dim v3 As Double
Dim wc1 As Double
Dim wc2 As Double
Dim wc3 As Double
Dim cl As Double
Dim yp As Double
Dim gg As Double
Dim wc11 As Double
Dim wc22 As Double
Dim wc33 As Double
Dim cfx As Double
Dim cfx1 As Double
Dim zqd As Double
Dim zqd1 As Double
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
TextBox20.Value = ""
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo1.AddItem "不锈钢"
Combo1.AddItem "碳钢"
Combo1.AddItem "黄铜、青铜"
Combo2.AddItem "20L"
Combo2.AddItem "50L"
Combo3.AddItem "汽油"
Combo3.AddItem "轻柴油"
Combo3.AddItem "煤油"
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
==========================================================================================================