某算法的流程图如下所示：

依次输入x的值为3、2、1、-1后，该算法的输出结果为（   ）

A．3

B．4

C．5

D．6

让TEXT1中的内容加粗,斜体,加下划线,加删除线,字体用”黑体”,字号20在窗体单击事件过程中完成.
PRIVATE  SUB  ________CLICK(   )
TEXT1.FONTBOLD= _________________ 
________
________
________
________
________ 
END   SUB

为使左、右框内的Visual Basic程序段能实现相同的功能：

右框内划线处的内容可以是( )

A．s<9

B．s<=9

C．t<9

D．t<=9

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是____________________。（2分）
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To 10 Step 2
If n Mod i =" 0" Then
c =" c" * i
Else
c =" c" + i
End If
Next i
Text1.Text = Str(c)
End Sub

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3:Zxxk.Com
If  n  Mod  i =" 0"  Then 
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub