ppt隨機(jī)抽題系統(tǒng)

ppt隨機(jī)抽題系統(tǒng)是一個(gè)用PPT做的隨機(jī)抽題系統(tǒng)【換一種思路制作一個(gè)應(yīng)用】，說起制作一個(gè)應(yīng)用，大家首先想到就是VC，C#，Web，nodejs，VB，易語言等等，各種五花八門的技術(shù)。今天帶大家?guī)�來一種新的思路，用PPT制作一個(gè)應(yīng)用。

系統(tǒng)說明

眾所都知，PPT已經(jīng)走進(jìn)大街小巷，相信每個(gè)人在PC都會(huì)安裝這個(gè)軟件。
所以在沒有安裝制作應(yīng)用環(huán)境的電腦也是可以使用PPT來制作一個(gè)簡(jiǎn)單的應(yīng)用的。
大學(xué)期間，計(jì)算機(jī)基礎(chǔ)專業(yè)老師找到我，問我能不能使用PPT做一個(gè)隨機(jī)抽題系統(tǒng)，他想用這個(gè)系統(tǒng)在期末考核學(xué)生們。
我想了想，覺得有可行性，就答應(yīng)這個(gè)請(qǐng)求。
PPT做應(yīng)用的思路就是: 使用PPT做前端界面，也可以做一些動(dòng)態(tài)效果，然后使用VBA腳本做應(yīng)用邏輯。

設(shè)計(jì)抽題

1、打開PPT2010，將演示文稿保存成啟用宏的PPT演示文稿格式(即.pptm格式，包含宏代碼的演示文稿，必須保存成這種格式)。在第一張幻燈片中設(shè)計(jì)抽題界面，先插入三個(gè)文本框，寫上必要的文字，通過“開發(fā)工具”選項(xiàng)卡，插入三個(gè)命令按鈕控件。在這些控件上右擊，選擇“屬性”命令，打開它們的“屬性”對(duì)話框，在“名稱”后將命令按鈕名稱分別修改為：開始、停止和打開抽取的題目，在Caption后填寫按鈕上顯示的名稱(可隨意大寫，我這兒設(shè)置的與按鈕名稱相同)，并對(duì)字體、字號(hào)、背景顏色、樣式等進(jìn)行設(shè)置。

2、再插入三個(gè)文本框控件，同樣在“屬性”對(duì)話框中，修改它們的名稱為：抽取框、結(jié)果框和已抽題目。把“抽取框”放到“開始”和“停止”命令按鈕控件之間，把“結(jié)果框”放到“您抽取的是 號(hào)題”文本中，將“已抽題目”拖至適合大小，放置到下面。

3、接著新建一張幻燈片，設(shè)計(jì)好被抽題目放置界面，并在其上設(shè)計(jì)一個(gè)返回到抽題界面幻燈片的鏈接。將該幻燈片復(fù)制多份，將相應(yīng)題目錄入相應(yīng)各幻燈片上，第二張幻燈片放第一道題目，第三張幻燈片放第二道題目，依次類推。

編寫宏代碼

1、接下來，按Alt+F11組合鍵，打開VBA宏編輯窗口，雙擊左側(cè)的Slide1，將以下代碼復(fù)制到右窗格中并保存。

2、開始編寫代碼：

Private Sub 開始_Click()

停止.Enabled = True '停止按鈕當(dāng)前有效

Dim a As Integer

Randomize

Do

a = Fix(Rnd * 10 + 1) '使用隨機(jī)函數(shù)

抽取框.Text = a

結(jié)果框.Text = ""

DoEvents

Loop

End Sub

Private Sub 停止_Click()

結(jié)果框.Text = 抽取框.Text

已抽題目 = 已抽題目 + 抽取框 + " # " '題目標(biāo)記用#分隔

停止.Enabled = False

End

End Sub

Private Sub 打開抽取的題目_Click()

ActivePresentation.SlideShowWindow_

.View.GotoSlide Val(抽取框.Text + 1)

End Sub

隨機(jī)抽取題目并打開

抽取題目時(shí)，放映幻燈片，點(diǎn)擊第一張的“開始”按鈕，此時(shí)其后的文本框中就隨機(jī)快速滾動(dòng)顯示1到10這十個(gè)數(shù)字。點(diǎn)擊“停止”按鈕后，數(shù)字停止?jié)L動(dòng)，并顯示出抽取的題號(hào)，同時(shí)在上方給出“您抽取的是X號(hào)題”提示，在下方“已抽題目”中顯示出所有抽過的題目標(biāo)號(hào)。點(diǎn)擊下方的“打開抽取的題目”按鈕，切換到抽取題目幻燈片。

選手做完題目后，點(diǎn)擊返回鏈接，回到抽取題目頁面，繼續(xù)為下一個(gè)選手抽題。