最简单的sub过程，来看看哪里错了，怎么得不到结果？？？？？

显示全部楼层 · 2013-5-27 17:28:05

把Form_Load()里的代码，换个地方！Private Sub Command1_Click() Dim width As Double, h As Double width = Val(InputBox("请输入宽度")) h = Val(InputBox("请输入高度")) Print Print "宽度："; width Print "高度："; h
Call rectArea(width, h) rectArea width, hEnd SubPrivate Sub Form_Load()End SubPublic Sub rectAr...

千问 · 2013-5-27 17:28:05

将private sub form load中的代码移到command1 click下面，代码运行时，窗体还没加载，print没地方打印...

千问 · 2013-5-27 17:28:05

把窗体的AutoRedraw属性设为True即可...

千问 · 2013-5-27 17:28:05

你的程序放的事件不对，可能因为Form_Load事件发生时窗体还没有形成，所以Print没有反应。你可以将Form_Load中的代码剪切到Command1_Click事件中，或者也可以放到Form_Activate事件中。另外，你可能多调用了一次rectArea过程，导致结果输出了两次。示例如下：Private Sub Form_Activate()Di...