使用数组作为组合框的数据源编写表单的事件代码：load事件：public a(9,3)a(1,1)="曹植"a(1,2)="三国"a(1,3)="七步诗"+chr(13)+chr(13)+"煮豆燃豆萁,"+chr(13)+"豆在釜中泣:"+chr(13)+"'本是同根生，"+chr(13)+"相煎何太急！'"a(2,1)="李白"a(2,2)="唐代"a(2,3)="望庐山瀑布"+chr(13)+chr(13)+"日照香炉生紫烟,"+chr(13)+"遥看瀑布挂前川。"+chr(13)+"飞流直下三千尺,"+chr(13)+"疑是银河落九天。"a(3,1)="杜甫"a(3,2)="唐代"a(3,3)="绝句"+chr(13)+chr(13)+"两个黄鹂鸣翠柳，"+chr(13)+"一行白鹭上青天。"+chr(13)+"窗含西岭千秋雪，"+chr(13)+"站泊东吴万里船。"a(4,1)="苏轼"a(4,2)="宋代"a(4,3)="题西林壁"+chr(13)+chr(13)+"横看成岭侧成峰，"+chr(13)+"远近高低各不同。"+chr(13)+"不识庐山真面目"+chr(13)+"只缘身在此山中。"a(5,1)="李清照"a(5,2)="宋代"a(5,3)="绝句"+chr(13)+chr(13)+"生当作人杰，"+chr(13)+"死亦为鬼雄。"+chr(13)+"至今思项羽，"+chr(13)+"不肯过江东。"a(6,1)="林升"a(6,2)="林升"a(6,3)="南宋"a(6,2)="题临安邸"+chr(13)+chr(13)+"山外青山楼外楼，"+chr(13)+"西湖歌舞几时休?"+chr(13)+"暖风吹得游人醉"+chr(13)+"直把杭州当汴州。"a(7,1)="马致远"a(7,2)="元代"a(7,3)="天净沙-秋思"+chr(13)+chr(13)+"枯藤老树昏鸦，"+chr(13)+"小桥流水人家，"+chr(13)+"古道西风瘦马。"+chr(13)+"夕阳西下，"+chr(13)+"断肠人在天涯。"a(8,1)="于谦"a(8,2)="明代"a(8,3)="石灰咏"+chr(13)+chr(13)+"千锤万凿出深山，"+chr(13)+"烈火焚烧若等闲。"+chr(13)+"粉身碎骨浑不怕，"+chr(13)+"要留清白在人间。"a(9,1)="郑燮"a(9,2)="清代"a(9,3)="竹石"+chr(13)+chr(13)+"咬定清山不放松，"+chr(13)+"立根原在破岩中"+chr(13)+"千磨万击还坚劲，"+chr(13)+"任尔东南西北风。"active事件thisform.combo1.value=1thisform.text1.value=a(1,2)destroy事件release a编写combo1的interactive事件s=ASCAN(a,this.displayValue)THISFORM.text1.value=a(s+1)thisform.refresh编写check1的属性：thisform.combo1.columncount=iif(this.value=0,1,2)

评论