vb 字母组合问题text1里有6个字母,ABCDEFtext2里有4个字母MNSY一个命令按钮要实现的是:首先把tex
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/09 21:13:30
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中.
这样的代码怎么写?
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](/uploads/image/z/1156333-13-3.jpg?t=vb+%E5%AD%97%E6%AF%8D%E7%BB%84%E5%90%88%E9%97%AE%E9%A2%98text1%E9%87%8C%E6%9C%896%E4%B8%AA%E5%AD%97%E6%AF%8D%2CABCDEFtext2%E9%87%8C%E6%9C%894%E4%B8%AA%E5%AD%97%E6%AF%8DMNSY%E4%B8%80%E4%B8%AA%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE%E8%A6%81%E5%AE%9E%E7%8E%B0%E7%9A%84%E6%98%AF%EF%BC%9A%E9%A6%96%E5%85%88%E6%8A%8Atex)
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
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
vb 字母组合问题text1里有6个字母,ABCDEFtext2里有4个字母MNSY一个命令按钮要实现的是:首先把tex
含有2个连续o的单词单词里要有2个连续的o2个o前要有4个字母,6个字母后面要有1个字母的,还有前面要有1个字母后面有4
为什么26个英语字母里有5个原音字母
26个字母里元音字母有哪些?
26个字母组合的问题26个英文字母,第一步首先任选两个进行组合,共有共有325种组合方式,第二步然后从这325种种组合里
英文字母26个,4个字母1个组合,有多少种不同的组合?
26个字母英语单词的拼写,有几个字母是只有一个读音的字母?
vb的问题,求一个算法!每个字母改为它后面的第N个字母.
34个字母随意组合一个“五个字母的单词”,考虑顺序的,能有多少种组合法
8个数字取一个数和10个字母中取一个字母的组合有多少种
英语里的音标是怎么出现的?26个字母为什么有48个发音?
有一个单词倒数第3个字母是a,且有6个字母组成