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

2007年2月8日，胡 * * 在南非比勒陀利亚大学发表重要演讲时指出，文明多样性是人

类社会的客观现实，是当今世界的基本特征，也是人类进步的重要动力。尊重文明多样

性 ( )

①是国际关系民主化的要求 ②是各国外交政策的必然选择

③符合和平共处五项原则 ④有利于建立公正合理的国际新秩序

A．①②③

B．②③④

C．①③④

D．①②④