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

[主观题]

有如下一个函数过程：Function Fun（a As Integer)Static C b=0:b=b+1:c=c+1 Fun=a+b+cEnd Funct

有如下一个函数过程： Function Fun(a As Integer) Static C b=0:b=b+1:c=c+1 Fun=a+b+c End Function 在窗体上添加一个命令按钮，事件过程如下： Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print Fun(a)； Next End Sub 运行该程序，单击命令按钮，输出结果是

A．4 4 4

B．4 5 6

C．6 7 8

D．4 7 9

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

参考答案

查看官方参考答案

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

您可能会需要：

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

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

更多“有如下一个函数过程：Function Fun（a As In…”相关的问题

第1题

以下函数声明行书写不正确的是：

A、function [m,n] = myfun(a)

B、function [m] =myfun(a)

C、function m= myfun (b,c)

D、function m,n=myfun(b,c)

点击查看答案

第2题

已知一个函数模板定义为

template ＜typename T1．typenaine T2＞

T1 FUN(T2 n){return n*5.0；}

若要求以int型数据7为函数实参调用该模板函数，并返回一个double型数据，则该调用应表示为______。

点击查看答案

第3题

窗体中有一个命令按钮Command1。其Click事件过程如下。

Sub P(b()As Integer)

For i=1 to 4

b(i)=2*i

Next i

End Sub

Private Sub Command1_Click()

Dim a(1 to 4)As Integer

For i=1 to 4

a(i)=i+4

Nexti

P a()

For i=1 to 4

MsgB0x a(i)

Next i

End Suk)

窗体运行后，单击命令按钮，消息框4次输出的结果分别是( )。

A．2 4 6 8 B．5 6 7 8 C．10 12 14 16 D．出错

点击查看答案

第4题

以下程序是计算1 - 1/2 + 1/3 - 1/4 + … + 1/9 - 1/10 的值并输出，请补充完整。

S=0

K=1

T=1

DO WHINE K＜【】

S=S+T/K

K=K+1

T= -T

LOOP

MSGBOX S

点击查看答案

第5题

设3阶方阵A=[ a1,a2,a3],其中(ai=1,2,3)为A的列向量,且|A|=2,则|B|=|[ a1+3a2,a2,a3]|=()。

A.-2

B.0

C.2

D.6

点击查看答案

第6题

设A1、A2、A3表示3个事件，则A1A2+A1A3+A2A3表示(??)．??A...

设A₁、A₂、A₃表示3个事件，则A1A2+A1A3+A2A3表示( )．

A．A₁、A₂、A₃中有一个发生 B．A₁、A₂、A₃至少一个不发生

C．A₁、A₂、A₃不多于一个发生 D．A₁、A₂、A₃中恰有两个发生

点击查看答案

第7题

下列myDecimal函数的功能是字符串s表示的r进制数转变成十进制数。如s=“3a” , r=16，则结果是58。请在_________处填入适当的内容完善程序。 Function myDecimal(ByVal s$, ByVal r%) As Integer Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z" n = Asc(c) - Asc("a") + 10 Case "A" To "Z" n = Asc(c) - Asc("A") + 10 Case Else n = Val(c) End Select myDecimal = _________ Next End Function

A、myDecimal + n * r

B、myDecimal + n * 10

C、myDecimal * 10 + n

D、myDecimal * r + n

E、(myDecimal + n) * r

F、(myDecimal + n) * 10

点击查看答案

第8题

静态变量的作用域和模块级变量的作用域相同。

点击查看答案

第9题

下列Encode函数的功能是对字符串s里的数字字符进行加密，加密方法是增加序数n（数字字符加n后还是在数字字符范围内），如n=3，"Text123789"-->"Text456012"。请在_________处填入适当的内容完善程序。 Function Encode(ByVal s$, ByVal n) As String Dim i%, c$, cvalue% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "0" To "9" cvalue = Val(c) + n If cvalue > 9 Then _________ c = CStr(cvalue) ' CStr()函数将数值转换成数字字符 End Select Encode = Encode & c Next End Function

A、cvalue = 10 - cvalue

B、cvalue = cvalue - 10

C、c = cvalue - 10

D、c = 10 - cvalue

E、cvalue = 10 + cvalue

F、c = 10 + cvalue

点击查看答案