vb

　　DateDiff()　　函数返回两个日期之间的差值 。　　表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])　　允许数据类型: timeinterval 表示相隔时间的类型，代码为：　　“y“表示“年”　　“m“表示“月”　　“d“表示“日”　　“h“表示“时”　　“n“表示“分”　　“s“表示“秒”。　　实例： <%　　fromDate = #9/9/00#　　toDate = #1/1/2000#　　response.write "There are " & _　　DateDiff("d",fromDate,toDate) & _　　" days to millenium from 9/9/00."　　%>　　返回结果: 从9/9/00 到2000年还有 150 天.　　该函数在mssql中可用，在oracle中不可用。

在应用开发中，开发人员经常要进行各种各样的日期处理。如果你需要一种简单的方法来计算出给定两个日期间的天数，不妨考虑使用VB.NET 中的TimeSpan 对象。后，你可以使用Subtract 方法来获得两个日期间的实际天数。关于列表A 的一些说明首先，我们声明一个Date 类型的变量dtStartDate，并赋初值为2007 年一月一日。同时，还声明了其它一些将会用到的变量，包括：TimeSpan 的一个实例tsTimeSpan，整型数iNumberOfDays，字符串型变量strMsgText。设定变量tsTimeSpan 的值为当前日期/时间值与dtStartDate 值得差。为了计算出当前日期/时间（Now）与dtStartDate 之间的天数，我们使用TimeSpan 对象的Days 属性，设定它的值为iNumberOfDays 。然后，创建一个text 对象，其值是将必要文本和strMsgText 变量的值连接在一起，该对象将

dr是doorerror，就是门故障。冰箱显示代码dr是doorerror，就是门故障。因为冷藏室开关门不严导致的。由于冰箱门被开关的次数非常多，这就使得冰箱门封条差不多常常都居于受力状态之下，长时间居于这样的状态，门封条就很容易出现老化、变形等情况，因而使得冰箱门会关不严实。

Sub s1() subs 0 "FalseEnd Sub Sub s2() subs 1 "TrueEnd Sub Columns("C:Y").ClearContents ‘清除C到Y列的内容，保留格式等 m = 10: n = Int(220 / m + 0.5) ‘除以m四舍五入For i = 1 To m Cells(i + 1, 1) = .Text(i, "00") For j = 1 To n s = (i - 1) * n + j W(i, j) = U(s) ‘数组U下标会出错，s最大4百多Next Next

你检查一下，是不是因为modlt里面包含半角的单引号和双引号。如果包含，你要处理一下，否则这里会导致sql不正确。你可以都替换成全角的，看看还有没有错误了。--------------------------------------------------------------------看错了，数据库字段是memo。你先更新完其他字段。你得用rs把数据取出来:rs.Open"select*fromFilenamewheretime=""&Label3.Caption&""",cnn,1,3rs.Fields("llt").AppendChunkmodltrs.Update

八戒快讯。由JDF金典工场联合中美日韩及港台地区音乐剧精英人才，历时三年打造的音乐剧《上海滩》在JDF云峰剧院启动首轮100场演出。这部曾经TVB的名剧如今被搬上了戏剧舞台，这是香港无线电视台(TVB)一次授出《上海滩》舞台剧版权。《上海滩》是香港无线电视台(TVB)于1980年出品的一部电视剧，由招振强、谭锐铭等人执导，周润发、赵雅芝、吕良伟领衔主演，除了“庄文强”与“冯程程”这对男女主角的经典形象，剧中那首同名主题曲即使在如今也是一首脍炙人口的金曲。此后《上海滩》被多次翻拍，而将其搬上音乐剧舞台实属首次。唤起观众回忆主题与原作有别拉开大幕，当年红极一时的背景音乐声起，船笛声响，像是一出告别，带着神秘感引观众入戏。“经典也流行，怀旧也时尚”是音乐剧《上海滩》的基调，在剧中观众可以感受到老上海的情怀，听到老上海的音乐，唤起人们对原剧《上海滩》的回忆。在剧情上，音乐剧《上海滩》与影视版原作有所不同。影视版《上海滩》多数讲的是黑帮情愁，而音乐剧《上海滩》更多地体现了爱，是许文强和冯程程的情侣之爱，丁力和许文强的兄弟之爱，冯敬尧和冯程程父女儿之爱，方艳芸和许文强的知己之爱;原来的《上海滩》说的是仇恨，音乐剧《上海滩》想说的是宽恕，原来的《上海滩》演的是欲望，音乐剧《上海滩》的每一个人物却都会体现牺牲。剧中每一个人物看似是存在于那个年代，但或许都可以是现在社会某个人群的一个缩影。华丽舞美再现大上海风貌将推明星版《上海滩》“经典也流行，怀旧也时尚”是音乐剧《上海滩》的基调。导演原同介绍说，从剧本、音乐、舞美、服装等各个方面，“我们考虑到了欧洲音乐剧的戏剧性和美国百老汇音乐剧的娱乐性，并把文化元素和价值观念融入到剧里面，这样《上海滩》便与上海这座城市融为一体——古典、时尚、国际化。”全息影像、光雕投影和精心设计的灯光让《上海滩》呈现出的电影画面感，众多角色的服装充满了老上海的年代感。在预演期间，音乐剧《上海滩》已有各种各样的评价，《爱情公寓》的总编剧、制片人汪远认为《上海滩》很多场景电影画面感极强，音乐好听、舞蹈好看，让人情感得以释放。上海文化广场的节目总监费元洪认为这是绝对的大制作，超出想象，音乐剧风格鲜明流畅。上海国际艺术节陈强表示是他看过的更好的原创音乐剧。在《上海滩》长成参天大树的过程中，JDF金典工场还将会推出明星版音乐剧《上海滩》，逐步启动全国巡演。

