帮帮

Question

单击窗体上的命令按钮Command1时，该窗体高度缩小一半，宽度增加一倍。
代码怎么写

Answer 1

由窗体的属性 .height, .width来控制
如:
Sub cmd_click()
  dim i%,j%
  i=me.height/2:j=2*me.width
  me.height=i
  me.width=j
end sub
这样每次点击按键时，就能如你愿，可能有错，自己调试一下，本机没装VB

Answer 2

单击窗体上的命令按钮Command1时，该窗体高度缩小一半，宽度增加一倍。 
代码怎么写 me.width=me.width*2
me.height=me.height/2