有一个函数f,这个函数的参数是两个字符串s1、s2,这两个字符串必须长度相同并且由小写字母组成。函数的输出是一个与s1、s2长度相同的字符串s,字符串s的第i个字符为字符串s1、s2的第i个字符中小的那个,比如:f("ab", "ba") = "aa", f("nzwzl", "zizez") = "niwel"。编写VB程序,模拟上述函数的功能:在文本框Text1中输入字符串参数x,在文本框Text2中输入字符串参数y,单击“计算”按钮Command1,在文本框Text3中输出函数f(x,y)的值。运行界面如图所示。
(1)
观察程序界面,该程序中共有个对象。
(2)
实现上述功能的VB程序如下,请在划线处填入合适代码。 Private Sub Command1_Click() Dim f As String, x As String, y As String x = Text1.Text y = Text2.Text f = "" If Len(x) <> Len(y) Then Text1.Text = "请输入符合要求的字符串!" Text2.Text = "请输入符合要求的字符串!" Else For i = 1 To Len(x) If Then f = f + Mid(y, i, 1) Else f = f + Mid(x, i, 1) End If Next i Text3.Text = fEnd Sub
(3)
运行该程序,在文本框Text1中输入flash,在文本框Text2中输入excel,单击“计算”按钮Command1,则文本框Text3中显示。
答案: 【1】8
【1】mid(y,i,1)< Mid(x, i, 1) 或mid(y,i,1)<= Mid(x, i, 1)【2】End If
【1】elaeh