【正文】
2010年(春)上機 Visual Basic(VB05)答案一、改錯【題目】本程序的功能是隨機生成n個兩位整數(shù)(n利用鍵盤輸入),并存入一個數(shù)組。找出數(shù)組中的最大元素并將其刪除,刪除的方法是將最大元素后面的元素依次前移一個位置,數(shù)組長度減1。重復(fù)上述過程,直到得到只有一個元素的數(shù)組為止。Option ExplicitPrivate Sub Command1_Click() Dim a() As Integer, n As Integer, mv As Integer, mp As Integer Dim i As Integer, j As Integer, st As String n = InputBox(元素個數(shù), 數(shù)組處理, 10) Randomize ReDim a(n) For i = 1 To n a(i) = Int(Rnd * 90) + 10