题目内容（请给出正确答案）

[主观题]

下列程序的执行结果为Private Sub Command1_Click（)Dim FirStr As StringFirSt="abcdef"Print Pa

下列程序的执行结果为Private Sub Command1_Click() Dim FirStr As String FirSt="abcdef" Print Pat(FirStr)End SubPrivate 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=tempStrEnd Function

A．abcdef

B．afbecd

C．fedcba

D．defabc

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“下列程序的执行结果为Private Sub Command1…”相关的问题

第1题

单击命令按钮之后，下列程序代码的执行结果为______。Private Function P（N As Integer) Static su

单击命令按钮之后，下列程序代码的执行结果为______。 Private Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S： End Sub

A．20

B．30

C．115

D．135

点击查看答案

第2题

执行下列程序: CLEAR DO A RETURN PROCEDURE A PRIVATE S S=5 DO B ？S RETURN PROCEDURE B S=S+1

执行下列程序:

CLEAR

DO A

RETURN

PROCEDURE A

PRIVATE S

S=5

DO B

？S

RETURN

PROCEDURE B

S=S+10

RETURN

程序的运行结果为

A．5

B．10

C．15

D．程序错误,找不到变量

点击查看答案

第3题

下列程序的执行结果为（)。Private Sub Command1_Click（) Dim s1 As String,s2 As String s1="ab

下列程序的执行结果为()。 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 Sub

A．fedcba

B．abcdef

C．afbecd

D．defabc

点击查看答案

第4题

单击命令按钮时，下列程序的执行结果为（)。Private Sub Commandl_Click（)Dimx As Integer，y As Int

单击命令按钮时，下列程序的执行结果为()。 Private Sub Commandl_Click() Dimx As Integer，y As Integer x=50:y=78 CallPPP(x，y) Printx；y End Sub Pubfic Sub PPP(ByValnAsInteger，ByValm As Integer) n=n\10 m=m\10 End Sub

A．08

B．50 78

C．450

D．78 50

点击查看答案

第5题

执行下列程序后，鼠标单击窗体，输出结果为Private Sub Form_Click（)Print "Click"；End SubPrivate

执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print "Click"； End Sub Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Print "Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As single) Print "Up" End Sub

A．DownUpClick

B．ClickDownUp

C．DownClickUp

D．UpDownclick

点击查看答案

第6题

下列程序的执行结果为 Private Sub Command1_Click（)Dim FirStr As StringFirSt=”abcdef，Print P

下列程序的执行结果为 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 Function

A．abcdef

B．aPDecd

C．fedcba

D．defabc

点击查看答案

第7题

执行下列程序后，显示结果为（)。*MAIN.PRGA=3B=4DO AA1？？A,BPROCEDURE AA1PRIVATE BA=5B=ARETURNA．

执行下列程序后，显示结果为()。 *MAIN.PRG A=3 B=4 DO AA1 ？？A,B PROCEDURE AA1 PRIVATE B A=5 B=A RETURN

A．3 4

B．5 4

C．5 5

D．5 3

点击查看答案

第8题

执行下列程序：CLEARDO ARETURNPROCEDURE APRIVATE SS＝5DO B？SRETURNPROCEDURE BS＝S+10RETURN程序

执行下列程序： CLEAR DO A RETURN PROCEDURE A PRIVATE S S＝5 DO B ？S RETURN PROCEDURE B S＝S+10 RETURN 程序的运行结果为

A．5

B．10

C．15

D．程序错误，找不到变量

点击查看答案

第9题

下列程序的执行结果为 PrivateSubCommand1_Click DimFirStrAsString FirSt="abcdef" PrintPat（Fi

下列程序的执行结果为 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 Function

A.abcdef

B.afbecd

C.fedcba

D.defabc

点击查看答案

第10题

单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click（)Dim x As Integer，y As Integ

单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=32 Call Proc(x，y) Print x；yEnd SubPublic Sub Proc(n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10End Sub

A．12 32

B．2 32

C．2 3

D．12 3

点击查看答案