Question

vb课程设计滚动字幕版

急，课程设计里的，发到我邮箱谢谢
467192714＠qq.com

Answer 1

Private Sub Command1_Click()

Dim i As Long
Dim r As Long
Dim a(1 To 20) As Long

List1.Clear
Randomize
For i = 1 To 6
Do
r = Int(Rnd * 20 + 1)
Loop Until a(r) <= 2
a(r) = a(r) + 1
List1.AddItem r
Next
List1.AddItem vbNullString
For i = 1 To 20
If a(i) > 0 Then
List1.AddItem i & "出现了" & a(i) & "次； "
End If
Next

End Sub

Answer 2

用for循环呀，。

Answer 3

添加一个timer控件 一个label控件
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
Label1.AutoSize = True
Label1.Caption = "欢迎使用vb"
End Sub

Private Sub Timer1_Timer()

Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width Then
Label1.Left = -Label1.Width
End If
End Sub