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

[主观题]

如下程序段，要计算s=1+（1+2）+（1+2+3），已知主调程序为： Private Sub Command1_Click（) Dim s%, i% For i = 1 To 3 s = s + sum（i) Next MsgBox （"s=" & s) End Sub 则下列sum函数过程正确的是__________。

A、Function sum%(ByVal n%) Static c% c = c + n sum = c End Function

B、Function sum%(ByVal n%) Dim c% c = c + n sum = c End Function

C、Function sum%(ByVal n%) Public c% c = c + n sum = c End Function

D、Function sum%(ByVal n%) Private c% c = c + n sum = c End Function

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

参考答案

抱歉！暂无答案，正在努力更新中……

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

您可能会需要：

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

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

更多“如下程序段，要计算s=1+（1+2）+（1+2+3），已知主…”相关的问题

第1题

执行下列程序，运行结果是______。 Private Sub Command1_Click() s=0 Dim I As Integer For I=2.1 To 5.7 Step 0.3 s=s+1 Next Print s End Sub

A、13

B、12

C、14

D、死循环

点击查看答案

第2题

下列程序的输出结果为______ Sub Prin() Dim B As String A=1 B=A & Space(4)& A Print A Print Trim(B) End Sub

点击查看答案

第3题

下列程序段的执行结果为（）。 Private Sub Command1_Click() Dim a(1 To 10) As Integer Dim n%, s& For i = 1 To 10 a(i) = i Next i n = 1 s = 1 Do While n < p> s = s * a(n) n = n + 1 Loop Print s End Sub

A、1

B、12

C、120

D、720

点击查看答案

第4题

以下程序段中的loop是一个语句标号 if(score!=-1) { sum=sum+score; i++; goto loop; }

点击查看答案

第5题

下列程序的功能是求计算10的阶乘。请完善程序： Private Sub Cmd1_Click() x = 1 r =1 While x <= 1 10 r="x" x + wend print end sub>

点击查看答案

第6题

运行下列程序：

Private Sub Command1_Click()

s1 = "Basic"

For i = 1 To Len(s1)

t = Mid(s1, i, 1)

s2 = s2 + Chr(Asc(t) + 1)

Next i

Debug.Print s2

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是()。

A.Cbtjd

B.65

C.Basic

D.出错

点击查看答案

第7题

要在多个过程中共享某变量，可以将该变量声明为模块级变量。

点击查看答案

第8题

数制转换的函数定义如下，将100转变成16进制并在Text1中显示结果，正确的调用是____________。 Function Trans(ByVal r%, ByVal n%) As String Dim a% Do While n > 0 a = n Mod r If a > 9 Then Trans = Chr(a + 55) & Trans Else Trans = a & Trans End If n = n \ r Loop End Function

A、Text1.Text = Trans(100, 16)

B、Text1.Text = Trans(16, 100)

C、Trans(Text1.Text,100, 16)

D、Trans(Text1.Text,16, 100)

点击查看答案

第9题

加密的过程是加序数，解码是减序数，下列解码函数的定义正确的是____________。

A、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z","A" To "Z" n = Asc(c) - key If n < Asc("a") Then n = n + 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function

B、Function Decoder(ByVal s$, ByVal key%) As String Dim i%, c$, n% For i = 1 To Len(s) c = Mid(s, i, 1) Select Case c Case "a" To "z","A" To "Z" n = Asc(c) - key If n < Asc("a") or n < Asc("A") Then n = n - 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function

C、Function Decoder(ByVal s$, ByVal key%) As String 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) - key If n < Asc("a") Then n = n - 26 Decoder = Decoder & Chr(n) Case "A" To "Z" n = Asc(c) - key If n < Asc("A") Then n = n - 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function

D、Function Decoder(ByVal s$, ByVal key%) As String 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) - key If n < Asc("a") Then n = n + 26 Decoder = Decoder & Chr(n) Case "A" To "Z" n = Asc(c) - key If n < Asc("A") Then n = n + 26 Decoder = Decoder & Chr(n) Case Else Decoder = Decoder & c End Select Next End Function

点击查看答案