gen-90

华为Mate40Pro参数配置？

洛天依是VOCALOID-CHINA（代理商：上海禾念信息科技有限公司）以Yamaha的VOCALOID 3语音合成引擎为基础开发贩售的虚拟女性歌手软件角色主唱系列制品之一，软件演唱语言为中文。软件于2012年7月12在第八 届CCG（中国国际动漫游戏博览会）上正式发售。

姓名：洛 天依VOCALOID-CHINA官方所公开的相关图片 (16张)昵称：吃货、洛爷、世界第一吃货殿下、洛姬人设：MOTH × ideolo年龄：15岁身高：156cm发售日：2012年7月12日生日：6月17日星座：双子座外貌：灰发、绿瞳，项部配碧玉、腰间配中国结。声源：山新性格：温柔、敏感、内向、偶尔天然呆、笨拙、天真擅长音域：A2-D4 VOCALOIDCHINA洛天依人物设定擅长节奏：80-170BPM[1]代表颜色：天依蓝#66CCFF编辑本段设定新人VOCALOID。能够敏锐地感受到他人感情，有点内向的少女。 对过去曾经在人类世界创造了历史的传说中的VOCALOID前辈们非常憧憬，也梦想着自己有朝一日能够成为用歌声为别人传递感动与幸福的歌姬，这样的她在某日突然获得了召唤，并且带着某个重要的任务，作为新的VOCALOID来到了人类的世界。能够为了别人而流泪的温柔，以及无论经历多少挫折也绝不放弃的坚强少女因为初到人类世界，完全不懂人类的语言，所以平常不能与人对话，只能通过歌唱来表达自己的感情。共鸣天依作为VOCALOID的能力，是能够感受到并且读出人类内心所藏着的“心中的歌声”--此刻在心中最强烈的感情，一直在心里描绘的“重要的歌”……即使本人无法完全表达出来，天依也能听到，并且为他唱出那首心中的歌曲。[2]编辑本段二次设定吃货“吃货”的由来为什么天依最大的特点会是吃？ 千年食谱颂为什么大家总是称洛天依为“吃货”？这是因为在天依正式发售之后，国内著名UP主H.K.君为其量身打造了一首《千年食谱颂》。2012年7月13日，由作者H.K.君制作的原版完整曲，及其朋友们（由PV，3D制作师 - 平安夜的噩梦 策划带队）合作制作的 《千年食谱颂》PV 正式于Bilibili弹幕视频网发布。正式因为这首歌成功将初次发售的洛天依定位成了一个吃货。这首天依的原创曲中写道，“世界很大很乱，地球在转，数不清各种悲和欢，总是想太多还不如什么都别想，简单的吃一顿，再一餐，吃的那双眼都发亮，然后做运动，消耗掉，多余的脂肪。”“回锅肉炖酸菜，还有兰州烧饼，让我们一起吃，全世界都得吃，就不要挣扎了，趁热吃”歌词最开始更是以一系列中国耳熟能详的食谱开篇，让听完的网友大呼“听着口水都要流下来啦（ˉ﹃ˉ）”洛天依也因为此曲被封为 “世界第一吃货殿下”。也正是因为这首独特的吃货之歌，使得洛天依开始进入大家的视线，这首《千年食谱颂》对于天依的宣传可谓是功不可没。“吃货”的近一步进化除了《千年食谱颂》，洛天依还有另外一首极其著名的洗脑歌——《洛天依投食歌》，由P主西瓜吃柏晓倾情制作，原曲改编自FamilyMart的入店音，经过中文填词，朗朗上口的旋律，质朴直白地一连串“好饿好饿我真的好饿，吃呀吃呀吃呀吃……”，重复在你耳边循环，使得网友听完直吼，“不饿都被她唱饿了= =”“刚吃完饭听完这歌瞬间又饿了！”“减肥期 洛天依投食歌间听真是极大的过错！”更有网友说，这首歌的洗脑程度不亚于日本虚拟歌姬初音未来的《甩葱歌》，足见这首的洗脑程度可谓不一般。也正是这首传播极广的洗脑歌《洛天依投食歌》，进一步把洛天依的设定朝吃货靠近，以致于后面很多作品之中都有提到洛天依是个不折不扣的“大吃货”。吃货殿下的位置也就这么延续了下来。所以天依之所以这么能“吃”，《千年食谱颂》和《洛天依投食歌》的出现着实有着至关重要的作用。南北组原设定中体现了许多南方风格的特质，与北方风格的乐正绫正好形成了互补，组成了cp“南北组（北南组）”，七灵石最新的pv[1]也相当卖萌的出现了此cp（见右图）。在Days乐团的歌曲《三月雨》及同名专辑中，洛天依与乐正绫的CP被发扬光大，两人间的故事也被越来越多的人所接受和熟知。南北组从此也不仅仅是人设上的地域特征联系，在感情上也被丰满、立体化。 编辑本段天依蓝：#66ccff如果你在有关天依的视频中看到66ccff这个有些怪异的词组，不要惊讶，这就是洛天依的代表颜色：天依蓝。#66CCFF 是颜色代码，天蓝色。这是由于洛天依这个角色形象主要颜色是天蓝色，于是该颜色又被V家粉丝们亲切地称为天依蓝。 《66CCFF》PV截图天依蓝最早推广于国内P主杉田朗为洛天依创作的原创曲，由皓月填词，历历路路绘画的《66CCFF》这个与天依蓝同名的歌曲之中，该歌在某视频网站首发之后，因为极其轻快的旋律，以及反复循环的66CCFF颜色代码，引得众多粉丝的喜爱，使得洛天依正式与#66CCFF这个颜色代码挂钩，至此之后天依蓝就成了洛天依的代表色。所以，在有关洛天依的视频中出现这个颜色或者颜色代码，代表了大家对于洛天依的喜爱与支持。编辑本段关于VOCALOIDVOCALOID是Yamaha开发的电子音乐制作语音合成软件。输入音调和歌词，就可以合成为原为人类声音的歌声。于2007年1月推出新版本VOCALOID 2。2008年4月4日，发表开发网上版“NetVOCALOID”，9月30日于“CEATEC JAPAN 2008”正式展示，可于网页浏览器直接使用，相比非网上版，因为是由服务器计算合成声音，客户端的电脑负荷可大大减低。2009年4月9日正式公开，服务提供于部分手提电话。关于VOCALOID3“VOCALOID 3”，是YAMAHA的音效技术开发中心制作的语音合成系统。它可以把录制的人类各种声音做为基础，与现实语音进行合成后开发出歌声等内容。这款软件与2007年开发的VOCALOID 2相比，除了保留原本的复合音效，还改良了合成音的品质、优化了操作的界面，更大的特色还是增加了多语言对应。从原先的日本语和英语对应增加到了汉语（普通话）、韩国语、西班牙语三种语言。并且其可以导入V2歌手的Library。这次最新的系列名称定为「VOCALOID3 Editor」，软件于2011年10月21日正式发售。简介开发者 Yamaha初始版本 VOCALOID：2004年1月最新稳定版 VOCALOID2.0.12 / 2009年2月9日 操作系统 Windows 2000/XP/Vista目前可用语言 英语、日语、中文、韩文类型 音乐软件网站 见扩展阅读软件采用Yamaha开发的「Frequency-domain Singing Articulation Splicing and Shaping」。先采集人类声音的标本，然后再制作歌声资料库。但VOCALOID没有歌声资料库，实际可使用的版本由其他公司开发。各种参数只输入音调和歌词的话，输出的声音的机械性通常会十分明显，要令声音显得自然，需要调整各种不同的参数：音速（VEL、Velocity）影响声母的时间长度。数值越高，声母时长越短，发音越急促。　力度（强弱法）（DYN、Dynamics）影响音量。数值越高，音量越大。也可以以此做到渐强或渐弱的效果。个性参数如不更改下列五种参数，将会最接近歌声资料库中原本的声音。个性参数除了可以在VOCALOID编辑器中个别调整，亦可以于歌手编辑器中作整体调整。· 呼吸声（BRE、Breathiness）　数值越高，气声则会越大。· 明亮感（BRI、 Brightness）　影响高频率的成分。数值越高，明亮感越强；越低，则越沉稳，特别是温柔的感觉。· 清澈感（CLE、Clearness）　与明亮感相似但改变声质的原理不同。数值越高，清彻感越强；越低，则越低沉（太高会产生杂音。）。· 口的开合度（OPE、Opening）　以改变音色来模拟开合度。数值越高，清彻感越强；越低，则越模糊。降低数值和配合力度参数可有效修补「爆音」。· 性别参数（GEN、Gender Factor）　影响声音的结构。数值越高，男性的感觉越强；越低，则变成女性甚至幼儿的声音。如大量提升或降低数值，可以和原本的声音完全不同。滑音时间（POR、Portamento Timing）　该参数决定两个不同音高的连续音符之间的音高变化速度（比如从do变成mi，音高不是瞬间变到mi，而是逐渐变过去的），参数范围为0~127，数值越高音高变化速度越慢。滑音杆（PIT、Pitch Bend）　可控制滑音的旋律音程上滑音或下滑音。数值越高，实际输出的音高会比输入的高；反之则越低。可用作音高调整。作用与电子琴上的“滑音轮（Pitch bend wheel）”相同。参数范围为-8192~+8191，对应滑音的音高变化为“从降低到升高PBS个半音（PBS是滑音范围）”，参数为0代表没有滑音。滑音杆灵敏度（PBS、Pitch Bend Sensitivity）　该参数控制控制滑音杆的变化，参数范围为1~24（默认为2），越高变化越大，与PIT共同决定音高变化，音高变化的具体计算公式为PitchBend = (PIT * PBS) / 8192，单位是半音（semi-tone）。编辑本段初稿：雅音宫羽洛天依是画师ideolo根据2011年12月1日开始征集、2012年1月17日公布评选结果的“VOCALOID CHINA 洛天依与雅音宫羽对比PROJECT征集人物形象”活动中评选大赏作品之一“雅音宫羽”（画师MOTH投稿）进行重绘的正式角色人设，于2012年3月22日公布。洛天依的人设并未延用雅音宫羽的原人设信息，原人设信息请参考词条雅音宫羽。再次声明：雅音宫羽与洛天依并非一次设定与二次设定的关系。她们是“初稿”与“正式人设”的关系。编辑本段音之精灵(天钿)vocaloid china中洛 天依的音之精灵伙伴，也能化身成她的麦克风，从小一直跟在她身边，典型的小动物性格，好奇心旺盛但是警戒心很强，不会轻易接近陌生人。因为一直在天依身边，很熟悉她的个性，经常会跟天依做出一样的反应，有时会代替无法交谈的天依表现情绪。[3]编辑本段音乐作品 专辑显示方式：专辑列表 | 专辑详情专辑名称发行时间语言试听专辑详情《Dance Dance Dance》洛天依共鸣专辑022012-12-17国语《梦的七次方》洛天依共鸣专辑032012-12-17国语《三月雨》洛天依同人专辑2012-12-09国语《Summer Days》全球首张洛天依原创同人音乐专辑2012-07-19国语《sing sing sing》洛天依共鸣专辑012012-07-12国语编辑本段洛天依的试听曲Step on your heartVOCALOID CHINA PROJECT官方网站于6月6日放出的试听曲作词：luna作曲：luna每一个梦都是个旋律漫天回忆该如何去聆听把心里面的思念传递给你让我们一起唱吧心中的歌旋律不经意诞生绽放的生命轻吻着灵魂叩开了一扇心门一段通往梦想的冒险旅程灵感轻舞的时分彩虹会把云端的路铺成音符在指尖萦绕这一秒 旋律简单又奇妙沿途的每个路标画一个惊叹号向云的 另一端奔跑梦从来都不会渺小这一刻 听到吗 整个世界都聆听着每个梦里都有段旋律每颗心底都有个秘密思念如果可以用音符代替为你编织着梦的羽翼漫天记忆闪耀的烟火弥漫世界的每个角落音符和诗在星空交织一起唱吧 心中的歌梦想的此时此刻第八届中国国际动漫游戏博览会（CCG EXPO）的主题歌曲：CCG_theme_90S词：蛇千因为这世间 没什么天长与地久才珍惜梦想的此时此刻要燃烧金色年华收获一句值得无数次地对自己许下承诺去看一场烟火绽放在天空的尽头任凭前路坎坷现实冷漠无数次地难逃迷茫与困惑跌撞着走过毅然做每一次选择迎接崭新的日升月落最绚烂颜色最真诚笑容永远是我勇敢地 追逐着只属于我的丰硕因为有梦想 才勾勒千色的花朵无悔地迈向天地最辽阔若年少不顾一切这一次又如何因为有 梦想 才不停歇地唱着歌让世界 听到心底的快乐若历经 风雨无阻 何必追问结果编辑本段洛天依的音源山新 官网提供的山新图片自幼爱好动漫及配音，最终走向专业配音演员道路的国内新生代配音演员。作为我国同人声优萌え 型声线的代表。有着一副甜美可爱清脆动听的好嗓子，演技真实纯熟。无论是可爱LOLI、天真正太还是纯真少女、温柔御姐甚至精灵动物类角色，都能轻松演绎。被大家称为天朝萌娘天朝钉宫团子萌娘少林娘等。 作为声创联盟中文配音社团中的主力社员之一，为不少中文和日文作品配音。配音时感情收放自如，广受好评。给FANS的话:音源选拔的时候被问到过：“你心中VOCALOID CHINA第一款角色（洛天依）会是什么样的声音呢？”“我希望是空灵、宁静、治愈，可以带给大家力量和勇气的声音。”我回答到。可能自己本身的职业是配音演员的缘故，虽然知道最终为了让大家能有更大的创作空间，音源尽量要适应各种音乐风格不能有太多感情，但正式录音的时候，我都默默告诉自己尽量传达[力量][勇气]以及[爱]给大家，希望尽可能的给洛天依这个可爱的孩子带去一部分灵魂。有时我觉得洛天依只是一个声音和我很像的家伙，是真实存在的，不过要通过听她唱的歌，看有关她的漫画，才能让我更进一步的了解她。她又像大家一起创造的孩子，画师们赋予了她外表，我给予了她声音，剩下的？就拜托大家啦，一定要让她成长为一个好孩子呀^_^编辑本段洛天依的亚种洛天二第一款中文发音软件——洛天依的亚种，也是公认的性转换。性别：男 洛天二生日：9月14日年纪：15属性：腹黑出道曲：《小肥羊也不是好欺负的》（改自《客官不可以》）　出没地点：牌馆擅长：花式洗牌法（也就是出老千）会打的牌类：三国杀、麻将、牌九外貌：如天依，头发后面应该也和天依一样有个小辫子。名字的由来：事实上在《小肥羊也不是好欺负的》出现时，天二还没有正式名字，但在中间过渡的一段，作者在P曲中写道“本来是想要名字叫天二的，然后觉得太二了就放弃了”，结果这个名字被大家叫着叫着就成正式名了。虽然有吧友提议换名字，但我觉得没有这个必要；名字只是个代号，我们喜欢的是天二的性格和歌声，何必在代号上斤斤计较呢？调教方式：GEN参数+30称谓：小哥（出自《小肥羊也不是好欺负的》）[4]洛亦天VOCALOID虚拟歌手洛天依的亚种形象 洛亦天爸爸（大误）：zeno　形象设定：龙皇优阳 龙皇星海年龄：14岁呢称：刀刀，刀弟，阿亦，洛少侠身高：161cm生日：12月7日（首次出场曲《月下》发布日期，调教：zeno）星座：射手座外貌：灰发、金瞳，项部配碧玉、腰间配唐刀，童颜，伪面瘫。角色曲：《天守语》声源：山新性格：温柔、天然呆、勇敢、刚毅音乐精灵：乐天兽（刀魂）装备：天守（障刀，唱歌时可以变成一只浮空的麦克风）参数：gen90左右，后期降半音（首次在合唱曲《月下》中出没，乃废墟神社x龙皇漫音社出品，调教：zeno 填词：龙皇优阳x汉白玉）洛天依的“弟弟”。为了保护自己的吃货姐姐而出生。温柔而体 洛天依与洛亦天贴，明明是十四岁可爱的小男孩，却因为想要在姐姐面前装出成熟的样子而故意板着脸，其实是个很纯很害羞的孩子。随身佩带着一把叫做天守的障刀，平时会一声不吭的守在天依的旁边。有时会被姐姐拉去唱歌，因为对音乐有着不小的兴趣，所以唱歌的时候会特别融入自己的感情，若是乐正绫在场就会安心到可以站着睡着，有瞬移的技能。貌似对乐正龙牙没有好感。希望姐姐能无时无刻开心。洛亦天设定图(4张)其他亚种堕天依，拉链天依，齿轮天依，贪食花，洛莉依，洛莲依，洛日樱，竹天依，萌依依，宫影天依，中元负极，洛天初，幼天依，天依病毒，暗天依，金天依，恶依, 骸依等。词条图册更多图册参考资料1． VOCALOID CHINA PROJECT宣传PV 第02话 ．官方发布网页 [引用日期2012-07-12] ．2． VOCALOID™ CHINA character ．VOCALOID™ CHINA PROJECT ．2012-3-22 [引用日期2013-01-5] ．3． 百度百科_天钿 ．百度百科 [引用日期2012-08-21] ．4． 洛天二 ．洛天二_百度百科 [引用日期2012-12-30] ．扩展阅读：1洛天依中文网论坛：www.luotianyi.org2VocaloidChina官方介绍：http://vocaloidproject.com/tianyi.html3百度贴吧_洛天依吧：http://tieba.baidu.com/f?kw=%C2%E5%CC%EC%D2%C04bilibili洛天依专题http://bilibili.smgbb.cn/sp/%E6%B4%9B%E5%A4%A9%E4%BE%9D5洛天依试听曲《千年食谱颂》：http://www.bilibili.tv/video/av308040/6洛天依吃货之歌《洛天依投食歌》：http://www.bilibili.tv/video/av347275/7洛天依天依蓝推广歌《66ccff》：http://www.bilibili.tv/video/av360940/8洛亦天首曲《月下》：http://yc.5sing.com/1502516.html###9洛天依销魂电音版《法海你不懂爱》：http://www.ximalaya.com/1000303/sound/160961开放分类：vocaloid 音乐软件 语音合成 ， 虚拟偶像 ， 音源 ， VOCALOID百度百科中的词条正文与判断内容均由用户提供，不代表百度百科立场。如果您需要解决具体问题（如法律、医学等领域），建议您咨询相关领域专业人士。本词条对我有帮助添加到搜藏分享到:更多合作编辑者黒音虎凉影 ， 颠覆世界的黑猫 ， yamaのpig ， 龙皇优阳 ， 元芳此SB你咋看 ， 永远的笛声 ，夜舞纷纶 ， 几度晴岚 ， 月の冷颜 ， 小野寺泉 ，如果您认为本词条还需进一步完善，百科欢迎您也来参与 编辑词条 在开始编辑前，您还可以先学习如何编辑词条如想投诉，请到百度百科投诉中心；如想提出意见、建议，请到百度百科吧。

