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

  • <center id="usuqs"></center>
  • 
    
  • 用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之類的函數(shù).

    用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之類的函數(shù).
    其他人氣:661 ℃時(shí)間:2020-04-19 09:55:00
    優(yōu)質(zhì)解答
    Private Sub Form_Click()
    Dim 數(shù)組, 最大值%, 最小值%, 臨時(shí)串$, 計(jì)數(shù)%
    臨時(shí)串 = "1,-5,68,8,-23,0,478,21,5"
    數(shù)組 = Split(臨時(shí)串, ",")
    最大值 = 數(shù)組(LBound(數(shù)組))
    最小值 = 數(shù)組(LBound(數(shù)組))
    For 計(jì)數(shù) = LBound(數(shù)組) To UBound(數(shù)組)
    If 數(shù)組(計(jì)數(shù)) < 最小值 Then 最小值 = 數(shù)組(計(jì)數(shù))
    If 數(shù)組(計(jì)數(shù)) > 最大值 Then 最大值 = 數(shù)組(計(jì)數(shù))
    Next
    Print "最大值=" & 最大值, "最小值=" & 最小值
    End Sub
    我來(lái)回答
    類似推薦
    請(qǐng)使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點(diǎn),以保證最佳閱讀效果。本頁(yè)提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版