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

搜题

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

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

[主观题]

先在窗体上添加一个命令按纽，然后编写如下程序：Function fun（ByVal nm As Long)As Long Dim k A

先在窗体上添加一个命令按纽，然后编写如下程序： Function fun(ByVal nm As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k*(num Mod 10) num=num\10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数”) n=CLng(n) r=fun(n) Print r End Sub 则在程序运行后，单击命令按纽，在对话框中输入“100”，输出结果是______。

A． 0

B．100

C．200

D．300

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

查看官方参考答案

更多“先在窗体上添加一个命令按纽，然后编写如下程序：Function fun（ByVal nm As Long)As Long Dim k A”相关的问题

第1题

有如下SUB过程： Sub s（x As Single，y As Single)t =xx=t / yY=t Mod y End Sub在窗体上添加一个

有如下SUB过程：

Sub s(x As Single，y As Single)

t =x

x=t / y

Y=t Mod y

End Sub

在窗体上添加一个命令按纽，然后编写如下事件过程：

Private Sub Form_ Click()

Dim a As Single

Dim b As Single

a=5

b=4

s a，b

Print a，b

End Sub

则程序运行后，单击命令按纽，输出的结果为：【】。

点击查看答案

第2题

先在窗体上添加一个命令按钮，然后编写如下程序：Function fun（ByValnum As Long)As LongDim k As

先在窗体上添加一个命令按钮，然后编写如下程序： Function fun(ByValnum As Long)As Long Dim k As Long k=1 num=Abs(nam) Do While num k=k*(num Mod 10) num=num\10 Loop Fun=k End Function PrivateSubCommandl_Click

A．0

B．100

C．200

D．300

点击查看答案

第3题

在窗体上添加如下命令按纽，然后编写如下事件过程：Private Sub Command1_Click（)Dim a（10)As Inte

在窗体上添加如下命令按纽，然后编写如下事件过程： Private Sub Command1_Click() Dim a(10)As Integer Dim p(3)As Integer k= 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i) Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub该过程的运行结果为______。

A．35

B．33

C．31

D．29

点击查看答案

第4题

在窗体上添加一命令按纽，其名为Command1，然后编写代码如下：Private Sub Command1_Click（)Dim arr

在窗体上添加一命令按纽，其名为Command1，然后编写代码如下： Private Sub Command1_Click() Dim arr (5)As Integer Dim arrl (5)As Integer n=3 For i=1 To 5 Arr (i)=i Arrl (n)=2*n+ i Next i Print arrl (n)；arr (n) End Sub 程序的运行结果为：______。

A． 3 11

B．11 3

C．13 3

D．3 13

点击查看答案

第5题

在窗体上添加一个按纽，名为command1，然后编写如下的事件过程：______。Private Sub Command1_Click

在窗体上添加一个按纽，名为command1，然后编写如下的事件过程：______。 Private Sub Command1_Click() For i=1 To 4 x= 4 For j=1 To 3 x= 3 For k=1 To 2 x=x + 5 Next k Next j Next i Print x End Sub

A．13

B．26

C．30

D．40

点击查看答案

第6题

在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（) Sum =0 For i=3

在窗体上添加一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Sum =0

For i=3 T0 7

Sum =i+2

Next i

MsgBox sum+i

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是______。

点击查看答案

第7题

在窗体上添加一个命令按钮（名为Cmd)，然后编写如下事件过程：Private Sub Cmd_Click（) Dim sum,k

在窗体上添加一个命令按钮(名为Cmd)，然后编写如下事件过程：

Private Sub Cmd_Click()

Dim sum,k

For k=1 to 6

sum=30+k

Next k

MsgBox sum+k

End Sub

打开窗体后，单击命令按钮，消息框的输出结果是【】。

点击查看答案

第8题

在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click（

在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click()

A＝75

If A＜60 Then x＝1

If A＜70 Then x＝2

If A＜80 Then x＝3

If A＜90 Then x＝4

MsgBox x

End sub

打开窗体运行后，单击命令按钮，则消息框的输出结果是()。

A．1

B．2

C．3

D．4

点击查看答案

第9题

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click（)Dim a

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As String, c As Integer a=1234: b=Str(a)c=Len(b)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．0

B．5

C．6

D．7

点击查看答案

第10题

在窗体上添加一个命令按钮（名为Command1，然后编写如下事件过程：Private Sub Command1_Click（)Fo

在窗体上添加一个命令按钮(名为Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+6 Next k Next j Next i MsgBox x End Sub 打开窗体后，单击命令按钮，消息框的输出结果是______。

A．7

B． 15

C． 157

D． 538

点击查看答案

账号：尚未登录

登录没有账号？去注册

搜题记录

联系客服

购买搜题卡

考试指南全部 >

湖南成考毕业时能拿学位吗？上海成考大专可以参加公务员考试吗？,，上海成人高考毕业后能分配工作吗？ 24年下半年四川省自学考试报名入口湖南成考学士书能补考吗？三个上海大学专升本高效复习方法,，2024年上海成人高考可以申请学士学位吗？内蒙古农业大学2024年十月自考报名时间湖南成考本科学士书有什么用？ 9月21日提醒！2024年江苏省成人高考免考生缴费时间安排 2025自考4月考试科目一览附全国报名网址入口湖南成人高考学士学位怎么申请

购买搜题卡查看答案

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

请选择支付方式

微信支付

支付宝支付

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

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

搜题卡使用说明

1. 搜题次数扣减规则：

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