华为matex2配置参数表

mate40epro参数配置：

1、屏幕尺寸：6.76英寸

2、类型：OLED，最高支持90赫兹刷新率、240赫兹触控采样率。

3、色彩：1670万色，DCI-P3广色域。

4、色彩：1670万色，DCI-P3广色域。

5、处理器：麒麟9000L

6、CPU：六核，1xCortex-A77@3.13吉赫兹＋2xCortex-A77@2.54吉赫兹＋3xCortex-A55@2.05吉赫兹。

7、GPU：22核Mali-G78。

8、NPU：大核NPU+微核NPU（神经网络处理单元）

9、出厂系统：HarmonyOS 2。

10、存储：8GBRAM+256/512GBROM。

11、前置摄像头摄像分辨率：最大可支持3840x2160像素，支持1080p@240帧慢动作视频。

12、前置摄像头拍摄功能：自拍慢动作、智能广角切换、人像模式、全景模式、趣AR、延时摄影、动态照片、智能滤镜、水印、笑脸抓拍、自拍镜像、声控拍照、定时拍照。

13、电池：4400毫安时（典型值）

14、有线充电：手机支持最大超级快充11V/6A，兼容10V/4A或10V/2.25A或4.5V/5A或5V/4.5A超级快充，兼容9V/2A快充。

