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 一天 下学期考二级, 希望高手指点一下 谢谢!

只要把第三行的x=val(text1.text)改成x=text1.text就行了

为什么拉 能讲解一下吗 谢谢

和你一样我也是新手，我只是感觉不要，我就试了一下，就出来了

x As String
val后就不是string

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

Val函数：返回包含于字符串内的数字，字符串中是一个适当类型的数值。在它不能识别为数字的第一个字符上，停止读入字符串。

你这句话想做什么？x = Val(Text1.Text)

不知道你想实现什么功能!

我觉得他是想把X的值转换为大写，但是又用VAL来提取数字，这段代码就不问题。是不是可以这样：
dim x as string,y as string,temp as string
x=text1.text
lenx=len(x)
for i= 1 to lenx
temp=mid(x,i,1)
if IsNumeric(temp) then
exit for
else
y=y+Ucase(temp)
end if
next
text2.text=y