vb程序設(shè)計(jì)第6章對(duì)話框的設(shè)計(jì)-資料下載頁(yè)
2025-01-12 20:42本頁(yè)面
【正文】 話框能打開(kāi)“字體對(duì)話框”的方法是 。 A． B． C． D． 答案： B ? 4．下列代碼中錯(cuò)誤的是 。 A． a=MsgBox () B． MsgBox 信息提示 , vbInformation + vbOKCancel C． a=MsgBox 信息提示 , vbInformation + vbOKCancel D． MsgBox “ 答案： C ? 5．下列為“打開(kāi)”對(duì)話框設(shè)置過(guò)濾器屬性的語(yǔ)句中正確的是 。 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方法顯示自定義對(duì)話框時(shí)，分別用 Show方法后帶 （ 3） 和 （ 4） 參數(shù)來(lái)指定窗體為模式對(duì)話框或非模式對(duì)話框。 答案：（ 3） VbModal或 1 （ 4） VbModaless或 0 ? １．編寫(xiě)加法練習(xí)測(cè)試程序。窗體如圖 611所示，程序運(yùn)行自動(dòng)產(chǎn)生兩個(gè) 100以內(nèi)的隨機(jī)整數(shù)分別填入兩個(gè)標(biāo)簽中，單擊“計(jì)算”按鈕，出現(xiàn)如圖 612所示的對(duì)話框，在對(duì)話框中輸入運(yùn)算結(jié)果。確認(rèn)輸入數(shù)據(jù)后，相繼有提示計(jì)算正確或錯(cuò)誤，“是否繼續(xù)計(jì)算？”的對(duì)話框出現(xiàn)，分別如圖 61 614和 615，如果選擇繼續(xù)，程序繼續(xù)隨機(jī)出題，選擇“否”，則程序給出你答題情況統(tǒng)計(jì)并給出相應(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(計(jì)算 : + + + + , 寫(xiě)出正確答案 ) ? If Val(result) = Val() + Val() Then ? = result ? ok = MsgBox(你算對(duì)了，繼續(xù)努力！ , vbOKOnly, 答案正確 ) ? cornum = cornum + 1 ? Else ? ok = MsgBox(很遺憾，你做錯(cuò)了??？ , vbOKOnly, 答案錯(cuò)誤 ) ? End If ? ok = MsgBox(還繼續(xù)嗎？ , vbYesNo, 詢問(wèn) ) ? If ok = 6 Then ? Randomize ? = Round(Rnd * 100) ? = Round(Rnd * 100) ? = ? Else ? mark = Round(cornum / totnum * 100) ? ok = MsgBox(你共計(jì)算了 amp。 totnum amp。 道題，其中做對(duì)了 amp。 cornum amp。 道。 amp。 Chr(13) amp。 Chr(10) amp。 分?jǐn)?shù)為： amp。 mark, , 統(tǒng)計(jì)分?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)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1