晶体管穿透电流I_CEO是反向饱和电流I<s

下列程序的执行结果为

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

程序执行结果s的值是【 】.

Private Sub Command l-Click ()

I =0

Do

S= I +S

I = I + l

Loop Until I ＞=4

End Sub

下面运行程序后，单击命令按钮，输出的结果是______。

Private Sub Commandl_clck()

Dim a%(1 To 4)，b%(3 To 6)，i%，s1，s2

Fori=1 To 4

a(i)=i

Nexti

For i=3 To 6

b(i)=i

Nexti

s1=YAS(a)

S2=YAS(b)

Printt"s1="；S1"S2="；s2

End Sub

下面程序的输出结果是【 】。

Private Sub Form_Click()

i=0

Do Until 0

i=i+1

if i＞10 then Exit Do

Loop

Print i

End Sub

设有如下程序： Private Sub Form. Click（ ） Dim s As Long，f As Long Dim n As Integer，i As Integer f=1 n=4 For i=1 To n f=f*i s=s+f Next i Print s End Sub 程序运行后，单击窗体，输出结果是（ ）。

A.32

B.33

C.34

D.35

单击窗体时，下列程序的执行结果是

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

Dim tempstr As String

Dim I As Integer

I=Len（xstr）

Do While I >=1

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

I=I - 1

Loop

ystr=tempstr

End Sub

Private Sub Form_Click（）

Dim s1 As String, s2 As String

s1= "abcdef"

Invert s1, s2

Print s2

End Sub（ ）。

A．abcdef

B．afbecd

C．fedcba

D．defabc

（8）下列这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。Private Sub numCount() Dim num As Integer s$="software And hardware" Num=Len(s$) For i=1 unm b$=。 If b$="a"Then x=x+1 Next i Print"x="；xEnd Sub

执行下列的程序，消息框里显示的结果是______。

Pfivate Sub Form_Click()

Dim Str As String

Str＝""

S="Access"

For i＝Len(S) To 1 Step-1

Str＝Str&Mid(S.i,1)

Next I

MsgBox Str

End Sub

在窗体中添加一个名称为Com1的命令按钮，然后编写如下程序：

Private Sub s(ByVal p As Integer)

p=p*2

End Sub

Private Sub Com1_Click()

Dim i As Integer

i=3

Call s(i)

If i＞4 Then i=i^2

End sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。

在窗体中添加—个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() s="ABBACDDCBA" For I=6 To 2 Step -2 x=Mid(s,I,I) y=Left(s,I) z=Right(s,I) z=x & y & z Next I MSgBox z End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果是______。

A．AABAAB

B．ABBABA

C．BABBA

D．BBABBA