VB 字串（前 30 磅，線 50 磅）。

太簡單了，使用替換功能。

a=replace( ,"我", "erfew/23e")a=replace(a, "你們", "56dww")a=replace(a, "你", "rwq")a=replace(a, "他", "wsdw"請注意，應將“您”替換在“您”之前，否則會出現問題。

replace 語句。

從長“你”開始，然後替換為“你”。

private sub form_load()= true

s1 = "我是 578iuyhio 你 fwed 你 dfsfi 他"

r1 = "erfew/23e"

r2 = "rwq"

r3 = "56dww"

r4 = "wsdw"

srst = replace(s1, "你們", r3)srst = replace(srst, "我", r1)srst = replace(srst, "你", r2)srst = replace(srst, "他", r4)srst

end sub

sub command1_click()

if instr(1,,"v") then'輸入框裡有個v，可以。

end if

end sub

**如果你不懂裡面的函式，可以去網上查一下，也可以問你私有子形式load（）str2 = split（"a-1-2/b-5-8/5-5-4/789", "/")

dim a()

redim a(ubound(str2))for i = 0 to ubound(str2)b = instrrev(str2(i), "-")if b > 0 then

a(i) = mid(str2(i), 1, b - 1)else

a(i) = str2(i)

end if

nextfor i = 0 to ubound(a)msgbox "a(" & cstr(i) &")=" & a(i)

nextend sub

dim arrdata（） as stringset arrdata=split（string，"/") '我忘了要不要設定，自己試試。

然後使用相同的方法並跟隨字元"-"分隔生成的陣列中的每個元素（如果字串包含）"-"然後重新分配得到的陣列，假設該陣列是 newdata（）。

redim newdata（ubound（newdata）-1）。

chr（） 是從 ASCII 查詢表中獲取的，它不用於將數字轉換為字串。

VB Auto 將幫助您轉換。

將其更改為如下所示：

msgbox "密碼錯誤" + b + "次", vbokonly, "警告"

replace 函式。

str = ac2222222”

replace(str, "ac", 4"將 str 中的 ac 替換為 4

如果字串只有兩個空格和三個文字框，則可以使用以下 **：

dim s as string

dim sa() as string

s = "abc def ghi"

sa = split(s, " ")

sa(0)sa(1)

sa（2）split 函式是將乙個字串拆分為乙個帶有指定字元的字串陣列，用於拆分的字元存在於字串中，否則字串不會被拆分。 這是使用空格拆分，更多的應用，你可以自己嘗試。

dim sa() as string

s = "/abc def ghi"

sa = split(right(s,len(s)-1), " ")= sa(0)

sa(1)sa(2)

首先，你的問題有乙個問題，就是字母A到Z是10到36，如果字母A代表10，那麼字母Z只能代表35，所以達到你要求的**如下：

private sub command1_click()dim j as integer

dim n as long

for n = 1 to len(

dim b as string

b = mid(, n, 1)

if isnumeric(b) then

j = j + val(b)

elsej = j + asc(ucase(b)) 55)end if

next n

jend sub

問題不清楚是輸入。

1+2+3+4+5+6+7+8+9+10+36+2+3+4+5+6 結果輸出等於。

123456789az23456？

不明白這個問題，如果是：1111

是1+1+1+1還是11+11？

汗。 split 函式可以指定拆分次數。 在分隔符之後，指定將其拆分為 2 個部分。 樓上太複雜了。

split(str, " ", 2)

strname as string, paramarray intscores() as variant)

dim inti,k as integerdim substr as string

k=0substr=""

strname; " scores"

使用 ubound 函式確定陣列的上限。

for inti = 0 to ubound(intscores())

; intscores(inti)substr=substr+intscores(inti)k=k+1

if(k=2) then

; substr

k=0substr=""

end if

next inti

end sub

s 獲取 sr 的所有內容，這已經是檔案的末尾，s 不能為空，文字檔案不可能為空。

因為它是檔案的末尾，所以不會執行 while 語句。

另外，要替換的字元被一次性替換，在 i>0 之後，[[abc]] 在 s 中不再存在，並且 substitution 語句不起作用，結果是 sw 多了 11 個 sr 內容。

因為現在沒有迴圈，所以 sw 是空的。