- 二一组卷

题型：综合题题类：常考题难易度：普通

浙教版高一信息技术专题五：VB程序设计

编写VB程序，界面设计如图所示，使其具有下列功能：在文本框Text1中输入一个小于20的正整数n，单击“计算”按钮Command1，计算斐波那契数列中第n项的值，并在标签Label2中输出结果；若输入错误，则在标签Label2中显示相应的提示信息。(斐波那契数列是指这样的数列：1,1,2,3,5,8,13…。即：第1项和第2项的值均为1，从第3项开始，每一项的值是它前面两项之和)

（1）、代码“Private Sub Command1_Click()”中的Command1 是(单选，填字母：A .对象名/B .属性名/C .属性值/D .事件名)。

（2）、为实现上述功能，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim n As Long,k As Integer

Dim f1 As Long,f2 As Long,f As Long

If n>=20 Or n<=0 Then

Label2.Caption=”输入的数据有误”

Else

If n<=2 Then ‘第1，2个元素的值都为1

f=1

Else

f1=1

f2=1

For k=3 To n

f=f1+f2

f1=f2

f2=f

Next k

End If

Label2.Caption = ”斐波那契数列第” + Str(n) + ”项的值为” +

End If

End Sub

（3）、若在文本框Text1.Text输入21，则标签Label2显示的内容为。

举一反三

要使窗体Form1的标题栏中显示“计算扇形的面积”，以下语句正确的是（）

小虞编写了一个求数列、……前10项和的程序，VB程序段如下：

s = 1/2 + 2/3 : t = 1: b = 2

For i= 3 To 10

Next i

Label1.Caption = "前10项的和是：" + Str(s)

方框中的代码由以下四部分组成：

①b = r ②t = b ③r = t + b ④s = s + r/(r + b)

代码顺序正确的选项是（）

一辆卡车运矿石，晴天每天运20次，雨天每天最多运12次，他一共运了8天，共112次，则晴天和雨天各有几天。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出晴天的天数，在文本框Text2中输出雨天的天数，程序代码如下：

Private Sub Command1_Click()

i＝1

j＝7

Do While ____①____

i＝____②____

j＝____③____

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

则下列说法正确的是（）

有如下VB程序段：

Dim s As String, i As Integer, n As Integer

Dim ch As String, ans As Integer

s= Text1.Text

n Len(s): ans=0

For i=1 To n

ch =Mid (s, i, 1)

ans =ans *2+ Val(ch)

Next i

Text2 Text ans

若程序运行后Tex2中显示的是“38”，则Text中输入的是（）

自定义函数delStr(S，m)的功能是删除字符串S中第m位上的字符，

Function delStr(S As String, m As Integer) As String

Dim n As Integer

n = Len(S)

If m < 1 Or m > n Then

delStr = ”输入位置有误！”

ElseIf m = 1 Then

delStr = Mid(S, 2, n - 1)

ElseIf m < n Then

ElseIf m = n Then

delStr = Mid(S, 1, n - 1)

End If

End Function

则横线处代码填写正确的是( )

下列选项能作为 Python变量名的是（）。

相关试卷

公司介绍

服务介绍

帮助中心