vb等級考試題目與評析92(參考版)
2024-09-08 10:03本頁面
【正文】 修改后的主要代碼如下： 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 按要 求保存文件即完成本題。 本題主要考查 Rnd函數(shù)的使用和相同數(shù)值的判斷。 要求： 請去掉程序中的注釋符，把程序中的 ？改為正確的內(nèi)容，使其實現(xiàn)上述 功能，但不能修改窗體文件中已經(jīng)存在的控件和程序。如圖所示。語法分別為： For counter = start To end [Step step] [statements] [Exit For] [statements] Next [counter] ................. If con
公司管理相關(guān)推薦
鄂ICP備17016276號-1