Max=-10000
For i = 1 To 10
s = 0
For j = i To 10
s = s + a(j)
If s > max Then max = s
Next j
Next i
已知数组a(1)到a(10)的原始数据为6,-6,8,-7,7,2,-2,-1,-2,4.程序执行后,变量max的值为( )
实现上述功能的VB程序如下:
Dim a(1 To 20) As Integer
Dim n As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
‘将输入各队员身高分别存入数组a中,队员个数为n,代码略!
End Sub
Private Sub Command1_Click()
Dim c(1 To 20) As Integer
Dim right As Integer, left As Integer, i As Integer
For i = 1 To n – 1
For j =1 To n-i
If ① Then
t = (j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
‘下列程序段实现数组C的合唱队列
m = (1 + n) \ 2
left = m: right = m
c(m) = a(n)
i = 2
Do While i <= n
If i Mod 2 = 0 Then
right = right + 1
c(right) = a(n-i+1)
Else
②
c(left) = a(n-i+1)
End If
i = i + 1
Loop
s = ③
For i = 2 To n
s = s + "," + Str(c(i))
Next i
Text2.Text = s
End Sub
以上程序段运行时,为了实现上述功能,划线处应填入的代码为:
① ; ②; ③。
①自觉抵制网上不良信息,提高分辨能力
②避免沉溺于网络游戏
③相信网络上的信息都是正确的
④善于利用网络进行学习
下列说法正确的是(多选,填字母:A . 此错误是因为脚本缺少了鼠标事件/B . 此错误是因为gotoAndPlay(“end, 1)中的数字1没有加双引号/C . 脚本gotoAndPlay(“end,1);被添加在第60帧关键帧上/D . 将脚本修改为“on(press)(gotoAndStop(“end”, 1);Play()}”可以实现跳转到“end”场景第1帧并播放)
现要求编写VB程序(运行界面图所示),实现如下功能:在文本框Text1中输入一个三位数整数,单击“求解”按钮Command1,在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下,其中函数max(x)用于求解最大三位数整数,但加框处代码有错,请改正。
① ②
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a = x \ 100
b = (x \ 10) \ 10 ' ①
c = x mod 10
If a < b Then t = a: a = b: b = t
If a < c Then t = a: a = c: c = t
If b < c Then t = c: c = b: b = t
max = c* 100 + b * 10 + a ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub
A. 龙门客栈.avi
B. 东方求败.mpg
C. 世界2017.ppt
D.美人鱼.rm