下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入 7685 ，则输出 5867 ，输入 1000 ，则输出 0001 。请将程序补充完整。 Private Sub Command1_Click() Dim x As Integer x=InputBox(“ 请输入一个正整数 ”) While x>_ _____ Print x Mod 10; x=x\10 Wend Print ____ __ End Sub
举一反三
- 下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请将程序补充完整。PrivateSubCommand1_Click()DimxAsIntegerx=InputBox(“请输入一个正整数”)Whilex>______PrintxMod10;x=x10WendPrint______EndSub
- 执行下列程序，单击命令按钮后，从键盘分别输入4和5，则输出是 。 private sub command1_click() x=inputbox("请输入x的值") y=inputbox("请输入y的值") s=x if x>y then s=y s=s*s print s end sub
- 编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序，输出结果为______
- 写出下列程序的运行结果。 Private Sub Form_Click() Dim x%, y% x = InputBox("请输入一个整数") If x <= 30 And x > 10 Then If x > 20 Then If x < 25 Then y = 10 Else y = 20 End If Else If x > 15 Then y = 30 Else y = 50 End If End If End If Print y End Sub 假设输入18,则运行结果为
- 当输入4时,以下程序的输出结果是. Private Sub Command1_Click() x = Val(InputBox(x)) If x ^ 2 < 15 Then y = 1 / x If x ^ 2 > 15 Then y = x ^ 2 + 1 Print y End Sub