|
大神们,为有一个选题的.pptm文件,麻烦在此基础上增加一下,选过的题不重复选择的功能吧。。谢谢各路大神了 。。。代码见下:
Dim n As Integer, flag As Boolean, typ As Integer
'为什么不能在全局的位置给全局变量赋值
Private Sub jump_btn_Click()
Dim temp As Integer
temp = result_num_text.Text + 1
ActivePresentation.SlideShowWindow.View.GotoSlide Val(temp)
End Sub
Private Sub reset_btn_Click()
rolling_num_text.Text = ""
result_num_text.Text = ""
done_nums_text.Text = ""
End Sub
Private Sub start_btn_Click()
'初始化,不知道要写在哪个函数里,先写这儿吧
flag = False
n = 7
stop_btn.Enabled = True '停止按钮当前有效
Dim a As Integer
Randomize Timer
Do
a = Fix(Rnd * n + 1) '使用随机函数,[1,n]
rolling_num_text.Text = a
result_num_text.Text = ""
DoEvents '交出控制权
If flag = True Then
Exit Do
End If
Loop
End Sub
Private Sub stop_btn_Click()
result_num_text.Text = rolling_num_text.Text
done_nums_text = done_nums_text + result_num_text + " "
stop_btn.Enabled = False
flag = True
End Sub
|
|