单项选择题编写如下程序:Private Sub Command1_Click() Dim m As Integer, n As Integer m=1: n=0 Do While m<20 n=m+n m=3 * m+1 Loop Print m, nEnd Sub程序运行后,单击命令按钮Command1,输出结果为( )。
单项选择题窗体上有1个名称为Command1的命令按钮,事件过程如下:Private Sub Command1_Click() Dim num As Integer, x As Integer num=Val(InputBox( 请输入一个正整数 )) Select Case num Case Is>100 x=x+num Case Is<90 x=num Case Else x=x * num End Select Print x;End Sub运行程序,并在三次单击命令按钮时,分别输入正整数100、90和60,则窗体上显示的内容为( )。