给规模为50的数组a中元素进行赋值，使a1=1，a2=3，a3=5，…，a50=99。

在流程图的空白处应填入 ________    。

程序完善题。该程序要实现的功能是：计算下列分段函数的值。请将程序中方框部分的程序段补充完整。（4分）

Dim x As Single
Dim y As Single
x = Val(InputBox("请输入x的值："))

Print y

求输入的两个自然数的最大公约数。如输入48和36则输出最大公约数为12，为其中的空白处选择合适的选项（    ）。

A．输出 a

B．输出 b

C．输出 r

D．输出 a / b

某VB程序的一个事件过程如下：
Private Sub Commandl_Click()
Dim i As Integer,j As Integer.s As String
Dim a(1 To 5) As Integer
List1.Clear
Randomize
For i="1" To 10
j="Int(Rnd*6)+1"
a(j)=a(j)+1
Next i
For i="1" To 5
s=Str(a(i))
List1.AddItem s
Next i
End Sub
程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是(  )

A．j=Int(Rnd*6)+1	B．a(j)=a(j)+1
C．s=Str(a(i))	D．List1.AddItem s

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，请完善下列程序：
x=0
For i=1 to 10 step ____
If _______________________ then x=x+i
Next i