vb程序設(shè)計(jì)第6章對(duì)話框的設(shè)計(jì)(參考版)
2025-01-15 20:42本頁(yè)面
【正文】 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 。 Chr(10) amp。 amp。 cornum amp。 totnum amp。確認(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。 答案：（ 3） VbModal或 1 （ 4） VbModaless或 0 ? １．編寫加法練習(xí)測(cè)試程序。 ? 答案： 21 ? 2．在使用 ShowFont方法之前，一定要先設(shè)置 （ 2） 屬性。 A． a=MsgBox () B． MsgBox 信息提示 , vbInformation + vbOKCancel C． a=MsgBox 信息提示 , vbInformation + vbOKCancel D． MsgBox “ 答案： C ? 5．下列為“打開”對(duì)話框設(shè)置過(guò)濾器屬性的語(yǔ)句中正確的是 。 A．字符串“輸入整數(shù)” B．整數(shù) 123 C．空字符串 D．字符串“ 123” 答案： D ? 3．通過(guò)通用對(duì)話框能打開“字體對(duì)話框”的方法是 。 圖 610 參考代碼： ? Private Sub Form_Load() ? = False ? End Sub ? Private Sub Command1_Click() ? ? = ? Open For Input As 1 ? Do While Not EOF(1) ? Line Input 1, inputdata ? = + inputdata + Chr(13) + Chr(10) ? Loop ? Close 1 ? End Sub 第 6章 對(duì)話框的設(shè)計(jì) ? 知識(shí)要點(diǎn) ? 習(xí)題與解答 ? 實(shí)訓(xùn)指導(dǎo) ? 測(cè)驗(yàn)題 ? 1． Commondialog1為窗體上一通用對(duì)話框，與=3作用相同的語(yǔ)句是 。 ? 提示：窗體設(shè)計(jì)如圖所示，其中包含一個(gè)通用對(duì)話框（ CommonDialog1），一個(gè)文本框（ Text1）和六個(gè)命令按鈕（ Command1~ Command6）。實(shí)現(xiàn)簡(jiǎn)單文本編輯器具有的“打開”、“保存”、“顏色設(shè)置”、“字體設(shè)置”和“打印”等功能。如果密碼輸入錯(cuò)誤，提示是否重新輸入（如圖 68所示），但只能最多進(jìn)行三次重新輸入，一旦密碼輸入次數(shù)超過(guò)三次，程序給出警告提示（如圖69所示），并結(jié)束。 ?參考代碼： ? Private Sub Command1_Click() ? Dim i As Integer, s As String, ansinf As Integer ? For i = 0 To 9 ? s = InputBox(請(qǐng)輸入一個(gè)整數(shù) , 輸入 ) ? Do Until Val(s) = Int(Val(s)) And Val(s) = 1 And Val(s) = 100 ? ansinf = MsgBox(輸入數(shù)據(jù)不合法，請(qǐng)核對(duì)后重新輸入！ , 49, 錯(cuò)誤提示 ) ? If ansinf = vbOK Then ? s = InputBox(請(qǐng)輸入一個(gè)整數(shù) , 輸入 ) ? Else ? End ? End If ? Loop ? a(i) = Val(s) ? = + + s ? Next i ? End Sub ?【 實(shí)訓(xùn) 】 設(shè)計(jì)一個(gè)驗(yàn)證密碼的程序（如圖 66所示）。如圖 65所示。 參考代碼： ? Option Explicit ? Dim a(9) As Integer ? Private Sub Command1_Click() ? Dim i As Integer, s As String ? For i = 0 To 9 ? s = InputBox(請(qǐng)輸入一個(gè)整數(shù) , 輸入 ) ? a(i) = Val(s) ? = + + s ? Next i ? End Sub ? Private Sub Command2_Click() ? Dim i
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1