![](https://static.youtibao.com/asksite/comm/h5/images/m_q_title.png)
如下程序num=7 if not num: print("Hi") else: print("Hello")的输出结果是()。
A.Hello
B.Hi
C.HiHello
D.Hi Hello
![](https://static.youtibao.com/asksite/comm/h5/images/solist_ts.png)
A.Hello
B.Hi
C.HiHello
D.Hi Hello
在窗体上画一个命令按钮,然后编写如下程序: 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",输出结果为【 】。
在窗体上有一个命令按钮,然后编写如下程序: 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”,输出结果为【 】,在输入对 话框中输入“987”输出【 】,在输入对话框中输入“879”,输出结果为【 】。
编写如下通用过程: Sub proc(By Val num As Long,ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim n As Long, r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n,r Print r End Sub 程序运行后,单击命令按钮,在输入对话框中输入345,输出结果是【 】。
已知某数据区DATA的定义如下:
ORG 10H
DATA:DB 158,120,138,21
DB 244,14,143,180
NUM EQU $-DATA
MIN: DS 1
试编写一个程序,找出数据区DATA中的最小数,并将它放到变量MIN中。
求自然数1到n的和的递归定义如下: sum(1)=1 若n=1 sum(n)=sum(n-1)+n; 若n>1 下列定义的方法的功能是用递归的算法完成自然数1到n的累加和,请补充程序。 int sum (int num{ if(num = =1)return1; else return【 】 }
填空补充以下程序。 define【 】 30 { 【 】 ; total=num PRICE; printf("total=%d,num=%d\n",【 】 ); }