VB程序不知道哪里错了
王谷海拔1400～2000米，总面积约10平方公里。300亩连片高山草坡，草坡中有溶洞、石林、辛夷林、草坡等围绕在宾馆四周，适宜度客休闲慢步60多种中材观赏花卉，使王谷从每年3月至11月都鲜花盛开；景区专辟有50亩山谷草坪，建有原始部落青年设施，供青年开展等游乐活动。Option Explicit
神仙树种植技术视频(神仙树种植技术)
神仙树种植技术视频(神仙树种植技术)
神仙树种植技术视频(神仙树种植技术)
神仙树种植技术视频(神仙树种植技术)
if k>0 then'判断是否有0~7数字
Option Base 1
Private Sub Command1_Click()
Dim mw As String, st As String, i As Integ绵阳科技馆位共设展项148个，以“两弹一星”为主题，核科技为主线，分展区、航空航天展区、卫星与信息展区、与核科技展区、卫星与空间信息技术、科技绵阳板块。一楼主要是展出，火箭，空间站以及卫星。二楼主要展出与核科技。三楼主要是展出绵阳本地的科技文化发展，还有长虹3D电影馆可看3D电影。er
Dim p As String, t() As String, k As Integer
mw = Text1
if mw="" then '判断空值
msgbox "必须填入内容！"
text1.setfoce
For i = 1 To Len(mw)
p = Mid(mw, i, 1)
If p >= "0" And p <= "7" Then
st = st & p
k = k + 1
t(k) = st
st = ""
End If
Next i
For i = 1 To UBound(t)
st = st & Chr(k)
Next i
Text2 = st
else
msgbox "没有0~7的数字！"
End Sub
Private Function convert(p As String) As Integer
For i = Len(p) To 1 Step -1
n = n + Val(Mid(p, i, 1)) 8 ^ k
k = k + 1
Next i
convert = n
End Function
因为你的程序根本就没有执行这句：
导致数组没有被初始化，所以会由此错误。
绵阳十大玩的地方，绵阳旅游景点攻略
李白故里旅游资源丰富，有李白纪念馆、李白故居、海灯武馆、太白碑林、粉竹楼、太白公园、窦圌山、佛爷洞、白龙宫、金光洞、观雾山、养马峡、蒲家沟、青林口红色旅游景区等。据编辑了解，其中青莲镇李白故里、市区李白纪念馆、太白公园、海灯武馆及太白洞等景点是以唐代大诗人、“诗仙”李白的故居为主的人文景观长廊。绵阳景点哪里好玩？北川羌城旅游区、绵阳科技馆、绵阳欢乐世界、九皇山、佛爷洞、百年好合爱情谷、王谷、窦圌山风景区等是绵阳很好玩的地方。其中，北川羌城旅游区由北川遗址区、北川新县城，北川纪念馆、北川羌族民俗博物馆、吉娜羌寨等景点组成。本文编辑为大家盘点绵阳玩的十大旅游景点，希望对大家有所帮助。
1、仙海旅游景区
仙海旅游景区总面积75平方公里，风光绮丽，文化丰富，有三国文化、驿站文化、沉香大仙神话传说、四川民俗文化、水文化等文化资源。有三千多年历史的巴蜀通往中原的古驿道---金牛古道从仙海景区经过，众多文人墨客、达人显贵留下了诗词、楹联、题词、咏唱佳作。有云盖寺、观音寺等数座古老寺庙的文化，沉香仙子化身“神仙树”的文化。有浴佛节放生、川剧座唱、被单戏、皮影戏、马马灯等地方民俗，种类繁多、各具特色。
end if2、北川羌城旅游区
北川羌城旅游区由北川遗址区、北川新县城，北川纪念馆、北川羌族民俗博物馆、吉娜羌寨、维斯特游客中心等景点组成，是一个开放性景区，集纪念缅怀、感恩大爱、禹羌风情和生态休闲于一体，留存有“5·12”特大灾难记忆、传承着羌民族悠久的人文历史与灿烂的民族文化、记载了伟大的抗震精神和无疆大爱文化，能回顾风雨同舟的患难历程、见证浴火重生的北川新貌、领略禹羌文化的独特魅力、欣赏秀美壮丽的旖旎风光。
3、富乐山景区
富乐山景区以高、广、秀、雅著称，是一个以园林建筑见长、融三国遗迹在内、山水结合的自然文化山水景区。现已营造出汉皇园、益州园、绵州碑林、富乐阁、乐园、富乐堂涪城会馆、桃源洞、冷源洞、玄德湖、明镜湖、碧云岩等十大景观区近百处景点和桃园、梅花岭、梨园、月季园、海棠园、竹海、桂花园、松柏林、樱花路、盆景园等十大观赏植物园。
4、九皇山
九皇山距绵阳68公里，春观奇花，夏品绿黛，秋赏红叶，冬恋雪景，景色各异，四季如画；探险独异的绝壁风光，探秘500万年前的川西北大高山溶洞猿王洞；漫步“猿王和仙女”携手走过的情人桥，游历穿越羌族历史长河的尔玛古道，攀登雄伟的西羌碉；冬季滑雪，夏季滑草，同灵猴嬉戏，娱乐竞技其乐融融；更有篝火熊熊，咂酒飘香，西羌风情惹人醉。
5、窦圌山风景区
窦圌山风景区林木苍翠，景色秀丽，有“六绝”称奇——奇峰、铁索飞渡、飞天藏、白皮松、云岩寺和天造滑翔。山中十大旅游区域，二十八个景点，博十幽深。飞天藏具有八百多年历史，举世无双；圌岭铁索飞渡堪称神州一绝；高空滑翔惊险；载人索道安全舒适；桃园景区清雅爽朗；历代长廊223尊圆雕石刻居全国之。
6、李白故里
7、佛爷洞
佛爷洞距市区14公里，以大型溶洞、地河景观、清溪深峡、草地森林、石山石海为景观主调，并有丰富多彩的民间传说赋予景区神奇色彩，是绵阳玩的地方这一。据我了解，景区分为九大游览区：综合服务区、溶洞游览区、西方圣境游览区、兽目峡戏水区、滨河游览区、三生石林游览区、佛文化游览区、樱花游览区、美食休闲区。
8、百年好合爱情谷
9、绵阳科技馆
10、青龙峡漂流
青龙峡漂流动植物种类繁多，水质清澈，风景秀丽，有“小九寨”之称。长生树一般在4-5月份砍伐。剪去茎的1-4节，剪去大枝。把伤口放在通风良好的地方，这样伤口会愈合，不容易腐烂。扦插后在阴凉处生根，尽量少浇水，20天左右生根。漂流河段全长6.5公里，落高达103米，河道两旁高山耸峙、林木繁茂；四面绿荫环绕；沿途有急流险滩，又有漫池碧潭，漂流其间，给人一种有惊无险的轻松的独特感受。青龙峡漂流以其参与度高、体验性强、落大、水量足、船行急而成为绵阳玩的漂流之一。
11、绵阳欢乐世界
绵阳欢乐世界的室外科技乐园设有悬挂过山车、四环过山车、89米摩天轮、50米太空梭、高空飞翔、飓风飞椅等一批有惊无险、悬而不惧的游乐设备，室内科技乐园也设有各种游乐项目，藏羌彝民俗城蕴含丰富的历史文化底蕴，一个以家庭休闲娱乐为核心，集生态休闲、娱乐表演、餐饮购物、民俗体验于一体的大型科技文化娱乐主题公园。是绵阳玩的旅游景点之一。
12、王谷
成都佳多沃农业开发有限公司怎么样？
仙人树养护注意事项成都佳多沃农业开发有限公司是2016Dim i As Integer, k As Integer, n As Integer-11-22注册成立的有限公司(自然人投资或控股)，注册地址位于成都高新区神仙树西路3号1栋2层2号。
ElseIf Len(st) <> 0 Then成都佳多沃农业开发有限公司的统一信用代码/注册号是510100MA62MNJM3J，企业法人王瑜，目前企业处于开业状态。
成都佳多沃农业开发有限公司的经营范围是：农业技术研发及技术推广服务；水果、蔬菜、苗木种植；销售：蔬菜、水果、花卉、化肥、水产品、鲜禽蛋、农副产品（不含粮、油、生丝、蚕茧）、鲜肉。（依法须经批准的项目，经相关部门批准后方可开展经营活动）。
通过
如何培育神仙树及注意事项？
k = convert(t(i))仙人树生长习性
仙人树喜欢温暖湿润的气候，喜欢半多云的生长环境，能我不能忍受强烈的阳光直射。夏季应采取遮荫措施，适宜种植在有机质丰富、排水良好的土壤中。生长季节要保持土壤湿润，每半个月施一次薄肥。适生长温度为15~25，冬季温度应在5以上。
仙人树养殖方法
任贤树生长期间，要保持土壤湿润，勤浇水，休眠期少浇水。冬季要保持12以上的温度，及时洒水、浇水。冬天温度要保持在12以下，少用水。水温应尽可能接近土壤温度。另外，夏天要多喷水，保持湿润。
仙人树浇水
仙人树喜欢潮湿的环境，但修剪神仙树的时候，需要把高高的茎叶剪掉。如果想塑形，可以剃光头。植株上的弱茎叶要全部剪掉，长势好的主茎叶可以保留。不耐涝。所以要适量浇水，不能有积水。它的浇水原则是看干浇透，千万不要干。
种植长生树的土壤可以掺入花园土、煤渣或河沙和有机肥。生长期可以每半个月施一次薄肥，不允许厚肥。
end if仙人树修剪
仙人树扦插繁殖
神仙树秋季可施磷钾肥数次，增加抗寒能力。入冬后避免淋雨，搬到室内保养。进入春天后，要坚持不给它们浇水，等到芽长到黄豆那么大，再开始浇水。
神仙树到底是属于哪个区？填快递单的时候该填武侯区还是高新区？求解~
百年好合爱情谷已有百合品种1500余种，种植百合面积大余5200亩，主要以百合的品种繁多而出名。园区由“风情月意、青梅竹马、爱情小筑、青云花梯、爱情隧道、百合博览园”等主题公园组成，并开发建设有平通河水景带、匡山、百合温室大棚、百合风情街、情定三生广场、一线牵桥、百合户外种植基地等游览项目。神仙树社区属于芳草街街道，邮寄地址填武侯区即可。
ReDim Preserve t(k)芳草街街道办事处位于成都市区南部，由成都高新技术产业开发区代管。辖区东起玉林北路、玉林中路、玉林南路、新光路；西止高新大道；北起一环路南三段，南止成双机场路。面积3.2平方千米，人口10仙人树施肥万余人。辖7个社区。