vb等級考試題目與評析54-資料下載頁
2025-08-26 16:52本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序。在名稱為Form1的窗體上畫一個名稱為Text1的文本框，其高、寬分別為400、2020。1）Text1的字體為“黑體”，字號為“四號”；2）窗體的標題為“輸入”，不顯示最大化按鈕和最小化按鈕。運行后的窗體如圖所示。存盤時必須存放在考生文件夾下，工程文件名為，窗體文件名為。為Command1、Command2，標題分別為“向右移動”、“向下移動”。象框向下移動100。要求程序中不得使用變量，事件過程中只能寫一條語句?！巴Ｖ埂?；還有一個名為Timer1的計時器。程序運行時，鐘表指針不動，單擊“開始”按鈕，則鐘。表上的指針開始順時針旋轉；單擊“停止”按鈕，則指。文件中已經(jīng)給出了所有控件和部分程序，不得修改已有程。最后把修改后的文件按原文件名存盤。返回或設置對Timer控件的計時事件各調用間的毫秒數(shù)。Enable屬性可停止或啟用計時器。
【正文】 本題主要考查了對文件的讀寫操作，要注意的是在文件操作完畢后使用 Close語句將其關閉。 程序主要代碼如下： Private Sub Command1_Click() Open For Input As 1 Input 1, a% = a% Close 1 End Sub Private Function Check(i As Integer) As Boolean For j = 2 To CInt(Sqr(i)) + 1 If i Mod j = 0 Then Check = False Exit Function End If Next j Check = True End Function Private Sub Command2_Click() Dim i As Integer i = CInt() If i Mod 2 = 0 Then i = i + 1 Else i = i + 2 End If Do Until Check(i) i = i + 2 Loop = i End Sub Private Sub Command3_Click() Open For Output As 1 Print 1, Close 1 End Sub
公司管理相關推薦
鄂ICP備17016276號-1