在窗体上画1个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim m As Integer, x As Integer Dim flag As Boolean flag=False n=Val(InputBox("请输入任意1个正整数")) Do While Not flag a=2 flag= (7) Do While flag
主观题
在窗体上画1个名称为Command1的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim m As Integer, x As Integer Dim flag As Boolean flag=False n=Val(InputBox("请输入任意1个正整数")) Do While Not flag a=2 flag= (7) Do While flag