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

搜题

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

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

[主观题]

（6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：Private Sub Command 1

(6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：

Private Sub Command 1_Click()

Dim p As Integer

p＝m(1）＋m(2)＋m(3）

Print p

End Sub

Private Function m(n As Integer) As Integer

Static s As Integer

For k＝1 To n

s＝s＋1

m=s

End Function

运行程序，单击命令按钮Command 1的输出结果为【6】。

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

查看官方参考答案

更多“（6）在窗体上有1个名称为Command 1的命令按钮，并有如下事件过程和函数过程：Private Sub Command 1”相关的问题

第1题

在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：

Private Sub Commandl Click()

Dim P As Integer

p=m(1)+m(2)+m(3)

Print P

End Sub

Private Function m(n As Integer)As Integer

Static s As Integer

For k=1 To n

s=s+l

m=s

End Function

运行程序，单击命令按钮Commandl后的输出结果为

点击查看答案

第2题

设窗体上有一个名称为Command1的命令按钮，并有以下事件过程： Private Sub Command1_Click() Static b b = Array(2, 4, 6, 8, 10) ...... End Sub 此过程的功能是把数组b中的5个数逆序存放（即排列为10,8,6,4,2）。为实现此功能，省略号处的程序段应该是______

A、For i = 0 To 5-1\2 tmp = b(i) b(i) = b(5-i-1) b(5-i-1) = tmp Next i

B、For i = 0 To 5 tmp = b(i) b(i) = b(5-i-1) b(5-i-1) = tmp Next i

C、For i = 0 To 5\2 tmp = b(i) b(i) = b(5-i-1) b(5-i-1) = tmp Next i

D、For i = 1 To 5\2 tmp = b(i) b(i) = b(5-i-1) b(5-i-1) = tmp Next i

点击查看答案

第3题

1. 窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程： Private Sub Command1_Click() 　　For i＝0 To List1.ListCount－1 　　　　If List1.Selected(i)＝True Then 　　　　　　List2.AddItem Text 　　　　End If 　　Next End Sub 上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是(　　)。 A) 将For循环的终值改为List1.ListCount B) 将List1.Selected(i)＝True 改为List1.List(i).Selected＝True C) 将List2.AddItem Text 改为List2.AddItem List1.List(i) D) 将List2.AddItem Text 改为List2.AddItem List1.ListIndex

A、A

B、B

C、C

D、D

点击查看答案

第4题

1. 窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入"FormList"，然后单击命令按钮，执行如下程序： Private Sub Command1_Click() 　　Text2.Text＝UCase(Mid(Text1.Text， 5， 4)) End Sub 在Text2中显示的是(　　)。 A) form B) list C) FORM D) LIST

A、A

B、B

C、C

D、D

点击查看答案

第5题

1. 有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24…要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下： Private Sub Form_Click() Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer a = 0: b = 1: c = 1 d = a + b + c i = 5 While d <= 1 1000 print d; a="b:" b="c:" c="d" d="a" + i="i" wend end sub 运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是( )。 a．把while> 1000 B．把i = 5改为i = 4 C．把i = i + 1移到While d <= 1000的下面 d．在i="5的上面增加一个语句：Print" a; b;> A、A

B、B

C、C

D、D

点击查看答案

第6题

1. 能够存放组合框的所有项目内容的属性是( 　　)。 A) Caption B) Text C) List D) Selected

A、A

B、B

C、C

D、D

点击查看答案

第7题

1. 现有如下程序： Private Sub Command1_Click() a = 1 For i = 1 To 3 Select Case i Case 1, 3 a = a + 1 Case 2, 4 a = a + 2 End Select Next i MsgBox a End Sub 程序运行后，消息框输出的结果是( )。 A．3 B．4 C．5 D．6

A、A

B、B

C、C

D、D

点击查看答案

第8题

1. 阅读下面的程序段： A = 0 FOR I = 1 TO 3 FOR J = 1 TO I A = A+1 NEXT J Next I 执行上面的程序段后，A的值为( )。 A．3 B．5 C．6 D．9

A、A

B、B

C、C

D、D

点击查看答案

第9题

1. 现有如下程序： Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i Print sum End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是( )。 A．1+1/2+2/3+3/4+4/5 B．1+1/2+1/3+1/4+1/5 C．1/2+2/3+3/4+4/5 D．1/2+1/3+1/4+1/5

A、A

B、B

C、C

D、D

点击查看答案

第10题

1. 在窗体上画一个名为Command 1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim b, k For k = 1 TO 6 b = 23+k Next k MsgBox b+k End Sub 运行程序，单击命令按钮，消息框输出结果是( )。 A．36 B．29 C．41 D．34

A、A

B、B

C、C

D、D

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

小自考报名入口官网 2024年考哪几门科目 2024年自考成人本科需要什么条件考哪几门 2024年初中文凭如何提高学历有哪些方法途径报考成人大专需要中专毕业证吗报名条件有哪些 2024自考专升本报考详细流程图如何报名参加自学考试和成人高考哪个好有哪些不一样 2024年成人自考本科考哪些科目多少分合格 2024年自考本科费用一览表要考多久自考大专毕业可以考教师资格证吗有什么用处 2024年自考专科专业科目一览表广西如何选择

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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