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

看板Visual_Basic作者ClubT時間14年前 (2011/11/01 10:29)推噓3(3推 0噓 13→)

留言16則, 5人參與討論串2/2 (看更多)

自己拉一個 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

11/01 13:37, , 1^F

11/01 13:37, 1^F

推

jwjeng

11/01 22:56, , 2^F

11/01 22:56, 2^F

推

chinoyan

11/02 01:47, , 3^F

11/02 01:47, 3^F