随机跳转页面之使用VBA公共变量

p{
font-size: 15px;
}
.alexrootdiv>div{
background: #eeeeee; border: 1px solid #aaa; width: 99%; padding: 5px; margin: 1em 0 1em 0;
}
.alextitlep{
font-size: 18px; font-weight: bold; color: red;
}
.alexrootdiv span{
color:blue;font-weight:bold;
}
.alexrootdiv table{
margin-top:10px;border-collapse:collapse;border:1px solid #aaa;width:100%;
}
.alexrootdiv table th{
vertical-align:baseline;padding:5px 15px 5px 6px;background-color:#d5d5d5;border:1px solid #aaa;text-align:left;
}
.alexrootdiv table td{
vertical-align:text-top;padding:6px 15px 6px 6px;background-color:#efefef;border:1px solid #aaa;
}
.attentationp{
font-size: 15px; text-indent: 2em; background: #ee0; color: red; font-weight: bold;
}
.borderstylediv{
width:12vw;text-align:center;
}
img{box-shadow:0 0 14px;}
-->

今天在锐普网上碰到一个朋友发问，如何实现随机取页码并跳转到相应页面的问题。问题是这样子的：在第一个幻灯片页面上我们手动输入最小随机数跟最大随机数，然后我们可以通过点击抽题按钮获取一个随机值，显示到当前页上，然后可以单击进入按钮跳转到对应的幻灯片。这个朋友碰到的问题是点击进入的页面与显示的值不对应。其实我们可以使用公共变量保存得到的页面号码就可以轻松实现。下面的图片是大致的界面。

实现的方式非常简单，我们新建一个模块，然后声明一个全局变量。

 Public currentID As Integer

然后我们在第一个幻灯片页面建立如下的代码

 Private Sub cmdGet_Click()
     Dim startNumber As Integer, endNumber As Integer

     On Error GoTo end_Sub
     startNumber = CInt(txt1.Text)               '获取最小及最大随机的数值
     endNumber = CInt(txt2.Text)
     On Error GoTo 

     '去除0值
     If startNumber =  Or endNumber =  Then
         MsgBox "起始随机数及结束随机数不能为0！"
         GoTo end_Sub
     End If

     Randomize
     currentID = Int((endNumber - startNumber + ) * Rnd + startNumber)
     lable1.Caption = currentID
 end_Sub:

 End Sub

 Private Sub cmdStart_Click()
     ActivePresentation.SlideShowWindow.View.GotoSlide currentID '跳转到指定页
 End Sub