vb编程陶陶摘苹果！具体见下↓急！！！

程序很简单的，只是VB输入多个数据有点问题，以下是参考Private Sub Command1_Click()s = InputBox("输入苹果高度")a = Split(s)b = Val(InputBox("陶陶高度"))c = 0For i = 0 To 9 If b + 30 >= Val(a(i)) Then c = c + 1NextPrint cEnd Sub程序运行：输入1输入2：结果