客户关系管理网购课项程设计.docxVIP

2011-7-5 00:11 最佳答案 我自己写了一个射击游戏，工程我已发代码：Dim x11 As DoubleDim x22 As DoubleDim y11 As DoubleDim y22 As DoubleDim m As BooleanDim j As IntegerDim l As IntegerPrivate Sub Command1_Click()Timer1.Interval = 100Command1.Visible = FalseEnd SubPrivate Sub Form_Load()MsgBox 在窗体里点击左键不放来改变射击方向，释放左键后射击End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim temp As DoubleIf Line1.X1 Line1.X2 ThenLine1.Y1 = Line1.Y2 - Line1.X2 * (Line1.Y2 - Line1.Y1) / (Line1.X2 - Line1.X1)Line1.X1 = 0For i = 0 To 6temp = Line1.X2 - (Line1.X2 - Line1.X1) * (Line1.Y2 - Shape1(i).Top