按要求设置窗体属性
1、在窗体上建立一个标签Label1。程序代码如下：
Private Sub Form_Click()
     Label1.Caption = "你单击了窗体"
End Sub
Private Sub Form_DblClick()
     Label1.Caption = "你双击了窗体"
End Sub
2、． 在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。
Private Sub Command1_Click()
     Dim x As Single
     x = Val(Text1.Text)
     Text2.Text = 15 * x
3、在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数)，以及一个命令按钮Command1。
Private Sub Command1_Click()
     n = Val(Text1.Text)
     Randomize
     x = Int(1 + n * Rnd)
     Label1.Caption = "第一个随机数" + Str(x)
     x = Int(1 + n * Rnd)
     Label2.Caption = "第二个随机数" + Str(x)
     x = Int(1 + n * Rnd)
     Label3.Caption = "第三个随机数" + Str(x)
End Sub
4、在窗体上建立了四个文本框Text1、Text2、Text3和Text4，以及一个命令按钮Command1(“交换”)和Command2(“合并”)。
Private Sub Command1_Click()           '“交换”
         t = Text1.Text
         Text1.Text = Text2.Text
         Text2.Text = Text3.Text
         Text3.Text = t
End Sub
Private Sub Command2_Click()           '“合并”
         t = Text1.Text + Text2.Text + Text3.Text
         Text4.Text = t
End Sub
..............................................................