VB题目，考试中，高手速回！

别人问的，不会VB,高手帮忙！
谢谢。

1.工资调整程序，大于等于800，增加20%；小于800，大于600，增加15%；小于600,增加10%。在文本框输入工资，在标签框输出。

2.命令按钮为cmda，要求单击按钮时，标签labal上的文字改为test，将焦点改到文本框txta上。

'已经HI你，传给你。
Private Sub cmda_Click()
Label1.Caption = "Text"
TextA.SetFocus
End Sub

Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case Is >= 800: Label1.Caption = Val(Text1.Text) * 1.2
Case Is >= 600: Label1.Caption = Val(Text1.Text) * 1.15
Case else: Label1.Caption = Val(Text1.Text) * 1.1
End Select
End Sub

'或者你新建一个文本文档，把下面的文字复制到里面，另存为 form1.frm
'然后用VB打开就可以看到效果了
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox TextA
Height = 315
Left = 510