15、无线充电：支持50W华为无线超级快充，支持无线反向充电。

16、防尘抗水：IP68级别

17、WLAN：2.4吉赫兹和5吉赫兹。

18、802.11 a/b/g/n/ac/ax，2x2 MIMO，HE160，1024 QAM，8 Spatial-stream Sounding MU-MIMO。

19、上行和下行物理层峰值速率为2.4Gbps。

20、蓝牙：Bluetooth 5.2，支持低功耗蓝牙，支持SBC、AAC，支持LDAC高清音频。

21、数据线接口：USB Type-C，USB 3.1 GEN1。

22、耳机接口：USB Type-C接口。

23、NFC：支持读卡器模式，点对点模式，卡模拟模式（华为钱包支付，SIM卡支付＊，HCE支付）

24、定位：支持GPS（L1+L5双频）／AGPS/GLONASS/北斗（B1I+B1C+B2a+B2b四频）／GALILEO（E1+E5a+E5b三频）／QZSS（L1+L5双频）／NavIC。

25、感应器：姿态感应器、3D人脸识别、重力传感器、红外传感器、屏内指纹、气压计、陀螺仪、指南针、环境光传感器、接近传感器、色温传感器、Camera激光对焦传感器。

26、音频：华为Histen，支持立体声音效。

