vb等級考試題目與評析90-資料下載頁
2025-08-27 20:41本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序。為Cmd1，標(biāo)題為"清除"的命令按鈕，編寫適當(dāng)?shù)氖录^程。行后，如果單擊"清除"命令按鈕，則清除文本框中所顯示的信息。"輸入"和"連接"的命令按鈕。要求程序運(yùn)行后，單擊。窗口中寫入“=""”，然后以文件名。InputBox語句的使用，其語法為：。但不能修改其它部分。存盤時不得改變文件名和文件夾。"黑體"，一個文本框，名稱為Text1，字體為楷體_GB2312，字號為四號字，本框中輸入"等級考試"，并選擇一個單選按鈕。放入Long型變量中），在文本框中顯示結(jié)果，并把結(jié)果存入文件。此時，循環(huán)中的語句可能會再次執(zhí)行（基于循環(huán)開。始執(zhí)行時同樣的測試），也可能是退出循環(huán)并從Next語句之后的語句繼續(xù)執(zhí)行。文本框數(shù)組，下標(biāo)從0開始。已經(jīng)給出了所有控件和部分程序。本題主要考查Rnd函數(shù)的使用、奇數(shù)和偶數(shù)的判定。按要求保存文件即完成本題。
【正文】 werbound則是隨機(jī)整數(shù)范圍的下限。 修改后的主要代碼如下： Private Sub Command2_Click() Dim i%, j%, temp%, flag As Boolean i = 0 j = 9 temp = Text1(j) flag = True While (i j) If flag Then If Text1(i) Mod 2 = 0 Then Text1(j) = Text1(i) j = j 1 flag = Not flag Else i = i + 1 End If Else If Text1(j) Mod 2 = 1 Then Text1(i) = Text1(j) i = i + 1 flag = Not flag Else j = j 1 End If End If Wend Text1(i) = temp End Sub 按要求保存文件即完成本題 。
公司管理相關(guān)推薦
鄂ICP備17016276號-1