Dim a(4) As Integer
Private Sub Command1_Click()
Dim s As String
a(1)=10:a(2)=30:a(3)=20:a(4)=40
s=doit(4)
Label1.Caption=s
End Sub
Function doit(k As Integer) As String
If k=1 Then
doit=Str(a(1))
Else
doit=doit(k-1) & Str(a(k))
End If
End Function
程序运行后,标签Label1中显示的内容是( )
Dim i As Integer, sum As Integer
Dim a(1 To 6) As Integer, b(1 To 6) As Integer
sum = 0
a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16
For i = 4 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
b(i) = b(i + 2) - a(i)
If b(i) Mod 3 = 0 Then sum = sum + b(i)
Next i
Text1.Text = Str(sum)
该程序段运行后,文本框Text1中显示的内容是( )
Dim a( 1 To 10) As Integer
Function Search(L As Integer, R As Integer)
As Integer
M=(L+R)\2
If a(M) <a(M-1) And a(M) >a(M+1) Then
①
ElseIf a(M) >a(M-1) And a(M) >a(M+1) Then
②
ElseIf a(M) >a(M-1) And a(M) <a(M+1) Then
③
End If
End Function
Private Sub Command 1 click()
Label 1.caption=““峰顶”值是:” +Str(Search (1,10))
End Sub
上述程序中划线处可选语句为:
①Search=Search(M+1,R)
②Search=Search(L,M-1)
③Search=a(M)
则①②③处的语句依次是( )
Private Sub Command1_Click()
Dim n As Integer, m As Integer
n=2: m=0
Do While m<3
n=n+2
If fun(n) Then
Print n
m=m+1
End If
Loop
End Sub
Function fun(x As Integer) As Boolean
fun=False
If x/2=Int(x/2) Then
fun=fun(x/2)
Else
If x=1 Then fun=True
End If
End Function
Function fg(n As Integer)As Integer
If n=1 fg=1
If n=2 fg=2
If n>=3 fg=fg(n-1)+fg(n-2)
End Function
请问走完这8阶楼梯的走法有( )
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后,s 的值为( )
Dim n As Integer
Dim sum As Integer
Dim i As Integer
Function fx(i As Integer) as Integer
If i = 1 Then
fx = 5
Else
fx = 5 * 2 ^ (i - 1) + fx(i - 1)
End if
End Function
Private Sub Command1_Click()
n = Val(Text1.Text): sum = 0
For i = 1 To n
sum = sum + fx(i)
Next i
Label1.Caption = Str(sum)
End Sub
若在 Text1 中输入4,单击 Command1,则 Label1 中显示的内容为( )
Function f(n As Integer)As Integer
If n<=1 Then
f=1
Else
f=n*f(n-1)
End If
End Function
Private Sub Command1_Click( )
Text1.Text=Str(f(5))
End Sub
F(0)=0 (n=0)
F(1)=1 (n=1)
F(n)=F(n-1)+F(n-2) (n≥2)
输出斐波那契数列中第10个数的Python程序如下:
def fib(n):
a,b= 0,1
for i in range(n):
return a
print(fib(10))
关于加框处的代码,下列说法正确的是( )
def check3(a,right,left):
b=(left-right+1)//3
if right==left:
index=right+1
return index
elif right+1==left:
if a[right] < a[left]:
index=right+1
return index
else:
index=left+1
return index
else:
if sum(a[right:right+b]) == sum(a[right+b:right+2*b]):
return check3(a,right+2*b,left)
elif sum(a[right:right+b]) > sum(a[right+b:right+2*b]):
return check3(a,right+b,right+2*b-1)
else:
return check3(a,right,right+b-1)
a = [1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1]
index1=0
right0 = 0
index1= check3(a,right0,len(a))
print("你要找的假币在第",index1,"个位置")
input("运行完毕,请按回车键退出...")
假设列表a中,0表示伪造的硬币,下列说法正确的是( )
Private Sub Command1 Click()
Label2 Caption = trans(Val(Text1. Text),Val(Text2. Text))
End Sub
Function trans(n As Integer, k As Integer) As String
If n< >0 Then
r = n Mod k
trans = trans(n\ k, k)+Str(r)
Else trans = 0
End If
End function
程序运行时,在文本框Text1和Text2中分别输入11和3,则Label2中的输出结果是( )
if n>0:
hanoi(n-1,A,B, C)
print(n,A,"->”,B)
hanoi(n-1,C,A,B)
hanoi (8,A,C,B)
B . def hanoi(n,A,B,C):if n>0:
hanoi(n-1,A,B,C)
print(n, A,"->" ,B)
hanoi(n-1,C,A,B)
hanoi (8, A,B,C)
C . def hanoi (n,C,B,A):if n>0:
hanoi(n-1,A,C,B)
print(n, A,"->”,B)
hanoi(n-1,C,B,A)
hanoi (8, C, B,A)
D . def hanoi(n,A,C,B):if n>0:
hanoi (n-1,A,C,B)
print(n, A,"->,B)
hanoi(n-1,C,B, A)
hanoi(8,C,A,B)
Private Sub Command1_ Click( )
Dim a(1 To 6) As Long,i As Integer
a(1)=1
a(2)= 1
For i=3 To 6
a(i)=a(i-1)+2 * a(i- 2)
Next i
Text1. Text=Str(a(6))
Text2. Text= Str(i)
End Sub