如何在 VB Reward 20 積分中拆分 10 位數字

我定義了乙個拆分函式（呵呵，為了便於理解，我將使用漢字作為函式名稱）。 s 引數是需要拆分的數字，索引表示您需要獲取的位置中的數字（從高到低）

函式拆分（n 為長，索引為整數）為整數

dim s as string

s = n split = val（mid（s， index， 1））。

end function

它是通過將數字轉換為字串，然後使用 mid 函式獲取字串上某個位置的字元，然後將其轉換回數字來獲得的。 這樣更方便。

所以舉個例子，如下**，你可以知道數字56789的第四位數字從高到低是8。

private sub command1_click()

msgbox split（56789， 4）。

end sub

朋友，你試試以下**。

結果顯示在窗體的標題欄上。

所需控制項：command1、command2、text1private sub command1 click（）x=

x \ 10) mod 10

end sub

private sub command2_click()x =

x mod 10

end sub

private sub form_load()text1 = "28"

十位數"個位數"

end sub

自己編寫乙個函式。

private function div(number as long, index as long) as long

dim x as long

x = int(number / (10 ^ index - 1)))

div = x - int(x / 10) *10)end function

number 是要拆分的數字，index 是從右到左的位數。 例如，取數字 283 的個位數：div（283,1）。

取它的十：div（283,2）...以它的數百個：

div(283,3)

朋友，這兩個問題...... 是乙個問題，那只是你的問題...... 如果可以的話，堅持下去。

結果顯示在窗體的標題欄上。

所需控制項：command1、command2、text1private sub command1 click（）x=

x \ 10) mod 10

end sub

private sub command2_click()x =

x mod 10

end sub

private sub form_load()text1 = 28"

十位數"個位數"

end sub

選擇 1 位數字。 private sub biteone_click()makenumber (9)

end sub

選擇 2 位數字。 private sub bitetwo_click()makenumber (99)

end sub

選擇 3 位逗號。

private sub bitethree_click()makenumber (999)

end sub

選擇“新增”。 private sub jia_click()=

end sub

選擇減法。 private sub jian_click()=

end sub

選擇乘法。 private sub cheng_click()= x"

end sub

選擇“除法”。 private sub chu click（） 簧片的第二個數字不能為 0

if <>0" then

elsemsgbox "number 0 is wrong!"

end if

end sub

生成隨機數量的好友。

public sub makenumber(bitenum as integer)

dim a as integer

dim b as integer==

保證位數。 a = rnd * bitenumif a <=bitenum / 100 thena = a * 100

elseif a <=bitenum / 10 thena = a * 10

end if

保證位數 b = rnd * bitenumif b <=bitenum 100 thenb = b * 100

elseif b <=bitenum / 10 thenb = b * 10

end if

除法時不能為0，自動加1

if = and b = 0 then

b = b + 1

end if

顯示。 = a

bend sub

讓變數 a 和 b 分別取 09 和 10 到 99 和 100 到 999 之間的隨機值（其中除數為 0）。

private sub command1_click()dim kk as integer,sum as integerkk = 0

for i = 1 to 7

for j = i + 1 to 8

for k = j + 1 to 9

sum=sum+k*100+j*10+i

kk = kk + 1

nextnext

nextprint "百位數，十位大於十位數，十位數大於個位數" & kk & "個人電腦"

end sub

dim i as integer, s as long, n as integer

i = 100

do while i >= 100 and i <= 999if i \ 100 < i \ 10 mod 10) and (i \ 10 mod 10) n = n + 1

end if

i = i + 1

loopprint "百位大於十位且十位大於個位的三位數："; n

1l @factor hg 程式需要修正，sum 需要定義為 long 整數 long，否則會溢位; 此外，計算這個金額是沒有意義的。

選擇最簡單的方法，msgbox"百個數，十個大於十個，十個大於個位數，共84個"

根據你的標題，我在VB中寫了以下**，你看看它是否是你需要的：

private sub command1_click()dim i, j, k, l, n

for i = 100 to 999 '所有三位數字 j = i 100'百位數字上的數字 k = （i - 100 * j） 10'十位數字上的數字 l = i - 100 * j - 10 * k'如果 （l > k 和 k > j） 則為個位數'個位大於十位，十位大於百位。

print i;

n = n + 1 '記錄 if （n mod 20 = 0） 的個數，然後'每 20 次換行列印

end if

end if

next i

end sub

有很多方法可以做到這一點，並介紹了一些簡單的方法。

乙個私有子形式 load（）。

dim num as long, str as string

num = 12345

str = cstr(num) '將長整數轉換為字串。

msgbox mid(str, 1, 1) 'mid 是從字串中獲取字元，第乙個引數是從中獲取的字串，第二個引數是提取的位置，第三個引數是提取的編號，例如：（str，1,1） 為 1，（str，2,1） 為 2，（str，1,2） 為 12

end sub

2. 私有子表單 load（）。

dim a as long, b as long, c as long, d as long, e as long, num as long

num = 12345

a = num \ 10000

num = num - a * 10000

b = num \ 1000

num = num - b * 1000

c = num \ 100

num = num - c * 100

d = num \ 10

num = num - d * 10

e = num

msgbox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e

end sub

3. modprivate 子形式 load（）。

dim a as long, b as long, c as long, d as long, e as long, num as long

num = 12345

a = num \ 10000

num = num mod 10000

b = num \ 1000

num = num mod 1000

c = num \ 100

num = num mod 100

d = num \ 10

num = num mod 10

e = num

msgbox "a:" & a & " b:" & b & " c:" & c & " d:" & d & " e:" & e

end sub

dim n as integer, s as integerfor n = 100 to 999

if left(n, 1) >mid(n, 2, 1) and mid(n, 2, 1) >right(n, 1) then s = s + 1

nextprint "百位數、十位數和三位數，其中十位數大於個位數的"; s