各位大侠你们好~!我是一只刚学vb才几天的菜鸟~!在编程中遇到了一个以我现有水平还看不懂得问题,在这里象各位高手请教~!闲言少续转入正题.
我编写了一段程序,程序所实现的功能是
得到两个分数 如:X/Y 和Z/K 然后比较X与Y的差,再比较Z与K的差,在比较X与Z的差和Y与K的差,当他们的结果为正或为负时输出不同的显示结果~!
程序代码写完后(第一次写)错误层出不穷~!就象韩剧<看了又看>一样~我的是改了又改~!可改到觉得应该可以了的时候~!运行却出现拉系统提示:过程生明与同名事件或过程的描述不符.
其中程序有两个command控键,四个label控键,八个text控键~!功能不算多~~!
还有在此也抛砖引玉,想认识一些编程高手~!拜师也可以(求之不得~!
~!)
我的QQ:285899660(只要键入想收徒弟就行~!希望各位高手不吝赐教,在此万分感激)
下面是代码
Option Explicit
Private Sub Command1_Click()
d1b = X - z '把x与z的差复值给d1b
d2b = Y - k '把y与k的差复值给d2b
d3b = X - Y '把x与y的差复值给d3b
d4b = z - k '把z与k的差复值给d4b
If d1b > 0 Then '
If d1b <= 3 Then
Text7.Text = ""
zd = zd + 1
Else
ElseIf d1b > 3 Then
If d1b <= 5 Then
Text7.Text = ""
zd = zd + 2
Else
ElseIf d1b > 5 Then
If d1b <= 8 Then
Text7.Text = ""
zd = zd + 3
Else
ElseIf d1b > 8 Then
If d1b <= 13 Then
Text7.Text = ""
zd = zd + 4
Else
ElseIf d1b > 13 Then
If d1b <= 21 Then
Text7.Text = "
zd = zd + 5
Else
ElseIf d1b > 21 Then
Text7.Text = ""
zd = zd + 8
Else
Else
If d1b <= 0 Then '
If d1b >= -3 Then
Text8.Text = ""
kd = kd + 1
Else
If d1b < -3 Then
If d1b >= -5 Then
Text8.Text = "。"
kd = kd + 2
Else
If d1b < -5 Then
If d1b >= -8 Then
Text8.Text = ""
kd = kd + 3
Else
If d1b < -8 Then
If d1b >= -13 Then
Text8.Text = "。"
kd = kd + 4
Else
If d1b < -13 Then
If d1b >= -21 Then
Text8.Text = ""
kd = kd + 5
Else
If d1b < -21 Then
Text8.Text = "~！"
kd = kd + 8
Else
If d2b > 0 Then '
If d2b <= 5 Then
Text7.Text = "。"
zd = zd + 1
Else
ElseIf d2b > 5 Then
If d2b <= 8 Then
Text7.Text = "。"
zd = zd + 2
Else
ElseIf d2b > 8 Then
If d2b <= 13 Then
Text7.Text = "。"
zd = zd + 3
Else
ElseIf d2b > 13 Then
If d2b <= 21 Then
Text7.Text = ""
zd = zd + 4
Else
ElseIf d2b > 21 Then
If d2b <= 34 Then
Text7.Text = "~！！！"
zd = zd + 5
Else
Else
If d2b <= 0 Then '
If d2b >= -5 Then
Text8.Text = "！"
kd = kd + 1
Else
ElseIf d2b < -5 Then
If d2b >= -8 Then
Text8.Text = "。"
kd = kd + 2
Else
ElseIf d2b < -8 Then
If d2b >= -13 Then
Text8.Text = "~！"
kd = kd + 3
Else
ElseIf d2b < -13 Then
If d2b >= -21 Then
Text8.Text = "！"
kd = kd + 4
Else
ElseIf d2b < -21 Then
If d2b >= -34 Then
Text8.Text = "！"
kd = kd + 5
Else
Else
If d3b >= -3 Then
If d3b < 3 Then
Text7.Text = ""
zd = zd + 1
ElseIf d3b <= 5 Then
Text7.Text = "~！"
zd = zd + 2
ElseIf d3b <= 8 Then
Text7.Text = "~！"
zd = zd + 3
ElseIf d3b <= 13 Then
Text7.Text = "~！"
zd = zd + 4
ElseIf d3b <= 21 Then
Text7.Text = "~！"
zd = zd + 5
ElseIf d3b < 55 Then
Text7.Text = "~！"
zd = zd + 8
Else
Else
If d4b >= -3 Then
If d4b < 3 Then
Text8.Text =""
kd = kd + 1
ElseIf d4b <= 5 Then
Text8.Text = "~！"
kd = kd + 2
ElseIf d4b <= 8 Then
Text8.Text = "~！"
kd = kd + 3
ElseIf d4b <= 13 Then
Text8.Text = "~！"
kd = kd + 4
ElseIf d4b <= 21 Then
Text8.Text = "！"
kd = kd + 5
ElseIf d4b < 55 Then
Text8.Text = "~！"
kd = kd + 8
Else
Else
If d3b >= -8 Then
If d3b <= -3 Then
Text7.Text = "~！"
kd = kd + 1
ElseIf d3b >= -13 Then
If d3b < -8 Then
Text7.Text = "~！"
kd = kd + 2
Else
ElseIf d3b >= -21 Then
If d3b < -13 Then
Text7.Text = "~！"
kd = kd + 3
Else
ElseIf d3b >= -55 Then
If d3b < -21 Then
kd = kd + 5
Else
Else
Else
If d4b >= -8 Then
If d4b <= -3 Then
Text8.Text = "~！"
zd = zd + 1
ElseIf d4b >= -13 Then
If d4b < -8 Then
Text8.Text = "~！"
zd = zd + 2
Else
ElseIf d4b >= -21 Then
If d4b < -13 Then
Text8.Text = "~！"
zd = zd + 3
Else
ElseIf d4b >= -55 Then
If d4b < -21 Then
zd = zd + 5
Else
Else
Else
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub 制造_Load()
Dim X, Y, z, k As Integer '定义x,y,z,k的类型
Dim d1b, d2b, d3b, d4b As Integer '定义d1b，d2b，d3b,d4b的类型
Dim zd, kd As Integer '主队和客队的综合得分定义
X = "" '把x的值清零
Y = "" '把y的值清零
z = "" '把z的值清零
k = "" '把k的值清零
zd = "" '把zd的值清零
kd = "" '把kd的值清零
X = TextBox '从文本框中得到数值
Y = TextBox '
z = TextBox '
k = TextBox '
End Sub
好複雜哦
