编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a1，a2，…，an，其中ai+1比ai大1，使得a1+a2+…+an=n。这样a1，a2，…，an称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，...

题型：填空题题类：常考题难易度：困难

浙江省温州市十校联合体2017届高三上学期期末考试技术试题（信息技术部分）

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …，a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer

n = Val(Text1.Text)

sum = 0

List1.Clear

For i = 1 To n ' ①

j = i - 1

Do While sum <= n ' ②

j = j + 1

sum = sum + j

Loop

If sum = n Then

List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)

End If

sum = 0

Next i

End Sub

① ②

举一反三

编写VB程序代码，实现如下功能：在文本框Text1中输入金额(整数)后，点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

小王编写了一个寻找最长连续相同子串的程序，功能如下：在文本框Text1中输入一个字符串，点击“查找最长子串”按钮后，在标签Label1上显示出最长子串的长度。程序运行如图所示。

采用如下对分查找算法对数组a中7个有序数据“about、count、end、fly、high、jack、month”进行查找。

i=1:j=7:x=“high”

Do While i <=j

m=(i+j)\2

If a(m)=x Then Exit Do

If a(m) > x Then

j=m-1

Else

i=m+1

End If

Loop

执行完上述代码后，根据最终变量值判断下列表达式，其中成立的是（）

某对分查找算法的VB程序段如下：

k=Val(Text1.Text)

i=1: j=6: Label1.Caption="": f=False

Do While i <=j And Not f

m=(i+j) \ 2

If a(m)=k Then f=True

If a(m) > a(i) Then

If a(i) <=k And k < a(m) Then j=m-1 Else i=i+1

Else

If a(m) < k And k <=a(j) Then i=i+1 Else j=j-1

End If

Label1.Caption=Label1.Caption+Str(a(m))

Loop

数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（）

在数组d(1)到d(10)中存放了以下数据:10，12，17，20，22，27，40，45，50，80。指定关键字为50，对数组进行对分查找，依次所经过的元素为（）

某对分查找算法的VB程序段如下:

t=“”: i=0 : j=9 : key=62: f=False

Do While i<=j And Not f

m=Fix((i+j) / 2)

t=t+Str(rn)

If a(m)=key Then

f=True

Elself a(m) > key Then

i=m+1

t=t+“→”

Else

j=m-1

t=t+“←”

End If

Loop

数组元素a⑹到a⑼的值依次为“99, 94, 90, 87, 78, 70, 63, 56, 45, 36”,执行该程序段，t的值是（）

相关试卷

公司介绍

服务介绍

帮助中心