这是一个简单的计算器，用vb实现的。PrivateSubCommand1_Click()Timer1.Interval=100EndSubPrivateSubCommand2_Click()Timer1.Interval=0EndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubForm_Load()Label1.Left=Label1.Left+100EndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left+200IfLabel1.Left>Label1