单选题：设有如下通用过程：Public Function Fun(xStr As String)As StringDim tSt

  • 题目分类：VB
  • 题目类型：单选题
  • 查看权限：VIP
题目内容：
设有如下通用过程：
Public Function Fun(xStr As String)As String
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
在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：
Private Sub Command1_Click()
DimSl As String
S1=“abcdef”
Textl.Text=UCase(Fun(S 1))
End Sub
程序运行后，单击命令按钮，则Textl中显示的是（　　） A．ABCDEF
B．abcdef
C．AFBECD
D．DEFABC
参考答案：
答案解析：

已知有下面过程Private Sub Procl(a As Integer,b As String，Optional X

已知有下面过程Private Sub Procl(a As Integer,b As String，Optional X As Boolean)……End Su

分类：VB  题型：单选题
查看答案

有如下函数：Function fun(a As Integer，nAs Integer)As IntegerDim mA

有如下函数：Function fun(a As Integer，nAs Integer)As IntegerDim mAs IntegerWhile a>=na

分类：VB  题型：单选题
查看答案

假定有以下函数过程：Function Fun(S As String)As StringDim sl As String

假定有以下函数过程：Function Fun(S As String)As StringDim sl As StringFor i=l To Len(S)S 1

分类：VB  题型：单选题
查看答案

以下有关数组定义的语句序列中，错误的是（　　）

以下有关数组定义的语句序列中，错误的是（　　）A．Static arrl(3)arrl(1)=100arrl(2)=“Hello”arrl(3)=123.45

分类：VB  题型：单选题
查看答案

有机磷农药一般经皮肤吸收中毒的患者症状出现的时间为（　）。

有机磷农药一般经皮肤吸收中毒的患者症状出现的时间为（　）。A．1~2小时 B．2~3小时 C．2~4小时 D．2~5小时 E．2~6小时

分类：VB  题型：单选题
查看答案