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

搜题

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

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

[主观题]

如下程序段，要计算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

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

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

更多“如下程序段，要计算s=1+（1+2）+（1+2+3），已知主调程序为： Private Sub Command1_Click（) Dim s%, i% For i = 1 To 3 s = s + s…”相关的问题

第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

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

河南2024年10月自考本科怎样报名缴费流程是什么山东自考报名时间2024下半年具体考试时间安排湖南成考学历可以报考消防工程师吗（2024年湖南成人高考高起点适合哪些人报考？） 2024北京10月自考报名时间及入口湖南函授新生报道注意事项（2024年湖南成人高考注意事项） 2024年10月自考本科报名时间什么时候开始河北2024年10月成人自考怎么报名注册流程是什么湖南成人高考哪些专业在考试时需要加试（报考湖南成人高考医学类专业必须满足什么条件 2024年10月云南自考怎么自己报名最全操作步骤成人高考现场确认用临时身份证可以吗？（湖南成人高考报名流程解析）

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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