有如下VB程序其功能是实现正话反说（即将输入字符逆序输出）：FunctionZF(SAsString)AsStringDimn AsIntegern=Len(S_刷题宝

题干

有如下VB程序其功能是实现正话反说（即将输入字符逆序输出）：
Function ZF(S As String) As String
Dim n As Integer
n = Len(S)
If （1） Then
ZF =____（2）____
Else
ZF = Mid(S, n, 1) + ZF(Mid(S, 1, n - 1))
End If
End Function
Private Sub Command2_Click()
Dim x As String
x = Text1.Text
Text2.Text = ZF(x)
End Sub
该程序采用的算法和划线处应该填入的内容分别为（）

A．解析（1） n<=1 （2） s

B．解析（1） n>=1 （2） Mid(s,n,1)

C．递归（1） n>=1 （2） s

D．递归（1） n<=1 （2） Mid(s,n,1)

上一题下一题 0.99难度选择题更新时间:2020-04-02 09:24:40

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

同类题1

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生“类型不匹配”错误时所执行的语句是（）

Private Sub Command1_Click()
Dim a As String, b As String, c As Integer
a = "Good" '①
b = "bye" '②
c =__________1__________'③
Text1.Text =" a" + b + c '④
End Sub

同类题2

有如下程序段：
a=3
b=4
c=a*b-2
该程序段运行后，变量c的值为_____________

同类题3

下列关于“控件”属性的说法正确的是( )

A．控件的每一个属性都具有同样的默认值；

B．所有对象都具有同样的属性；

C．控件的属性只能在设计时设置，不能在运行时修改；

D．单击窗体中某控件，在属性窗口中的属性列表框中找到要设置的属性，即可设置其属性值；

同类题4

某VB的事件过程如下：
Private Sub Command1_Click()
Dim a As Integer
a = Val(Text1.Text)
a =" 2" * a + 1
Text1.Text = Str(a)
End Sub
程序运行时，在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是（）

同类题5

程序修改题，每小题①②③④处有1处错误，找出并改正

（1）下列程序的功能是在文本框Text1中显示变量a和b的较大值。
a = 1：b = 2
① If a > b Then
② c = a
Else
③ c = b
End If
④ Text1.Caption = Str(c)
错误在______处，改为_______________。

（2）下列程序的功能是标签Label1中显示1+2+3+…+10值。
Dim s As Integer
Dim i As Integer
① s = 0
② For i =" 1" To 10
③ s = i
Next i
④ Label1.Caption = Str(s)
错误在______处，改为_______________。

相关知识点