mcwy 發問時間: 電腦與網際網路程式設計 · 1 0 年前

VB程式計算問題

如果我想設定一組數字(未知) A13000到A13999

假設這組數字是13456,經過一個算式運算

(左邊第1位數*1+左邊第2位數*2+左邊第3位數*3+左邊第4位數*4)

得到1*1+3*2+4*3+5*4=39,在經過10 - 這組數字個位數(39的9)=1,

若1等於真實數字尾數(13456)的個位數,則產生紀錄,否則繼續。

想請問一下這個怎們用VB來計算

4 個解答

評分
  • 1 0 年前
    最佳解答

    for i = 13000 to 13999

    i1 = i \ 10000

    i2 = (i - i1 * 10000) \ 1000

    i3 = (i - i1 * 10000 - i2 * 1000) \ 100

    i4 = (i - i1 * 10000 - i2 * 1000 - i3 * 100) \ 10

    sum = i1 + i2 *2 + i3*3+i4* 4

    i5 = 10 - (sum mod 10)

    i6 = i mod 10

    if i5=i6 then

    'mark i as the record here

    end if

    next i

  • 1 0 年前

    感謝上面兩位的幫忙

  • 1 0 年前

    DIM A,B,C,S,E,I

    FOR I= 1 TO 999

    A=I/100 '整數的除法,忘了有沒有撇錯邊,取百位數

    B=(I-A*100)/10 '求10位數

    C=I-A*100-B*10 '求個位數

    S=7+A*3+B*4+C*5

    E= S MOD 10

    IF E=C THEN

    PRINT I;

    EXIT FOR

    END IF

    NEXT I

    END

    ''''''''''''還沒試過,但大概意思如上,有很多地方可以用含數做簡化例如取位數的那個地方,這是最直接做運算的方法。應該還有更簡單的

    參考資料: ME..
  • 1 0 年前

    有問題

    1.設定一組數字(未知) A13000到A13999

    一組數字為什麼會有"A"呢?

還有問題?馬上發問,尋求解答。