网友您好，请在下方输入框内输入要搜索的题目：

搜题

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

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

[主观题]

设有如下通用过程：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

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

查看官方参考答案

更多“设有如下通用过程：Public Function Fun （xStr As String) As StringDim tStr As String，strL As”相关的问题

第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（)As Integer，x As Integer)For i=1 TO 5 x=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_Cliek() Dim arr(5) As Integer，n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr，n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是

A．30

B．25

C．20

D．15

点击查看答案

第7题

设有如下通用过程：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

点击查看答案

第8题

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

设有如下通用过程：

Public Function Fun（xStr As String）

Dim tStr As String, srtL 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）

i=i+1

Loop

Fun=tStr

End Function

在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：

Private Sub Command 1_ Click（）

Dim S1 As String

S1="abcdef"

Text1.Text=UCase（Fun（S1））

End Sub

程序运行后，单击命令按钮，则Text1中显示的是（）。 A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

2024年10月新生自考报名截止时间几号开始注册北京自考报名时间几月份报考自考报名时间一般在几月什么时候报名湖南自考报名时间是每年的几月份怎么报名自考专升本超详细的3个步骤是什么安徽自考报名时间每年什么时候报考自考药学专业报考条件是什么考试科目有哪些国家现在承认自考的学历吗含金量怎么样初中学历怎么报名自考报名条件是什么贵州自考报名时间在每年的几月进行

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次