回覆列表
  • 1 # 移動-.-

    int Mat = Int.Parse(TextBox1.Text.Trim());int xxxx = Mat / 1000; //例如 4321 / 1000 = 4int xxx = Mat % 1000 / 100; 例如 4321 % 1000 = 321 321 / 100 = 3int xx = Mat % 100 / 10; 例如 4321 % 100 = 21 21 / 10 = 2int x = Mat % 10; 例如 4321 % 10 = 1最多可輸入10位數 Private Sub Command1_Click() Dim num As Long num = Val(InputBox("請輸入一個整數")) Print "千位數=" & num \ 1000 Mod 10 Print "百位數=" & num \ 100 Mod 10 Print "十位數=" & num \ 10 Mod 10 Print "個位數=" & num Mod 10 End Sub

  • 中秋節和大豐收的關聯?
  • 白鞋上的油漬怎麼去除啊?