目前新聞群組：tw.bbs.comp.lang.basic

220 74389 <2F88FA522A154956B612D3C03FEF5CFC@c2q6600> article
Path: netnews!not-for-mail
From: 臭老頭 <kfd@phonesystem.com.tw>
Newsgroups: tw.bbs.comp.lang.basic
Subject: 字串轉成VB的敘述 
Date: Tue, 12 Feb 2008 10:22:13 +0800
Organization: HISDT 風禹科技驗證有限公司
Lines: 39
Sender: "211.72.168.18" <admin@tlcheng.twbbs.org>
Message-ID: <2F88FA522A154956B612D3C03FEF5CFC@c2q6600>
NNTP-Posting-Host: 59-127-4-39.hinet-ip.hinet.net
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 8bit
X-Trace: netnews.hinet.net 1202782934 16550 59.127.4.39 (12 Feb 2008 02:22:14 GMT)
X-Complaints-To: usenet@HiNetnews.hinet.net
NNTP-Posting-Date: Tue, 12 Feb 2008 02:22:14 +0000 (UTC)
thread-index: AchtHhR0Qe0tT34oQLe3V3NfN/Bpfw==
Thread-Topic: 字串轉成VB的敘述 
X-Newsreader: Microsoft CDO for Windows 2000
Content-Class: urn:content-classes:message
Importance: normal
Priority: normal
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.3790.4133
Xref: netnews tw.bbs.comp.lang.basic:74389

請問  可以把 goto lab1 中的 lab1 改成用變數取代嗎?

例:
  
 private sub
 dim a as integer
 dim b as integer
  
 if a=1 then goto lab1 else goto lab2

 lab1:
     b=a
     exit sub
 lab2:
     b=a=+1  
 end sub

改成:
private sub
 dim a as string
 dim b as integer
 dim c as string
 a="1"
 c="lab"&a 

 goto c

 lab1:
     b=a
     exit sub
 lab2:
     b=a=+1  
 end sub


      
--
ASPNET News Reader http://tlcheng.twbbs.org/News/Reader.aspx 
RSS 2.0 http://tlcheng.twbbs.org/News/rss2.aspx?Action=List&Newsgroup=tw.bbs.comp.lang.basic