冰楓論壇

 找回密碼
 立即註冊
ads_sugarbook
搜索
查看: 1773|回覆: 5

[求助] VB新手寫一個小小程式遇到問題

[複製鏈接]

38

主題

6

好友

126

積分

註冊會員

Rank: 2

UID
70181
帖子
657
主題
38
精華
0
積分
126
楓幣
1475
威望
108
存款
6246
贊助金額
0
推廣
0
GP
56
閱讀權限
20
性別
保密
在線時間
362 小時
註冊時間
2014-7-11
最後登入
2024-3-27

論壇支持王 性別(男) 論壇粉絲 懶人勳章 太陽勳章 2017中秋節紀念勳章 2018年紀念勳章 神手勳章 音樂勳章 積分勳章 發帖達人 解說達人 2019年紀念勳章 幼兒勳章 長老勳章 2020年紀念勳章 2022年紀念勳章

發表於 2015-8-28 15:37:48 |顯示全部樓層
本帖最後由 cpu66300 於 2015-8-28 15:44 編輯

我要寫這樣!!!!!這是一個自訂的例如初始值打6 終止值打16  =121  從6加到16 的計算 22222.jpg


裡面內容 我打了這樣 11111.jpg
     0錯誤  0警告 要測試運行點了計算 他就直接跳回這個畫面了

小弟遇到問題還不能解決煩請各位大大能解說 感恩




[發帖際遇]: cpu66300 為了品嚐「台中」名產「慶記」,因此搭乘「Uber」從台北南下,車資共計 3 楓幣 幸運榜 / 衰神榜
複製連結並發給好友,以賺取推廣點數
簡單兩步驟,註冊、分享網址,即可獲得獎勵! 一起推廣文章換商品、賺$$

27

主題

0

好友

454

積分

高級贊助會員

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

UID
70738
帖子
447
主題
27
精華
0
積分
454
楓幣
1775
威望
93
存款
1576
贊助金額
1300
推廣
0
GP
58
閱讀權限
150
性別
在線時間
721 小時
註冊時間
2014-7-15
最後登入
2024-3-28
發表於 2015-8-28 15:42:24 |顯示全部樓層
Clng改成Val
點評回覆

使用道具 舉報

38

主題

6

好友

126

積分

註冊會員

Rank: 2

UID
70181
帖子
657
主題
38
精華
0
積分
126
楓幣
1475
威望
108
存款
6246
贊助金額
0
推廣
0
GP
56
閱讀權限
20
性別
保密
在線時間
362 小時
註冊時間
2014-7-11
最後登入
2024-3-27

論壇支持王 性別(男) 論壇粉絲 懶人勳章 太陽勳章 2017中秋節紀念勳章 2018年紀念勳章 神手勳章 音樂勳章 積分勳章 發帖達人 解說達人 2019年紀念勳章 幼兒勳章 長老勳章 2020年紀念勳章 2022年紀念勳章

發表於 2015-8-28 15:47:19 |顯示全部樓層
s860070 發表於 2015-8-28 15:42
Clng改成Val

感恩       可以了   感謝大大   奇怪位捨麼不能使用Cint阿 有差別嗎 因為我還不懂  ><
點評回覆

使用道具 舉報

27

主題

0

好友

454

積分

高級贊助會員

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

UID
70738
帖子
447
主題
27
精華
0
積分
454
楓幣
1775
威望
93
存款
1576
贊助金額
1300
推廣
0
GP
58
閱讀權限
150
性別
在線時間
721 小時
註冊時間
2014-7-15
最後登入
2024-3-28
發表於 2015-8-28 16:03:59 |顯示全部樓層
本帖最後由 s860070 於 2015-8-28 16:19 編輯

CInt是把數值轉換成整數,但是遇到非數值字串將會錯誤
Val是將數值字串轉換成數值(空的會轉換成0)

你要不要改成Function 比較好維護跟擴充介面呀?
完整程式碼:

Public Function 累加(ByVal 開始值 As Integer, ByVal 結束值 As Integer) As Long
        Dim i As Long = 0
        Dim Sum As Long = 0

        For i = 開始值 To 結束值 Step 1

            Sum += i

        Next

        Return Sum

    End Function

    Private Sub Btn_Calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Calculate.Click
        Dim 開始值 As Integer = Val(Txt_Start.Text)
        Dim 結束值 As Integer = Val(Txt_Stop.Text)

        Txt_Final.Text = "從 " & 開始值 & " 加到 " & 結束值 & " = " & 累加(開始值, 結束值)

    End Sub

    Private Sub Txt_Start_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txt_Start.KeyPress

        '禁止0~9和BackSpace以外的值輸入
        If InStr("0123456789" & Chr(8), e.KeyChar) = 0 Then e.KeyChar = ""

    End Sub

    Private Sub Txt_Stop_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txt_Stop.KeyPress

        '禁止0~9和BackSpace以外的值輸入
        If InStr("0123456789" & Chr(8), e.KeyChar) = 0 Then e.KeyChar = ""

    End Sub

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

        '結果唯讀
        Txt_Final.ReadOnly = True
        'TextBox的文字置中
        Txt_Start.TextAlign = HorizontalAlignment.Center
        Txt_Stop.TextAlign = HorizontalAlignment.Center
        Txt_Final.TextAlign = HorizontalAlignment.Center

    End Sub
點評回覆

使用道具 舉報

38

主題

6

好友

126

積分

註冊會員

Rank: 2

UID
70181
帖子
657
主題
38
精華
0
積分
126
楓幣
1475
威望
108
存款
6246
贊助金額
0
推廣
0
GP
56
閱讀權限
20
性別
保密
在線時間
362 小時
註冊時間
2014-7-11
最後登入
2024-3-27

論壇支持王 性別(男) 論壇粉絲 懶人勳章 太陽勳章 2017中秋節紀念勳章 2018年紀念勳章 神手勳章 音樂勳章 積分勳章 發帖達人 解說達人 2019年紀念勳章 幼兒勳章 長老勳章 2020年紀念勳章 2022年紀念勳章

發表於 2015-8-28 16:25:31 |顯示全部樓層
s860070 發表於 2015-8-28 16:03
CInt是把數值轉換成整數,但是遇到非數值字串將會錯誤
Val是將數值字串轉換成數值(空的會轉換成0)

感恩大大的解說   我來試試看感恩
點評回覆

使用道具 舉報

21

主題

12

好友

27

積分

新手上路

Rank: 1

UID
147113
帖子
485
主題
21
精華
0
積分
27
楓幣
3342
威望
24
存款
0
贊助金額
0
推廣
0
GP
44
閱讀權限
10
性別
在線時間
57 小時
註冊時間
2016-7-20
最後登入
2024-3-17

懶人勳章 性別(男) 神手勳章

發表於 2018-12-5 02:05:41 |顯示全部樓層
用Val()
印象中e語言叫做 到數值()
我什麼都不是
點評回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies |上傳

廣告刊登意見回饋關於我們職位招聘本站規範DMCA隱私權政策

Copyright © 2011-2024 冰楓論壇, All rights reserved

免責聲明:本網站是以即時上載留言的方式運作,本站對所有留言的真實性、完整性及立場等,不負任何法律責任。

而一切留言之言論只代表留言者個人意見,並非本網站之立場,用戶不應信賴內容,並應自行判斷內容之真實性。

小黑屋|手機版|冰楓論壇

GMT+8, 2024-3-28 16:59

回頂部