Question

VB程序填空题

1. 将数组下标为偶数的元素从小到大排序，其他元素不变。保存项目为“填空3-1”。
Private Sub Button1_Click( ……) HandlesButton1.Click
Dim a() As Integer = {90, 49, 23, 45, 11, 45, 67, 23, 68, 56}
Dim i, j, n, temp As Integer
n = UBound(a)
For i = 0 To n
Label1.Text = Label1.Text &a(i) & vbCrLf
Next i
For i = （1） To (n\ 2 - 1) * 2 （2）
For j = （3） To （4） Step2
If a(i) > a(j) Then
temp = a(i): a(i) = a(j): a(j) = temp
End If
Next j
Next i
For i = 0 To n
Label2.Text = Label2.Text &a(i) & vbCrLf
Next i
End Sub
2 计算给定的10个数中正数之和和负数之和，最后输出这两个和数的绝对值之商。保存项目为“填空3-2”。
Private Sub Button1_Click(……) HandlesButton1.Click
Dim a() As Integer = {23, -5, 23, -45, 11, 8, -3, 38, -31, 15}
Dim s1, s2, i As Integer, x As Single
s1 = 0: s2 = 0
For i = （1） To （2）
Label1.Text = Label1.Text &a(i) & vbCrLf
If （3） Then
s1 = s1 + a(i)
Else
s2 = (4)
End If
Next i
x = s1 / Math.Abs(s2)
Label2.Text = x
End Sub

Answer 1

第一道填空题应该填

（1） 0                    说明：填0是因为数组定义时默认从0开始，也算入了偶数下标

（2）step 2             说明：步长值为2，定位到下一个偶数下标

（3）i+2                  说明：循环变量j从偶数下标i的下一个偶数下标开始比较

（4）(n\ 2 ) * 2        说明：循环变量j的终值为数组的最后一个偶数下标

第二道填空题应该填

（1）0                  说明：填0是因为数组定义时默认从0开始

（2）UBound(a)   说明：求出数组的最大下标值，作为循环结束条件

（3）a(i) > 0         说明：因为变量s1是存储正数和的，所以此处应该填当前数值大于0

（4）s2 + a(i)       说明：计算数组中负数的和

Answer 2

0
step 2
i+2
(n\ 2)*2
0
9
a(i)>0
s2+a(i)