tstr-标签-柠檬试题库

首页计算机公务员驾照关于

tstr

设有如下通用过程：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 在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1＝"abcdef" Print UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，输出结果是( )。

设有如下通用过程：Public Function Fun(xStr As String)As String Dim tStr As String， strL As Integer tStr＝"" strL＝Len(xStr) i＝strL / 2 Do While i<＝strL tStr＝tStr & Mid(xStr， i＋1， 1) i＝i＋1 Loop Fun＝tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click() Dim S1 As String S1＝"ABCDEF" Text1.Text＝LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是( )。

随机标签

急转弯处

线缆

118

规定

network