跪求VB 6.0编写的一个小程序.附带代码.在线等~~

来源：百度知道 编辑：UC知道 时间：2024/06/16 00:25:58
比较基础那种.比如给一个题计算圆周什么的.也可以是个小游戏.比如扫雷.

写入下列代码看看

Dim x As Integer
Dim y As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37
x = x - 50
Case 38
y = y - 50
Case 39
x = x + 50
Case 40
y = y + 50
End Select
Me.Circle (x, y), 50
End Sub

Private Sub Form_Load()
x = 500
y = 500
Me.AutoRedraw = True
Me.KeyPreview = True
For i = 0 To 10
Print "方向键控制"
Next i
Me.FillStyle = 0
Me.Circle (x, y), 50
End Sub

你用"跪求"二字谁还喜欢理你!!

小程序??什么小程序.....