Question

求一些VB小程序，，代码

Answer 1

五彩碎纸的代码，运行后点一下窗体
Private Sub Form_Click()

Dim CX, CY, Msg, XPos, YPos ' Declare variables.
ScaleMode = 3 ' 设置 ScaleMode 为像素。
DrawWidth = 30 ' 设置 DrawWidth.
Do
Randomize
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。
DoEvents ' 进行
Loop ' 其它处理。
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Answer 2

'小游戏代码
'引用
'http://zhidao.baidu.com/question/296964930.html

Private a As Long '用于计时

'timer的时间设为1000,事件写入 a = a + 1
Private Sub Timer1_Timer()
a = a + 1
End Sub

Private Sub Form_Load()
timer1.Enabled = 0
End Sub

Private Sub CommandButton1_Click()
a = Int(Rnd() * 100) '随机一个1~99的整数
timer1.Enabled = 1
Do
b = Val(InputBox("输入数字"))
If a = b Then
timer1.Enabled = 0
MsgBox "猜对了,你用了" & a & "秒"
Exit Do
ElseIf a > b Then
MsgBox "太小了"
Else
MsgBox "太大了"
End If
Loop
End Sub