vb等級考試題目與評析74-資料下載頁
2025-08-27 20:42本頁面
【導讀】請根據以下各小題的要求設計VisualBasic應用程序。命令按鈕，再畫一個名稱為CommonDialog1的通用對話框。件"，且默認文件名為out2；要求程序中不能使用變量，每個事件過程中只能寫一條語句。在考生目錄下有二個圖標文件，其名稱分別為". 程序運行時，單擊"紅桃"按鈕，則。清除"按鈕則清除圖像框中的圖案。本題主要考查了CommonDialog控件的使用。對話框或在"工具箱"上單擊右鍵選擇彈出菜單中的"部件"選項，彈出"部件對話框"。在對話框的"部件"列表中。CommonDialog1，并將其DialogTitle屬性設置為"保存文件"，其FileName屬性設置為out2，再添加一個命令按。通過Stretch屬性可以指定圖片是否被拉。伸，BorderStyle屬性用來設置圖像框是否帶邊框，同時也考查了Image控件中圖片的清除方法，最后對三個命。標簽上顯示"鼠標位置不對"。程序中的oncircle函數的作用是判。True，否則返回False。式排列的60個數讀入數組A，并顯示在Text1中；參數Button用來標識按下或釋放的鼠。標按鈕，Button為1，表示鼠標左鍵；Button為2，表示鼠標右鍵；Button為4，表示鼠標中間鍵。
【正文】 注冊時用戶名不能重復，且 口令 與 驗證口令 須相同，注冊成功則 在 啟動 窗體的標簽中顯示 注冊成功 ，否則顯示相應錯誤信息。登 錄時，檢驗用戶名和口令，若正確，則在 啟動 窗體的標簽上顯示 登 錄成功 ，否則顯示相應錯誤信息。 標準模塊中函數 finduser的功能是：在 users數組中搜索用戶名（ 即參數 ch），找到則返回該用戶名在 users中的位置，否則返回 0。 已經給出了所有控件和程序，但程序不完整，請去掉程序中的注釋符，把 Form Form3窗體文件中的 ？改為正確的內容。 注意： 不得修改已經 存在的程序和控件的屬性；最后，程序按原文件名存盤。 本題主要考查 VB中多個窗體的應用。其中 Form Form Form3分別為 啟動 、 注冊 、 登陸 窗體。在注冊窗體文件中，打開代碼窗口，該窗體的實現代碼如下： Private Sub Command1_Click() Text1 = Text2 = Text3 = End Sub Sub writeusers() n = n + 1 users(n, 1) = Text1 users(n, 2) = Text2 End Sub Private Sub Command2_Click() If Text1 = Then MsgBox (必須輸入用戶名！ ) ElseIf finduser(Trim$(Text1)) 0 Then MsgBox (此用戶名已經存在 !) ElseIf Text2 Text3 Then MsgBox (口令驗證錯誤 !) Else writeusers = 注冊成功！ End If End Sub 再打開登陸窗體 Form3，在其 登陸 按鈕的 Click事件中補充如下代碼： Private Sub Command1_Click() k = finduser(Trim$(Text1)) If k = 0 Then MsgBox (沒有注冊！ ) ElseIf Trim$(Text2) users(k, 2) Then MsgBox (口令錯誤！ ) Else = 登錄成功！ End If End Sub 按要求保存文件即完成本題。
公司管理相關推薦
鄂ICP備17016276號-1