求专业人士编个代码，用C#

华为matex2配置参数表：

1、屏幕尺寸：内屏：8英寸，外屏：6.45英寸。

2、类型：内屏：可折叠柔性OLED，最高支持90赫兹刷新率，180赫兹触控采样率，外屏：柔性OLED，最高支持90赫兹刷新率，240赫兹触控采样率。

3、像素密度：内屏：413ppi，外屏：456ppi。

4、色彩：1670万色，P3广色域。

5、分辨率：内屏：2480×2200像素，外屏：2700×1160像素。

6、处理器型号：麒麟9000

7、CPU核心数：八核

8、最高主频：1×Cortex-A77@3.13吉赫兹＋3×Cortex-A77@2.54吉赫兹＋4×Cortex-A55@2.05吉赫兹。

9、GPU：24核Mali-G78。

10、NPU：双大核NPU+微核NPU（神经网络处理单元）

11、操作系统：EMUI 11.0（基于Android 10）

12、存储：运行内存＋机身内存。

13、扩展存储：NM存储卡，最大支持256GB。

14、后置摄像头：5000万像素超感知摄像头（广角，f/1.9光圈，支持OIS光学防抖）＋1600万像素超广角摄像头（f/2.2光圈）＋1200万像素长焦摄像头（f/2.4光圈，支持OIS光学防抖）＋800万像素超级变焦摄像头（10倍光学变焦，f/4.4光圈，支持OIS光学防抖）

15、WLAN：2.4吉赫兹和5吉赫兹，802.11 a/b/g/n/ac/ax，2×2 MIMO，HE160，1024 QAM，8 Spatial-stream Sounding MU-MIMO。

16、蓝牙：Bluetooth 5.2，支持低功耗蓝牙，支持SBC、AAC，支持LDAC高清音频。

17、数据线接口：USB Type-C，USB 3.1 GEN1。

18、耳机接口：USB Type-C。

19、NFC： 支持读卡器模式、点对点模式、卡模拟模式（华为钱包支付，SIM卡支付，HCE支付）

20、定位： 支持GPS（L1+L5双频）／AGPS/GLONASS/北斗（B1I+B1C+B2a+B2b四频）／GALILEO（E1+E5a+E5b三频）／QZSS（L1+L5双频）／NavIC。

核能是新能源吗

