搜题请搜索小程序“爱下问搜题”
问题 填空题

成语积累站。    

A．亡羊补牢（含有动物名称的）：                                                                               

B．蒸蒸日上(AABC式)：                                                                                        

C．锲而不舍（表示勤学好问的）：                                                                                        

答案

A   抱头鼠窜   鸡飞狗跳   鸡鸣狗盗   狐假虎威

B   脉脉含情   嗷嗷待哺    步步登高   楚楚可怜

C   不耻下问   聚精会神    孜孜不倦   持之以恒

（答案不唯一）

多项选择题

关于读书养心，以下说法正确的是（）

A、名言警句，富有哲理，可以医心疾；

B、小说散文，平和清逸，可以降肝火；

C、诗词曲赋，节奏通畅，可以舒脾胃；

D、杂文评论，药力猛厚，可以增钙质。
查看答案
填空题

在窗体上画一个命令按钮，然后编写如下程序：
Function fun(ByVal num 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
程序运行后，单击命令按钮，在输入对话框中输入"345"，输出结果为 【10】 。
查看答案