作业帮 > 综合 > 作业

vb 字母组合问题text1里有6个字母,ABCDEFtext2里有4个字母MNSY一个命令按钮要实现的是:首先把tex

来源:学生作业帮 编辑:灵鹊做题网作业帮 分类:综合作业 时间:2024/05/02 06:53:27
vb 字母组合问题
text1里有6个字母,ABCDEF
text2里有4个字母MNSY
一个命令按钮
要实现的是:首先把text1里的字母依次组合成两位的字母,中间要用空格分开.组成AB AC AD AE AF BC BD BE BF CD CE CF DE DF EF
然后把组出来的这些两位数组合,依次跟text2中的每一个字母组合一遍,形成ABM ABN ABS ABY ACM ACN ACS ACY,依次类推.
把结果输出到text3中.
这样的代码怎么写?
vb 字母组合问题text1里有6个字母,ABCDEFtext2里有4个字母MNSY一个命令按钮要实现的是:首先把tex
Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
For j = i + 1 To Len(Text1.Text)
For k = 1 To Len(Text2.Text)
DoEvents
Text3.Text = Text3.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text2.Text, k, 1) & " "
Next
Next
Next
End Su