这儿有个vb做的验证码：你可以把它当成模板写哈。

<%

Response.expires=-1 。

Response.AddHeader"pragma","no-cache" 。

Response.AddHeader"cache-control","no-store" 。

Const nMaxSaturation = 100 ' 最大色彩饱和度 。

Const nBlankNoisyDotOdds = 0.2 ' 空白处噪点率 。

Const nColorNoisyDotOdds = 0.1 ' 有色处噪点率 。

Const nCharCount = 5 ' 产生的字符个数 。

Const nPixelWidth = 20 ' 单个字符位图的宽度 。

Const nPixelHeight = 20 ' 单个字符位图的高度 。

Const nColorHue = 220 ' 显示验证码的色调(-1表示随机色调, -2表示灰度色调) 。

Const nAngleRandom = 10 ' 角度随机量 。

Const nLengthRandom = 10 ' 长度随机量(百分比) 。

Const cCharSet = "0123456789ABC" 。

' 构成验证码的字符集；如果扩充了下边的字母矢量库 。

Dim Buf(), DigtalStr 。

Dim Lines(), LineCount 。

Dim CursorX, CursorY, DirX, DirY 。

Randomize

Call CreatValidCode("GetCode") 。

Sub CDGen_Reset() 。

' 复位矢量笔和环境变量

LineCount = 0

CursorX = 0

CursorY = 0

' 初始的光笔方向是垂直向下 。

DirX = 0

DirY = 1

End Sub

Sub CDGen_Clear() 。

' 清空位图阵列

Dim i, j

ReDim Buf(nPixelHeight - 1, nCharCount * nPixelWidth - 1) 。

For j = 0 To nPixelHeight - 1 。

For i = 0 To nCharCount * nPixelWidth - 1 。

Buf(j, i) = 0

Next

Next

End Sub

Sub CDGen_PSet(X, Y) 。

' 在位图阵列上画点

Buf(Y, X) = 1

End Sub

Sub CDGen_Line(X1, Y1, X2, Y2) 。

' 在位图阵列上画线

Dim DX, DY, DeltaT, i 。

DX = X2 - X1

DY = Y2 - Y1

If Abs(DX) > Abs(DY) Then DeltaT = Abs(DX) Else DeltaT = Abs(DY) 。

For i = 0 To DeltaT 。

CDGen_PSet X1 + DX * i / DeltaT, Y1 + DY * i / DeltaT 。

Next

End Sub

Sub CDGen_FowardDraw(nLength) 。

' 按当前光笔方向绘制指定长度并移动光笔，正数表示从左向右/从上向下绘制，负数表示从右向左/从下向上绘制 。

nLength = Sgn(nLength) * Abs(nLength) * (1 - nLengthRandom / 100 + Rnd * nLenghtRandom * 2 / 100) 。

ReDim Preserve Lines(3, LineCount) 。

Lines(0, LineCount) = CursorX 。

Lines(1, LineCount) = CursorY 。

CursorX = CursorX + DirX * nLength 。

CursorY = CursorY + DirY * nLength 。

Lines(2, LineCount) = CursorX 。

Lines(3, LineCount) = CursorY 。

LineCount = LineCount + 1 。

End Sub

Sub CDGen_SetDirection(nAngle) 。

' 按指定角度设定画笔方向, 正数表示相对当前方向顺时针改变方向，负数表示相对当前方向逆时针改变方向 。

Dim DX, DY

nAngle = Sgn(nAngle) * (Abs(nAngle) - nAngleRandom + Rnd * nAngleRandom * 2) / 180 * 3.1415926 。

DX = DirX

DY = DirY

DirX = DX * Cos(nAngle) - DY * Sin(nAngle) 。

DirY = DX * Sin(nAngle) + DY * Cos(nAngle) 。

End Sub

Sub CDGen_MoveToMiddle(nActionIndex, nPercent) 。

' 将画笔光标移动到指定动作的中间点上，nPercent为中间位置的百分比 。

Dim DeltaX, DeltaY 。

DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex) 。

DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex) 。

CursorX = Lines(0, nActionIndex) + Sgn(DeltaX) * Abs(DeltaX) * nPercent / 100 。

CursorY = Lines(1, nActionIndex) + Sgn(DeltaY) * Abs(DeltaY) * nPercent / 100 。

End Sub

Sub CDGen_MoveCursor(nActionIndex) 。

' 将画笔光标移动到指定动作的起始点上 。

CursorX = Lines(0, nActionIndex) 。

CursorY = Lines(1, nActionIndex) 。

End Sub

Sub CDGen_Close(nActionIndex) 。

' 将当前光笔位置与指定动作的起始点闭合并移动光笔 。

ReDim Preserve Lines(3, LineCount) 。

Lines(0, LineCount) = CursorX 。

Lines(1, LineCount) = CursorY 。

CursorX = Lines(0, nActionIndex) 。

CursorY = Lines(1, nActionIndex) 。

Lines(2, LineCount) = CursorX 。

Lines(3, LineCount) = CursorY 。

LineCount = LineCount + 1 。

End Sub

Sub CDGen_CloseToMiddle(nActionIndex, nPercent) 。

' 将当前光笔位置与指定动作的中间点闭合并移动光笔，nPercent为中间位置的百分比 。

Dim DeltaX, DeltaY 。

ReDim Preserve Lines(3, LineCount) 。

Lines(0, LineCount) = CursorX 。

Lines(1, LineCount) = CursorY 。

DeltaX = Lines(2, nActionIndex) - Lines(0, nActionIndex) 。

DeltaY = Lines(3, nActionIndex) - Lines(1, nActionIndex) 。

CursorX = Lines(0, nActionIndex) + Sgn(DeltaX) * Abs(DeltaX) * nPercent / 100 。

CursorY = Lines(1, nActionIndex) + Sgn(DeltaY) * Abs(DeltaY) * nPercent / 100 。

Lines(2, LineCount) = CursorX 。

Lines(3, LineCount) = CursorY 。

LineCount = LineCount + 1 。

End Sub

Sub CDGen_Flush(X0, Y0) 。

' 按照当前的画笔动作序列绘制位图点阵 。

