Question

请大家帮忙做几道很简单的VB题目

1、设计一个窗体，运行程序是，单击窗体是窗体的宽度和高度都减少100twip，同时在窗体标题栏上显示窗体的面积。
2、设计一个窗体，窗体的标题为“可移动的窗体”，运行程序是，每次单击窗体使窗体向左移动100twip。
3、编写一个程序，窗体中有一个文本框，要求文本框输入的字符窜的长度必须是6，否则焦点不能离开文本框。

Answer 1

1. form_click 事件
form1.width=form1.width-100
form1.heigh=form1.heigh-100
form1.caption="窗体面积为：" & form1.width*form1.heigh

2. form_Load 事件
form1.caption="可移动窗体"
form_click 事件
form1.left=form1.left-100

3. text_lostfocus 事件
if len(text1.text)<>6 then
text1.setfouce
end if

Answer 2

1.Private Sub Form_Click()
With Me
.Move .Left, .Top, .Width - 100, .Height - 100
.Caption = "(" & .Width & "," & .Height & ")"
End With
End Sub
2.Private Sub Form_Load()
Me.Caption = "可移动的窗体"
End Sub
Private Sub Form_Click()
Me.Left = Me.Left - 100
End Sub
3.Private Sub Text1_LostFocus()
If Len(Text1) <> 6 Then Text1.SetFocus
End Sub