有一个函数f，这个函数的参数是两个字符串s1、s2，这两个字符串必须长度相同并且由小写字母组成。函数的输出是一个与s1、s2长度相同的字符串s，字符串s的第i个_刷题宝

题干

有一个函数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中显示。

上一题下一题 0.99难度填空题更新时间:2019-04-23 04:18:46

答案(点此获取答案解析）

同类题1

编写VB程序，实现如下功能：程序运行时，在文本框Text1中输入任意字符串，单击按钮Command1，删除字符串中的非字母后，新字符串显示在Text2中，并找出ASCII码最小的字母，将其ASCII码显示在Text3中。程序运行界面如下图所示。

(1)将命令按钮Command1中显示的文本“Command1”修改为“查找”，可在其属性窗口中将___________属性的属性值改为“查找”。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String
Dim n As Integer, i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①___________
If n >= 65 And n <= 90 Or n >= 97 And n <= 122 Then
②________
End If
Next i
Text2.Text = result
j = 2
c = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) < c Then c = Mid(result, j, 1)
③________
Loop
Text3.Text = ④______
（3）如图所示，在文本框Text3中的ASCII码是Text2中第____个字符的ASCII码。

同类题2

完全平方数是指一个整数能表示成某个整数的平方的形式，例如图是完全平方数，可以表示成2的平方。下列判断整数型变量a是否为完全平方数的VB表达式不正确的是

A．Int(Sqr(a))=Sqr(a)

C．Int(Sqr(a))^2=a

D．Fix(Sqr(a))=Sqr(a)

同类题3

有如下Visual Basic程序段：
S=0：k=1
Do　while　k <=4
　If 8/k >=3 Then s=s＋k
　k=k＋1
Loop
该程序段运行后，变量s和k的值分别是（）

同类题4

下列每个控件都具有的属性是( )

同类题5

下面程序段是利用For语句给数组a赋值：
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值是：

相关知识点