in charge 负责charge 告上法庭

系咩？涐唔觉- -

VisualBasic编程语言1991年，美国微软公司推出了VisualBasic(可简称VB），目前的最新版本是VB2008Beta2(VB9)中文版。Visual意即可视的、可见的，指的是开发像windows操作系统的图形用户界面（GraphicUserInterface,GUI）的方法，它不需要编写大量代码去描述界面元素的外观和位置，只要把预先建立好的对象拖放到屏幕上相应的位置即可。Basic实际上是一个短语的缩写，这个短语就是Beginnersall_purposesymbolicinstructioncode，其中文意思为“初始者通用符号指令代码语言”。VisualBasic有学习版、专业版和企业版三种版本，以满足不同的开发需要。学习版适用于普通学习者及大多数使用VisualBasic开发一般Windows应用程序的人员，但是；专业版适用于计算机专业开发人员，包括了学习版的全部内容功能以及Internet控件开发工具之类的高级特性；企业版除包含专业版全部的内容外，还有自动化构件管理器等工具，使得专业编程人员能够开发功能强大的组骨子里分布式应用程序。VB是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高，且功能强大可以与Windowsr专业开发工具SDK相媲美。在VisualBasic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，以用动态链接库（DLL）、对象的链接与世隔嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高，VisualBasic的功能也越来越强。5.0版以后，VisualBasic推出了中文版，与前个版本相比，其功能有了很大提升。但是，功能再强大，VisualBasic仍然有一个缺点：在没有MSVBVM**.DLL的计算机上必须安装所需的DLL文件。用它可设计操作系统，不过，比较困难。在二十一世纪初，microsoft公司推出VisualStudio2003与VisualBasic之间有了重大变化，VisualStudio为各种编程工具做了一个平台，VisualBasic.NET可在这种平台上运行。相对于传统VB，有很大的不同。VB.Net，首次使用.Net构架进行可视化编程，并且能很好地与COM构架兼容。2005年VisualStudio2005则运用了NET2.0的技术，更加的方便了程序员的工作。可是新的程序对系统配置要求也较高，需要微软.NetFramework2.0以上的.Net构架支持。2007年12月,微软(Microsoft)推出了VisualStudio2008Beta2发生了重大的变化(见附图)在代码输入的时候,可以比VB2005快很多,在非特殊的情况下,VB2008都会自动开启自动完成关键字这个命令而且开始支持最新的.NETFramework3.5Beta2VisualBasicprogramminglanguage1991,theUnitedStateslaunchedtheMicrosoftVisualBasic(maybereferredtoVB),isthelatestversionofthecurrentVB2008Beta2(VB9)Chineseversion.Visualmeaningthevisual,visible,referringtothedevelopmentofoperatingsystemslikewindowsgraphicaluserinterface(GraphicUserInterface,GUI)method,itdoesnotneedtoprepareala

在vb中什么函式可以计算一个数组的下标 Lbound(a)：最小下标 Ubound(a)：最大下标 a是阵列 Ubound(a)-Lbound(a)+1为阵列的长度 vb用自定义函式求一个数组的和 Private Sub Command1_Click() Dim a(10) As Integer For i = 0 To 10 a(i) = i Next Print sum(a) End Sub Function sum(a() As Integer) As Integer Dim i As Integer Dim s As Integer s = 0 For i = LBound(a) To UBound(a) s = s + a(i) Next sum = s End Function vb怎么计算一个数组元素的和 Private Function Qsum(ByRef a() As Integer) As Double Dim n As Double n = 0 For i = LBound(a) To UBound(a) n = n + a(i) Next i Qsum = nEnd Function C语言中计算一个数组中某个值出现次数的函式? 个人觉得还是需要遍历吧，除非你先把该阵列排序，那样的话统计起来就不需要遍历整个阵列了，对于一个无规则的阵列，我想不遍历是不可能统计出来的吧。其实像这类问题，单个的计算而已的话，就没什么好担心了，主要是函式呼叫的话才会比较耽误时间，是程式炮得慢，对于这样的情况，一般可以先对其归类分组，再去统计，也就是说先对它处理好，把结果储存起来，呼叫的时候直接呼叫储存的资料而不用每次都重新去统计。设计函式，统计一个数组中下标和阵列元素值都是偶数的元素个数 #include<stdio.h> int main() {int n,i,s=0,a[100]; printf("资料个数："); scanf("%d",&n); for(i=0;i<n;i++) {scanf(("%d",&a[i]); if(a[i]%2==0)s+=a[i]; } printf("其中所有偶数的和=%d ",s); return 0; } VB函式中,如何返回一个数组 函式定义时返回型别后面加个括号，跟阵列的定义类似 PS:用你的问题百度一下就有现成的答案，以后不要这么懒 Excel中sum函式中镶嵌vlookup函式，计算阵列时，为什么只显示第一个阵列的值，而不显示求和的值。 vlookup函式返回的不是阵列型结果, 所以就算是用了阵列公式,也只能返回第一个运算结果. Excel 一个数组的最大下标可以定义为多少 查询，排序。这是演算法问题，这个max函式只是简单比较两个数的大小，不能达到你说的那种效果 asp初始化一个数组的函式是什么 q 微控制器中如何打到一个数组的下标？ unsigned char code Valcode[18] = {0x30,0x31,0x32,0x33,0x34,0x35,0x36,0x37,0x38,0x39,0x50,0x52,0x45,0x43,0x48,0x49,0x4E}; int GetVal(unsigned int vals) { unsigned char n; for(n=0;n<18;n++); { if ( Valcode[n] - vals == 0 ) { return n; } } return 19; }

因为在你打开的word文档中没有那么多的table，请检查一下k值，或者文档中的table没有cell（1，1），请检查一下word文档。

你文本是在哪个控件里或其它位置？

小白。。请按下【文件】- 【生成*******】然后保存即可

尊敬的迅雷用户，您好：建议您可以到迅雷方舟里面搜索下是否有该影片，迅雷方舟：yun.xunlei.com ；如果迅雷方舟没有,建议您可以登录http://kuai.xunlei.com/upload 查看是否有相关资源更多疑问，欢迎您向迅雷网络平台提问。

这个?http://tieba.baidu.com/f?kz=706680806

BOSS_[TVBT]BOSS_EP_03_ChineseSubbed高清完整版下载地址:麻烦选为满意答案，谢谢!

等它开放注册的时候去就可以了

you wander off too far 如果你在远方彷徨不定My love will get you home 我的爱会带你回家If you follow the wrong star 如果你追随错误的星星My love will get you home 我的爱会带你回家If you ever find yourself 如果你曾经发现你自己迷失了Lost and all alone 总感到孤独Get back on your feet and think of me 回头吧,心中有我My love will get you home Boy 我的爱会带你回家，孩子My love will get you home我的爱会带你回家If the bright lights blinds your eyes 如果明亮的光蒙蔽你眼睛My love will get you home 我的爱会带你回家If your troubles break your stride 如果你路途中遇到困难My love will get you home 我的爱会带你回家If you ever find yourself 如果你曾经发现你自己迷失了Lost and all alone 总感到孤独Get back on your feet and think of me 回头吧,心中有我My love will get you home Boy 我的爱会带你回家，孩子My love will get you home 我的爱会带你回家If you ever feel ashame 如果你曾感到羞愧My love will get you home 我的爱会带你回家when its only you to blame 如果只是责备My love will get you home 我的爱会带你回家If you ever find yourself 如果你曾经发现你自己迷失了Lost and all alone 总感到孤独Get back on your feet and think of me 回头吧,心中有我My love will get you home Boy 我的爱会带你回家，孩子My love will get you home 我的爱会带你回家If you ever find yourself 如果你曾经发现你自已迷失了Lost and all alone 总感到孤独Get back on your feet and think of me 回头吧,心中有我My love will get you home Boy 我的爱会带你回家，孩子My love will get you home Boy 我的爱会带你回家，孩子My love will get you home 我的爱会带你回家

不

开放注册时间是2008.1.30~2008.2.10具体时段是：2008.1.30~2008.2.5 每天上午8：00~晚10：002008.2.6~2008.2.10 每天时间不定，随机

日剧《野猪大改造》

新地址:http://www.mytvbt.com

《少年四大名捕》（林峰），《秀才爱上兵》《天机算》

这是《旋爱》的，自己选一个http://119.147.41.16/down?cid=327C090AFE4B781C940E07B6E75478FBD6059E71&t=13&fmt=&usrinput=爱情洗牌&dt=1000008&ps=512_384&rt=63736kbs&plt=279&spd=0http://119.147.41.16/down?cid=1032232168&t=14&fmt=&usrinput=爱情洗牌&dt=0&ps=1024_576&rt=12352kbs&plt=3604&spd=0http://119.147.41.16/down?cid=458143191&t=14&fmt=&usrinput=爱情洗牌&dt=0&ps=0_0&rt=0kbs&plt=0&spd=9《Mr.Brain》的，自己选一个：http://119.147.41.16/down?cid=43D07CBF305B41819EDA0A321FD2E75A1D285722&t=13&fmt=&usrinput=Mr.Brain&dt=1000021&ps=704_396&rt=5424kbs&plt=3014&spd=2http://119.147.41.16/down?cid=508598109&t=14&fmt=&usrinput=Mr.Brain&dt=0&ps=704_396&rt=3072kbs&plt=5294&spd=0

《世界奇妙物语》（日语：世にも奇妙な物语，香港译作《奇幻世纪》），是富士电视台制作的电视剧、电影，紧接着深夜节目《奇怪的事件》（奇妙な出来事），在更改了节目名称后播放。《世界奇妙物语特别编》在2000年11月3日电影化。

日剧《金牌女王》

给管理组发申请信息或在日菁的官方微博发申请注册的私信。希望楼主能注册成功

额。。。麻辣的日剧下载有浏览有限制了？貌似一直不登陆也可以下载啊不用注册的就可以满足你的要求【公告】2011冬季开放注册通知作者: 小弟以下几点请大家看清楚了，免得注册之后什么都不知道的闹得大家不愉快时间：01.25、02.04、03.14，全天不定时注意事项：1、注册之后都是等待验证会员，请在注册的第一时间去“个人自荐区”发贴，具体发贴格式和转正要求参见该区的置顶公告，没及时发贴的，即使几日后达到转正要求再发贴，斑竹也不会处理你的转正申请，请大家遵守规则2、注册后请熟读各区公告之后再发贴，注册不易，不要因为不看规则被扣分，搞得斑竹和你都不高兴3、当你成为正式会员后，某些问题自然会有答案，请不要在论坛到处发贴询问4、现在网络什么环境大家都清楚，暂时的平静不代表一直的安稳，我们只能在我们能力的范围内求得论坛的保全，不认同不喜欢的请绕道最后，欢迎每位加入我们的朋友

SP啦，时不时来一回。一开始以为是恐怖片，后来发现都还蛮有意思的。不建议全看，全看也没多大意思。

我们从没发生过这样的事LZ是不是做了什么不该做的事或者不该说的话

ANN CON```TVBT的`恩```TVBT这些有版权保护着`几乎都没啥外泄`而且都是歌.或者买台版的可能有字幕吧.TVBT的字幕真的很难找或者你可以找哪位亲有TVBT的用户名.之后叫他们传你吧~本人是没有的````||||GOOD LUCK FOR U`------------------------------我也是今年开始的``~~彼此彼此``

俺可以给你上面所有的下载地址不过不是你要的网盘那东西太麻烦我下了用QQ传中转站，不如你自己去下有字幕可用迅雷QQ旋风也可每个资源保证亲测可下，不会是废源，如果能接受，回邮俺funvzi@vip.qq.com

女王的教室

是啊，我也一样．而且除了发布区，其他的都变成秘密论坛了，以前转贴区还可以进，现在也只有会员才能进．我看真的变成”秘密俱乐部”了．只有会员才能享用．还有TVBT网站也在8月13日，发布了说明：”8月以来论坛难进以及暂时关闭游客浏览说明”具体的你自己去看吧．如果这一点开这一条都很难进入的话，还是等几天吧！一定会恢复游客浏览的．因为我也是TVBT的忠实拥护者．

cfffccc

现在可以上了，可我注册的会员还是在审核状态！！！！

用流星呀 什么都可以呢

日尚影音馆有日菁字幕组的。。看能不能注册进去了

没有等级制度只是要去底下友情链接里面找一个叫菊花台的坛子其实都隐藏在那边了但是你进去也什么都看不到，因为要“寻宝”。。。具体你可以去TVBT的寻宝区，里面有详细教程http://www.mytvbt.com/thread-107548-1-1.html大致就是先用tvbt的号登陆菊花台，然后按激活接着回到TVBT进入用户控制点右侧积分页面要吧金钱转换成海外论坛币，2000个海外论坛币=1个金钱，金钱可以用其他的辣椒什么的换然后在去菊花台的个人中心点用户组，再用刚刚换的钱买你在论坛的逗留时间我说的还是比较不详细，姑娘你还是自己去麻辣看看吧多留心一下其实还是很好找到的

这个是天海佑希、幸田未来主演的《女王的教室》。该剧是一个以儿童的角度，去描述像女王一般的支配着整个班级的女教师阿久津真矢与半崎小学6年级3班的学生神田和美等人一年间的“战斗”的故事。这是一部相当经典的好剧，强烈推荐。

TBS是日本电视台的logo..

因为广菊封杀...

日菁字幕组～www.mytvbt.com这是他们的论坛，叫麻辣论坛

TVBT是麻辣论坛的logo 该论坛的日菁字幕组翻译的日剧都加上了该标志

可能是TV,BT两个图标吧，TV是电视，模拟电视，BT是蓝牙，Bluetooth简写

同上

SGP与pvb的性能差异主要体现在以下几个方面：粘接度，穿透度，透明度。这3个方面SGP都要比普通的PVB好很多。具体的参数说不上来，但是我做过实验......的确好恨多。SGP的胶片用锋利的刀片都很难划破，而普通的很容易就划破了。粘接度也很强,透明度也好。

【PVB、SGP、EVA、PU中间膜的特点】夹层玻璃由于其安全高越来越受到重视。在建筑玻璃领域EVA、PVB、SGP争奇斗艳，EVAEVA全名为乙烯-醋酸乙烯共聚物。耐水性，耐腐蚀性，被广泛应用于发泡鞋料、功能性棚膜、包装膜、热熔胶、电线电缆及玩具等领域，在我国EVA主要用来做鞋底材料。作为夹层玻璃使用的EVA膜，相对于PVB或SGP来说，EVA融化温度较低、流动性好一般在110℃左右就良好的加工效果。简易的抽真空和加温即可满足EVA夹层玻璃的生产需要，生产设备只需要10万左右。EVA膜流动性好，适合在膜层中进行夹丝、夹卷等操作，制作花纹、图案、材质丰富的装饰玻璃。EVA耐水性好，但耐紫外性能一般，在日光下易发黄老化。目前，EVA夹层玻璃主要用于室内隔断、装饰比较多，室外幕墙一般不适合用EVA。太阳能电池面板国内使用EVA较多，但国外现在有使用PVB取代EVA的趋势。PVBPVB全名为聚乙烯醇缩丁醛，具有较高的透明性、耐寒性、耐冲击、耐紫外辐照。PVB是目前建筑玻璃和汽车玻璃使用最广泛的的夹层材料。相对于EVA而言，PVB夹层的存储和加工工艺要复杂很多。一般要求PVB合片时温度18-23℃之间，相对湿度18-23%，PVB含水率0.4%-0.6%，在经过预热滚压或抽真空后，还需要使用高压釜在120-130℃,1.0-1.3MPa情况下保温保压30-60分钟。PVB夹层玻璃生产整套设备需要100万左右。PVB夹层玻璃具有良好的安全性、隔音性和耐紫外线，但PVB耐水性不佳，长期潮湿浸泡易脱落开胶。7-8年前PVB膜以进口杜邦、首诺、积水三大厂家为主。近些年国产PVB发展很快，但国产厂家中大部分都是采用回收料进行二次加工，质量稳定性相对较差，国产PVB使用从原料PVA开始全国产生产的厂家不多。SGPSGP全名为离子性中间膜(SentryGlasPlus)是杜邦公司研发的高性能夹层材料，现专利及生产线已卖给日本可乐丽公司。SGP有高的强度和剪切模量，力学性能优异。SGP夹层玻璃承载力就是等厚度的PVB夹层承载力的2倍;同时，在相等荷载、相等厚度的情况下，SGP夹层玻璃的弯曲挠度只有PVB夹层玻璃的1/4。SGP夹胶膜的撕裂强度是PVB夹胶膜的5倍，即使玻璃万一破碎，SGP膜还可以粘结碎玻璃形成破坏后的一个临时结构，其弯曲变形小，还可以承受一定量的荷载而不会整片下坠。SGP胶膜有良好的边部稳定性，对水分不敏感。SGP夹胶膜本身无色透亮，而且耐候性好，不容易泛黄。SGP膜的泛黄系数小于1.5，而PVB膜的泛黄系数为6~12，因此超白夹层使用SGP较多。SGP生产工艺与PVB接近，设备可通用PVB的生产设备。较高的价格是SGP市场接受度较慢的原因。首诺(已被伊士曼化工收购)有一款与SGP接近的产品DG膜，在国内认知度较低。北京东方海华是一家专业加工、批发、定制建筑玻璃的大型综合性企业，PVB夹胶玻璃是海华的代表产品之一，如果您有需要，可以随时致电海华服务热线400-001-9176，北京东方海华一直为您的满意服务!

三倍左右。sgp其抗撕裂强度和剪切强度要远远好于pvb胶片，但价格是普通pvb的三倍左右，因价格较高，谨慎使用。1、sgp对玻璃有较高的粘结能力，较强的抗撕裂强度、能防止玻璃破碎时的飞散。2、sgp有较强的防护能力，可以防止自然灾害和人力破坏，对强风、地震、暴力等有足够的防御力。3、sgp能承受室内人员的突然撞击，防止玻璃飞散或整体脱出，避免室内人员、物品飞出堕落。4、pvb隔音效果很不错，而且造价不高。5、pvb中空玻璃隔热性能也不错，但是隔声性能还是比不上夹胶。

更新1: 更正： 续问之前rc98的回复 ( rc08 才对 ^_^ ) 更新2: 我还要补充多一点.. If Not Cells(R 4) = "NO MOVE" Then GoTo 222 "当我"today out" 和 " NO MOVE "都一齐要的话，点改呢?? 这里做了三个 vba 程序： 1，用 vba 产生按钮 2，用 vba 删除按钮 3，主程序，筛选数据，并输出。 请将所有程序放入主工作表的 "私家办公室" 。 看图： 图片参考：w2malls/rc/126b/capture 请将主工作表定名为 "MAIN" ，否则将程序里面的 "MAIN" 改为实际的主表名。 Private Sub my_output_bttn_Click() "按钮被按就会呼叫此程式。 Dim arr(1 To 10000 1 To 4) " 主阵列，储存资料 Dim arr2(1 To 10000 1 To 3) " 副阵列，储存从主阵列筛选出来的资料 Dim R% endRow% i% atY% aCount% " / " 从主工作表找出有效资料，存入阵列 arr Sheets("MAIN").Select endRow = Cells(Rows.Count 1).End(xlUp).Row For R = 2 To endRow modl = Trim(Cells(R 1).Value) quan = Trim(Cells(R 2).Value) tout = Trim(Cells(R 4).Value) grup = Trim(Cells(R 5).Value) If InStr("g: 1101RI1 1501CS1 1501PA7" UCase(grup)) < 2 Then GoTo 222 "切勿删掉 "g: " atY = 0 For i = 1 To aCount If arr(i 2) = modl Then atY = i Next If atY = 0 Then aCount = aCount + 1 atY = aCount arr(atY 1) = aCount arr(atY 2) = modl End If If LCase(tout) = "today out" Then arr(atY 3) = arr(atY 3) + Evaluate(quan) ElseIf UCase(tout) = "NO MOVE" Then arr(atY 4) = arr(atY 4) + Evaluate(quan) Else Cells(R 4).Select MsgBox "Error found!" & Chr(13) & Chr(13) & "Neither [today out] nor [NO MOVE]" & Chr(13) & Chr(13) & "program ceased" Exit Sub End If 222: Next " / " 从阵列 arr 筛选 "today out" 载入阵列 arr2 Erase arr2 " 清空阵列 arr2 atY = 0 For i = 1 To aCount If arr(i 3) > 0 Then " 阵列arr 列i元素3(today out) 有数就抄入 arr2 atY = atY + 1 arr2(atY 1) = atY arr2(atY 2) = arr(i 2) arr2(atY 3) = arr(i 3) End If Next Sheets("Sheet1").[A5].Resize(10000 3).ClearContents "清空这范围旧资料 Sheets("Sheet1").[A5].Resize(atY 3) = arr2 " 写入阵列 arr2 Sheets("Sheet3").[A5].Resize(10000 3).ClearContents Sheets("Sheet3").[A5].Resize(atY 3) = arr2 " / " 从阵列 arr 筛选 "NO MOVE" 载入阵列 arr2 ( 中略若干行 ) End Sub Yahoo 字数限制，不能尽贴。 请到此处抄回 2009-09-20 08:26:09 补充： 程式写的很简单(所以很长)，方便你将来自行修改，增减。 我模拟5000列资料，执行在0.5妙以下，工作正常。 你测试后发现问题请来信修正。 一答： 这四张SHEET我是COPY AND PASTE 制造出来的，当然是一样啦^_^ 我只是解释我需要的做法及条件，sheet内容是假的..令你误会了! 真不好意思 ^_^ 二答： 有按钮当然好，但如果我套用在我的真实版本里，需否再要修改呢? 2009-09-16 21:36:21 补充： 三答： 在我心目中你的确是高手，请勿见怪我这样称呼你..不过我也会尊重你的。下次不会再点名，不过你一定要抢答u359e。 点名是因为第一条问题是你为我解决了，我觉得你比较容易理解我的进阶问题，所以有此决定再呼换你......^_^ 四答： 为我解决了难题，得分是应份的，你叫我不给你分，我还觉得不好意思呢:D (这点你真的难为了我呢 ^_^) 唔怕话你知呀，当我问第一条问题时，我是想给四十分的，不过系统最多只能出二十分...>_<....(是真的..!!) 2009-09-17 21:05:02 补充： 补充： D 栏不是 "today out" 便会是"NO MOVE" ，不会空的。 即是D烂只会有以上两个情况的。 以下说法无错： 见到 "today out" 就加总，见到 "NO MOVE" 就加另一个总，然后输出 today out ＞sheet1 sheet3 NO MOVE ＞ sheet2 sheet4 (但都要合符埋下面那几个1101RI1 1101RI2....等等我注明的条件) 2009-09-17 21:05:17 补充： 但是：还有可能有些情况是 当 "today out" 及"NO MOVE" 情况都符合，即是要晒。 (再配合埋下面的1101RI1 1101RI2....等等要求的) 然后输出到sheet5 (不能有重复model显示的) 如此类推： 可能我会有十张sheet都是从来源数据里， 把合适条件的型号及数量，加总及显示到另一张sheet 2009-09-17 21:05:33 补充： 情况就有以上提及的三个 (i) "today out" (ii) "NO MOVE" (iii) "today out" 及"NO MOVE" (加埋条件1101RI1 1101RI2.....等等的要求) 2009-09-17 21:05:45 补充： 其实可唔可以咁讲呢? 就是在程式里有齐晒呢三种条件的程式， 到将来当我有需要更改要求的条件时， 也可以自行修改要求的条件， 又当我想把结果贴到另一页时， 又可以自行变更SHEET NAME ，计算结果便贴到我所要求的目的地。 2009-09-17 21:05:58 补充： 如果程式内容分得很明确，给我一看便了解..那部份是执行 SHEET 1 的结果的 那部份是执行SHEET 2的结果的.. 如此类推地... (便能达到我所希望程式能我给我加加减减了) 即是当我第时有另一个来源资料时， 我也能把这个程式套用在另一个来源资料里去计算结果之后把结果贴到我指定的SHEET里。 程式长一点都不是问题 最重要是活用 2009-09-20 14:48:53 补充： 好呀， 待我测试后遇到问题再找你...THANK A LOT ^_^

可以通过ADO连接数据库，代码如下：首先在工程中引用ado然后在代码中连接Set cnn = New ADODB.Connectioncnn = "Driver={SQL Server};Server=数据库主机IP地址;Database=你要连接的数据库名;Uid=数据库用户名;Pwd=连接密码"cnn.Open然后根据你的需求写sql语句取数即可.

这是两个不同的型号，在功能方面的话有区别，而且在节能方面的话有极大区别，所以在这方面的话你一定要注意的。VRVP全称叫VRV住宅用P系列，顾名思义是家用的，是大金家用中央空调产品中最高端的产品。容量4~16匹，满足公寓公寓别墅的房型需求。VRVX的话更多的是针对商用空间，是大金VRV系列中最顶尖的产品。容量8~66匹。现在大金的VP推出的是全效家中的概念，推出了厨房/卫浴专用的空调，还有可以除湿的温湿平衡室内机，还有可以去除PM2.5的纯效新风室内机，致力于打造全屋的空气解决方案。公司特长特别在空调冷冻方面，产品种类达5000种之多，在日本的市场占有率始终保持第一，是世界上唯一集空调、冷媒以及压缩机的研发、生产和销售于一体的跨国企业。今天，大金公司在全球已建立200多个生产基地及销售公司，员工人数超过41000名，集团正以前所未有的速度，朝着全球化事业不断迈进。

本身没有什么限制，只要不以数字开头都可以，r1不行是因为你已经存在这样的函数名了。我这里可以的。

EVA 吧？

Dim myMenuBar Dim newMenu Dim ctrl1 Dim s Dim flag As String "初始化菜单 Set myMenuBar = CommandBars.ActiveMenuBar Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _ Temporary:=True) newMenu.Caption = "电子印章" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "添加电子印章" ctrl1.Style = msoButtonCaption ctrl1.OnAction = "AddSeal" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "验证电子印章" ctrl1.Style = msoButtonCaption ctrl1.OnAction = "CheckSeal" ctrl1.Style = msoButtonCaption Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "关于" ctrl1.OnAction = "About" ctrl1.Style = msoButtonCaption

你的代码是正确的,但是如果你要显示图标,你需要把所有ctrl1.style = msoButtonCaption 这一句改为 ctrl1.Style = msoButtonIconAndCaption,这样就能够一起显示图标和文字了,我试过是可以的,希望能帮到你

wav在里面是最特殊的，因为它是音频文件，录音的格式一般就是这个mp4 3gp avi是多用于存储在mp4上的视频格式mpeg就是mpg，两个是一样的，绝大多数的VCD采用MPEGMOV即QuickTime影片格式，它是Apple公司开发的一种音频、视频文件格式，用于存储常用数字媒体类型，如音频和视频。当选择 QuickTime （*.mov）作为“保存类型”时，动画将保存为 .mov 文件。rm,rmvb都是常见在电脑里放的，这种格式比较清晰，文件大小也不大，很受人欢迎DAT DAT（数字录音带）是一种用于磁带数字录音的专业品质级别的标准媒体和技术。DAT设备就是一个数字磁带录音器asfASF（Advanced Streaming Format）是微软公司针对real公司开发的新一代网上流式数字音频压缩技术。这种压缩技术的特点是同时兼顾了保真度和网络传输需求

主要是VBA的版本不同。如果SGM的电子存档无法通用，楼主可以先在GBA游戏中存档，使用SAV存档，转换到新的VBA模拟器那里，照样可以用，万试万灵！谢谢~（绿宝石我也有玩，的确是很好的游戏，呵呵~）

8、滚动条(ScrollBar) 作用：当应用程序或控件不能自动支持滚动时，用水平和垂直的滚动条控件，为它们提供这一功能。 滚动条控件有两类：水平滚动条HscrollBar、垂直滚动条VscrollBar。 （1）常用属性 见教材P135表5-13。 经常用到的属性有： value——当前滑动块的位置 在滚动条中，滚动块所处的位置可以代表一个输入值。value属性值即为体现滚动块在滚动条中位置的数值。对于水平滚动条，当滚动块处于最左边时，value取最小值Min；对于垂直波动条，当滚动块处于最顶端时，value取最小值Min。反之，则value值取值。在中间的各个位置，value值与位置是严格按照比例来设定的。 改变滚动条value属性的方法有四种； 直接在属性窗口中设定value值； 鼠标单击两端箭头键改变滚动条数值； 可将滚动框沿滚动条拖动到任意位置； 用鼠标单击滚动条中滚动块两侧的部分，使滚动块以翻页的速度移动。 value属性的缺省值为O到32，767，缺省情况下，value取0和32，767中的某个数值(包括0和32，767)。 max——滚动条值 min——滚动条最小值 滚动条的value属性有取值范围的限制，取值范围由max属性和min属性设置，一般情况，max代表value的值，min代表value的最小值。 如果希望滚动条显示的信息从较大数值向较小数值变化．可将Min设置成大于max的值。 largechange——变化量(单击滑动块) smallchange——最小变化量(单击箭头) （2）常用事件 Change事件和Scroll事件 单击滚动条的滚动箭头、滚动区域或滚动条的Value属性改变时、滚动条具有焦点时再按下PageUp、Pagedown键，都可以引发Change事件和Scroll事件。 两者的不同在于：单击滚动条的滚动箭头、滚动区域或拖动滚动块后，才能引发Change事件，而拖动滚动块时，就可引发Scroll事件。 （3）例子 例1见教材P136。 界面：代码： Private Sub Form_Load() HScroll1.Max = 50 "水平滚动条的值 HScroll1.Min = 0 "水平滚动条的最小值 HScroll1.SmallChange = 1 "单击水平滚动条的滚动箭头按钮而产生的变化值 HScroll1.LargeChange = 10 "单击水平滚动区域而产生的变化值 VScroll1.Max = 50 "垂直滚动条的值 VScroll1.Min = 0 "垂直滚动条的最小值 VScroll1.SmallChange = 1 "单击垂直滚动条的滚动箭头按钮而产生的变化值 VScroll1.LargeChange = 5 "单击垂直滚动区域而产生的变化值 End Sub-------------------------------------------------------------------------------- Private Sub HScroll1_Change() Label2.Caption = HScroll1.Value End Sub-------------------------------------------------------------------------------- Private Sub VScroll1_Change() Label1.Caption = VScroll1.Value End Sub [程序演示] [程序下载] 在上例中，将Change事件改为Scroll事件，再试一试。 例2：在窗体的范围内跟踪鼠标的位置。见教材P137。 在窗体上放置一个图片框、一个水平和一个垂直滚动条。 界面：代码： Private Sub Form_Load() HScroll1.Min = 0 VScroll1.Min = 0 "设置滚动条的最小值 HScroll1.Max = 100 VScroll1.Max = 100 "设置滚动条的值 VScroll1.Value = 50 HScroll1.Value = 50 "初始化滚动块的位置 End Sub-------------------------------------------------------------------------------- Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Y > Picture1.Top And Y < Picture1.Top + Picture1.Height Then VScroll1.Value = (Y - Picture1.Top) / (Picture1.Height) * 100 "跟踪垂直位置（按照比例来设定） End If If X > Picture1.Left And Y < Picture1.Left + Picture1.Width Then HScroll1.Value = (X - Picture1.Left) / (Picture1.Width) * 100 "跟踪水平位置 End If End Sub-------------------------------------------------------------------------------- Private Sub HScroll1_Change() Label1.Caption = "X=" & HScroll1.Value End Sub-------------------------------------------------------------------------------- Private Sub VScroll1_Change() Label2.Caption = "Y=" & VScroll1.Value End Sub [程序演示] [程序下载] 例3：通过单击滚动块显示一年12个月。 界面：代码： Private Sub Command1_Click() Unload Form1 End Sub-------------------------------------------------------------------------------- Private Sub Form_Load() HScroll1.Value = Month(Now) HScroll1.Min = 1 HScroll1.Max = 12 End Sub--------------------------------------------------------------------------------Private Sub HScroll1_Change() Label4.Caption = HScroll1.Value End Sub

那个是自动的，不需要改动

与滚动条控件相关的事件主要是scrll事件和change事件。当拖动滚动条内的滚动滑块时，触发scroll事件，（注意：单机滚动条两端的箭头或单机滚动条前后的空白区域不触发scroll事件）;当改变活动滑块的位置时，就触发change事件。所以，scroll事件是用来跟踪活动滑块的动态变化，change事件则用来获取滚动条当前的值，望采纳。

哥伦比亚祖母绿(Columbian Emerald)是一种珍贵的绿色宝石，主要产于哥伦比亚南部的山谷。这种绿宝石的颜色特别耀眼，具有深绿色的浓郁色调。它的外观有光泽，耐磨性也很高。哥伦比亚祖母绿有着清晰的斑纹，被认为是一种十分珍贵的宝石，价格也非常昂贵。它以其瑰丽的颜色和独特的斑纹，成为世界各地宝石爱好者的追捧对象，增添女性饰品的魅力。

Dim wdapp As New Word.Application wdapp.Visible = False wdapp.Documents.Open filename wdapp.Selection.WholeStory copy_content = wdapp.Selection.Text wdapp.ActiveDocument.Close wdapp.Quit Set wdapp = Nothing 只可以读出文本。。。

1) 99 （实际上就是字母c的ASCII码）2) 5 （Len的返回值是字符个数，这里共5个字符，所以是5。跟是否汉字无关）3) 计算机网 （原理同上。这是返回左边算起的4个字符）4) False （Int(28.2+12.5)的值为40，Fix(42.35-Abs(-2))的值也是40，两边相等）

