private sub command1＿click（） dim x as integer

x初始值为0，因此走else。 这个运行结果并不是绝对正确的。取决于编译器的设置和运行环境。