2016[閒聊] 這些年我最愛的韓劇[求薦] 會再看第二遍的好看韓劇[閒聊] 2016年是韓劇廢人增多年？ [求薦] 好笑讓人放鬆的韓劇

此問題該如何解決
重新建立元件到可以
不過下次開啟編輯又會出錯
總不能一直重建元件
貼上NumericUpDown24.Value就會顯示
「從字串 至 'double' 轉換 無效 」
請問 該修改哪兒才好
.......... 表示字元太多po不完
與上面程式碼一樣
差少了 Dim x, y, z, v As Long 之後
刪除其他一個判斷就可正常
可是必須要 真 假 判斷

If CheckBox1.Checked = True Then
Label35.ForeColor = Color.Red '改變顏色 紅色
'運算 拆解百分率
Dim ns As Integer
Dim d2 As Decimal = (NumericUpDown22.Value / 100) * Label38.Text
Dim Y2 As Double = Math.Round(d2, 0)
ns = Y2

Dim n1, n2, dn As Long
Dim totaln As Long
Dim xs As Integer
xs = Label38.Text - NumericUpDown20.Value
n2 = NumericUpDown23.Value
n1 = NumericUpDown24.Value
dn = Math.Abs(n2 - n1)
For i = 1 To dn
If (n1 + 1 - 150) >= 0 Then
totaln += ((n1 + 1) ^ 3.3 + (n1 + 1 - 150) ^ 4.9)
Else
totaln += ((n1 + 1) ^ 3.3 - ((150 - n1 - 1) ^ 4.9))
End If
n1 += 1
Next
If n2 < n1 Then totaln = -totaln - xs
Label35.Text = totaln - Y2

Dim x, y, z, v As Long
Dim dn2 As Long
dn2 = totaln
x = (dn2 / 1500)
If x < 0 Then
x = x * -1
End If
y = x * 34
z = y
v = totaln - Y2
Label35.Text = (v - y) / 200000
Else
..........
End If

This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.