[計算機]vb階段測試卷-資料下載頁
2025-01-09 07:40本頁面
【正文】 （） Dim a（ 3， 3） As Integer, i As Integer， J As Integer Dim maxvr As Integer, col As Integer, flg As Integer For i＝ 1 to 3 For j=1 To 3 a（ i， j）＝ Rnd*89＋ 10 Print a(i， j）； Next j Print For i = 1 To 3 maxvr = (7) col = l For J = 2 To 3 If maxvr a(i, J) Then (8) 6 col = J End If Next J For J = 1 To 3 If maxvr a(J, col) Then (9) Next J If J 3 Then Print a(。 i。 ,。 col。 )=。 a(i, col) flg = 1 End If Next i If (10) Then Print 鞍點元素不存在 End Sub 五、按要求編寫通用過程代碼（每題了分，共 14分） 1．編寫一個判斷是否素數(shù)的子過程，過程名為 Sushu，形參 N 是要判斷的數(shù)， flag 是判斷的結果。 Pnvate Sub Sushu（ N As Integer, flag As Boolean） …… End Sub 2．編寫一個求兩個數(shù)的最小公倍數(shù)的函數(shù)過程，函數(shù)名為 minpub，形參 M、 N分別為兩個整數(shù)。 Private Function minPub（ M As Integer， N As Integer） as Integer …… End Function 六、編程題 (16分 ) 編寫按鈕的 Click事件過程，程序運行結果如圖示，要求如下： 1．單擊“生成數(shù)組”（ Commandl）按鈕，生成一個由兩位隨機整數(shù)組成的 5 5的數(shù)組，顯示在圖片框 P1中；（ 6分） 2．單擊“最小列”（ Command2）按鈕，找出該數(shù)組的最小元素，并將最小元素所在列的值均賦值為 0，且顯示在圖片框 P2中；（ 8分） 7 3．單擊“清空”（ Command3）按鈕，將清空兩個圖片框中的內容。（ 2分）
試題試卷相關推薦
鄂ICP備17016276號-1