作者ClubT ()
看板Visual_Basic
標題Re: [VB6 ] 主控台 輸入數字
時間Tue Nov 1 10:29:18 2011
自己拉一個 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
1F：→ MOONRAKER:你真是個好人 11/01 13:37
2F：推 jwjeng:要是我會改成字串, 再一個一個字印出來... 11/01 22:56
3F：推 chinoyan:寫成這樣,分數肯定不高,剛好給原原PO用..XD 11/02 01:47
4F：推 crm123:我也只是幫人問沒想到拿到那麼多多人酸 11/02 02:15
5F：→ crm123:我是覺得呢與其在這邊酸人~不如回去看看你大衣教的東西 11/02 02:15
6F：→ chinoyan:要是你在寫的過程不懂的關鍵問題上來問,沒人會酸你 11/02 08:31
7F：→ chinoyan:但你把整個作業題目整個丟上來,自己一行CODE都沒寫 11/02 08:31
8F：→ chinoyan:酸你剛好而己 ^^ 11/02 08:31
9F：→ MOONRAKER:這個好笑，我大一學的東西不少，不過不包括VB 11/02 12:27
10F：→ MOONRAKER:再者酸不酸你跟看不看大一的東東有什麼鳥蛋關係？ 11/02 12:28
11F：→ MOONRAKER:剛好可以來一個最鄉民的反應，「先承認你就是你朋友」 11/02 12:29
12F：→ crm123:就是因為沒學過才把整個丟上來問阿 11/03 04:33
13F：→ crm123:我就是我朋友~我怎麼覺得你也只是嘴上說說而已^_^ 11/03 04:34
14F：→ crm123:反正鄉民就是鄉民,跟你認真我就輸了 11/03 04:35
15F：→ crm123:只是謝謝好心人幫了一個大忙,萬分感謝 11/03 04:35
16F：→ bulldog:ClubT真是好人，都念到大學了，還在為考試抱佛腳XD 11/05 12:14