程式新手求助VB累加顯示問題- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1148

會員總數：246203
討論主題：189776

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> 程式新手求助VB累加顯示問題

[]

[我要回覆]

程式新手求助VB累加顯示問題
價值 : 150 QP 點閱數:513 回應數:3

樓主

Hita

0	1
12	1

發送站內信

各位大大好，最近在撰寫作業時卡關了，懇請各位高手替小弟解惑，感謝

我想要達到右邊那一欄的效果
第二格會等於第一格家第二格
但我寫出的程式結果卻顯示

請問我的邏輯或是程式碼哪裡出錯了
以下是我的程式碼

Public Class Form1

Dim distance(,) As Integer = {{0, 19, 92, 29, 49, 78, 6},          '距離矩陣
                                {19, 0, 21, 85, 45, 16, 26},
                                {92, 21, 0, 24, 26, 87, 47},
                                {29, 85, 24, 0, 76, 17, 8},
                                {49, 45, 26, 76, 0, 90, 27},
                                {78, 16, 87, 17, 90, 0, 55},
                                {6, 26, 47, 8, 27, 55, 0}}

Dim setpoint As Double = 3 '起始點 4  -1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, c As Short            '定義α、β、螞蟻數量
        a = Val(TextBox1.Text)          'α
        b = Val(TextBox2.Text)          'β
        c = Val(TextBox3.Text)          '螞蟻數量

'透過矩陣取資料計算轉換公式

Dim X1(6) As Double                        'X1 = 第一次跑各個點 7個點的一維陣列
        For q As Integer = 0 To 6               '起始點為第四點 每個點選擇的機率
            If q = setpoint Then
                X1(6) = 0
            Else
                X1(q) = (((0.000167 ^ a)) * ((1 / distance(q, setpoint)) ^ (b)))  '公式: 費洛蒙 * 距離倒數
            End If
            Label40.Text &= Val(X1(q))     '顯示結果   
            Label40.Text &= vbNewLine
        Next q

'sumX1 = 公式總和
        Dim sumX1 As Double
        sumX1 = 0
        For q = 0 To 6
            sumX1 += X1(q)
        Next q
        Label41.Text &= Val(sumX1)          '顯示結果 
        Label41.Text &= vbNewLine

'選擇機率 = 公式值/公式總和
        Dim P(6) As Double
        For k = 0 To 6
            P(6) = X1(k) / sumX1

Label42.Text &= P(6)               '顯示結果 
            Label42.Text &= vbNewLine
        Next k

'累加P 前一項+後一項 ???????
        Dim sumP(6) As Double
        For m As Integer = 0 To 6
            If m = 0 Then
                sumP(m) = P(m)
            Else
                sumP(m) = sumP(m - 1) + P(m)
            End If
            Label43.Text &= sumP(m)            '顯示結果 
            Label43.Text &= vbNewLine

Next
    End Sub
End Class

如果算出累加後的成果，接著產生一亂數與他們各別比大小又該如何撰寫
懇請大大替小弟解惑，實在萬分感謝

搜尋相關Tags的文章： [ VB累加 ] , [ 陣列 ] , [ 螞蟻演算法 ] ,
本篇文章發表於2018-06-15 15:37

1樓作者回應 Hita	哀呀圖片好像沒有顯示出來第一張圖網址 : https://imgur.com/a/bqQcHzu 第二張圖網址 : https://imgur.com/a/yz5hSu4 本篇文章回覆於2018-06-15 15:39 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應小魚	不懂，你那個矩陣是要做什麼的? 本篇文章回覆於2018-06-15 23:26 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應香帥	請將第61行改為以下程式碼 sumP(m) = sumX(m - 1, P) '並增加以下function Function sumX(i As Integer, sumA() As Double) As Double Dim j As Integer Dim x As Double x = 0 For j = i To 0 Step -1 x = x + sumA(j) Next j sumX = x End Function 本篇文章回覆於2018-06-16 14:40 == 簽名檔 == --未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.

1樓作者回應 Hita	哀呀圖片好像沒有顯示出來第一張圖網址 : https://imgur.com/a/bqQcHzu 第二張圖網址 : https://imgur.com/a/yz5hSu4 本篇文章回覆於2018-06-15 15:39 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
2樓回應小魚	不懂，你那個矩陣是要做什麼的? 本篇文章回覆於2018-06-15 23:26 == 簽名檔 == --未登入的會員無法查看對方簽名檔--
3樓回應香帥	請將第61行改為以下程式碼 sumP(m) = sumX(m - 1, P) '並增加以下function Function sumX(i As Integer, sumA() As Double) As Double Dim j As Integer Dim x As Double x = 0 For j = i To 0 Step -1 x = x + sumA(j) Next j sumX = x End Function 本篇文章回覆於2018-06-16 14:40 == 簽名檔 == --未登入的會員無法查看對方簽名檔--