试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省高中信息技术 递归算法练习
Function s(n As Integer) As Integer
If n=1 Then
s=1
Else
s=s(n-1)+n
End If
End Function
Private Sub Form_Click()
Dim x As Integer
x=s(4)
Print x
End Sub
程序运行时,单击窗体后,变量x的值为（ ）
Private Sub Command1_Click()
Dim a as Integer
a=Val(Text1.text) ‘将文本框中的数字文本转换成数值
a=2*a+1
Text1.text = StrA.
程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（ ）
k = Val(Text1．Text)
left1 = 1: right1 = 10
Do While (left1 <= right1)
mid1 = (left1 + right1) \ 2
If a(mid1) <=k Then
left1 = mid1 + 1
right1 = mid1-1
Loop
Text2．text=str(right1)
已知数组a(1)到a(10)的原始数据为1,4,5,5,5,5,8,9,9,10．程序运行时，在文本框text1中输入5，文本框text2显示的内容是（ ）
s = Text1.Text
List1.Clear
len1 = Len(s) ‘①
For i = 1 To len1 ‘②
For j = 1 To len1- i ‘③
List1.AddItem Mid(s, j, i) ‘④
Next j
Next i
运行时发现未输出所有子串，则修改（ ）
当n的值为10时，关于该两段程序，下列说法不正确的是（ ）
a=5
b=3
If a>b Then
a=b
End lf
试题篮
