精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

  • <center id="usuqs"></center>
  • 
    
  • 設(shè)有一個(gè)6×6的方陣,VB求方陣中最小的元素的位置和值

    設(shè)有一個(gè)6×6的方陣,VB求方陣中最小的元素的位置和值
    1.設(shè)有一個(gè)6×6的方陣,其中的元素是隨機(jī)產(chǎn)生的10 - 99 之間的兩位數(shù).分別求出主對角線和次對角線上元素之和,以及方陣中最小的元素的位置和值.(參考課本 p112,例7.6)
    要求:
    程序運(yùn)行后,單擊“產(chǎn)生”按鈕時(shí),輸出方陣.單擊“計(jì)算”按鈕時(shí),輸出對角線元素之和,以及最小元素的值與位置.
    以下是產(chǎn)生6X6二維數(shù)組、輸出方陣、計(jì)算對角線元素之和的部分
    Private Sub Command1_Click()
    Dim a(5,5) As Integer
    For i = 0 To 5
    For j = 0 To 5
    a(i,j) = Int(90 * Rnd + 10)
    Next j
    Next i
    For i = 0 To 5
    For j = 0 To 5
    Print a(i,j);
    Next j
    Print
    Next i
    For i = 0 To 5
    s1 = s1 + a(i,i)
    Next i
    For i = 0 To 5
    s2 = s2 + a(i,5 - i)
    Next i
    End Sub
    怎么把那個(gè)對角線和輸出?怎么確定最小元素的值與位置?
    數(shù)學(xué)人氣:457 ℃時(shí)間:2020-07-04 16:38:54
    優(yōu)質(zhì)解答
    Dim a(5,5) As IntegerPrivate Sub Command1_Click()For i = 0 To 5For j = 0 To 5a(i,j) = Int(90 * Rnd + 10)Print a(i,j);Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim min,x,y,i,jFor i = 0 To 5s ...
    我來回答
    類似推薦
    請使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點(diǎn),以保證最佳閱讀效果。本頁提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版