Question

VB 操作题

新建一个工程文件，在标题为“窗口控件”的窗体Form1上，其高度为1200缇、宽度为2400缇，并设置相应属性使窗体的标题栏左端无控制菜单栏，然后在窗体上添加两个标题分别为“移动”和“放大”的命令按钮Command1和Command2 。如图2-4（a）所示。程序运行时，单击“移动”按钮，窗体移动到屏幕的左上角。单击“放大”按钮，弹出一个输入框，要求用户输入要放大的倍数，如图2-4（b）所示。在输入框中单击“确定”按钮后，将窗体的宽和高放大相应的倍数。
最好附带工程文件

Answer 1

Private Sub Command1_Click()
    Form1.Left = 0
    Form1.Top = 0
End Sub
Private Sub Command2_Click()
    On Error Resume Next
    Dim i
    i = InputBox("请输入放大比例")
    Form1.Height = 1200 * i
    Form1.Width = 2400 * i
End Sub 
Private Sub Form_Load()
    Form1.Height = 1200
    Form1.Width = 2400
End Sub

附件就不用了吧。。。   这个很简单的

追问

追答

ControlBox = False

 这个代码是设置成无控制菜单  可以直接在属性里改