麻烦你解释一下

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/14 11:24:31
麻烦你解释一下
xT[OA+HРIK^RstK },\hXںYD <zvƴMfi-AO^E]]sy? G&\COL@^Л90A||>Q4Đd(& ,$,!Q4FcN3t{f+'*Xd]6+vMNڍ#h -x,y̗Qp|eʷ^AlX"W',l{YW+zBrǴw0OZ*L4g{B*G$E꛴bS4/F#5R]K/yyKIV'PVVV0C-9哠 D ժzFӋt'} s LLZqZ7/SpvNr%4d0lz뀖;n5v,Cc$2W ]aY(s\mTbu40S[31N?Xy`6A/y#zG`h|u( ;k@yܵ3J4I;+ܯfY눵|1+Cs{/c 6FpXEc avMƆCȡdw純>J.6L5xB.y-џ&T

麻烦你解释一下
麻烦你解释一下

麻烦你解释一下
Private Sub Command1_Click()
Dim myOutput As String,i As Integer,j As Integer
For i = 1 To 26
j = Len(Text1.Text) - Len(Replace(UCase(Text1.Text),Chr(i + 64),""))
myOutput = myOutput & IIf(j = 0,"",Chr(i + 64) & ":" & j & vbCrLf)
Next
MsgBox myOutput
关键是for循环里的两个句子,每循环一次计算一个大写字母的次数,共计算26次,具体过程如下：
循环里的第一句计算相应字母的个数,原理是先算出原字符串所有字母的个数Len(Text1.Text) ,再将原字符串中的相应大写字母（用Ucase将所有字母变成大写）用空串""代替Replace(UCase(Text1.Text),Chr(i + 64),"")),这样处理后原字符串中相应字母就没有了,然后计算处理后的字符串的长度（Len(Replace(UCase(Text1.Text),Chr(i + 64),"")),前后两个字母串相减就得到相应字母的个数啦.
第二句,如果相应字母没有出现（代替前后字符串相等,j=0）,就把它当作浮云,如果有相应的字母（j0）就将它记录到一个变量myOutput中,继续循环,直到26个字母都计算过,再用msgbox显示结果
晕,原来用文字说明比代码复杂多啦

cx

麻烦你给解释一下 麻烦你解释一下 麻烦你解释一下这个情况英文怎么说 我只能爱你是什么意思 麻烦各位解释一下 谢谢 麻烦在解释一下 wqt是什么意思? 麻烦解释一下 麻烦你再给解释一下加标回收对比实验是什么意思? 为什么沸点低的是易挥发组分呢 麻烦你给解释一下 谢谢 西方近代史和中过近代史有什么区别,麻烦你解释一下西方的近代史 能麻烦你帮忙解释一下VLOOKUP函数的列序号是怎么确定的吗? 50-12=38 38-12=26 能麻烦你解释一下吗 我不懂 谁能帮我解释一下麻烦是什么意思 麻烦解释一下为什么D错 C语言,麻烦解释一下为什么? 什么是碳氢化合物?麻烦解释一下,谢谢! 麻烦每个选项都解释一下, 高中物理麻烦用公式解释一下 麻烦把这首诗的解释一下