某VB程序使用了递归函数，代码如下：PrivateSubCommand1_Click()N=val(Text1.Text)Text2.Text=f(n) End_刷题宝

题干

某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
N= val(Text1.Text)

Text2.Text = f(n)

End Sub
Function f(x As Integer) As String
Dim t as integer

If x = 1 Then t = 1 Else t = val(f(x - 1)) + 2

f=str(t)

End Function
在文本框Text1中输入3，运行程序并点击按钮Command1后，文本框Text2中显示的内容是（）

A．1

B．5

C．135

D．531

上一题下一题 0.99难度选择题更新时间:2019-04-24 10:09:55

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

同类题1

程序运行后，单击Command1命令按钮，变量x=( )。
Private Sub Command1_Click()
n =" 5"
x =" 1"
For i =" 1" To n
x =" x" * i
Next i
End Sub

同类题2

写出下列程序的输出结果
Private Sub Command1_Click()
For i =" 1" To 4
If i Mod 3 <> 0 Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
End sub
该程序的运行结果是（）

同类题3

国内特快专递每200克为一个计费单位，200克以内22元，200克以上每续重200克（不足200克以200克计算）8元，现在要编写一个程序输入包裹重量自动计算出价格。解决上述问题，最合适的算法是（）

A．解析算法

B．枚举算法

C．排序算法

D．递归算法

同类题4

下列程序的功能是：随机产生10个1—100之间的正整数，按从小到大排序并输出。为了实现这一目标，程序中划线处应填入的合适语句是：
①______________ _
②__________ _____
Const n=10
Dim i As Integer,j As Integer,t As Integer
Dim a(1 to 10) As Integer
For i="1" to 10
_____①_______
Next i
For i="1" to n-1
For j="i+1" to n
If ____②____ Then
k=a(i):a(i)=a(j):a(j)=k
End If
Next j
Next i
For i="1" To n
Print a(i)
Next i

同类题5

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是（）

Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer '①
a(0) = 1 '②
For i =" 1" To 5
a(i) =" 2" * a(i-1) + 1 '③
Next i
Text1.Text = Str(a(i)) '④
End Sub

A．①	B．②
C．③	D．④

相关知识点