Dim MaxX, MinX, MaxY, MinY 。

Dim DeltaX, DeltaY, StepX, StepY, OffsetX, OffsetY 。

Dim i

MaxX = MinX = MaxY = MinY = 0 。

For i = 0 To LineCount - 1 。

If MaxX < Lines(0, i) Then MaxX = Lines(0, i) 。

If MaxX < Lines(2, i) Then MaxX = Lines(2, i) 。

If MinX > Lines(0, i) Then MinX = Lines(0, i) 。

If MinX > Lines(2, i) Then MinX = Lines(2, i) 。

If MaxY < Lines(1, i) Then MaxY = Lines(1, i) 。

If MaxY < Lines(3, i) Then MaxY = Lines(3, i) 。

If MinY > Lines(1, i) Then MinY = Lines(1, i) 。

If MinY > Lines(3, i) Then MinY = Lines(3, i) 。

Next

DeltaX = MaxX - MinX 。

DeltaY = MaxY - MinY 。

If DeltaX = 0 Then DeltaX = 1 。

If DeltaY = 0 Then DeltaY = 1 。

MaxX = MinX

MaxY = MinY

If DeltaX > DeltaY Then 。

StepX = (nPixelWidth - 2) / DeltaX 。

StepY = (nPixelHeight - 2) / DeltaX 。

OffsetX = 0

OffsetY = (DeltaX - DeltaY) / 2 。

Else

StepX = (nPixelWidth - 2) / DeltaY 。

StepY = (nPixelHeight - 2) / DeltaY 。

OffsetX = (DeltaY - DeltaX) / 2 。

OffsetY = 0

End If

For i = 0 To LineCount - 1 。

Lines(0, i) = Round((Lines(0, i) - MaxX + OffsetX) * StepX, 0) 。

If Lines(0, i) < 0 Then Lines(0, i) = 0 。

If Lines(0, i) >= nPixelWidth - 2 Then Lines(0, i) = nPixelWidth - 3 。

Lines(1, i) = Round((Lines(1, i) - MaxY + OffsetY) * StepY, 0) 。

If Lines(1, i) < 0 Then Lines(1, i) = 0 。

If Lines(1, i) >= nPixelHeight - 2 Then Lines(1, i) = nPixelHeight - 3 。

Lines(2, i) = Round((Lines(2, i) - MinX + OffsetX) * StepX, 0) 。

If Lines(2, i) < 0 Then Lines(2, i) = 0 。

If Lines(2, i) >= nPixelWidth - 2 Then Lines(2, i) = nPixelWidth - 3 。

Lines(3, i) = Round((Lines(3, i) - MinY + OffsetY) * StepY, 0) 。

If Lines(3, i) < 0 Then Lines(3, i) = 0 。

If Lines(3, i) >= nPixelHeight - 2 Then Lines(3, i) = nPixelHeight - 3 。

CDGen_Line Lines(0, i) + X0 + 1, Lines(1, i) + Y0 + 1, Lines(2, i) + X0 + 1, Lines(3, i) + Y0 + 1 。

Next

End Sub

Sub CDGen_Char(cChar, X0, Y0) 。

' 在指定坐标处生成指定字符的位图阵列 。

CDGen_Reset

Select Case cChar 。

Case "0"

CDGen_SetDirection -60 ' 逆时针60度(相对于垂直线) 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -60 ' 逆时针60度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 1.5 ' 绘制1.5个单位 。

CDGen_SetDirection -60 ' 逆时针60度 。

CDGen_FowardDraw 0.7 ' 绘制0.7个单位 。

CDGen_SetDirection -60 ' 顺时针120度 。

CDGen_FowardDraw 0.7 ' 绘制0.7个单位 。

CDGen_Close 0 ' 封闭当前笔与第0笔(0开始) 。

Case "1"

CDGen_SetDirection -90 ' 逆时针90度(相对于垂直线) 。

CDGen_FowardDraw 0.5 ' 绘制0.5个单位 。

CDGen_MoveToMiddle 0, 50 ' 移动画笔的位置到第0笔(0开始)的50%处 。

CDGen_SetDirection 90 ' 逆时针90度 。

CDGen_FowardDraw -1.4 ' 反方向绘制1.4个单位 。

CDGen_SetDirection 30 ' 逆时针30度 。

CDGen_FowardDraw 0.4 ' 绘制0.4个单位 。

Case "2"

CDGen_SetDirection 45 ' 顺时针45度(相对于垂直线) 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -120 ' 逆时针120度 。

CDGen_FowardDraw 0.4 ' 绘制0.4个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.6 ' 绘制0.6个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 1.6 ' 绘制1.6个单位 。

CDGen_SetDirection -135 ' 逆时针135度 。

CDGen_FowardDraw 1.0 ' 绘制1.0个单位 。

Case "3"

CDGen_SetDirection -90 ' 逆时针90度(相对于垂直线) 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection 135 ' 顺时针135度 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection -120 ' 逆时针120度 。

CDGen_FowardDraw 0.6 ' 绘制0.6个单位 。

CDGen_SetDirection 80 ' 顺时针80度 。

CDGen_FowardDraw 0.5 ' 绘制0.5个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.5 ' 绘制0.5个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.5 ' 绘制0.5个单位 。

Case "4"

CDGen_SetDirection 20 ' 顺时针20度(相对于垂直线) 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection -110 ' 逆时针110度 。

CDGen_FowardDraw 1.2 ' 绘制1.2个单位 。

CDGen_MoveToMiddle 1, 60 ' 移动画笔的位置到第1笔(0开始)的60%处 。

CDGen_SetDirection 90 ' 顺时针90度 。

CDGen_FowardDraw 0.7 ' 绘制0.7个单位 。

CDGen_MoveCursor 2 ' 移动画笔到第2笔(0开始)的开始处 。

CDGen_FowardDraw -1.5 ' 反方向绘制1.5个单位 。

Case "5"

CDGen_SetDirection 90 ' 顺时针90度(相对于垂直线) 。

CDGen_FowardDraw 1.0 ' 绘制1.0个单位 。

