试题与答案

在窗体上有一个命令按钮,然后编写如下程序: Function Trans(ByVa

题型:填空题

题目:

在窗体上有一个命令按钮,然后编写如下程序:
Function Trans(ByVal num As Long)As Long
Dim k As Long
k=1
DO While num
k=k*(num Mod 10)
num=num\10
Loop
Trans=k
Print trans
End Function
Private Sub Command1_Click()
Dim m As Long
Dim s As Long
m=InputBox("请输入一个数")
s=Trans(m)
End Sub
程序运行时,单击命令按钮,在输入对话框中输入“789”,输出结果为 [11] ,在输入对话框中输入“987”输出 [12] ,在输入对话框中输入“879”,输出结果为 [13]

答案:

被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0704/bdd90e0fa5893b7c41afa4c8140d8628.html

下面是错误答案,用来干扰机器的。

答案:C

试题推荐
题型:阅读理解与欣赏

现代文阅读。

  ①有一天,我忽然想起,似乎多日不很看见他了,但记得曾见他在后园拾枯竹。我恍然大悟似的,使跑向少有人去的一间堆积杂物的小屋去,推开门,果然就在尘封的什物中发现了他。他向着大方凳,坐在小凳上;便很惊慌地站起来,失了色瑟缩着。大方凳旁靠着一个胡蝶风筝的竹骨,还没有糊上纸,凳上一对做眼睛用的小风轮,正用红纸条装饰着,将要完工了。我在破获秘密的满足中,又很愤怒他的瞒了我的眼睛,这样苦心孤诣地做没出息孩子的玩艺。我即刻伸手折断了胡蝶的一只翅骨,又将风轮掷在地上,踏扁了。论长幼,论力气,他是都敌不过我的,我当然得到完全的胜利,于是傲然走出,留他绝望地站在小屋里。后来他怎样,我不知道,也没有留心。

  ②然而我的惩罚终于轮到了,在我离别得很久以后,我已经是中年。我不幸偶而看了一本外国的讲论儿童的书,才知道游戏是儿童最正当的行为,玩具是儿童的天使。于是二十年来毫不忆及的幼小时候对于精神虐杀的这一幕,忽地在眼前展开,而我的心也仿佛同时变了铅块,很重很重的堕下去了。

  ③但心又竟堕下去而至于断绝,他只是很重很重的堕着堕着。

1、选文出自课文《_________》作者:__________,是我国现代伟大的_________家、___________家、 ___________家,原名:____________。

2、文段第①段交代了记叙的六要素。

 时间:____________________ 地点:____________________ 人物:____________________

 原因:__________________________________________________________________________

 经过:__________________________________________________________________________

 结果:__________________________________________________________________________

3、文段中第②段划线句子中“对于精神虐杀的这一幕”具体指什么?

 答:__________________________________________________________________________

4、文段中第①段加点的“苦心孤诣”的意思是:_____________,文中表现小兄弟对风筝达到了_______________程度,表现了小兄弟_____________________的精神。文段对“我”作了___________描写、 _____________描写,其中“折、掷、踏”三个动词可看出“我”_________________。表现“我”情态的两个动词是:___________、____________________。

5、作者念念不忘不忘这件事,是想表达一种什么感情?

 答:___________________________________________________________________

查看答案
微信公众账号搜索答案