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

[主观题]

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

查看答案

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

您可能会需要：

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

安装赏学吧APP，拍照搜题省时又省心！

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

第1题

设有如下通用过程：Public FunctionFun（x Str As String)As StringDimtStr As String，strL As Int

设有如下通用过程： Public FunctionFun(x Str As String)As String DimtStr As String，strL As Integer tStr="" strL=Len(xStr) i=1 DoWhilei＜=strL/2 tStr=tStr&Mid(xStr,i，1)&Mid(xStr,strL-i+1，1)" i=i+1 Loop Fun=tStr End Function 在窗体

A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

点击查看答案

第2题

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

点击查看答案

第3题

（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

点击查看答案

第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 Function f（x As Integer) Dim y As Integer x=20y=2 f=x*yEnd Functio

设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程； Private Sub Command1_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

点击查看答案

第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 f（x As Integer)Dim y As Integerx=20y=2f=x*y End Function

设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x=20 y=2 f=x*y End Function 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_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

点击查看答案

第8题

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

点击查看答案

第9题

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

设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL 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 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则Text1中显示的是______。

A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

点击查看答案