CDGen_SetDirection -90 ' 逆时针90度 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection -90 ' 逆时针90度 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection 30 ' 顺时针30度 。

CDGen_FowardDraw 0.4 ' 绘制0.4个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.4 ' 绘制0.4个单位 。

CDGen_SetDirection 30 ' 顺时针30度 。

CDGen_FowardDraw 0.5 ' 绘制0.5个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

Case "6"

CDGen_SetDirection -60 ' 逆时针60度(相对于垂直线) 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -60 ' 逆时针60度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 1.5 ' 绘制1.5个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 0.7 ' 绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 0.5 ' 绘制0.5个单位 。

CDGen_CloseToMiddle 2, 50 ' 将当前画笔位置与第2笔(0开始)的50%处封闭 。

Case "7"

CDGen_SetDirection 180 ' 顺时针180度(相对于垂直线) 。

CDGen_FowardDraw 0.3 ' 绘制0.3个单位 。

CDGen_SetDirection 90 ' 顺时针90度 。

CDGen_FowardDraw 0.9 ' 绘制0.9个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 1.3 ' 绘制1.3个单位 。

Case "8"

CDGen_SetDirection -60 ' 逆时针60度(相对于垂直线) 。

CDGen_FowardDraw -0.8 ' 反方向绘制0.8个单位 。

CDGen_SetDirection -60 ' 逆时针60度 。

CDGen_FowardDraw -0.8 ' 反方向绘制0.8个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection 110 ' 顺时针110度 。

CDGen_FowardDraw -1.5 ' 反方向绘制1.5个单位 。

CDGen_SetDirection -110 ' 逆时针110度 。

CDGen_FowardDraw 0.9 ' 绘制0.9个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.8 ' 绘制0.8个单位 。

CDGen_SetDirection 60 ' 顺时针60度 。

CDGen_FowardDraw 0.9 ' 绘制0.9个单位 。

CDGen_SetDirection 70 ' 顺时针70度 。

CDGen_FowardDraw 1.5 ' 绘制1.5个单位 。

CDGen_Close 0 ' 封闭当前笔与第0笔(0开始) 。

Case "9"

CDGen_SetDirection 120 ' 逆时针60度(相对于垂直线) 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -60 ' 逆时针60度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -60 ' 顺时针120度 。

CDGen_FowardDraw -1.5 ' 绘制1.5个单位 。

CDGen_SetDirection -60 ' 顺时针120度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -60 ' 顺时针120度 。

CDGen_FowardDraw -0.7 ' 绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -60 ' 顺时针120度 。

CDGen_FowardDraw 0.5 ' 绘制0.5个单位 。

CDGen_CloseToMiddle 2, 50 ' 将当前画笔位置与第2笔(0开始)的50%处封闭 。

' 以下为字母的矢量动作，有兴趣的可以继续 。

Case "A"

CDGen_SetDirection -(Rnd * 20 + 150) ' 逆时针150-170度(相对于垂直线) 。

CDGen_FowardDraw Rnd * 0.2 + 1.1 ' 绘制1.1-1.3个单位 。

CDGen_SetDirection Rnd * 20 + 140 ' 顺时针140-160度 。

CDGen_FowardDraw Rnd * 0.2 + 1.1 ' 绘制1.1-1.3个单位 。

CDGen_MoveToMiddle 0, 30 ' 移动画笔的位置到第1笔(0开始)的30%处 。

CDGen_CloseToMiddle 1, 70 ' 将当前画笔位置与第1笔(0开始)的70%处封闭 。

Case "B"

CDGen_SetDirection -(Rnd * 20 + 50) ' 逆时针50-70度(相对于垂直线) 。

CDGen_FowardDraw Rnd * 0.4 + 0.8 ' 绘制0.8-1.2个单位 。

CDGen_SetDirection Rnd * 20 + 110 ' 顺时针110-130度 。

CDGen_FowardDraw Rnd * 0.2 + 0.6 ' 绘制0.6-0.8个单位 。

CDGen_SetDirection -(Rnd * 20 + 110) ' 逆时针110-130度 。

CDGen_FowardDraw Rnd * 0.2 + 0.6 ' 绘制0.6-0.8个单位 。

CDGen_SetDirection Rnd * 20 + 110 ' 顺时针110-130度 。

CDGen_FowardDraw Rnd * 0.4 + 0.8 ' 绘制0.8-1.2个单位 。

CDGen_Close 0 ' 封闭当前笔与第1笔(0开始) 。

Case "C"

CDGen_SetDirection -60 ' 逆时针60度(相对于垂直线) 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection -60 ' 逆时针60度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 1.5 ' 绘制1.5个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw -0.7 ' 反方向绘制0.7个单位 。

CDGen_SetDirection 120 ' 顺时针120度 。

CDGen_FowardDraw 0.7 ' 绘制0.7个单位 。

'增加更多字符集，请相应修改 cCharSet 的属性值 。

End Select

CDGen_Flush X0, Y0 。

End Sub

Sub CDGen_Blur() 。

' 对产生的位图进行柔化处理 。

Dim i, j

For j = 1 To nPixelHeight - 2 。

For i = 1 To nCharCount * nPixelWidth - 2 。

If Buf(j, i) = 0 Then 。

If ((Buf(j, i - 1) or Buf(j + 1, i)) And 1) <> 0 Then 。

' 如果当前点是空白点，且上下左右四个点中有一个点是有色点，则该点做柔化处理 。

Buf(j, i) = 2

End If

End If

Next

Next

End Sub

Sub CDGen_NoisyDot() 。

' 对产生的位图进行噪点处理 。

Dim i, j, NoisyDot, CurDot 。

For j = 0 To nPixelHeight - 1 。

For i = 0 To nCharCount * nPixelWidth - 1 。

If Buf(j, i) <> 0 Then 。

NoisyDot = Int(Rnd * Rnd * nMaxSaturation) 。

Select Case nColorNoisyDotOdds 。

Case 0

CurDot = nMaxSaturation 。

Case 1

CurDot = 0

Case Else

CurDot = NoisyDot 。

End Select

