（加试题）某VB程序使用了递归函数，代码如下：PrivateSubCommand1_Click()Text1.Text=f(3)EndSubFunctionf(_刷题宝

题干

（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then f = 1 Else f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（）

A．1

B．3

C．5

D．7

上一题下一题 0.99难度选择题更新时间:2017-02-15 04:28:21

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

同类题1

VB表达式 len(mid(“happy new year 2016!”,6,4)的计算结果（）

同类题2

以下可以作为VB变量名的是( )

同类题3

在VB中，下列能作为变量名的是（）

同类题4

下列逻辑表达式的值为“假”的是（）。

C．5<0 AND 4>3

同类题5

在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()

x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

相关知识点