给规模为50的数组a中元素进行赋值，使a[1]=1，a[2]=3，a[3]=5，…，a[50]=99。

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

读流程图写结果

运行结果是___________________。

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

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

Print y

下列程序执行后，整型变量n的值为（   ）。
n=0
for i="1" to 100
if i mod 4="0" then
n="n+1"
end if
next i

A．5050

B．25

C．26

D．33

小伟假期同爸爸一起去书店，他选中了七本书，书的总价为175元。小伟爸爸的钱包里有5元8张，10元10张，20元6张，还有一元硬币20个，现在小伟怎么样才能搭配出175元钱买到这七本书,其中,每种货币必须至少要一张（个），请问有几种方法？

Private Sub Command1_click()
Dim x, y, z, m As Integer
Dim c As Integer
c = 0
For x =" 1" To 20
For y =" 1" To 8
For z =" 1" To 10
For m =" 1" To 6
If Then
  
List1.AddItem "第" + Str(c) + "方法:" + Str(x) + Str(y) + Str(z) + Str(m)
End If
Next m
Next z
Next y
Next x
End Sub

运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生"下标越界"错误时所执行的语句是（   ）

Private Sub Command1_Click()
Dim a(0 To 5) As Integer
Dim i As Integer    '①
a(0) = 1   '②
For i =" 1" To 5
a(i) =" 2" * a(i-1) + 1 '③
Next i
Text1.Text = Str(a(i)) '④
End Sub

A．①	B．②
C．③	D．④

写出下列程序的输出结果
Private Sub Command1_Click()
For i =" 1" To 4
If i Mod 3 <> 0 Then s =" s" + (-1) ^ (i + 1) * 1 / i
Next i
MsgBox s*100
End sub
该程序的运行结果是（   ）  

A．-25

B．-75

C．15

D．25

程序运行后，单击Command1命令按钮，变量x=(    )。
Private Sub Command1_Click()
n =" 5"
x =" 1"
For i =" 1" To n
x =" x" * i
Next i
End Sub

A．5

B．15

C．24

D．120

有如下VB程序段
X=0
For i =" 1" to 8 step 2
X=x+i
Next i
该程序段执行后，变量x的值是（   ）

A．9

B．16

C．25

D．36

下面程序的功能是：计算表达式1×2×3×……×10的值，并在文本框Text1中输出表达式的值。为了实现这一功能，则程序中划线处的语句应更正为
（1）  
（2）  
（3）  
Private Sub Command1_Click()
Dim I As Integer, t As Long
t = 0 （1）
For i =" 1" To 10
t =" t" + i（2）
Next i
Text1.caption =" Str(" t )  （3）
End Sub