If Rnd < nColorNoisyDotOdds Then Buf(j, i) = CurDot Else Buf(j, i) = nMaxSaturation 。

Else

NoisyDot = Int(Rnd * nMaxSaturation) 。

Select Case nBlankNoisyDotOdds 。

Case 0

CurDot = 0

Case 1

CurDot = nMaxSaturation 。

Case Else

CurDot = NoisyDot 。

End Select

If Rnd < nBlankNoisyDotOdds Then Buf(j, i) = CurDot Else Buf(j, i) = 0 。

End If

Next

Next

End Sub

Sub CDGen()

' 生成位图阵列

Dim i, Ch

DigtalStr = "" 。

CDGen_Clear

For i = 0 To nCharCount - 1 。

Ch = Mid(cCharSet, Int(Rnd * Len(cCharSet)) + 1, 1) 。

DigtalStr = DigtalStr + Ch 。

CDGen_Char Ch, i * nPixelWidth, 0 。

Next

CDGen_Blur

CDGen_NoisyDot 。

End Sub

Function HSBToRGB(vH, vS, vB) 。

' 将颜色值由HSB转换为RGB 。

Dim aRGB(3), RGB1st, RGB2nd, RGB3rd 。

Dim nH, nS, nB 。

Dim lH, nF, nP, nQ, nT 。

vH = (vH Mod 360) 。

If vS > 100 Then 。

vS = 100

ElseIf vS < 0 Then 。

vS = 0

End If

If vB > 100 Then 。

vB = 100

ElseIf vB < 0 Then 。

vB = 0

End If

If vS > 0 Then 。

nH = vH / 60

nS = vS / 100

nB = vB / 100

lH = Int(nH)

nF = nH - lH

nP = nB * (1 - nS) 。

nQ = nB * (1 - nS * nF) 。

nT = nB * (1 - nS * (1 - nF)) 。

Select Case lH 。

Case 0

aRGB(0) = nB * 255 。

aRGB(1) = nT * 255 。

aRGB(2) = nP * 255 。

Case 1

aRGB(0) = nQ * 255 。

aRGB(1) = nB * 255 。

aRGB(2) = nP * 255 。

Case 2

aRGB(0) = nP * 255 。

aRGB(1) = nB * 255 。

aRGB(2) = nT * 255 。

Case 3

aRGB(0) = nP * 255 。

aRGB(1) = nQ * 255 。

aRGB(2) = nB * 255 。

Case 4

aRGB(0) = nT * 255 。

aRGB(1) = nP * 255 。

aRGB(2) = nB * 255 。

Case 5

aRGB(0) = nB * 255 。

aRGB(1) = nP * 255 。

aRGB(2) = nQ * 255 。

End Select

Else

aRGB(0) = (vB * 255) / 100 。

aRGB(1) = aRGB(0) 。

aRGB(2) = aRGB(0) 。

End If

HSBToRGB = ChrB(Round(aRGB(2), 0)) & ChrB(Round(aRGB(1), 0)) & ChrB(Round(aRGB(0), 0)) 。

End Function

Sub CreatValidCode(pSN) 。

Dim i, j, CurColorHue 。

' 禁止缓存

Response.Expires = -9999 。

Response.AddHeader "pragma", "no-cache" 。

Response.AddHeader "cache-ctrol", "no-cache" 。

Response.ContentType = "image/bmp" 。

Call CDGen

Session(pSN) = DigtalStr '记录入Session 。

Dim PicWidth, PicHeight, FileSize, PicDataSize 。

PicWidth = nCharCount * nPixelWidth 。

PicHeight = nPixelHeight 。

PicDataSize = PicWidth * PicHeight * 3 。

FileSize = PicDataSize + 54 。

' 输出BMP文件信息头

Response.BinaryWrite ChrB(66) & ChrB(77) & _ 。

ChrB(FileSize Mod 256) & ChrB((FileSize \ 256) Mod 256) & ChrB((FileSize \ 256 \ 256) Mod 256) & ChrB(FileSize \ 256 \ 256 \ 256) & _ 。

ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & _ 。

ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) 。

' 输出BMP位图信息头

Response.BinaryWrite ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & _ 。

ChrB(PicWidth Mod 256) & ChrB((PicWidth \ 256) Mod 256) & ChrB((PicWidth \ 256 \ 256) Mod 256) & ChrB(PicWidth \ 256 \ 256 \ 256) & _ 。

ChrB(PicHeight Mod 256) & ChrB((PicHeight \ 256) Mod 256) & ChrB((PicHeight \ 256 \ 256) Mod 256) & ChrB(PicHeight \ 256 \ 256 \ 256) & _ 。

ChrB(1) & ChrB(0) & _ 。

ChrB(24) & ChrB(0) & _ 。

ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & _ 。

ChrB(PicDataSize Mod 256) & ChrB((PicDataSize \ 256) Mod 256) & ChrB((PicDataSize \ 256 \ 256) Mod 256) & ChrB(PicDataSize \ 256 \ 256 \ 256) & _ 。

ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & _ 。

ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & _ 。

ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & _ 。

ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) 。

' 逐点输出位图阵列

If nColorHue = -1 Then 。

CurColorHue = Int(Rnd * 360) 。

ElseIf nColorHue = -2 Then 。

CurColorHue = 0 。

Else

CurColorHue = nColorHue 。

End If

For j = 0 To nPixelHeight - 1 。

For i = 0 To Len(DigtalStr) * nPixelWidth - 1 。

If nColorHue = -2 Then 。

Response.BinaryWrite HSBToRGB(CurColorHue, 0, 100 - Buf(nPixelHeight - 1 - j, i)) 。

Else

Response.BinaryWrite HSBToRGB(CurColorHue, Buf(nPixelHeight - 1 - j, i), 100) 。

End If

Next

Next

End Sub

%>

各位大神，请问用分位数表示收入差距的90%/10%的stata命令，多谢多谢大家！

核能是新能源，但不能算清洁能源，如果处理得当，便会造福人类，但是核物质一旦泄露，危害无穷(如日本福岛的这次泄漏）

原文地址：http://www.qianchusai.com/gen-90.html