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

[主观题]

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

提问人：网友hbcblsw 发布时间：2022-01-07

参考答案

查看官方参考答案

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

您可能会需要：

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

安装简答题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题

（8 ）有如下程序：Private Sub Form_Click （）n=10i=0Doi=i+nn=n-2Loop While n＞2Print iEnd Su

（8 ）有如下程序：

Private Sub Form_Click （）

n=10

i=0

i=i+n

n=n-2

Loop While n＞2

Print i

End Sub

程序运行后，单击窗体，输出结果为【 10 】。

点击查看答案

第3题

下面程序运行的结果为 1 1112 212223 31323334 请在画线处填上适当的内容使程序完整。 Private Su

下面程序运行的结果为

11 12

21 22 23

31 32 33 34

请在画线处填上适当的内容使程序完整。

Private Sub Form_Click()

Call [13]

End Sub

Private Sub Pl6()

End Sub

Private Sub p16()

ForI=1 to 4

Forj=1 to I

a= [14]

Print Tab(j-

点击查看答案

第4题

下列程序的执行结果为______。Private sub Command1_ Click （)a = 100b = 50if a ＜＞ b then a =

下列程序的执行结果为______。Private sub Command1_ Click () a = 100 b = 50 if a ＜＞ b then a = a + b Else b = b -a Print a, bEnd Sub

A．50 50

B．150 50

C．200 200

D．10 10

点击查看答案

第5题

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：Private Su

在窗体中有两个文本框分别为Textl和Text2，一个命令按钮Cmmand1，编写如下两个事件过程：

Private Sub Commandl_Click()

a=Textl．Value+Text2．Value

MsgBox a

End Sub

Private Sub Form_Load()

TextI．Value=“”

Text2．Value=””

End Sub

程序运行时，在文本框Textl中输入78，在文本框Text2中输入87，单击命令按钮，消息框中输出的结果为【】。

点击查看答案

第6题

窗体上有一个按钮和一个列表框，执行下列程序后，输出的结果为Private Sub Command1_Click（)List1.

窗体上有一个按钮和一个列表框，执行下列程序后，输出的结果为 Private Sub Command1_Click() List1.AddItem "Visual" List1.AddItem "Basic" List1.AddItem "Programming", 1 Print list1.List(2) End Sub

A．Visual

B．Basic

C．Programming

D．2

点击查看答案

第7题

窗体上有一个按钮和一个列表框，执行下列程序后的输出结果为【】。Private Sub Command1_Click（)List

窗体上有一个按钮和一个列表框，执行下列程序后的输出结果为【】。

Private Sub Command1_Click()

List1.Addltem"China"

List1.Addltem"USA"

List1.Addltem"Japan"，1

Print List1.List(2)

End Sub

点击查看答案

第8题

下列程序的执行结果为 Private Sub Commandl_Click（) Dim s1 As String ,s2 As String s1

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

点击查看答案

第9题

下列程序运行的结果为（）。执行完该程序后，共循环了（）次。Private Sub Command1_Click（)Dim i

下列程序运行的结果为（）。执行完该程序后，共循环了（）次。

Private Sub Command1_Click()

Dim intsum As Integer

Dim i As Integer

For i = 1 To 17 Step 2

intsum = intsum+i

Next i

Print intsum

End Sub

点击查看答案

第10题

下列程序段的执行结果为______。Private Sub Command1_Click（)n = 0For a = 1 To 20For b = 1 To

下列程序段的执行结果为______。 Private Sub Command1_Click() n = 0 For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a * a + b * b - c * c Then n=n+l End If Next c Next b Next a Print n End Sub

A．9

B．12

C．10

D．11

点击查看答案