vb程序設(shè)計第6章對話框的設(shè)計-資料下載頁
2025-01-12 20:42本頁面
【正文】 話框能打開“字體對話框”的方法是 。 A． B． C． D． 答案： B ? 4．下列代碼中錯誤的是 。 A． a=MsgBox () B． MsgBox 信息提示 , vbInformation + vbOKCancel C． a=MsgBox 信息提示 , vbInformation + vbOKCancel D． MsgBox “ 答案： C ? 5．下列為“打開”對話框設(shè)置過濾器屬性的語句中正確的是 。 A． = 所有文件 |(*.*)|文本文件 |(*.txt) B． = 所有文件 || (*.*)|文本文件 || (*.txt) C． = 所有文件 |*.*|文本文件 |*.txt D． = 所有文件 ||*.*|文本文件 ||*.txt“ 答案： C 1．在窗體上有一命令按鈕 Button1，其單擊事件代碼如下： ? Private Sub Command1_Click() ? Do While z 8 ? x = InputBox(x=) ? x = Val(x) ? y = InputBox(y=) ? y = Val(y) ? z = InputBox(z=) ? z = Val(z) ? x = x + y + z ? Loop ? Print x ? End Sub ? 程序運(yùn)行后，若依次輸入 1， 2， 3， 6， 7， 8后，輸出的結(jié)果是 （ 1） 。 ? 答案： 21 ? 2．在使用 ShowFont方法之前，一定要先設(shè)置 （ 2） 屬性。 答案： flags屬性 ? 3．在用 Show方法顯示自定義對話框時，分別用 Show方法后帶 （ 3） 和 （ 4） 參數(shù)來指定窗體為模式對話框或非模式對話框。 答案：（ 3） VbModal或 1 （ 4） VbModaless或 0 ? １．編寫加法練習(xí)測試程序。窗體如圖 611所示，程序運(yùn)行自動產(chǎn)生兩個 100以內(nèi)的隨機(jī)整數(shù)分別填入兩個標(biāo)簽中，單擊“計算”按鈕，出現(xiàn)如圖 612所示的對話框，在對話框中輸入運(yùn)算結(jié)果。確認(rèn)輸入數(shù)據(jù)后，相繼有提示計算正確或錯誤，“是否繼續(xù)計算？”的對話框出現(xiàn)，分別如圖 61 614和 615，如果選擇繼續(xù)，程序繼續(xù)隨機(jī)出題，選擇“否”，則程序給出你答題情況統(tǒng)計并給出相應(yīng)的分?jǐn)?shù)，如圖 616。 圖 611 圖 612 圖 613 圖 614 圖 615 圖 616 參考答案 ? Option Explicit ? Dim cornum As Integer, totnum As Integer ? Private Sub Command1_Click() ? Dim ok As Integer, result As String, mark As Integer ? totnum = totnum + 1 ? result = InputBox(計算 : + + + + , 寫出正確答案 ) ? If Val(result) = Val() + Val() Then ? = result ? ok = MsgBox(你算對了，繼續(xù)努力！ , vbOKOnly, 答案正確 ) ? cornum = cornum + 1 ? Else ? ok = MsgBox(很遺憾，你做錯了！？ , vbOKOnly, 答案錯誤 ) ? End If ? ok = MsgBox(還繼續(xù)嗎？ , vbYesNo, 詢問 ) ? If ok = 6 Then ? Randomize ? = Round(Rnd * 100) ? = Round(Rnd * 100) ? = ? Else ? mark = Round(cornum / totnum * 100) ? ok = MsgBox(你共計算了 amp。 totnum amp。 道題，其中做對了 amp。 cornum amp。 道。 amp。 Chr(13) amp。 Chr(10) amp。 分?jǐn)?shù)為： amp。 mark, , 統(tǒng)計分?jǐn)?shù) ) ? End If ? End Sub ? Private Sub Command2_Click() ? End ? End Sub ? Private Sub Form_Load() ? Randomize ? = Round(Rnd * 100) ? = Round(Rnd * 100) ? cornum = 0 ? totnum = 0 ? End Sub OVER
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1