【单选题】设有如下通用过程: Public Function Fun(sStr 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,) i=i+1 Loop Fun=...
【简答题】The Smiths are very busy. Mr. Smith is 60 and he has a lot of jobs. He is a postman, a car driver, a school-bus driver, a boatman, a salesman(售货员), a cook and a milkman. Also he and Margaret have a sh...
【单选题】在窗体上画一个命令按钮Cmd1,然后编写下列代码:Private Sub Cmd1_Click() Dim a1(10) As Integer, a2(10) As Integer n = 3 For i = 1 To 5 a1(i) = i a2(n) = 2 * n + i Next i Print a2(n); a1(n)End Sub程序运行后,单击命令按钮,输出的结果是 ...
【简答题】设有如下通用过程: Private
Function Fun1(s As String) As String Dim st As String For i = 1 To Len(s) st = Chr(Asc(Mid(s, i, 1)) + 1) &
st Next i Fun1 = st End
Function 在窗体上画一个命令按钮 Command1 和两个文本框 Text1 、 Text2...
【单选题】设有如下通用过程: Public Function Fun(xStr AsString)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) ...
【简答题】阅读理解。 The Smiths are from America. Mr. Smith works in a car factory in Shanghai. He is an engineer. H e is a quiet man, and in his spare time he likes going fishing in the park. His wife Helen is a te...