LCase 是将字符串中英文字母变为小写，故在此问题中可不理会。则变成：GetContent=Right(str,Len(str)-Instr(str,start)-Len(start)+1)若str="ABCDEFGH"，start="DE",则GetContent="FGH".Instr(str,start)，在str里寻找start，返回4Len(start)，返回start长度，即返回2.所以Len(str)返回8Len(str)-Instr(str,start)-Len(start)+1：8-4-2+1=3Right(str,Len(str)-Instr(str,start)-Len(start)+1):在str中，取右三位，即返回"FGH"总结：这条语句，是用于截取字符串中关键字后边（不包括关键字）的子字符串的。整个函数，就是用来截取字符串中关键字前（后），包括（不包括）关键字的子字符串的。

以前用过相信还是有点基础的，硬着头皮啃吧，相信你能行的。

1.也是最简单的一种方法,手工替换相关文件可以解决问题。在正常工作的相关软件安装目录中,找到这个msvcp71.dll文件,复制到出现问题的软件目录下,即可解决问题。　2.重新安装系统(不推荐)　3.从朋友电脑上拷贝或者到网上下载文件,放到C:WINDOWSSYSTEM32文件夹下。另外复制到X盘:游戏文件夹,如果还不行可能是文件版。

<script language="VBScript">Function big3(a,b,c) Dim t If a > b Then t = a Else t = b If c > t Then t = c big3 = tEnd FunctionMsgbox big3(1,2,3)</script>

