End Sub 程序运行后,单击命令按钮得到的结果是 A.0 B.12 C. Str(z) D.没有显示 (3)假定有以下函数过程: Function Fun(S As String)As String Dim sl As string For i=I To Len(s) sl=UCase(Mid(s, i, 1))+sl End Function 在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click Dim str l As String str2 As String 1= Input Box("请输入一个字符串") str2= Fun(strl) Print str2 End Sub 程序运行后,单击命令按钮,如果在输入对话框中输入字符串“ abcdegf”,单击确定按 钮后程序在窗体上输出结果为 A abcdefg B gfedcba C ABCDEFG D GFEDCBA (4)在在窗体上添加一个命令按钮 Command 1和两个名称分别为 Labell和 Label2的标 签,然后编写如下事件过程 Private X As Integer Private Sub Command1 Click( Call proc(x, y) Label l Caption=X Label2 Caption=y End Sub Sub proc( By Val a As Integer, By Val b As Integer) End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是 A.5和3 B.25和3 C.25和6 D.5和 (5)下列程序输出结果为 Private Sub Command1 Click For i= 1 to 1o Get value i Next i Print Get value(i) End Sub Private Function Get Value( By Val a As Integer) Static s As Integer S=S+a Get value=S End Function A.10B.65 C.66 D. 11 (6)以下程序的运行结果是 Function f(m As Integer )As Integer b=1 Static c As Integer b=b+1 c=c+1 f= m *b*End Sub 程序运行后，单击命令按钮得到的结果是 。 A. 0 B. 12 C. Str(z) D. 没有显示 (3) 假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1)) + s1 Next i Fun = s1 End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = InputBox("请输入一个字符串") str2 = Fun(str1) Print str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdegf”，单击确定按 钮后程序在窗体上输出结果为 。 A. abcdefg B. gfedcba C. ABCDEFG D. GFEDCBA (4) 在在窗体上添加一个命令按钮 Command1 和两个名称分别为 Label1 和 Label2 的标 签，然后编写如下事件过程： Private X As Integer Private Sub Command1_Click() X = 5: y = 3 Call proc(X, y) Label1.Caption = X Label2.Caption = y End Sub Sub proc(ByVal a As Integer, ByVal b As Integer) X = a * a y = b + b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是 。 A. 5 和 3 B. 25 和 3 C. 25 和 6 D. 5 和 6 （5） 下列程序输出结果为 。 Private Sub Command1_Click() For i = 1 To 10 GetValue i Next i Print GetValue(i) End Sub Private Function GetValue(ByVal a As Integer) Static S As Integer S = S + a GetValue = S End Function A. 10 B. 65 C. 66 D. 11 （6）以下程序的运行结果是： 。 Function f(m As Integer) As Integer b = 1 Static c As Integer b = b + 1 c = c + 1 f = m * b * c