UC知道vb 记录载入窗体次数
来源：百度知道 编辑：UC知道 时间：2024/05/08 12:44:30
我想设计一个vb随机显示图片的小程序：首先生成一个能够记录窗体载入次数的记数器，然后根据不同的载入次数生成不同区间的随机数字。
我的程序如下：
Private Sub form7_load()
Image1.Visible = True
Image2.Visible = True
s = s + 1
If s = 1 Then
a = Int(Rnd * 12 + 1)
b = Int(Rnd * 12 + 1)
ElseIf s = 2 Then
a = Int(Rnd * 12 + 13)
b = Int(Rnd * 12 + 13)
ElseIf s = 3 Then
a = Int(Rnd * 12 + 25)
b = Int(Rnd * 12 + 25)
End If
End Sub
Private Sub timer1_timer()
I = I + 1
If I < 10 Then
ss1 = "D:\PM\SY\" + Trim(Str(a)) + ".jpg"
ss2 = "D:\PM\SY\" + Trim(Str(b)) + ".jpg"
Image1.Picture = LoadPicture(ss1)
Image2.Picture = LoadPicture(ss2)
Else
Image
我的程序如下：
Private Sub form7_load()
Image1.Visible = True
Image2.Visible = True
s = s + 1
If s = 1 Then
a = Int(Rnd * 12 + 1)
b = Int(Rnd * 12 + 1)
ElseIf s = 2 Then
a = Int(Rnd * 12 + 13)
b = Int(Rnd * 12 + 13)
ElseIf s = 3 Then
a = Int(Rnd * 12 + 25)
b = Int(Rnd * 12 + 25)
End If
End Sub
Private Sub timer1_timer()
I = I + 1
If I < 10 Then
ss1 = "D:\PM\SY\" + Trim(Str(a)) + ".jpg"
ss2 = "D:\PM\SY\" + Trim(Str(b)) + ".jpg"
Image1.Picture = LoadPicture(ss1)
Image2.Picture = LoadPicture(ss2)
Else
Image
a是公有变量吗，还是在Private Sub form7_load() 里面的变量？如果是后者那么Private Sub timer1_timer() 中的a是重新定义的值为0
用一个全局变量，程序初始化时置为0
然后每次载入窗体，就在form_load事件中将该全局变量的值加1