vb等級考試題目與評析77-資料下載頁
2024-09-04 13:01本頁面
【導讀】請根據(jù)以下各小題的要求設計VisualBasic應用程序。請通過屬性窗口設置適當屬性，使得程序運行時，鼠標在文本。然后再畫兩個文本框，其名稱分別為Text1和Text2，初始內容均為空白，編寫適當?shù)氖录^程。用于返回/設置當鼠標經過對象的某一部分時鼠標的指針類型。在窗體控件中設為"2-cross"，在文本框中設為。按要求保存文件即完成本題。本題主要考察了Text控件和Command控件的使用。同時考察了對字母轉換函數(shù)Ucase、Lcase的應用。命令按鈕C1的click事件過程為：。Command1、標題為"返回"的命令按鈕。體2"菜單命令時，隱藏Form1，顯示Form2。單擊"退出"菜單命令時，結束程序運行?？忌坏眯薷拇绑w文件中已經存在的程序。程序運行后，將計時器的時間間隔設置為1秒。示"第一項"，然后，依次顯示"第二項"、"第三項"、"第四項"，如此循環(huán)。件按原文件名存盤。本題主要考查菜單編輯器與Timer控件的使用。程序運行時，在文本框Text1中輸入一個偶數(shù)，并單擊"分。，例如24可以分解為5和19，也可以分解為11和13，
【正文】 序開始 和 考生編寫程序結束 之間的代碼，以實現(xiàn)上述功能。過程 IsPrime用來判斷一個數(shù)是否為素數(shù)，如果是，返回值為 True，否則返回值 為 False。 注意： 不得修改原有程序和控件的屬性。至少正確運行一次程序，且運行時在文 本框中輸入 23456，單擊 分解為 按鈕，將結果顯示在標簽中，否 則無 成績。最后把修改后的文件按原文件名存盤。 本題主要考查了素數(shù)的判定算法及應用、循環(huán)語句和文件操作。主要代碼如下： Private Function IsPrime(ByVal x As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(x) If x Mod i = 0 Then IsPrime = False Exit Function End If Next IsPrime = True End Function Private Sub Command1_Click() Dim i As Integer Dim t As Integer Dim n As Integer n = Val() For i = 2 To n / 2 If IsPrime(i) = True Then t = n i If IsPrime(t) = True Then = i = t Exit For End If End If Next Open amp。 \ For Output As 1 Print 1, , , Close 1 End Sub 按要求保存文件即完成本題。
公司管理相關推薦
鄂ICP備17016276號-1