Dim tStr As String, strL As Integer tStr=Tstr& Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1) 1=1+1 op Fun=tStr End Function 在窗体上画一个名称为 Command I的命令按钮。然后编写如下的事件过程 Private Sub Command1 Click() Dim S1 As String Print CAse(Fun(SI) 程序运行后,单击命令按钮,输出结果是() A) ABCDEF B) abcdef C) AFBECD D) DEFABC (32)某人为计算n(<mn<=12)编写了下面的函数过程 Private Function fur Dim p As Long For k=n-l To 2 Step-1 p=p*k End function 在调试时发现该函数过程产生的结果是错误的,程序需要修改。下面的修改方案中有 3种是正确的,错误的方案是() 把p=1改为 B)把Fork=n-lTo2Step-l改为Fork=1Ton-1 C)把Fork=n-lTo2Step-1改为Fork=1Ton D)把Fork=n-lTo2Step-1改为Fork=2Ton (33)假定有以下函数过程 Function Fun(S As String)As String Dim sl As string For Fl To Len(s) sl=LCase(Mid(s, i, 1))+s End Function 在窗体上画一个命令按钮,然后编写如下事件过程 Dim StrI As String, Str2 As String 二级Ⅴ isual basic语言程序设计试卷第6页(共10页)二级 Visual Basic 语言程序设计试卷 第 6 页（共 10 页） Dim tStr As String, strL As Integer tStr="" strL=Len(xStr) i=1 Do While i<=strL/2 tStr=Tstr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1) i=i+1 Loop Fun=tStr End Function 在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click( ) Dim S1 As String S1="abcdef" Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是（ ）。 A）ABCDEF B）abcdef C）AFBECD D）DEFABC （32）某人为计算 n!(0<n<=12)编写了下面的函数过程： Private Function fun(n As Integer) As Long Dim p As Long p=1 For k=n-1 To 2 Step-1 p=p*k Next k fun=p End Function 在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有 3 种是正确的，错误的方案是（ ）。 A）把 p=1 改为 p=n B）把 For k=n-1 To 2 Step-1 改为 For k=1 To n-1 C）把 For k=n-1 To 2 Step-1 改为 For k=1 To n D）把 For k=n-1 To 2 Step-1 改为 For k=2 To n （33）假定有以下函数过程： Function Fun(S As String)As String Dim s1 As String For i=1 To Len(S) s1=LCase(Mid(S, i, 1))+s1 Next i Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Str1 As String, Str2 As String