[求助]做不出来了
Private Sub Command1_Click()
Dim x As String, y As String
x = Val(Text1.Text)
Text1.SetFocus
y = UCase(x)
Text2.Text = y
End Sub
Private Sub Form_Load()
Command1.Caption = "处理"
Text1.Text = ""
Text2.Text = ""
End Sub
为什么运行不起啊? 才学vb 一天 下学期考二级, 希望高手指点一下 谢谢!
