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

[主观题]

设有如下通用过程：Public Function Fun （xStr As String) As StringDim tStr As String，strL As

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

A．ABCDEF

B．abcdef

C．defdef

D．defabc

提问人：网友tlp070501 发布时间：2022-01-06

参考答案

查看官方参考答案

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

您可能会需要：

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

安装简答题APP，拍照搜题省时又省心！

更多“设有如下通用过程：Public Function Fun （…”相关的问题

第1题

设有如下通用过程：Public Sub Fun（a（)，By Val x As Integer)Fori=1 To 5x=x+a（i)NextEnd Sub在窗

设有如下通用过程： Public Sub Fun(a()，By Val x As Integer) Fori=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮，然后编写如下的事件过程： Private Sub Commandl_Chck() Dimart(5)As Variant Fori=1 To 5 arr(i)=i

A．10

B．15

C．25

D．24

点击查看答案

第2题

（31）设有如下通用过程： Public Function Fun（xStr As String)As String Dim tStr As String, st

（31）设有如下通用过程：

Public Function Fun(xStr As String)As String

Dim tStr As String, strL As Integer

tStr=""

strL=Len(xStr)

i=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

程序运行后，单击命令按钮，输出结果是（）。

A）ABCDEF

B）abcdef

C）AFBECD

D）DEFABC

点击查看答案

第3题

设有如下通用过程：Public Function f（x As Integer)Dim y As Integerx = 20y = 2f = x * yEnd Fu

设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．10 5

B．20 5

C．20 40

D．10 40

点击查看答案

第4题

设有如下通用过程：Public Functionf（xAs Integer)DimyAsInteger x = 10： y = 5 f = x * yEndFunc

设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x = 10： y = 5 f = x * y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Static x As Integer x = 2：y = 6 y = f(x) Print x； y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．2 6

B．10 5

C．10 50

D．6 10

点击查看答案

第5题

设有如下通用过程：Public Sub Fun（a（) As Integer, x As Integer)For i=1 To 5x=x+a（i)NextEnd S

设有如下通用过程： Public Sub Fun(a() As Integer, x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As Integer, n As Integer For i=1 To 5 art(i)=i+i Next Fun arr, n Text1. Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的内容是______。

A．30

B．25

C．20

D．15

点击查看答案

第6题

设有如下通用过程：Public Sub Fun（a（)，ByVal x As Integer)For i=1 To 5 x=x+a（i)NextEnd Sub在

设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dim arr(5)As Variant For i=1 To 5 arr(i)= i Next n=10 Call Fun(arr()，n) Text1.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 ______。

A．10

B．15

C．25

D．24

点击查看答案

第7题

设有如下通用过程：Public Function Fun （xStr As String) As StringDim tStr As String，strL As

A．ABCDEF

B．abcdef

C．defdef

D．defabc

点击查看答案

第8题

设有如下通用过程： Public Sub Fun（a（)，ByVal x As Integer) For i=1 To 5 x=x+a（i) Next End S

设有如下通用过程： Public Sub Fun(a()，ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程： Private Sub Command1_Click() Dimsn(5)As Variant For i=1 To 5 arc(i)=i Next n=10 Call Fun(arr()，n) Textl.Text=n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．10

B．15

C．25

D．24

点击查看答案