Dim str1 As String, str2 As Stringstr1 = InputBox("請輸入一個字符串")subf str1, str2Print str2End SubSub subf(s1 As String, s2 As String)Dim temp As StringStatic i As Integeri = i + 1temp = Mid(s1, i, 1)If temp <> " " Then subf s1, s2s2 = s2 & tempEnd SubDim str1 As String, str2 As Stringstr1 = InputBox("請輸入一個字符串")subf str1, str2Print str2End SubSub subf(s1 As String, s2 As String)Dim temp As StringStatic i As Integeri = i + 1temp = Mid(s1, i, 1)If temp <> " " Then subf s1, s2s2 = s2 & tempEnd Sub結果是多少啊，求大神給出詳細過程
2 回答
胡說叔叔
TA貢獻1804條經驗 獲得超8個贊
Private Sub command1_click() '點擊按鈕command1產生的事件
Dim a(25), b(25), c(25) '聲明一維數組a,b,c下標為(0-25)
X1 = Replace(Text1.Text, " ", "") 'X1等于文本框Text1的去掉空格后的字符
X2 = Replace(Text2.Text, " ", "") 'X2等于文本框Text2的去掉空格后的字符
q = Len(X2) 'q等于X2字符的數量
Print Len(X2) '在窗口內打印出X2字符的數量
For k = 0 To q \ 25 - 1 '循環,k從0到q整除于25減去1次的循環
Print Len(X2) '在窗口內打印出X2字符的數量
h = 25 * k '對變量h進行賦值為25乘于k
For i = 1 To 25 '內循環,i從1到25， 共25次循環
a(i) = Mid(X1, i, 1) '對數組a(1到25)進行賦值，a(1)等于X1的第一個字符，a(2)等于X2的第二個字符......a(25)等于X1的25個字符。
b(i) = Mid(X2, i + h + 2 * k, 1) '對數組b(1到25)進行賦值，b(1)等于X2的第1 + h + 2 * k個字符.......b(25)等于X2的第25 + h + 2 * k個字符
a(i) = Val(a(i)) '把數組a(1到25)的值轉為數字類型
b(i) = Val(b(i)) '把數組b(1到25)的值轉為數字類型
c(i) = a(i) * b(i) '對數組c(1到25)進行賦值c(1)=a(1)*b(1),c(2)=a(2)*b(2)......c(25)=a(25)*b(25)
n = n + 1 'n每次循環遞加一，這個變量應該是用來計算循環次數的。
Print c(i); '在同一行中打印出數組c(1到25)的值
Next '結束i內循環
Print '每次結束內循環就換行
Next '結束k外循環
End Sub '結束按鈕command1點擊過程
'請參考。
添加回答
舉報
0/150
提交
取消