关于Vb编程的一些问题

各位大哥大姐，我是一个高中生，我们现在正在学Vb程序设计，马上就要考试了，老师给了我们一份样题，但是没给我们答案，在这我请各位大姐们帮帮忙，帮我做一下这些题，留下答案。 在下万分感激。。。
请大家仔细仔细再仔细做题，谢谢。这可关乎着我的毕业成绩！

14.计算（10010）2＝（ ）10
15.从程序的结构分析，下段程序是（ ）结构。
If S>1 Then
S=S+1
End if
16.已知变量A＝8，则表达式A>10 Or A<5的返回值为：（ ） （True/False）。
17.设有如下Visual Basic表达式,5*x^2-7*x+2，它的数学表达式为： 。
18.在窗体Form1上创建一个文本框Text1和一个标签Label1,其中Text1的Text属性初始值设置为“好好学习”，然后编写如下两个事件过程。
Private Sub Form_Activate()
Label1.Caption=”信息技术”
End Sub
Private Sub Form_Load()
Label1.Caption=”计算机”
Form1.Caption=”考试”
End Sub
程序运行后，文本框中显示的内容是（ ），标签中显示的内容是（ ） 。
20.编程绘制圆心（2000，2000），半径R分别分100，200，300，400，500的同心圆。
Private Sub Form_Activate()
Dim R as Integer
For R =100 to （ ） Step（ ）
Circle （ ） , （ ）
Next R
End Sub

1.18
2.循环结构
3.false
4. Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long

Private Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Sub calc(ByVal x As String)
Dim result
ExecuteLine "dim x as double"
ExecuteLine "x= " & x
ExecuteLine "clipboard.settext x"
result = Clipboard.GetText
MsgBox x & "=" & result
Set result = Nothing
End Sub

Private Sub Command1_Click()
calc Text1
End Sub

Private Sub Form_Load()
Text1.Text = "5*x^2-7*x+2"
End Sub
5.涉及到载入顺序文本框中显示的内容是（ 好好学习 ），标签中显示的内容是（ 信息技术 ）
6.Private Sub Form_Activate()