| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 331 人关注过本帖
标题:[求助]VB代码编译时说"未找到方法或数据成员"
只看楼主 加入收藏
xc557018
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-10-26
收藏
 问题点数:0 回复次数:0 
[求助]VB代码编译时说"未找到方法或数据成员"

我是新手,不知道怎么办
源代码和窗口下载



源代码如下请各位帮忙指点===========================================================================================================

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
==========================================================================================================

附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: 成员 数据 编译 代码 
2007-10-26 10:20
快速回复:[求助]VB代码编译时说"未找到方法或数据成员"
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.011482 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved