试题

试题 试卷

logo

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

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

编写VB程序,实现如下功能:在文本框Text1中输入一个整数,单击“查找”按钮,找出该整数的全部的连续整数固定和,并将它们显示在列表框List1中。所谓一个数n的连续整数固定和,就是指存在a1 , a2 , …,an , 其中ai+1比ai大1,使得a1+a2+…+an=n。这样a1 , a2 , …,an称为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

   ②   

举一反三
返回首页

试题篮