首頁猿問請問關(guān)于Private Sub...

請問關(guān)于Private Sub Command1_Click()的結(jié)果

Python C

Smart貓小萌 2021-12-02 07:07:05

Dim str1 As String, str2 As Stringstr1 = InputBox("請輸入一個(gè)字符串")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("請輸入一個(gè)字符串")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結(jié)果是多少啊，求大神給出詳細(xì)過程

查看完整描述

2 回答

胡說叔叔

TA貢獻(xiàn)1804條經(jīng)驗(yàn) 獲得超8個(gè)贊

Private Sub command1_click() '點(diǎn)擊按鈕command1產(chǎn)生的事件
Dim a(25), b(25), c(25) '聲明一維數(shù)組a,b,c下標(biāo)為(0-25)

X1 = Replace(Text1.Text, " ", "") 'X1等于文本框Text1的去掉空格后的字符
X2 = Replace(Text2.Text, " ", "") 'X2等于文本框Text2的去掉空格后的字符

q = Len(X2) 'q等于X2字符的數(shù)量

Print Len(X2) '在窗口內(nèi)打印出X2字符的數(shù)量

For k = 0 To q \ 25 - 1 '循環(huán),k從0到q整除于25減去1次的循環(huán)

Print Len(X2) '在窗口內(nèi)打印出X2字符的數(shù)量
h = 25 * k '對變量h進(jìn)行賦值為25乘于k
For i = 1 To 25 '內(nèi)循環(huán),i從1到25，共25次循環(huán)
a(i) = Mid(X1, i, 1) '對數(shù)組a(1到25)進(jìn)行賦值，a(1)等于X1的第一個(gè)字符，a(2)等于X2的第二個(gè)字符......a(25)等于X1的25個(gè)字符。
b(i) = Mid(X2, i + h + 2 * k, 1) '對數(shù)組b(1到25)進(jìn)行賦值，b(1)等于X2的第1 + h + 2 * k個(gè)字符.......b(25)等于X2的第25 + h + 2 * k個(gè)字符

a(i) = Val(a(i)) '把數(shù)組a(1到25)的值轉(zhuǎn)為數(shù)字類型
b(i) = Val(b(i)) '把數(shù)組b(1到25)的值轉(zhuǎn)為數(shù)字類型
c(i) = a(i) * b(i) '對數(shù)組c(1到25)進(jìn)行賦值c(1)=a(1)*b(1),c(2)=a(2)*b(2)......c(25)=a(25)*b(25)
n = n + 1 'n每次循環(huán)遞加一，這個(gè)變量應(yīng)該是用來計(jì)算循環(huán)次數(shù)的。

Print c(i); '在同一行中打印出數(shù)組c(1到25)的值

Next '結(jié)束i內(nèi)循環(huán)
Print '每次結(jié)束內(nèi)循環(huán)就換行
Next '結(jié)束k外循環(huán)
End Sub '結(jié)束按鈕command1點(diǎn)擊過程
'請參考。