• 2021-04-14
    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, r As Long n = Val(InputBox("请输入一个数:")) r = fun(n) Print r End Sub 程序运行后,单击命令按钮,输入1234,输出结果为:( )
  • 24

    举一反三

    内容

    • 0

      中国大学MOOC: 在窗体上添加一个命令按钮Command1,然后编写如下事件过程:Private Sub Command1_Click() Dim num As Integer num = 1 Do Until num > 6 Print num; num = num + 2.4 LoopEnd Sub程序运行后,单击命令按钮,则窗体上显示的内容是( )。

    • 1

      当运行测试输入6789时,写出下面Python程序的执行结果。num=int(input(“请输入一个整数:”))while(num!=0): print(num%10,end=' ‘ ) num=num//10

    • 2

      当输入是4321时,下面程序的输出结果是______。 num = input("请输入一个整数:") while num != 0: print(num % 10) num = num / 10 A: 4321 B: 4321 C: 1234 D: 1234

    • 3

      在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程Private Sub Command1____Click()Dim num As Integernum = 1Do Until num > 6num = num + 2LoopPrint num;End Sub程序运行后,单击命令按钮,则窗体上显示的内容是:____

    • 4

      下面函数的功能是将一个整数字符串转换为一个整数,例如:”-1234”转换为1234,请填空使程序完整。 int chnum(char *p) { int num=0,k,len,j ; len = strlen(p) ; for ( ; ; p++) { k= ; j=(--len) ; while ( ) k=k*10 ; num = num + k ; } return (num); }