查看完整版本: 有趣的英文名字佔卜,好玩就好
頁: [1]

ahway9988 發表於 2014-10-10 05:16 PM

有趣的英文名字佔卜,好玩就好

本帖最後由 ahway9988 於 2014-10-10 05:39 PM 編輯

就當作程式練習,千萬別當真。
要當真的也可以,隨便你...

(其實對我自己的還滿準的XDD)


請找到這幾行修改一下:        Do
            i = i + 1
            j = j + Mid(v1, i, 1)
            
        Loop Until i >= Len(v1)
將j = j + Mid(v1, i, 1)修改以下
j = j + Val(Mid(v1, i, 1))

...沒加Val()會造成型態不符,VB6型態判別的問題有點難懂=.=

...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>
頁: [1]