假定有以下函數(shù)過程：

Function Fun(S As String)As String

Dim sl As String

Fori=1 ToLen(S)

sl=Lease(Mid(S，i，1))+s1

Nexti

Fun=s1

End Function

在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：

Private Sub Commandl Click(、

Dim Str1 As String．Str2 As String

Strl=InputBox(”請(qǐng)輸入一個(gè)字符串”)

Stf2=Fun(Strl)

Print Str2

End Sub

程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中輸入字符串“abcdefg”，則單擊“確定”按鈕后在窗體上的輸出結(jié)果為

A．ABCDEFG

B．a(chǎn)bcdefg

C．GFEDCBA

D．gfedcba

D解析：此題主要考核Mid函數(shù)、LCASE函數(shù)，MID返回文本字符串中從指定位置開始的特定數(shù)目的字符，其格式為：MID(text，start_num，nnm_chars)，Text包含要提取字符的文本字符串。Start_num文本中要提取的第一個(gè)字符的位置。文本中第一個(gè)字符的star_num為1，以此類推。Num—chars指定希望MID從文本中返回字符的個(gè)數(shù)。LCASE函數(shù)則將大寫字母轉(zhuǎn)換成小寫字母。