怎么实现这个事件呢？？？

Question

是这样的：我单击一次按钮，产生一个整数，我再单击一次按钮，又产生一个整数，但是我还需要知道上次的整数的值。该怎么实现呢？？？

Answer 1

Private Sub Command1_Click()
Dim MyValue
Randomize
MyValue = Int((2000 * Rnd) + 1)
Text1 = MyValue
MsgBox Command1.Tag
Command1.Tag = MyValueEnd Sub

Answer 2

在相同窗体中 Dim LastNum& 如需跨窗体则在 .bas 加上 Public LastNum在单击一次按钮的事件中 LastNum = 新的数值如此 你在任何地方都可以 MsgBox LastNum

Answer 3

在相同窗体中 Dim LastNum& 如需跨窗体则在 .bas 加上 Public LastNum& 在单击一次按钮的事件中 LastNum = 新的数值 如此 你在任何地方都可以 MsgBox LastNum

Answer 4

反复单击按钮观查结果：Private Sub Command1_Click()
Dim x As Integer, y
Static f As Boolean  If f Then
     y = Int(Rnd(0) * 101)
  Else
     y = "无"
     f = True
  End If
  x = Int(Rnd * 101) '本次的x值
  MsgBox "上一次数：" & y & "；本次数：" & x
  
End Sub

Answer 5

回答全面，但是不知道楼主知道不知道bas

Answer 6

用动态数组来实现，看看下面的代码：Option Explicit
Dim intA() As Integer
Dim intP As Integer
Private Sub Command1_Click()
    Dim intValue As Integer
    Dim intK As Integer
On Error GoTo errSub
    intValue = Rnd * 1000   '产生一个0～1000的正整数
    intP = intP + 1
    ReDim Preserve intA(intP)
    intA(intP - 1) = intValue
    List1.AddItem "intA(" & CStr(intP - 1) & ")=" & intValue
    If intP > 1 Then
        List2.AddItem "上一个整数是：" & intA(intP - 2)
    End If
    Exit Sub
errSub:End Sub