第1题：
单击窗体时，下列程序的执行结果是
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
第2题：
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。
A．abc和ABC
B．abc和abe
C．ABC和abc
D．ABC和ABC
第3题：
在窗体上画一个命令按钮和两上文体，其名称分别为 Command1 、 Text1 和 Text2 ，然后编写如下程序：
Dim S1 As String, S2 As String
Private Sub Form_Load（）
Text1. Text=””
Text2. Text=””
End Sub
Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer）
S2=s2 & Chr（KeyCode）
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
S1=S1 & chr（KeyAscii）
End Sub
Private Sub Command1_Click（）
Text1.Text=S2
Text2.Text=S1
S1=""
S2=""
End Sub
程序运行后，在Text1中输入"abc"，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为（ ）。A．abc 和 ABC
B．abc 和 abc
C．ABC 和 abc
D．ABC 和 ABC
第4题：
下面子过程语句说明合法的是
A．Sub f1(s1 As String*8)
B．Sub f1(n()As Integer)As Integer
C．Function f1(f1 As Integer)As Integer
D．Function f1(By Val n As Integer)
第5题：
以下程序用于求S=1+3+32+33+…+310的值。
Private Sub Commandl_Click()
S=1
T=1
ForI=1 To 10
T=______
S=S+T
NextI
Print"S="；S
End Sub
第6题：
（ 30 ）下面程序的输出结果是
Private Sub Command1_Click()
ch$= ” ABCDEF ”
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
S= ””
For k=Len(ch) To 1 Step-1
s=s&Mid(ch,k,1)
Next k
ch=s
End Sub
A ） ABCDEF
B ） FEDCBA
C ） A
D ） F
第7题：
A、Sub S1(ByVal n!())
B、Sub S1(n!) as Integer
C、 Function S1%(S1%)
D、 Function S1(ByVal n!)
第8题：
下列程序的执行结果为
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
第9题：
设窗体上有一个文本框Text1和一个命令按钮Command1，并有下列事件过程： Private Sub Command1_Click() Dim s As String，Ch As String s="" For k=1 To Len(Text1) ch=Mid(Text1，k，1) s=ch+s Next k Text1.Text=s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A．Basic
B．cisaB
C．BASIC
D．CISAB
第10题：
假定有以下函数过程： Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() DimStrl As String，Str2 As Str
A．abcdefg
B．ABCDEFG
C．gfedcba
D．GFEDCBA