在第一步中用同步方式而不是异步方式调用calc.exe，则你所谓的第二步就完全可以省略了，因为同步方式在被调用的程序运行结束前会一直停在那里的，直到被调用的程序运行结束才会继续运行下面的语句的，所以可以直接进入第三步了。至于怎样用同步方式楼上的已经说了。

首先设置你的浏览器工具==》Internet选项==》高级==》显示友好http错误信息去掉对勾！然后看vbscript写的是否正确！

VBS是基于VisualBasic的脚本语言。VBS的全称是MicrosoftVisualBasicScriptEdition，用记事本就可以看到源代码，在没有语法错误的前提下，直接双击左键就可以运行。因为VBS较为简单可行性强，所以很多人都喜欢利用VBS去写病毒或者整人的代码，所以在打开VBS之前要确保VBS的安全性和渠道的可信性。任何一种文本编辑器都可以用来开发VBS，记事本是windows系统自带的，无需专门下载安装，更方便快捷。VBS文件主要用于：Windows系统管理员，自动化完成重复性的Windows操作系统任务。仅适用于Internet Explorer的网页，用于执行HTML无法单独执行的某些功能。微软IIS服务器，用于执行服务器端网页处理。大多数情况下，已经不再使用VBS文件。在2019年8月，微软宣布将在Internet Explorer中默认禁用VBScript支持，这是唯一支持VBScript的浏览器。微软建议开发人员将任何使用VBScript的网页更新为使用JavaScript。

你装过mcafee吧，试试去注册表找到HKEY_Local_MachineSOFTWAREClassesCLSID{B54F3741-5B07-11CF-A4B0-00AA004A55E8}然后展开他右键点InprocServer32，选择权限，高级，给管理员加上权限，确定退出。把右边的Default改成C:WindowsSystem32vbscript.dll。如果是64位系统，会有三个重复的HKEY_Local_MachineSOFTWAREClassesCLSID{B54F3741-5B07-11CF-A4B0-00AA004A55E8}，里面的值都要改。

逻辑与：两个都真则为真，任一个为假则为假逻辑非：就是取反。你不会问这个在底层是怎么实现的吧，那个数字电路的知识。

vbscript是脚本语言,asp是服务段的语言,想通过脚本语言来读取服务端的，一般都是不能的，当然可能有某些高高手，其实你到底想实现什么功能呢，还是想另外的办法好，因为脚本端是直接下载到电脑运行的，安全方面也是不允许的,649081773,可以的话，我可以帮你用另外的方法解决。。

晕，ASP的代码也是VBscript啊，

VBS就是VBScript的缩写。一样的。

vbscript.dll是VBScript脚本相关支持文件。

运行notepad.exe

vbcrlf

或者WSH.run "cmd.exe"