“随机降落”vb中怎么实现

来源：百度知道编辑：UC知道时间：2024/05/24 03:06:17

“输入一段文字，则此文字出现在窗体上方，单击窗体后，上方的文字随机的单个下落到窗体下端，下落的同时伴有声音。”求具体程序，谢谢、

如图

再复制代码

Dim a As Integer

Private Sub Form_Click()

If Len(Text1.Text) = 0 Then Exit Sub

Label1.Caption = Mid(Text1.Text, Int(Rnd * (Len(Text1.Text) - 1)) + 1, 1)

Text1.Text = Replace(Text1.Text, Label1.Caption, "")

Label1.Visible = True

Label1.Top = 0

Label1.Left = Int(Rnd * Form1.Width)

Timer1.Interval = 10

a = 1

End Sub

Private Sub Form_Load()

Label1.Visible = False

End Sub

Private Sub Timer1_Timer()

a = a + 1

Label1.Top = Label1.Top + a

If Label1.Top + Label1.Height > Form1.Height Then

Beep

Timer1.Interval = 0