假定有以下函数过程: Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S, i, 1)

admin2010-03-30  27

问题 假定有以下函数过程:    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      Strl = InputBox(“请输入一个字符串”)      Str2=Fun(Str1)      Print Str2    End Sub    程序运行后,单击命令按钮,如果在输入对话框中输入字符串“abcdefg”,则单击“确定”    按钮后在窗体上的输出结果为,

选项 A、abcdefg
B、ABCDEFG
C、gfedcba
D、GFEDCBA

答案8

解析 本题主要考查对函数过程的调用,但关键点在于正确理解s1=UCase(Mid (S,i,1))+s1所表达的字符串相加顺序。当输入“abcde龟”后,首先通过Fori循环语句,逐一将该字符串中的字符按照从右往左的顺序变为大写字母后相加,最终结果为Str2="GFEDCBA",故选择D项。做本题时,很容易选B,应加以注意。
转载请注明原文地址:https://jikaoti.com/ti/duq0FFFM
0

最新回复(0)