Re: [VB6 ] 主控台 輸入數字

[ClubT ()]

自己拉一個 CommandButton 和 TextBox
然後加入下面程式碼

Private Sub Command1_Click()
  If IsNumeric(Text1.Text) = True Then '假如Text1的內容是數字才執行
    '依序列印
    Print CStr(CLng(Text1.Text) \ 10000) + "   " + _          '取得萬位數
          CStr(CLng(Text1.Text Mod 10000) \ 1000) + "   " + _ '取得千位數
          CStr(CLng(Text1.Text Mod 1000) \ 100) + "   "  + _  '取得百位數
          CStr(CLng(Text1.Text Mod 100) \ 10) + "   " + _     '取得十位數
          CStr(CLng(Text1.Text) Mod 10)                       '取得個位數
    '反序列印
    Print CStr(CLng(Text1.Text) Mod 10) + "   " + _           '取得個位數
          CStr(CLng(Text1.Text Mod 100) \ 10) + "   " + _     '取得十位數
          CStr(CLng(Text1.Text Mod 1000) \ 100) + "   " + _   '取得百位數
          CStr(CLng(Text1.Text Mod 10000) \ 1000) + "   " + _ '取得千位數
          CStr(CLng(Text1.Text) \ 10000)                      '取得萬位數
    '列印加總
    Print CStr((CLng(Text1.Text) \ 10000) + _                 '取得萬位數
          (CLng(Text1.Text Mod 10000) \ 1000) + _             '取得千位數
          (CLng(Text1.Text Mod 1000) \ 100) + _               '取得百位數
          (CLng(Text1.Text Mod 100) \ 10) + _                 '取得十位數
          (CLng(Text1.Text) Mod 10))                          '取得個位數
    '列印乘積
    Print CStr((CLng(Text1.Text) \ 10000) * _                 '取得萬位數
          (CLng(Text1.Text Mod 10000) \ 1000) * _             '取得千位數
          (CLng(Text1.Text Mod 1000) \ 100) * _               '取得百位數
          (CLng(Text1.Text Mod 100) \ 10) * _                 '取得十位數
          (CLng(Text1.Text) Mod 10))                          '取得個位數
    'This is Copy From PTT
  End If
End Sub

Private Sub Form_Load()
  Command1.Caption = "Print" '改變Command1的顯示
  Text1.Text = "" '清空Text1的內容
  Text1.MaxLength = 5 '限制Text1最多只能輸入5筆
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  '只能輸入數字
  If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
    KeyAscii = 0
  End If
End Sub

希望你不會被當...科科






※ 引述《crm123 (CRM)》之銘言：
: 1.從主控台上任意輸入一個介於10000~99999的5位數正整數
: a)將這個5位數依序列印於一行中 數字與數字之間差3個字元間隔
: b)將這個5位數反序列印於一行中 數字與數字之間差3個字元間隔
: c)將這個5位數每個位數相加，並將結果列印於主控台螢幕上
: d)將這個5位數每個位數相乘，並將結果列印於主控台螢幕上
: 2.必須使用 主控台螢幕方件執行與輸出
: 3.指令註解範例如下
:         Dim Sum As Integer              ‘宣告數字總和變數Sum
:         Dim Number1 As Integer  ‘宣告第一個數字變數 Number1
:         Dim Number2 As Integer  ‘宣告第二個數字變數 Number2
:         Sum = Number1+Number2   ‘執行兩個整數的加法運算
:         Print Sum                               ‘將總和列印於表單上
: 4.範例
:  請輸入一個五位數的正整數: 12345
: 請高手幫幫忙 感恩~~

--
我的P2個板  自然就是美    傾聽‧自然之美
               NB_COLSPRING  科技 Σ 冷 泉 港  >生命孕育地，海洋之心
                  ClubT         [風]
有空可以來逛逛^_^
Blog: http://www.wretch.cc/blog/ClubT  http://clubtblog.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 61.219.179.43
→ MOONRAKER:你真是個好人
推 jwjeng:要是我會改成字串, 再一個一個字印出來...
推 chinoyan:寫成這樣,分數肯定不高,剛好給原原PO用..XD
推 crm123:我也只是幫人問沒想到拿到那麼多多人酸
→ crm123:我是覺得呢與其在這邊酸人~不如回去看看你大衣教的東西
→ chinoyan:要是你在寫的過程不懂的關鍵問題上來問,沒人會酸你
→ chinoyan:但你把整個作業題目整個丟上來,自己一行CODE都沒寫
→ chinoyan:酸你剛好而己 ^^
→ MOONRAKER:這個好笑，我大一學的東西不少，不過不包括VB
→ MOONRAKER:再者酸不酸你跟看不看大一的東東有什麼鳥蛋關係？
→ MOONRAKER:剛好可以來一個最鄉民的反應，「先承認你就是你朋友」
→ crm123:就是因為沒學過才把整個丟上來問阿
→ crm123:我就是我朋友~我怎麼覺得你也只是嘴上說說而已^_^
→ crm123:反正鄉民就是鄉民,跟你認真我就輸了
→ crm123:只是謝謝好心人幫了一個大忙,萬分感謝
→ bulldog:ClubT真是好人，都念到大學了，還在為考試抱佛腳XD