有如下程序： Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num

admin2020-07-22 30

问题有如下程序：
Function fun(ByVal num As Integer) As Integer
Dim k As Integer
k = 1
num = Abs(num)
Do While num
k = k * (num Mod 10)
num = num \ 10
Loop
fun = k
End Function
Private Sub Form_Click()
Dim n As Integer
Dim r As Integer
n = InputBox("请输入一个数：")
n = Int(n)
r = fun(n)
Print r
End Sub
程序运行后，单击窗体，在输入对话框中输入246，输出结果为

选项 A、120
B、48
C、24
D、60

答案B

解析程序从对话框中获得n的初值并转换成数字进行计算。Do While…Loop循环对传过来的数值进行处理。Mod为取余函数。代入变量和初值进行计算可得退出循环时k=48。选B）。

转载请注明原文地址:https://jikaoti.com/ti/kcS0FFFM

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

有如下程序： Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num

二级VB

NCRE全国计算机二级

编写如下程序：PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0Printn\10

数据库的数据模型分为()。

在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load()　　Show　　Text1.Text＝""　　Text1.SetFocusEndSubPrivateSubForm_Click()

数据库设计中反映用户对数据要求的模式是(　　)。

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗伪外观如图所示。设有如下的类型和变量声明：PrivateTypePersonnameAsString*8maj

(1)在考生文件夹下有一个工程文件sjt3．vbp，包含2个窗体，名称分别为Forml、Form2。窗体上已有部分控件，请在Forml窗体上再添加1个名称为Textl的文本框，Text属性为空，Enable属性设置为False(如图所示)，输入字符时文本框

设有关键码序列(66，13，51，76，81，26，57，69，23)，要按关键码值递增的次序排序，若采用快速排序法，并以第一个元素为划分的基准，那么第一趟划分后的结果为()。

关于随机文件，以下叙述中错误的是(　　)。

在数据库系统中，给出数据模型在计算机上物理结构表示的是

一个完整的课程变革过程的主要环节包括——、课程采用以及课程实施。()

以精神分析理论为基础的疗法是()

某男，72岁。尿频、排尿困难半年余。曾发生急性尿潴留。经检查确诊为良性前列腺增生。肺、肝、肾功能检查未见异常。最佳的治疗方法是()

不得检出≥5μm的尘粒，对其他洁净级别的厂房相对正压，不得设地漏，不得裸手直接接触药品的是能在最后容器中灭菌的大容量注射液的灌封在

对工程拖期的制约描述错误的是()。

某幕墙分包单位没有按照审批方案搭设外围脚手架，总承包单位安全人员发现后及时予以制止，并要求整改，但分包仍一意孤行拒不改正，最终导致脚手架失稳而发生坍塌事故致两人死亡，则总、分包单位之间对该安全事故()。

以下属于结构性金融衍生品的特点的有:()。

操作系统对磁盘进行读／写操作的物理单位是()。

アテネの勝利を伝えようと走り続けた使者は、伝えたとたん________倒れた。

Thedetailsofmyeducation,workhistory,andpublicationsaregivenintheenclosedresume.Iwouldenjoyanopportunitytome

有如下程序： Function fun(ByVal num As Integer) As Integer Dim k As Integer k = 1 num = Abs(num) Do While num

二级VB

NCRE全国计算机二级

编写如下程序：PrivateSubCommand1_Click()DimnAsLong,sAsStringn=InputBox("输入一个数")DoWhilen0Printn\10

数据库的数据模型分为()。

在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load() Show Text1.Text＝"" Text1.SetFocusEndSubPrivateSubForm_Click()

数据库设计中反映用户对数据要求的模式是( )。

在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗伪外观如图所示。设有如下的类型和变量声明：PrivateTypePersonnameAsString*8maj

(1)在考生文件夹下有一个工程文件sjt3．vbp，包含2个窗体，名称分别为Forml、Form2。窗体上已有部分控件，请在Forml窗体上再添加1个名称为Textl的文本框，Text属性为空，Enable属性设置为False(如图所示)，输入字符时文本框

设有关键码序列(66，13，51，76，81，26，57，69，23)，要按关键码值递增的次序排序，若采用快速排序法，并以第一个元素为划分的基准，那么第一趟划分后的结果为()。

关于随机文件，以下叙述中错误的是( )。

在数据库系统中，给出数据模型在计算机上物理结构表示的是

一个完整的课程变革过程的主要环节包括——、课程采用以及课程实施。()

以精神分析理论为基础的疗法是()

某男，72岁。尿频、排尿困难半年余。曾发生急性尿潴留。经检查确诊为良性前列腺增生。肺、肝、肾功能检查未见异常。最佳的治疗方法是()

不得检出≥5μm的尘粒，对其他洁净级别的厂房相对正压，不得设地漏，不得裸手直接接触药品的是能在最后容器中灭菌的大容量注射液的灌封在

对工程拖期的制约描述错误的是()。

某幕墙分包单位没有按照审批方案搭设外围脚手架，总承包单位安全人员发现后及时予以制止，并要求整改，但分包仍一意孤行拒不改正，最终导致脚手架失稳而发生坍塌事故致两人死亡，则总、分包单位之间对该安全事故()。

以下属于结构性金融衍生品的特点的有:()。

操作系统对磁盘进行读／写操作的物理单位是()。

アテネの勝利を伝えようと走り続けた使者は、伝えたとたん________倒れた。

Thedetailsofmyeducation,workhistory,andpublicationsaregivenintheenclosedresume.Iwouldenjoyanopportunitytome

在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load()　　Show　　Text1.Text＝""　　Text1.SetFocusEndSubPrivateSubForm_Click()　

数据库设计中反映用户对数据要求的模式是(　　)。

关于随机文件，以下叙述中错误的是(　　)。