人妻办公室被强d在线电影,亚洲欧洲另类一区二区,日韩精品免费啪啪视频

第一種方法，工具---宏--VB編輯器
第二種方法，視圖---工具欄---控件工具箱，現(xiàn)在就可以把工具箱里面的控件，點一下，然后在PPT白板上拖放，在上面雙擊鼠標，就可以編寫相應代碼。

用“控件工具箱”的“命令按鈕”在幻燈片上添加一個按鈕，并將其“Caption”屬性修改為“判斷”（或其他字符）。再雙擊該按鈕，進入“Visual Basic編輯器”狀態(tài)（如圖4），將下述代碼輸入到出現(xiàn)的一組代碼中間，輸入完成后，關(guān)閉窗口返回。

If CheckBox1.Value = True And CheckBox4.Value = True Then MsgBox "選擇正確。", vbOKOnly, "結(jié)果" Else

If CheckBox1.Value = True Or CheckBox4.Value = True Then MsgBox “選對了一個。”, vbOKOnly, “提示” Else

MsgBox "選擇錯誤！正確答案是“水和干冰”！", vbOKOnly, "提示" End If End If

小貼士：上述代碼的含義是，如果（If）選擇了第1和第4項（CheckBox1.Value = True And CheckBox4.Value = True），按下“判斷”按鈕，則彈出如圖3所示界面和消息（MsgBox）框（選擇錯誤！正確答案是“水和干冰”！——消息內(nèi)容；vbOKOnly——消息框中僅顯示出一個“確定”按鈕；提示——消息框標題）。