题库 高中信息
题干
有一个函数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)的值。运行界面如第14题图所示。
（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 = f
End Sub
（3）运行该程序，在文本框Text1中输入flash，在文本框Text2中输入excel，单击“计算”按钮Command1，则文本框Text3中显示 。
（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 = f
End Sub
（3）运行该程序，在文本框Text1中输入flash，在文本框Text2中输入excel，单击“计算”按钮Command1，则文本框Text3中显示 。
答案(点此获取答案解析）
相关知识点