vb等級(jí)考試題目與評(píng)析82-資料下載頁(yè)
【導(dǎo)讀】請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)VisualBasic應(yīng)用程序。運(yùn)行后的窗體如圖所示。是"日期"和"時(shí)間"，名稱分別為Command1、Command2。日期；單擊"時(shí)間"按鈕時(shí)，標(biāo)簽內(nèi)顯示系統(tǒng)當(dāng)前時(shí)間。程序中不得使用變量，每個(gè)事件過(guò)程中只能寫(xiě)一條語(yǔ)句。本題主要考查了單選按鈕的屬性。畫(huà)出兩個(gè)框架，名稱分別為Frame1和Frame2；點(diǎn)擊工具箱中的OptionButton控件圖標(biāo)，然后在窗體上畫(huà)出兩個(gè)。按鈕，名稱為Check1；通過(guò)屬性窗口分別設(shè)置Form1、OptionButton和CheckBox的Caption屬性，OptionButton. 和CheckBox的Alignment屬性設(shè)置為1，文本在控件的左側(cè)；并將Option1的value屬性值設(shè)置為T(mén)rue，Option2. 的Enabled屬性值為False。稱分別為F1和F2，標(biāo)題分別為"交通工具"和"到達(dá)目標(biāo)"。存盤(pán)時(shí)，工程文件名為，窗體文件名為。須至少進(jìn)行上面的一種操作。退出程序時(shí)必須通過(guò)單擊窗體右上角的。關(guān)閉按鈕的方式。值分別為10和50。改為正確的內(nèi)容，使其實(shí)現(xiàn)上述。功能，但不能修改程序中的其他部分。置文本框初始值，Max、Min屬性分別設(shè)置滾動(dòng)條位置的最大、最小值。按要求保存文件即完成本題。
【正文】 數(shù)用來(lái)在當(dāng)前的輸出位置加入 n個(gè)空白； Tab（ n)函數(shù)用來(lái)設(shè)置在第 n個(gè)位置寫(xiě)入數(shù)據(jù)。 分號(hào)表示后續(xù)寫(xiě)入的數(shù)據(jù)將接著當(dāng)前的數(shù)據(jù)尾部寫(xiě)入；逗號(hào)表示在當(dāng)前寫(xiě)入的數(shù)據(jù)后換行。 Close語(yǔ)句 用來(lái)關(guān)閉一個(gè)被打開(kāi)的文件。語(yǔ)法為： Close 文件號(hào) UCase函數(shù) 用來(lái)把小寫(xiě)字母改為大寫(xiě)，而大寫(xiě)字母或非字符符號(hào)不變。語(yǔ)法為： UCase（ 字符串） LCase函數(shù) 用來(lái)把大寫(xiě)字母改為小寫(xiě)，而小寫(xiě)字母或非字符符號(hào)不變。語(yǔ)法為： LCase（字符串） 解題方法： 打開(kāi) ，修改后的代碼如下： Private Sub Command1_Click() Dim s As String = 所有文件 |*.*|文本文件 |*.txt = 2 On Error GoTo openerr = Open amp。 \ For Input As 1 Input 1, s Close 1 = s openerr: End Sub Private Sub Command2_Click() Dim i As Integer, n As Integer Dim s As String s = n = Len(s) = For i = 1 To n If Asc(Mid(s, i, 1)) = 90 And Asc(Mid(s, i, 1)) = 65 Then = amp。 LCase(Mid(s, i, 1)) ElseIf Asc(Mid(s, i, 1)) = 122 And Asc(Mid(s, i, 1)) = 97 Then = amp。 UCase(Mid(s, i, 1)) Else = amp。 Mid(s, i, 1) End If Next i End Sub Private Sub Command3_Click() = 文本文件 |*.txt|所有文件 |*.* = 1 On Error GoTo openerr = = = 2 Open For Output As 1 Print 1, Text1 Close 1 openerr: End Sub 按要求保存文件即完成本題。
鄂ICP備17016276號(hào)-1