a = InputBox()问题

a = InputBox()问题

代码错误很多。
1、a=inputbox()，缺少inputbox函数的必要参数，输入的时候看提示就可以了。
2、变量a是过程级变量，在text1_change()事件完成后，a就没用了。需要把a改成全局变量。
3、inputbox函数返回的是字符串形式，赋值给a后必须转换成integer才能比较。dim ss as ingeter
ss= val(trim(a))
4、if语句语法错误。
if a>=18 then
....
elseif a<18 and a>0 then
....
else
....
end if

不明白你在干什么。
把其它代码全删除，然后粘贴如下代码，从文本框中输入年龄后，点击按钮
Private Sub Text1_Change()
Text1.Text = Val(Text1.Text)
Text1.SelLength = Len(Text1.Text)

End Sub
Private Sub Command1_Click()
If Val(Text1.Text) >= 18 Then
Label1.Caption = "我们得到的信息" & "您已成年"
If Val(Text1.Text) <= 18 And Val(Text1.Text) >= 0 Then
Label1.Caption = "我们得到的信息" & "您还未成年"
Else
MsgBox "您输入错误"
End If
End Sub

把inputbox()改为inputbox("请输入您的年龄")，你必须学会这个输入函数的用法。

'按下面程序，不会出现错误！其他代码均删除！
Option Explicit
Private Sub Command1_Click()
Dim a As Integer
a = Val(InputBox("请输入您的年龄！","提示！",,,))
If a >= 18 Then
Label1.Caption = "我们得到的信息：您已成年！"
ElseIf a < 18 And a > 0 Then
Label1.Caption = "我们得到的信息：您还未成年！"
Else
MsgBox "您输入错误"
End If
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息