原程序发上来看看

源程序在此：
DECLARE SUB menu ()主菜单
DECLARE SUB updat ()新建
DECLARE SUB sort ()
DECLARE SUB search ()
DECLARE SUB disfile ()
DECLARE SUB quit ()
DECLARE SUB add ()
DECLARE SUB edit ()
DECLARE SUB delete ()
CALL menu


这个是主菜单程序，我用你说的select case，让用户选择相应的功能
这个程序，可以通过select case运行。
SUB menu
CLS
DIM sel AS INTEGER

LET sel = 0

LOCATE 16, 20
PRINT "Welcome to use Member Management System"


LOCATE 20, 15
PRINT "1.Record Updat"

LOCATE 22, 15
PRINT "2.Record Sort"

LOCATE 24, 15
PRINT "3.Record Search and Display"

LOCATE 26, 15
PRINT "4.Display all Members' details in Master File"

LOCATE 28, 15
PRINT "5.Quit"

LOCATE 32, 15
INPUT "Select what do you want to do,please:(1-5)", sel

SELECT CASE sel

  CASE 1
  CALL updat

  CASE 2
  CALL sort

  CASE 3
  CALL search

  CASE 4
  CALL disfile

  CASE 5
  CALL quit

  CASE ELSE
  LOCATE 35, 31
  COLOR 12
  PRINT "Error! Try again!"
  SLEEP 2
  COLOR 7
  CALL menu

END SELECT

END SUB

这个是新建记录菜单，里面有新建，编辑，删除纪录3各功能，我想通过select case让用户选择，可是不能用，总是出错。
SUB updat
CLS
LOCATE 13, 32
PRINT "Records Updating"

LOCATE 20, 15
PRINT "1.Add a New Member's Details"
LOCATE 22, 15
PRINT "2.Edit an Existing Member's Details"
LOCATE 24, 15
PRINT "3.Delete a Record"

'LOCATE 28, 15
'INPUT "Select what do you want to do,please:(1-3)", sel1$

'SELECT CASE sel1
'  sel1 1
'  CALL add
'  sel1 2
'  CALL edit
'  sel1 3
'  CALL delete
'END SELECT


END SUB

'SELECT CASE sel1
'  sel1 1
'  CALL add
你这里掉了CASE
应该这样

SELECT CASE sel1
    CASE  1
    CALL add
........