1樓：網友
private function jiami(byval x as integer) as integer
dim i as integer, y as integerfor i = 0 to 3
y = y + x \ 10 ^ 3 - i)) 7) mod 10) *10 ^ 3 - i)
next i
jiami = jiami + y \ 1000) *10 + y \ 100) mod 10) +y \ 10) mod 10) *1000 + y mod 10) *100
end function
在程式中呼叫函式即可。如。
dim k as integer
k = 5876
k = jiami(k)k
2樓：殘月冷風
非常麻煩，而且懷疑你怎麼給400分。
建議你在別的專業vb程式設計論壇問這個。
3樓：
有點意思，我寫好給你！
400分求助 vb 問題
4樓：周勝億
看好名字，再加分。
有問題，直接聯絡。
5樓：方慧霞
這些 書上都有的哦。
vb 新手提問
6樓：網友
這些都是vb的基礎呀，建議你還是好好看看書！
for 是迴圈標誌，i 是迴圈變數。
for i = 1 to 100 step 2 是從1迴圈到100 每次步進2
是字元鏈結符號。
就兩個字元鏈結成乙個。
7樓：神牧林
for迴圈，i從1開始一直遞增到100結束，每次執行後i自動增加2.
vb的提問
8樓：網友
"\"是檔案路徑分割符，資料夾和檔案之間用用"\"區分，例如：d盤下資料夾a中有檔案。
d:\a\如果中間沒有"\"，則是：
d:\表示d盤下有檔案。
9樓：死神800號
就是說如果沒有\就補上去，有了\就不用補了。就這麼簡單。
vb提問（急）
10樓：網友
根本就沒有這樣的東西，你可以把問題提清楚點，我再來看看，text是文字筐，只能執行時輸入，或預設，如果要放長的文字要用其他的控制項，
vb中的提問
11樓：網友
多做例子胡磨，多看別人的例子，亮模要每句都看懂，不懂的地方就到網上查資料。多動手練習。自己想一些褲鍵鬥小東西然後做，遇見問題了就查資料。
我是這麼學習的，我也屬於是自學。
vb程式設計提問鍵盤輸出數任意實數，利用分段函式計算絕
dim x as double x val inputbox x dim y as double if x 5 then y 3 x 1elseif x 0 then y x 2 2 x 1elseif x 5 then y abs x 2 1 elseif x 10 then y sin x 1 ...
感情問題追加高分，認真回答的來， 400分 高分問情感問題,要真誠的回答
如果你是一個能負的起責任的男人，就告訴你的女友得病的事情，並且很明白的跟她說，你們根本沒有將來，因為家庭因素，和生活方式的等等原因，都要說清楚，不要有什麼隱瞞，這樣她雖然會難過，但是她只會傷一陣子，而如果你瞞著她，並且還畏前畏後的不清楚的告訴她實情，她會覺的你對她還有感情，你們還有在一起的可能，她自...
高分提問 關於星塵傳說 我新手 求高人指點
雙開我感覺沒有什麼好處 要說有好處就是組隊跑任務和活動可以拿到雙份的錢，但是前提是電腦配置要好不然會卡。先把桌面上的遊戲圖示點開，選好區！進入遊戲！開第二個號是把客戶端資料夾開啟，裡面有個和桌面上一樣 的圖示。點選 luvinia 那個圖示。就雙開了。.作為戰士你不應該去練習鍊金，因為戰士用的裝備大...