小刘编写了一个求序列所有子序列和的程序。程序能够输出所有的子序列的和，同时输出最大的子序列和。如序列中有三个元素a(1)，a(2)，a(3)，其子序列包括“a(_刷题宝

题干

小刘编写了一个求序列所有子序列和的程序。程序能够输出所有的子序列的和，同时输出最大的子序列和。如序列中有三个元素 a(1)，a(2)，a(3)，其子序列包括“a(1)，a(2)”，“ a(1)，a(2)，a(3)”，“ a(2)，a(3)”。程序运行界面如图所示。

实现上述功能的VB程序如下（数组每一项的值都为［-100,100］内的随机整数），请将程序代码补充完整。
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim b(10) As Integer
Dim i As Integer, j As Integer
Dim k As Integer, max As Integer
Randomize
max=-32768
List1.Clear
List2.Clear
b(0)= 0
For i=1 To 10
a(i)=___________ '(1)
b(i)=b(i-1)+a(i)
List1.AddItem Str(a(i))
Next i
For I = 1 To 10
For j=i+1 To 10
s="a("+Str(i)+")"+"至"+"a("+Str(j)+")"+"的和为"
k=_______________ '(2)
If k>max Then max=k
List2.AddItem s+Str(k)
Next j
Next i
Label3.Caption="子序列最大和为："+___________ '(3)
End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-07 09:15:29

答案(点此获取答案解析）

同类题1

产生一个在-10，99中随机整数的VB表达式是

A．int (rnd*100) -10	B．int(rnd*99)-10
C．int(rnd*109)-10	D．int(rnd*110)-10

同类题2

小王所在公司从2019年1月1日起，每工作3天休息2天。为此小王编写程序，用户判断2019年的某一天是上班还是休息。具体功能如下：在文本框Text1和Text2中分别输入月和日，点击“上班还是休息”按钮Cmd1，在标签Label2中输出结果，设计界面及运行界面如下图所示。
（1）鼠标单击按钮Cmd1执行的事件处理过程名是______________ 。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码

Private Sub Cmd1_Click()
Dim mdays As String, days As Integer
Dim i As Integer, m As Integer, d As Integer
m =①_________________ 'm是当前月份信息
d = Val(Text2.Text) 'd是天的信息
mdays = "312831303130313130313031" '2019年各个月份对应的天数
days = 0
For i = 1 To m - 1 ’前几个月份的总天数
days = days +②__________________
Next i
days = days + d
If days Mod 5 = 4 Or ③______________ Then
Label2.Caption = "休息"
Else
Label2.Caption = "上班"
End If
End Sub
（3）若文本框text1中输入的内容是4，文本框Text2中输入的内容为“3”,点按钮后，标签label2中显示的内容是__________。

同类题3

Y为分段函数

求y的值。完成该流程图，在空白处填入_____

A．x mod 2 <> 0

C．x =" 2" * n-1

同类题4

长度分别为a、b、c的三条线段，能够组成三角形的条件是( )

A．a+b>c or a+c>b and b+c >a

B．a+b>c or a+c>b or b+c >a

C．a+b>c and a+c>b and b+c>a

D．a+b>c and a+c>b or b+c>a

同类题5

古希腊人将因子的和等于它本身的数（自身因子除外）称为完全数。例如28的因子是1、2、4、7、14，且1+2+4+7+14＝28，则28是一个完全数。编程求解2，1000内的所有完全数，用VB编写的程序运行界面如图2-1所示。

图2-1
（1）利用计算机解决问题一般可以分哪三个步骤？     ①      、
②      、 ③      。
（2）图2-1中标注A处的对象类型应为标签类对象   ④    （填：对 / 错）。
（3）标注B处 Command1对象属性肯定被修改过的是   ⑤   （填：Caption / Font）
（4）在窗体中，创建标签类（Label1）对象时应选择工具箱中的_____⑥_______(如图2-2，填字母: A / B / C / D)

（5）按此要求编写的程序如下，程序划线处⑦应填入    ⑦   （填：Text1_Change() / Command1_Click()），⑧应填入    ⑧  （填：Dim /Define）。
Private Sub    ⑦
  ⑧  a, b, s As Integer
For a =" 2" To 1000
S = 0
For b =" 1" To a - 1
If a Mod b =" 0" Then s =" s" + b
Next
If a =" s" Then List1.Additem str(a) '输出满足条件的完全数a
Next
End Sub
（6）调试正确，编译生成可执行文件后，想把自己的
成果通过QQ传给同学们使用。发送时应该选择如图2-3
中___⑨_____（填完整文件名）。

相关知识点