按照《招标投标法》的规定，招标文件在编制过程中都应当做到、做好的工作不应包括（)。A．依法编制招标

下列程序的执行结果为()。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1="abcdef" Call Invert(s1,s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr,i,1) i=i-1 Loop ystr=tempstr End Sub

A．fedcba

B．abcdef

C．afbecd

D．defabc

下列程序的执行结果为()。 Private Sub Command1_Click() Dim s1 As String,s2 As String s1="abcdef" Call Invert(s1,s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String,ystr As String) Dim tempstr As String i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr,i,1) i=i-1 Loop ystr=tempstr End Sub

A．fedcba

B．abcdef

C．afbecd

D．defabc

下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub

A．dcba

B．abdc

C．abcd

D．dabc

下列程序运行后，信息框显示的内容是()。

Private Sub Command1_Click()

Dim s1 As String

Dim s2 As Integer

s1 = "Hello-World,2004"

s2 = Len(s1) + InStr(1, s1, "2")

MsgBox s2

End Sub

A.Hello-World

B.2003

C.16

D.29

下列程序的执行结果为

Private Sub Command1_Click（）

Dim s1 As String, s2 As String

s1= "abcd"

Call Transfer（s1, s2）

Print s2

End Sub

Private Sub Transfer （ByVal xstr As String, ystr As String）

Dim tempstr As String

i=Len（xstr）

Do While i >=1

tempstr=tempstr + Mid（xstr, i, 1）

i=i - 1

Loop

ystr=te mpstr

End Sub（）。

A．dcba

B．abdc

C．abcd

D．dabc

运行下列程序：

Private Sub Command1_Click()

Dim s1 As String * 1

Dim s2 As String

s1 = "a"

For i = Asc(s1) To Asc(s1) + 4

s2 = s2 & Chr(i)

Next i

Print s2

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是()。

A.a

B.abcde

C.aaaa

D.s2

下列程序的执行结果为 Private Sub Command1_C1ick() Dim sl As String，s2 AS String s1="abcdef" Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End Sub

A．fedcba

B．abcdef

C．afbecd

D．defabc

下列程序的执行结果为

Private Sub Command1_Click()

Dim FirStr As String

FirSt="abcdef"

Print Pat(FirStr)

End Sub

Private Function Pat(xStr As String) As String

Dim tempStr As String，strLen As Integer

tempStr=""

strLen=Len(xStr)

i=1

Do While i＜=Len(xStr)-3

tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen-i+1,1)

i=i+1

Loop

Pat=tempStr

End Function

A．abcdef

B．afbecd

C．fedcba

D．defabc

下列程序的执行结果为

Private Sub Command1_Click()

Dim FirStr As String

FirSt="abcdef"

Print Pat(FirStr)

End Sub

Private Function Pat(xStr As String) As String

Dim tempStr As String, strLen As Integer

tempStr=""

strLen=Len(xStr)

i=1

Do While i<=Len(xStr) -3

tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen -i+1, 1)

i=i+1

Loop

Pat=tempStr

End Function

A．abcdef

B．afbecd

C．fedcba

D．defabc

有下列程序段，单击命令按钮执行程序后，输出结果为()。 Option Base 1 Private Sub Command1_Click() Dim x x=Array(23，-5，17，38，-31，46，11，8，5，-4) s1=0 s2=0 For k=1 To 10 If(x(k)＞0)Then s1=s1+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End Sub

A．148

B．40

C．-40

D．3.7