vb等級考試題目與評析92-資料下載頁
2024-09-04 10:03本頁面
【導(dǎo)讀】請根據(jù)以下各小題的要求設(shè)計VisualBasic應(yīng)用程序。鈕，名稱分別為C1、C2，標題分別為"隱藏"、"顯示"。框消失，而如果單擊"顯示"按鈕，則文本框顯示出來。程序中不得使用任何變量。Visible屬性用來設(shè)置對象的可見性，可以取True和False兩種值，取值為True時，對象可見；取值為False時，新建一個名為Form1的窗體，點擊工具箱中的TextBox控件圖標，然后在窗體上拖拉出一個文本框。按要求保存文件即完成本題。仍是鍵入的字符，但顯示的是PasswordChar屬性所設(shè)置的字符串的第一個字符。當用戶向文本框中輸入新信息，或當程序把Text屬性設(shè)置為新值時，就會觸發(fā)Change事件。但不能修改其他部分。存盤時不得改變文件名和文件夾。有整數(shù)累加起來并在Text3中顯示出來。的a大于b，則在變量中替換a和b，使a所表示的數(shù)字始終為最大，然后再使用遞歸循環(huán)計算出答案，完整的代碼。Text1、Text2的文本框，其中Text1可多行顯示。Command2，標題為"產(chǎn)生數(shù)組"、"查找"的命令按鈕。
【正文】 請去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其實現(xiàn)上述 功能，但不能修改窗體文件中已經(jīng)存在的控件和程序。最后把修改后的 文件按原文件名存盤。 本題主要考查 Rnd函數(shù)的使用和相同數(shù)值的判斷。 為了生成某個范圍內(nèi)的隨機數(shù)，可以使用一下公式： Int((upperbound lowerbound+1) * Rnd + lowerbound) 這里， upperbound是隨機整數(shù)范圍的上限，而 lowerbound則是隨機整數(shù)范圍的下限。 修改后的主要代碼如下： Private Sub Command1_Click() = : = For i = 1 To 10 a(i) = Fix(Rnd * 99 + 1) For j = 1 To i 1 If a(i) = a(j) Then i = i 1 Exit For End If Next j Next i For i = 1 To 10 = + Str(a(i)) + Space(2) Next i End Sub Private Sub Command2_Click() Dim num As Integer, i As Integer num = InputBox(請輸入待查找的數(shù) ) For i = 1 To 10 If a(i) = num Then = Str(num) + 是數(shù)組中的第 + Str(i) + 個值 Exit For End If Next i If i 10 Then = Str(num) + 不存在于數(shù)組中 End If End Sub 按要 求保存文件即完成本題。
公司管理相關(guān)推薦
鄂ICP備17016276號-1