下列程序是将两个文本框(text1和text2)的内容进行组合,组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String,s2 As String S1

admin2013-04-11  28

问题 下列程序是将两个文本框(text1和text2)的内容进行组合,组合后的结果在图片框(Pic1)显示出来。    Private Sub Command1_Click()      Dim sl As String,s2 As String      S1=Text1.Text      S2=TextText      For i=Len(s1)To 1 Step-1         s3=s3+Mid(s1,i,1)+Mid(s2,i,1)      Next  i      Pic1.Print s3    End Sub    程序运行后,在Text1文本框中输入“ABCDE”,在Text2文本框中输入“12345”,单击命令按钮,则在Pic1图片框中显示的内容是

选项 A、E5D4C3B2A1
B、ABCDE12345
C、12345ABCDE
D、A1B2C3D4E5

答案1

解析 Len()函数是计算字符串的长度,用“ABCDE”的长度来确定循环次数。两个Mid函数从右至左逐个取两个字符串中的单个字符,然后重新进行组合。
转载请注明原文地址:https://kaotiyun.com/show/9Zhp777K
0

最新回复(0)