Question

帮忙做一下VB的题目！！！！！

（1）窗体的窗口状态WindowState属性有3种，分别是______、最小化和最大化状态。
（2）当程序运行装入窗体时，最先触发的是________事件。
（3）补充下面的程序代码，单击窗体上的命令按钮Command1时，该窗体高度缩小一半，宽度增加一倍。

Private Sub Command1_Click()
Form1.Height = Form1.Height/2
Form1.Width = _______
End Sub

（4）补充下面的程序代码，单击窗体上的命令按钮Command1时，窗体上的文本框对象Text1隐藏，再次单击Commandl，又重新显示。

Private Sub Command1_Click()
Text1.Visible = _______
End Sub

（5）补充下面的程序代码，单击窗体上的命令按钮Command1时，窗体上的标签对象Label1失效。

Private Sub Command1_Click()
Label1.Enabled= _______
End Sub

（6）在程序运行当中，一个窗体得到焦点时，最先触发的是______事件。
（7）在设计阶段，当双击窗体上某个控件时，所打开的窗口是_____。
（8）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在_______处填入适当的内容，将程序补充完整。

Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ ()
Command1.Enabled=True
End Sub

（9）为了改变计时器控件的时间间隔，应该修改该控件的_______属性。
（10）计时器控件能有规律地以一定时间间隔触发_______事件，并执行该事件过程中的程序代码。

Answer 1

（1）窗体的窗口状态WindowState属性有3种，分别是_还原_、最小化和最大化状态。
（2）当程序运行装入窗体时，最先触发的是_Initialition_事件。
（3）补充下面的程序代码，单击窗体上的命令按钮Command1时，该窗体高度缩小一半，宽度增加一倍。

Private Sub Command1_Click()
Form1.Height = Form1.Height/2
Form1.Width = _Form1.Width/2_
End Sub

（4）补充下面的程序代码，单击窗体上的命令按钮Command1时，窗体上的文本框对象Text1隐藏，再次单击Commandl，又重新显示。

Private Sub Command1_Click()
Text1.Visible = _Not Text1.Visible_
End Sub

（5）补充下面的程序代码，单击窗体上的命令按钮Command1时，窗体上的标签对象Label1失效。

Private Sub Command1_Click()
Label1.Enabled= _False_
End Sub

（6）在程序运行当中，一个窗体得到焦点时，最先触发的是_GotFocus_事件。
（7）在设计阶段，当双击窗体上某个控件时，所打开的窗口是_代码窗口_。
（8）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在_______处填入适当的内容，将程序补充完整。

Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_TextChaged ()
Command1.Enabled=True
End Sub

（9）为了改变计时器控件的时间间隔，应该修改该控件的_Interval_属性。
（10）计时器控件能有规律地以一定时间间隔触发_Time_事件，并执行该事件过程中的程序代码。

Answer 2

好久没看VB了 帮不了你

Answer 3

(1）普通
（2）Form_load
（3）Form1.Width * 2
（4）NOT(Text1.Visible)
（5）False
（6）GotFocus
（7）代码窗口
（8）Private Sub Text1_change ()
Command1.Enabled=True
End Sub
（9）interval
（10）timer

Answer 4

1、普通
2、Load
3、Form1.Width*2
4、Not Text1.Visible
5、False
6、MouseMove
7、代码窗口
8、Change
9、Interval
10、Timer

有问题的话自己解决。

Answer 5

（1）正常窗口状态
（2）load事件
（3）Form1.Width*2
（4）false
(5)false
(6)show
（7）代码窗口
（8）题目不清楚
（9)interval
(10)timer

Answer 6

窗体宽度减去（或者加上）控件的宽度就行啦
for
i=Label1.UBound
to
0
step
-1
Load
Label1(i)
next
这不就逆序了吗