在vb里按command button实现label的内容按顺序变换

来源：百度知道 编辑：UC知道 时间：2024/06/15 15:39:35
我想在我的程序里，每按一次command button，label里的内容就会变，但是是按照我排列的顺序，而不是randomize
我想没按一次command，label里的英文句子会变换，而且form的背景图片也会变

Dim i As Integer
Dim arrStr()

Private Sub Form_Load()
arrStr = Array("一", "二", "三", "四", "五", "六", "七")
End Sub

Private Sub Command1_Click()
i = i + 1
If i > UBound(arrStr) Then
i = 0
End If
Label1.Caption = arrStr(i)
End Sub

Dim aa(10) As String
Dim inow As Integer
Private Sub Command2_Click()
Label1.Caption = aa(inow)
inow = inow + 1
If inow > 10 Then inow = 0
End Sub

Private Sub Form_Load()
For i = 0 To 10
aa(i) = i & "号标题"
Next
inow = 0
End Sub
不知道你能否理解，
把你要显示的内容按顺序存入到数组aa当中。然后每按一下按钮就显示当前的然后inow增1，再点就显示下一个标题。。

那你得说label里面的内容是什么，想按什么方式排列