三极管中Icbo和Iceo随温度升高而（），Ube随温度升高而（）。
第1题：
下列程序的执行结果为
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
第2题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Sum=0 For x=1 To 5 Call subl(x, s) Sum=Sum+s Next x Print Sum End Sub Private Sub subl(y, w) w=1 For i=1 To y w=w*i Next i End Sub 程序运行后。单击命令按钮，则窗体上显示的内容是______。
A．5
B．120
C．153
D．160
第3题：
执行下列的程序，消息框里显示的结果是______。
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
第4题：
设有如下程序： 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
第5题：
（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
第6题：
单击窗体时，下列程序的执行结果是
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
第7题：
程序执行结果s的值是【 】.
Private Sub Command l-Click ()
I =0
Do
S= I +S
I = I + l
Loop Until I ＞=4
End Sub
第8题：
有一过程如下:
Sub Sub1(m As Integer,total As Long)
Dim i As Integer
total=1
For i=1 To m
total=total*i
Next
End Sub
调用它的事件过程如下:
Private Sub Command1_Click()
Dim tot As Long,a As Integer
a=Val(InputBox("请输入数据"))
Call Sub1(a,tot)
Print tot
End Sub
则输入数据5,运行结果为【 】。
第9题：
阅读程序： Sub p( b () As Integer)For i =1To 4 b(i) = 2(iNext i End Sub Private Sub Command1_Click()Dim a (1 To 4) As Integer a(1)=5 a(2)=6 a(3)=7 a(4)=8 call p (a) For i=1 To 4 Print a(i) Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为。
第10题：
在窗体中添加一个名称为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
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。