题目

有如下VB程序段： Private Sub Command1_Click( )   Dims As String, i As Integer   s=Text1.Text   For i=1 To 8 Step 2       s=ds（s, i）   Next i   Text2.Text=s End Sub Function ds（s As String, m As Integer）As String   Dim n As Integer   n=Len（s）   If m<1 0r m>n Then ds= "位置有误"   If m=1 Then ds=Mid（s, 2, n-1）   If m=n Then ds=Mid（s, 1, n-1）   If m <n Then ds=Mid（s, 1, m-1）+Mid（s, m+1, n-m） End Function 若在文本框Text1中输入“TXHOLLYCLASS”，执行该程序段后，文本框Text2中显示的是（  ） A . THLYLS B . XHLLCLSS C . TXHOLLY D . XOLCLASS 答案：B

查看本题答案和解析