冰楓論壇

 找回密碼
 立即註冊
查看: 716|回覆: 5

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

[複製鏈接]

37

主題

6

好友

106

積分

註冊會員

Rank: 2

UID
70181
帖子
607
主題
37
精華
0
積分
106
楓幣
638
威望
90
存款
4116
贊助金額
0
推廣
0
GP
54
閱讀權限
20
性別
保密
在線時間
311 小時
註冊時間
2014-7-11
最後登入
2019-7-22

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

發表於 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 楓幣. 幸運榜 / 衰神榜

1

主題

0

好友

419

積分

高級贊助會員

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

UID
70738
帖子
411
主題
1
精華
0
積分
419
楓幣
510
威望
62
存款
1576
贊助金額
1300
推廣
0
GP
32
閱讀權限
150
性別
在線時間
630 小時
註冊時間
2014-7-15
最後登入
2019-5-17
發表於 2015-8-28 15:42:24 |顯示全部樓層
回覆

使用道具 舉報

37

主題

6

好友

106

積分

註冊會員

Rank: 2

UID
70181
帖子
607
主題
37
精華
0
積分
106
楓幣
638
威望
90
存款
4116
贊助金額
0
推廣
0
GP
54
閱讀權限
20
性別
保密
在線時間
311 小時
註冊時間
2014-7-11
最後登入
2019-7-22

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

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

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

使用道具 舉報

1

主題

0

好友

419

積分

高級贊助會員

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

UID
70738
帖子
411
主題
1
精華
0
積分
419
楓幣
510
威望
62
存款
1576
贊助金額
1300
推廣
0
GP
32
閱讀權限
150
性別
在線時間
630 小時
註冊時間
2014-7-15
最後登入
2019-5-17
發表於 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
回覆

使用道具 舉報

37

主題

6

好友

106

積分

註冊會員

Rank: 2

UID
70181
帖子
607
主題
37
精華
0
積分
106
楓幣
638
威望
90
存款
4116
贊助金額
0
推廣
0
GP
54
閱讀權限
20
性別
保密
在線時間
311 小時
註冊時間
2014-7-11
最後登入
2019-7-22

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

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

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

使用道具 舉報

17

主題

11

好友

22

積分

新手上路

Rank: 1

UID
147113
帖子
423
主題
17
精華
0
積分
22
楓幣
3032
威望
20
存款
0
贊助金額
0
推廣
0
GP
38
閱讀權限
10
性別
在線時間
35 小時
註冊時間
2016-7-20
最後登入
2019-7-4

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

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

使用道具 舉報

您需要登入後才可以回帖 登入 | 立即註冊

正在連接伺服器...
打開冰楓聊天室
廣告刊登意見回饋關於我們職位招聘

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

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

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

小黑屋|意見反饋|手機版|Archiver|冰楓論壇

GMT+8, 2019-7-23 20:44

APP Store下載 Play Store下載
回頂部