討論區快速選單
知識庫快速選單
軟體開發過程中有哪些資安漏洞? 討論區最近新進100則主題 傑米的攝影旅遊筆記
[ 回上頁 ] [ 討論區發言規則 ]
用兩個input diolog box 計算
更改我的閱讀文章字型大小
作者 : emptyset(emptyset)
[ 貼文 14 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 10 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2009/11/3 上午 08:38:17
這是我寫的,但是總是有問題,還有寫得對不對
Private Sub Command1_Click()
    Dim Percent1 As integear
    Percent1 = InputBox("PERCENT HERE", "PERCENT")
End Sub

Private Sub Command2_Click()
    Dim Money As integear
    Money = InputBox("MONEY HERE", "MONEY")
End Sub

Private Sub Command3_Click()
    Picture1.Cls
    Picture1.Print Percent1 * Money
End Sub
作者 : qazujm(joe) Visual Basic卓越專家C#優秀好手貼文超過1000則
[ 貼文 1521 | 人氣 2524 | 評價 9070 | 評價/貼文 5.96 | 送出評價 90 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人emptyset註記此篇回應為最佳解答 2009/11/3 上午 08:58:04
Dim Percent1 As Integer
Dim Money As Integer

Private Sub Command1_Click()
    Percent1 = InputBox("PERCENT HERE", "PERCENT")
End Sub

Private Sub Command2_Click()
    Money = InputBox("MONEY HERE", "MONEY")
End Sub

Private Sub Command3_Click()
    Picture1.Cls
    Picture1.Print Percent1 * Money
End Sub

VB6嗎?Percent1 Money要放在前面宣告為全域變數,Integer拼錯了...
作者 : emptyset(emptyset)
[ 貼文 14 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 10 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2009/11/3 上午 09:15:23
謝謝
問題終於解決
作者 : emptyset(emptyset)
[ 貼文 14 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 10 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2009/11/3 上午 09:33:44
還有一個問題當我delete Dim Money As Integer 和 Dim Percent1 As Integer
為什麼計算出是0
作者 : eaglewolf(狼鷹) Delphi優秀好手貼文超過200則
[ 貼文 311 | 人氣 1011 | 評價 2020 | 評價/貼文 6.5 | 送出評價 15 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人emptyset註記此篇回應為很有道理 2009/11/3 上午 09:47:57

如果你沒有程式開頭宣告 Explicit 1
(若有錯請前輩們不吝指正)
這是VB6 會自動幫你宣告他認為合適的型別
並給于適當的初始值
若有宣告 Explicit 1
則會告知Percent1 及 Money 未定義

因為你的運算子是 *
所以VB6 會自動幫你設定 Percent1跟Money為數字,且初始值均為0
因此會得到結果0
作者 : qazujm(joe) Visual Basic卓越專家C#優秀好手貼文超過1000則
[ 貼文 1521 | 人氣 2524 | 評價 9070 | 評價/貼文 5.96 | 送出評價 90 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人emptyset註記此篇回應為很有道理 2009/11/3 上午 11:22:34
Option Explicit

補充,請養成好習慣,在程式最前面加上Option Explicit,強制宣告;沒有這一行,變數不經宣告就可使用,但生命週期只存在Sub裡,所以Percent1 Money不宣告成全域變數的話,雖然是同名變數,但在不同Sub裡,無法傳遞儲存數值,等於是第一次使用,值為0...
 板主 : Daniel
 > 資訊類作業 - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - 資訊類作業 - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
資訊類作業
1 Raymond 4540 
2 Ben 2880 
3 青衫 2260 
4 ozzy 1540 
5 HKLN.net 1010 
6 Daniel 780 
7 joe 740 
8 小朱 570 
9 Benson 440 
10 鬼翼@娃娃魚 400 
資訊類作業
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
6.152344E-02