请各位高手帮忙VB程序，谢谢了！

来源：百度知道 编辑：UC知道 时间：2024/05/27 14:00:05
各位高手，本人初学VB很多地方不懂，现想编写一个小程序，希望大家能帮忙写程序出来，谢谢了！

按下鼠标左键时，变量X+1
按下鼠标中间键时，变量Y+1
按下鼠标右键时，变量Z+1

然后套用下面的公式：

变量A=（变量X+变量Y+变量Z）*500
变量B=[（变量A-1000）/（变量X+变量Y+变量Z）]*变量X
变量C=[（变量A-1000）/（变量X+变量Y+变量Z）]*变量Y
变量D=[（变量A-1000）/（变量X+变量Y+变量Z）]*变量Z

第一次按回车，则开始计算，并显示出变量A、B、C、D的值
第二次按回车，则清零

希望各位高手帮帮忙，谢谢了！
鼠标中间键就是滚轮键

楼上的代码有点问题,全局变量XY被局部变量xy覆盖了.
Option Explicit
Dim X1, Y1, Z1 As Integer
Dim A, B, C, D As Integer

Private Sub Form_KeyPress(KeyAscii As Integer)
Static Q As Boolean
If Q = False Then
If KeyAscii = 13 Then
Print "A="; A, "B="; B, "C="; C, "D="; D
Q = True
End If
Else
Form1.Cls
Q = False
End If
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
X1 = X1 + 1
Case 4
Y1 = Y1 + 1
Case 2
Z1 = Z1 + 1
End Select
A = (X1 + Y1 + Z1) * 500
B = ((A - 1000) / (X1 + Y1 + Z1)) * X1
C = ((A - 1000) / (X1 + Y1 + Z1)) * Y1
D = ((A - 1000) / (X1 + Y1 + Z1)) * Z1
End Sub

呵呵,我也是一个新手, 不知道是不是你想要的那个效果
Option Explicit
Dim X, Y, Z As Integer
Dim A, B, C, D A