作者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