下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End SubA．dcbaB．abdcC．abcdD．dabc
下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= "abcd" Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub
A．dcba
B．abdc
C．abcd
D．dabc
相关考题：
下列程序的执行结果为Private Sub Command1_Click（）Dim s1 As String, s2 As Strings1= "abcd"Call Transfer（s1, s2）Print s2End SubPrivate Sub Transfer （ByVal xstr As String, ystr As String）Dim tempstr As Stringi=Len（xstr）Do While i =1tempstr=tempstr + Mid（xstr, i, 1）i=i - 1Loopystr=te mpstrEnd Sub（ ）。A．dcbaB．abdcC．abcdD．dabc
单击窗体时，下列程序的执行结果是Private Sub Invert（ByVal xstr As String, ystr As String）Dim tempstr As StringDim I As IntegerI=Len（xstr）Do While I =1tempstr=tempstr + Mid（xstr, I, 1）I=I - 1Loopystr=tempstrEnd SubPrivate Sub Form_Click（）Dim s1 As String, s2 As Strings1= "abcdef"Invert s1, s2Print s2End Sub（ ）。A．abcdefB．afbecdC．fedcbaD．defabc
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。A．abc和ABCB．abc和abeC．ABC和abcD．ABC和ABC
（35）有下列程序段，单击命令按钮执行程序后，输出结果是 。Option Base 1Private Sub Commandl_Click() Dim x x=Array(23,-5,17,38,-31.46,11,8,5,-4) s1=0 s2=0 For k=1 To 10 If(x(k)0)Then s1=sl+x(k) Else s2=s2+x(k) End If Next k Y=s1/Abs(s2) Print Y End SubA.148 B.40 C.-40 D.3.7
下列程序的执行结果为 Private Sub Command1_Click Dim FirStr As String FirSt="abcdef" Print Pat(FirStr． End Sub Private Function Pat(xStr As String．As String Dim tempStr As String, strLen As Integer tempStr="" strLen=Len(xStr． i=1 Do While i=Len(xStr．-3 tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr End FunctionA.abcdefB.afbecdC.fedcbaD.defabc
对于下面的程序includeincludechar *scmp(char*s1,char*s2){if(strcmp(s1, 对于下面的程序 #include＜stdio.h＞ #include＜string.h＞ char *scmp(char*s1,char*s2) { if(strcmp(s1,s2)＜0)return(s1)； else return(s2); } main() { int i：char string[20]，sb[3][20]； for(i=0；i＜3；i++)gets(str[i])； strcpy(string,scmp(str[0]，str[1]))； strcpy(string,scmp(string,str[21))； printf("%s\n",string)； } 若运行时依次输入abcd、abba和abc三个字符串，则输出结果为______。A．abcdB．abbaC．abcD．abca
设有如下通用过程：Pubfic Function Fun(xStr As String)As StringDim tStr As String，strL As Integertstr=“”strL=Len(xStr)i=1Do While i=strL／2tStr=tStr＆Mid(xStr，i，1)＆Mid(xStr，strL-i+1，1)i=i+1LoopFun=tStrEndFunction在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：Private Sub Commandl_Click()Dim S1 As StringS1=“abcdef”Print UCase(Fun(S1))End Sub程序运行后，单击命令按钮，输出结果是A．ABCDEFB．abedefC．AFBECDD．DEFABC
假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S， i， 1)) +s1 Next i Fun =s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String， Str2 As String Strl = InputBox(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定” 按钮后在窗体上的输出结果为，A．abcdefgB．ABCDEFGC．gfedcbaD．GFEDCBA
下列程序段： String s1=new String("How")； String s2=new String("How")； System.out.println(!(s1==s2)); 的结果为A．falseB．trueC．1D．0
下列程序的执行结果是______。 public class Test9 { public static void main(String[] args) { String s1 = new String("I am a girl"); String s2 = new String("I am a girl"); System.out.println (s1.equal (s2)); } }A．trueB．假C．I amgirlD．都不正确
阅读下面程序 public class OperatorsAndExpressions { void equalsMethodl() { String s1=new String("how are you")； String s2=new String("how are you")； System.out.println(s1==s2)； } public static void main(String args[]) { OperatorsAndExpressions perAndExp=new OperatorsAndExpressions()； //用于复合类型数据的“==”运算符 OperAndExp.equalsMethodl()； } } 程序运行的结果是A． ==B．trueC．falseD．equal
下列代码的执行结果是( )。 public class Test{ public static void main String args[]){ String s1＝new String("welcome")； String s2=new String("welcome")； System．out．println(s1＝=s2)； System．out．println(s1．equals(s2))； } }A．false，falseB．false，trueC．true，trueD．true，false
假定有以下函数过程： Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() DimStrl As String，Str2 As StrA．abcdefgB．ABCDEFGC．gfedcbaD．GFEDCBA
阅读下面程序 public class OperatorsAndExpressions { void equalsMethodl(){ String s1=new String("how are you"); String s2=new String("how are you"); System.out.println(s1==s2); } public static void main(String args[]){ OperatorsAndExpressions perAndExp=new OperatorsAndExpressions(); OperAndExp.equalsMethod1(); } } 程序运行结果是( )。A． ==B．trueC．假D．equal
编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i＞= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form. Click() Dim s1 As String, s2 As String s1= "teacher" sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．rehcaetB．tahreeeC．themeeD．eerthea
下列语句输出结果为( )。 public class test { public static void main(StringArgsl[]) { String s1=new String("How")； String s2=new String("How")； System.out.println(!(s1==s2))； } }A．falseB．trueC．1D．0
下列代码段的执行结果是( )。 public class Test { public static void main(String args[ ]) { String s1= new String("hello"); String s2= new String("hello"); System.out.println(s1==s2); System.out.println(s1.equal(s2)); } }A．true falseB．true trueC．false trueD．false false
下列语句输出结果为( )。public class test{public static void main(String args []){String s1=new String("How");String s2=new String("How");System.out.println(!(s1 ==s2));}A．falseB．trueC．1D．0
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
单击命令按钮时，下列程序代码的执行结果为______。 Private Function PickMid(xStr As String) As String Dim tempStr As String Dim strLen As Integer tempStr=“” strLen=Len(xStr) i=1 Do While i＜=strLen/2 tempStr=tempStr+Mid(xStr，i，1)+Hid(xStr，strLen-i+1，1) i=i + 1 Loop PickMid=tempStr End Function Private Sub Command1_Click() Dim FirstStr As String FirstStr=“abcdef” Print PickMid(FirstStr) End SubA．abcdefB．afbecdC．fedcbaD．defabc
单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2 As String S1="abcdef" Invert S1，S2 Print S2 End SubA．abcdefB．afbecdC．fedcbaD．defabc
下列代码的执行结果是______。 public class ex55 { public static void main(String args[] ) { String s1=new String("hello"); String s2=new String("hello"); System.out.print (s1==s2); System.out.print (","); System.out.println (s1.equals (s2)); } }A．true, falseB．true, trueC．false, trueD．false, false
下列程序的执行结果为 Private Sub Command1_Click() Dim FirStr As String FtrSt="abcdef" Print Pat(FirStr) End Sub Private Function Pat(xStr As String)As String Dim tempStr As String，strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen -i+1,1) i=i+1 Loop Pat=tempStr End FunctionA．abcdefB．afbecdC．fedcbaD．defabc
下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1="abcdef" Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i＞=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End SubA．fedcbaB．abcdefC．afbecdD．defabc
下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr="abcdef" Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr="" strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtionA．abcdefB．afbecdC．fedcbaD．defabc
运行下列程序:Private Sub Command1_Click( )Dim s1 As String * 1Dim s2 As Strings1 = aFor i = Asc(s1) To Asc(s1) + 4s2 = s2 Chr(i)Next iPrint s2End Sub单击Command1命令按钮后，则在窗体上显示的结果是( )。A.aB.abcdeC.aaaaD.s2
下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do While i=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=tempstr End SubA．fedcbaB．abcdefC．afbecdD．defabc