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

admin2010-03-30 35

问题先在窗体上添加一个命令按纽，然后编写如下程序： 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

答案1

解析

转载请注明原文地址:https://kaotiyun.com/show/Gzmp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

对长度为n的线性表进行冒泡排序，最坏情况下需要比较的次数为【】。
Java语言的循环语句包括for语句、do-while语句和【】语句。
下列关于栈的叙述中不正确的是()。
顺序执行以下两个语句的输出结果是【】。
以下不属于数据库系统模型的是()。
下列不属于Java的图形用户界面内容的包是()。
字符串分为两大类，一类是字符串常量，使用【】类的对象表示；另一类是字符串变量，使用StringBuffer类的对象表示。
对于算法的每一步，指令必须是可执行的。算法的()要求算法在有限步骤之后能够达到预期的目的。
给出下列关于一个使用适当的字符间距字体的TextField的表达式，则哪个选项的叙述是对的?(　　)TextFieldt=newTextField("theyaregood",40)；
在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程：PrivateSubCommand1_Click()ForEachTextBoxInTeXt1

随机试题

甲去商店买东西，将自己的电动车放在了路边且没有拔出车钥匙。乙正好经过，骑上电动车正要离开，甲此时回来将乙抓获。乙()。
After20yearsofmarriage,ahusbandmaystillnotunderstandhiswife.Howisitthatsheisneverata【C1】______forwords?Ho
承包人在双方确定设计变更后的14天内，未向工程师提出变更工程价款的报告，(　　)。
客户作为委托合同的另一方,在享受权利时也必须承担的义务不包括()。
对于一些经常重复发生的经济业务，可以根据同类原始凭证编制()。
税务机关针对纳税人的不同情况可以采取不同的税款征收方式。根据税收法律制度的规定，对于账册不健全，但能控制原材料、产量或进销货物的单位，适用的税款征收方式是()。
根据《证券法》的规定，公开发行公司债券筹集的资金，必须用于核准的用途，不得用于弥补亏损和非生产性支出。()
在经典测量理论中，表示测验结果精确程度的指标有()(2011．74)
在20世纪30年代前期、中期，中国共产党内屡次出现严重的“左”倾错误，其原冈有()
ItwasknowntousallthatJohnsonhadbrokenhispromise______hewouldgiveeachofusasmallgift.

最新回复(0)

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

二级VB

NCRE全国计算机二级

对长度为n的线性表进行冒泡排序，最坏情况下需要比较的次数为【】。

Java语言的循环语句包括for语句、do-while语句和【】语句。

下列关于栈的叙述中不正确的是()。

顺序执行以下两个语句的输出结果是【】。

以下不属于数据库系统模型的是()。

下列不属于Java的图形用户界面内容的包是()。

字符串分为两大类，一类是字符串常量，使用【】类的对象表示；另一类是字符串变量，使用StringBuffer类的对象表示。

对于算法的每一步，指令必须是可执行的。算法的()要求算法在有限步骤之后能够达到预期的目的。

给出下列关于一个使用适当的字符间距字体的TextField的表达式，则哪个选项的叙述是对的?( )TextFieldt=newTextField("theyaregood",40)；

在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1(下标从0开始，依次增大)，然后编写如下事件过程：PrivateSubCommand1_Click()ForEachTextBoxInTeXt1

甲去商店买东西，将自己的电动车放在了路边且没有拔出车钥匙。乙正好经过，骑上电动车正要离开，甲此时回来将乙抓获。乙()。

After20yearsofmarriage,ahusbandmaystillnotunderstandhiswife.Howisitthatsheisneverata【C1】______forwords?Ho

承包人在双方确定设计变更后的14天内，未向工程师提出变更工程价款的报告，( )。

客户作为委托合同的另一方,在享受权利时也必须承担的义务不包括()。

对于一些经常重复发生的经济业务，可以根据同类原始凭证编制()。

税务机关针对纳税人的不同情况可以采取不同的税款征收方式。根据税收法律制度的规定，对于账册不健全，但能控制原材料、产量或进销货物的单位，适用的税款征收方式是()。

根据《证券法》的规定，公开发行公司债券筹集的资金，必须用于核准的用途，不得用于弥补亏损和非生产性支出。()

在经典测量理论中，表示测验结果精确程度的指标有()(2011．74)

在20世纪30年代前期、中期，中国共产党内屡次出现严重的“左”倾错误，其原冈有()

ItwasknowntousallthatJohnsonhadbrokenhispromise______hewouldgiveeachofusasmallgift.

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

给出下列关于一个使用适当的字符间距字体的TextField的表达式，则哪个选项的叙述是对的?(　　)TextFieldt=newTextField("theyaregood",40)；

承包人在双方确定设计变更后的14天内，未向工程师提出变更工程价款的报告，(　　)。