word VBA文档词频统计代码

Sub 词频统计()

' 词频统计Macro

Dim SingleWord As String '从当前文档提取的一个单词

Const maxWords = 15000 '允许出现的不同单词的最大数量,如不够,可适当加大Dim Words(maxWords) As String '用来保存各个不同的单词

Dim Freq(maxWords) As Integer '出现频度计数器

Dim WordNum As Integer '不同单词的数量

Dim ByFreq As Boolean '输出结果的排序标准

Dim ttlwds As Long '文档中的单词总数

Dim Excludes As String '不在统计范围内的单词

Dim Found As Boolean '临时标记

Dim j, k, l, Temp As Integer '临时变量

Dim tWord As String '

' 设置要排除的单词。

' 英文排除词:[the][a][of][is][to][for][this][that][by][be][and][are]

' 排除词可以从各大搜索引擎的说明获得，可根据实际情况修改

Excludes = "[][的][是]"

' 向用户询问排序标准

ByFreq = True

ans = InputBox$("根据单词(1)还是频度(2)排序？", "排序标准", "1")

If ans = "" Then End

If Trim(ans) = "1" Then

ByFreq = False

End If

'开始分析文档

Selection.HomeKey Unit:=wdStory

System.Cursor = wdCursorWait

WordNum = 0

ttlwds = ActiveDocument.Words.Count

' 处理文档中的每个单词

For Each aWord In ActiveDocument.Words

'英文单词不区分大小写

SingleWord = Trim(LCase(aWord))

'该单词是否在排除列表中？

If InStr(Excludes, "[" & SingleWord & "]") Then SingleWord = ""

If Len(SingleWord) > 0 Then

'找到一个需要处理的单词

Found = False

For j = 1 To WordNum

If Words(j) = SingleWord Then

' 这个单词已经出现过了

' 把它的出现频度加1

Freq(j) = Freq(j) + 1

Found = True

Exit For

End If

Next j

If Not Found Then

' 这个单词还没有出现过

' 将它登记为一个新的单词

' 出现频度设置为1

WordNum = WordNum + 1

Words(WordNum) = SingleWord

Freq(WordNum) = 1

End If

If WordNum > maxWords - 1 Then

j = MsgBox("已达到单词数量的最大限制值。请增加maxWords的值.", vbOKOnly) Exit For

End If

ttlwds = ttlwds - 1

'在状态栏上显示处理进度

StatusBar = "剩余：" & ttlwds & " 不同单词数量: " & WordNum

Next aWord

' 对处理结果进行排序

For j = 1 To WordNum - 1

k = j

For l = j + 1 To WordNum

If (Not ByFreq And Words(l) < Words(k)) Or (ByFreq And Freq(l) > Freq(k)) Then k = l Next l

If k <> j Then

tWord = Words(j)

Words(j) = Words(k)

Words(k) = tWord

Temp = Freq(j)

Freq(j) = Freq(k)

Freq(k) = Temp

End If

'排序进度

StatusBar = "正在排序：" & WordNum - j

Next j

' 将统计结果显示到一个新的Word文档

tmpName = ActiveDocument.AttachedTemplate.FullName

' 创建一个新文档

Documents.Add Template:=tmpName, NewTemplate:=False

'清除...

Selection.ParagraphFormat.TabStops.ClearAll

' 将处理结果写入新文档,每个单词一行

With Selection

For j = 1 To WordNum

.TypeText Text:=Trim(Str(Freq(j))) & vbTab & Words(j) & vbCrLf

Next j

End With

System.Cursor = wdCursorNormal

j = MsgBox("该文档总共有" & Trim(Str(WordNum)) & "个不同的单词。", vbOKOnly, "分析完毕！")

End Sub

软件著作权源代码例子

1 2 #ifnfdgdfdef __CHEDGDFGCLID_A_ 3 #dedfgdffine __CHEGDFGCLID_A_ 4 5 /************************************************************************/ 6 /* 定义 */ 7 /************************************************************************/ 8 #defgdfgdfine FLADGDFGSH_SEDGDFGION 9 10 #defidgdne EDFGDFNS_ ADDGDFDESS_TEST #defidgdfne EDGDFGNS_ ADDEDGDGSS_TEST_3 11 12 13 #defdgdfine NDGDFGEED _CHECK 6 14 15 typdfgdfedef enum { 16 17 CA_ONEISDGDFGEMPTY, 18 CA_TWOISEDGDFGMPTY, 19 CA_TWOISFFDGDFGULL 20 }chedgdfckusdfdfm; 21 22 typedsfsdfef ssfsdftruct 23 { 24 TX_U8 desfdfsKey[9]; 25 TX_U8 desfsdfdsresult[9]; 26 TX_U64 crc64; 27 }DedgdfgsDatsfsdfdsa_f; 28 /************************************************************************/ 29 30 /* 函数声明 */ 31 /************************************************************************/ 32 TX_ ChesfsfckValid(checkenum checkcase); 33 TX_ ResfsdfadFlash(void); 34 TX_ ReadRanFromPanel(void); 35 TX_ ResfsdfadSerial(void); 36 TX_ ResfsdfadIPanel(void);

excelvba常见字典用法集锦及代码详解(全)

常见字典用法集锦及代码详解前言凡是上过学校的人都使用过字典，从新华字典、成语词典，到英汉字典以及各种各样数不胜数的专业字典，字典是上学必备的、经常查阅的工具书。有了它们，我们可以很方便的通过查找某个关键字，进而查到这个关键字的种种解释，非常快捷实用。凡是上过EH论坛的想学习VBA里面字典用法的，几乎都看过研究过northwolves狼版主、oobird版主的有关字典的精华贴和经典代码。我也是从这里接触到和学习到字典的，在此，对他们表示深深的谢意，同时也对很多把字典用得出神入化的高手们致敬，从他们那里我们也学到了很多，也得到了提高。字典对象只有4个属性和6个方法，相对其它的对象要简洁得多，而且容易理解使用方便，功能强大，运行速度非常快，效率极高。深受大家的喜爱。本文希望通过对一些字典应用的典型实例的代码的详细解释来

给初次接触字典和想要进一步了解字典用法的朋友提供一点备查的参考资料，希望大家能喜欢。给代码注释估计是大家都怕做的，因为往往是出力不讨好的，稍不留神或者自己确实理解得不对，还会贻误他人。所以下面的这些注释如果有不对或者不妥当的地方，请大家跟帖时指正批评，及时改正。字典的简介字典（Dictionary）对象是微软Windows脚本语言中的一个很有用的对象。附带提一下，有名的正则表达式（RegExp）对象和能方便处理驱动器、文件夹和文件的（FileSystemObject）对象也是微软Windows脚本语言中的一份子。字典对象相当于一种联合数组，它是由具有唯一性的关键字（Key）和它的项（Item）联合组成。就好像一本字典书一样，是

VISUAL BASIC实例源代码

课前体验 Private Sub Form_Click() For i=1To10 For j=1To i Print"*"; Next j Print Next i End Sub 【例3-1】 Private Sub Form_Click() c1$=Chr$(13)+Chr$(10) msg1$="请输入您的名字:" msg2$="输入后按回车键" msg3$="或单击“确定”按钮" msg$=msg1$+c1$+msg2$+c1$+msg3$ name$=InputBox(msg$,"InputBox函数示例","张三") Print name$ End Sub 【例3-2】 Private Sub Form_Click() Msg1$=”Are you Continue to?” msg2$=”Operation Dialog Box” r=MsgBox(msg1$,34,msg2$) Print r End Sub 【例3-3】编写程序，用MsgBox函数判断是否继续执行。 Private Sub Form_Click() msg$="请确认此数据是否正确" Title$="数据检查对话框" x=MsgBox(msg$,19,Title$) If x=6Then Print x*x ElseIf x=7Then Print"请重新输入" End If End Sub 【例3-5】

Private Sub Form_Click() Print:Print FontName="隶书" FontSize=16 Print"姓名";Tab(8);"年龄";Tab(16);"职务"; Print Tab(24);"单位";Tab(32);"籍贯" Print Print"吴大明";Tab(8);25;Tab(16);"职员";Tab(24);"人事科"; Tab(32);"北京" End Sub 【例3-6】 Private Sub Form_Click() X=InputBox("请输入成绩","学生成绩录入","00") Print x End Sub 【例3-7】 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox(“请输入x的值”) If x>0Then y=1ElseIf x=0Then y=0Else y=-1 Print“x=”;x,”y=”;y End Sub 【例3-8】 Private Sub Form_Click() Dim msg,UserInput msg="请输入一个字母或0～9之间的数字." UserInput=InputBox(msg)‘输入一个字母或数字If Not IsNumeric(UserInput)Then‘判断是否是数字 If Len(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInput)‘判断输入字母的ASCII 码值 Case60To90'在60-90之间为大写字母 msg="你输入的是一个大写字母'" msg=msg&Chr(Asc(UserInput))&"'。" Case97To122'小写字母

Excel VBA常用代码VSTO版20150425

21-1 使用工作表的名称 this.Application.Worksheets["工作表2"].Activate(); 21-2 使用工作的索引号 this.Application.Worksheets[2].Activate(); 21-3 使用工作表的代码名称 MessageBox.Show(this.Application.ActiveSheet.CodeName); 21-4 用ActiveSheet属性引用活动工作表 this.Application.Worksheets[2].Select(); MessageBox.Show(https://www.360docs.net/doc/4314902547.html,); 22-1 选择工作表的方法 this.Application.Worksheets[2].Select(); this.Application.Worksheets[2].Activate(); 23-1 使用For遍历工作表 intwkCount = this.Application.Worksheets.Count; string s = string.Empty; for (inti = 1; i<= wkCount; i++) { s = s + this.Application.Worksheets[i].Name + "\n"; } MessageBox.Show("工作簿中含有以下工作表:" + "\n" + s); 23-2 使用ForEach语句 string s = string.Empty; foreach (Excel.Worksheetwk in this.Application.Worksheets) { s = s + https://www.360docs.net/doc/4314902547.html, + "\n"; } MessageBox.Show("工作簿中含有以下工作表:" + "\n" + s); 24-1 在工作表中向下翻页 Excel.Sheetsshs=Globals.ThisWorkbook.Worksheets; Excel.WorksheetwkThis = shs.Application.ActiveSheet; Excel.WorksheetwkNext; intwkIndex = wkThis.Index; intwkCount = shs.Count; if (wkIndex

matlab源代码实例

1.硬币模拟试验源代码： clear; clc; head_count=0; p1_hist= [0]; p2_hist= [0]; n = 1000; p1 = 0.3; p2=0.03; head = figure(1); rand('seed',sum(100*clock)); fori = 1:n tmp = rand(1); if(tmp<= p1) head_count = head_count + 1; end p1_hist (i) = head_count /i; end figure(head); subplot(2,1,1); plot(p1_hist); grid on; hold on; xlabel('重复试验次数'); ylabel('正面向上的比率'); title('p=0.3试验次数N与正面向上比率的函数图'); head_count=0; fori = 1:n tmp = rand(1); if(tmp<= p2) head_count = head_count + 1; end p2_hist (i) = head_count /i; end figure(head); subplot(2,1,2); plot(p2_hist); grid on; hold on; xlabel('重复试验次数'); ylabel('正面向上的比率'); title('p=0.03试验次数N与正面向上比率的函数图'); 实验结果：

2.不同次数的随机试验均值方差比较源代码： clear ; clc; close; rand('seed',sum(100*clock)); Titles = ['n=5时' 'n=20时' 'n=25时' 'n=50时' 'n=100时']; Titlestr = cellstr(Titles); X_n_bar=[0]; %the samples of the X_n_bar X_n=[0]; %the samples of X_n N=[5,10,25,50,100]; j=1; num_X_n = 100; num_X_n_bar = 100; h_X_n_bar = figure(1);

软件著作权成功维权十大案例之一

软件著作权成功维权十大案例之一公司内部编号：（GOOD-TMMT-MMUT-UUPTY-UUYY-DTTI-

2015软件着作权成功维权十大案例之一临危受命，严密证据链让被告无处可逃导读：一场历时一年多的“图像预处理”软件着作权之争终于在2015年09月17日下午谢幕。在本案一审审理中，在极为不利的情况下，长昊律师事务所临危受命、不负重望，最终喜得佳绩。我所律师以当事人的合法利益最大化为目标，在案件亲办过程中，克服重重困难，终于让被告受到了法律的制裁。本所回顾此案办理历程并就案件核心予以展述，一起共勉。软件被盗，果断维权 2012年7月20日，张XX、陈XX将其共同享有的《XXX软件》（以下简称涉案侵权软件）转让给XH公司，并签订了《计算机软件着作权转让协议》。2012年12月1日，国家版权局出具证书号为软着登字第XX 号的《计算机软件着作权登记证书》，证书记载：着作权人为XH公司，开发完成日期为2009年9月9日，权利取得方式为受让，权利范围为全部权利。被告人李XX注册成立深圳市HCRZ科技有限公司（以下简称HCRZ公司），在宝安区西乡黄田草围第一工业区租赁厂地生产摄像头，并未经原告XH公司授权在其生产的摄像头上安装XH公司所有的涉案侵权软件。 2014年05月30日10时，XH公司代表张XX向公安机关举报被告人李XX所有的HCRZ公司生产的摄像头软件侵犯其公司研发的软件着作权，2014年8月13日，公安机关在位于深圳市宝安区西乡黄田草围第一工业区HCRZ公司查获各类型摄像头5000多个，其中安装了涉案侵权软件的的HD-500T摄像头477个，查获电脑、烧录器等工具，并将被告人

c实例源代码

【实例1-1】 using System; using System、Collections、Generic; using System、Text; namespace _ { class Program { static void Main(string[] args) { System、Console、Wriine("恭喜您，学会了C#编程！"); System、Console、ReadLine(); } } } 【实例1-2】 private void Form1_Load(object sender, EventArgs e) { this、Text="这就是一窗口！"; Label lbShow = new Label(); lbShow、Location = new Point(40,50); lbShow、AutoSize = true; lbShow、Text = "恭喜您学会编程了！"; this、Controls、Add(lbShow); int[] x, y; x = new int[5] { 1,2,3,4,5}; y = new int[5]; y = x; foreach (int a in y) { lbShow、Text += a、ToString(); } this、Controls、Add(lbShow); } 【实例2-1】 using System; using System、Windows、Forms; namespace TestEnum { public partial class TestEnum : Form { //Visual Studio 、Net自动生成得构造函数，后文示例将全部省略 public TestEnum() { Initializeponent(); } enum MyEnum { a = 101, b, c, d = 201, e, f }; //声明枚举型 private void TestEnum_Load(object sender, EventArgs e) { MyEnum x = MyEnum、f; //使用枚举型 MyEnum y = (MyEnum)202; string result ="枚举数x得值为"; result += (int)x; //将x转换为整数 result += "\n枚举数y代表枚举元素" + y; lblShow、Text = result; } }

软件著作权-源代码范本

软件著作权-源代码范本注意事项：常见的源代码包含：C语言，VB,C++,JAVA,.NET等。提交的代码必须是源代码的开头载入程序，第30页必须断开，第60页是软件的程序结尾，代码中不得出现与申请表内容不符合的日期，著作权人，软件名字等，不能出现开源代码，不能出现任何版权纠纷。格式要求：一、源代码应提交前、后各连续30页，不足60页的，应当全部提交。、源代码页眉应标注软件的名称和版本号，应当与申请表中名称完全一致，页眉右上应标注页码，源代码每页不少于50行。范例如下: #i nclude #in elude #i nclude #in elude

#in elude #i nclude #i nclude #i nclude #i nclude #in clude #in clude #in clude #in clude #in clude #in clude #in clude #in clude #in clude #in clude #defi ne NS_MAIN 1 #i nclude #en dif #ifdef DLZ #in clude #en dif static tybs_boolean_t wan t_stats = TYBS_FALSE; static char static char static char static char static un sig ned program_ name[TYBS_DIR_NAMEMAX] = "n amed"; absolute_co nffile[TYBS_DIR_PATHMAX]; saved_comma nd_li ne[512]; versio n[512]; maxsocks = 0; n s_ma in _earlywar nin g(c onst char *format, ...) { va_list args; va_start(args, format); if (ns_g」ctx != NULL) { tybs_log_vwrite( ns_g」ctx, NS_LOGCATEGORY_GENERAL, NS_LOGMODULE_MAIN, TYBS_LOG_W ARNING, format, args); } else { fprin tf(stderr, "%s: ", program_ name); vfprin tf(stderr, format, args); fprin tf(stderr, "\n"); fflush(stderr); } va_e nd(args); } Void n s_ma in _earlyfatal(c onst char *format, ...) { va_list args; va_start(args, format); if (ns_g」ctx != NULL) { tybs_log_vwrite( ns_g」ctx, NS_LOGCATEGORY_GENERAL, NS_LOGMODULE_MAIN, TYBS_LOG_CRITICAL, format, args); tybs_log_write( ns_g」ctx, NS_LOGCATEGORY_GENERAL, NS_LOGMODULE_MAIN, TYBS_LOG_CRITICAL, "exit ing (due to early fatal error)"); } else { fprin tf(stderr, "%s: ", program, name); vfprin tf(stderr, format, args); fprin tf(stderr, "\n"); fflush(stderr); } va_e nd(args); exit(1); } static void assert ion _failed(c onst char *file, in t li ne, tybs_assert ion type_t type, const char *cond)

EXCEL常用VBA代码

删除B列中字符串数值少于21的单元格所在的行 Sub 删除行() r = Range("B65536").End(xlUp).Row '行数 For h = r To 1 Step -1 If Cells(h, 2) < 21 Then Cells(h, 2).EntireRow.Delete Next End Sub ------------------------- 【工作表合并】将同一工作簿中的所有工作表合并到一个工作表中新建一个工作表，写入代码[在新建的工作表标签处右键查看代码（找不到的直接按一下alt+F11) 把下面的代码复制进去然后点上面的运行运行子程序即可]： Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> https://www.360docs.net/doc/4314902547.html, Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示" End Sub ********************************************************* 代码这样写也行： Sub c() For i = Sheets.Count To 2 Step -1 Sheets(i).Select Sheets(i).UsedRange.Copy Sheets(1).Select Cells(Cells(65000, 1).End(xlUp).Row + 1, 1).Select ActiveSheet.Paste 'Sheets(i).Delete Next i End Sub ************************************************************ 把一个工作簿中的所有表单合并成一个表单，怎么去掉重复的表头、标题行？方法如下：

HTML语言源代码实例.

HTML语言源代码实例1.第一个HTML示例第一个HTML示例 HTML的基本结构。 2.换行标签
测试换行标签天津公安警官职业学院
电教中心
授课教师李平

3.强制不换行标签测试强制不换行标签黄鹤楼

昔人已乘黄鹤去，此地空余黄鹤楼。黄鹤一去不复返，白云千载空悠悠晴川历历汉阳树，芳草萋萋鹦鹉洲。日暮乡关何处是？烟波江上使人愁。 4.自动换行标签

测试自动换行标签风中，花儿谢了

凄怜的娇花在悲凉的秋风中，从曾经绚烂娇媚的枝梢，轻曼着彩蝶般的舞姿，漫天飞洒，一片片无奈地落在那冰冷森寒的风刃之上。于是，万千飞舞的蝶便化成纷扬的花絮，轻盈地随风而起，又随风飘得很远、很远。 5.分段控制标签测试分段控制标签花儿什么也没有。它们只有凋谢在风中的轻微、凄楚而又无奈的吟怨，就像那受到了致命伤害的秋雁，

著作权案例分析

案例一：“脸谱”引发著作权纠纷中国艺术研究院赔偿4万案情介绍: 《中国戏曲脸谱》一书使用了京剧脸谱绘画大师汪鑫福所绘的177幅京剧脸谱，汪鑫福的外孙季成将中国艺术研究院、九州出版社、北京世纪高教书店诉至法院。汪鑫福自上世纪20年代起至90年代去世时陆续创作了大量京剧脸谱，相当部分都收藏在艺术研究院陈列室中。上世纪50年代时，汪鑫福曾在艺术研究院前身戏曲改进局工作。2000年1月，经北京森淼圆文化传播有限公司组织联系，由艺术研究院提供图片及文字，九州出版社提供书号出版了中国戏曲脸谱》一书，该书中使用了汪鑫福绘制并收藏在陈列室中的177幅京剧脸谱，但没有为汪鑫福署名。季成作为汪鑫福的外孙，自其母亲去世后即为“脸谱”的继承人。季成于2010年初发现《中国戏曲脸谱》一书，并于2010年8月从北京世纪高教书店购买到该书，故起诉要求三被告停止侵权、向其赔礼道歉、赔偿经济损失53.1万元、精神损害抚慰金1万元及合理费用3万余元等。法院审理诉讼中，双方争议焦点主要集中在涉案脸谱的性质上，季成表示涉案脸谱为汪鑫福个人作品，而艺术研究院坚持认为涉案脸谱完成于上世纪50年代，为著作权归属于该研究院的职务作品。法院经审理认为，双方均认可汪鑫福一生绘制了大量京剧脸谱，而涉案脸谱没有专门标识或特征体现出绘制时间，故无证据证明涉案脸谱的时间完成时间。不排除部分涉案脸谱完成时我国尚未颁布实施著作权法，但汪鑫福去世以及《中国戏曲脸谱》一书出版时，我国已于1991年6月1日起施行著作权法，那么在使用他人作品时，就应当尊重法律规定的赋予著作权人的权利，除非有合法理由排除或限制著作权人权利。我国著作权法规定了两类职务作品，一类是著作权由作者享有，但单位有权在其业务范围内优先使用，另一类是作者享有署名权，著作权的其他权利由单位享有。艺术研究院既表示涉案脸谱属于第二类职务作品，又表示著作权应当全部归属于艺术研究院。法院根据本案证据体现出的情况，认为汪鑫福所绘制的京剧脸谱不属于艺术研究院主张的主要利用了单位的物质技术条件创作，并由单位承担责任的第二类职务作品。况且，艺术研究院曾书面承认其享有涉案脸谱的所有权，汪鑫福的家属享有著作权。涉案脸谱属于美术作品，原件所有权的转移不视为作品著作权的转移。艺术研究院的矛盾解释混淆了作品原件所有权人与著作权人所享有权利的区别，美术作品原件所有权人在享有作品原件所有权的同时，享有该作品著作权中的展览权，但不享有该作品的其他著作权，也不得损害著作权人所享有的其他著作权。法院判决艺术研究院未经季成许可亦未支付报酬，将涉案脸谱收录入《中国戏曲脸谱》中，九州出版社未尽到著作权审查义务出版《中国戏曲脸谱》一书的行为侵犯了季成因继承而取得的涉案脸谱的复制权等著作财产权。北京世纪书店销售的《中国戏曲脸谱》一书有合法来源，应当承担停止销售的责任。最后，北京海淀法院判决三被告停止侵权、中国艺术研究院和九州出版社赔偿季成经济损失35400元及合理费用1万元。宣判后，双方当事人均未明确表示是

Excel VBA常用代码总结1

Excel VBA常用代码总结1 改变背景色 Range("A1"). = xlNone ColorIndex一览改变文字颜色 Range("A1"). = 1 获取单元格 Cells(1, 2) Range("H7") 获取范围 Range(Cells(2, 3), Cells(4, 5)) Range("a1:c3") '用快捷记号引用单元格 Worksheets("Sheet1").[A1:B5] 选中某sheet Set NewSheet = Sheets("sheet1") 选中或激活某单元格 '“Range”对象的的Select方法可以选择一个或多个单元格，而Activate方法可以指定某一个单元格为活动单元格。 '下面的代码首先选择A1:E10区域，同时激活D4单元格： Range("a1:e10").Select

Range("d4:e5").Activate '而对于下面的代码： Range("a1:e10").Select Range("f11:g15").Activate '由于区域A1:E10和F11:G15没有公共区域，将最终选择F11:G15，并激活F11单元格。获得文档的路径和文件名 '路径 '名称 '路径＋名称 '或将ActiveWorkbook换成thisworkbook 隐藏文档 = False 禁止屏幕更新 = False 禁止显示提示和警告消息 = False 文件夹做成 strPath = "C:\temp\" MkDir strPath 状态栏文字表示 = "计算中" 双击单元格内容变换 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If>= 5And<= 8) Then If= "●"Then = "" Else = "●" End If Cancel = True End If End Sub 文件夹选择框方法1 Set objShell = CreateObject("") Set objFolder = (0, "文件", 0, 0) If Not objFolder Is Nothing Then path= & "\" end if

软件著作权申请源程序

**汽车商城管理系统源程序 using System; using System.Collections.Generic; using System.Text; namespace Qing.Model { ///

/// 购物车实体类 ///

[Serializable] public partial class cart_keys { public cart_keys() { } #region Model private int _article_id; private int _quantity = 0; ///

/// 文章ID ///

public int article_id { set { _article_id = value; } get { return _article_id; } } ///

/// 购买数量 ///

public int quantity { set { _quantity = value; } get { return _quantity; } } #endregion } ///

/// 购物车列表 ///

[Serializable] public partial class cart_items { public cart_items(){ }

#region Model private int _article_id; private string _goods_no = string.Empty; private string _title = string.Empty; private string _spec_text = string.Empty; private string _img_url = string.Empty; private decimal _sell_price = 0M; private decimal _user_price = 0M; private int _quantity = 1; private int _stock_quantity = 0; ///

/// 文章ID ///

public int id { set { _article_id = value; } get { return _article_id; } } ///

/// 商品货号 ///

public string goods_no { set { _goods_no = value; } get { return _goods_no; } } ///

/// 商品名称 ///

public string title { set { _title = value; } get { return _title; } } ///

/// 商品地址 ///

public string linkurl { get; set; } ///

/// 商品规格 ///

public string spec_text { set { _spec_text = value; }

EXCELVBA常用代码实战大全共393页word资料

VBA常用技巧代码解析 yuanzhuping 1VBA VBAVBA VBA常用常用常用常用技巧技巧技巧技巧目录目录目录目录 VBA VBAVBA VBA常用技巧常用技巧常用技巧常用技巧 ------------------------------------------------------------------------------------------------------- 1 第1章 Range（单元格）对象 -------------------------------------------------------------------- 10 技巧1 单元格的引用方法 ---------------------------------------------------------------------- 10 1-1 使用Range属性 ----------------------------------------------------------------------- 10 1-2 使用Cells属性 ------------------------------------------------------------------------ 11 1-3 使用快捷记号 -------------------------------------------------------------------------- 11 1-4 使用Offset属性 ----------------------------------------------------------------------- 12 1-5 使用Resize属性 ----------------------------------------------------------------------- 13 1-6 使用Union方法 ----------------------------------------------------------------------- 14 1-7 使用UsedRange属性 ---------------------------------------------------------------- 14 1-8 使用CurrentRegion属性 ------------------------------------------------------------ 15 技巧2 选定单元格区域的方法---------------------------------------------------------------- 15 2-1 使用Select方法 ----------------------------------------------------------------------- 15 2-2 使用Activate方法 -------------------------------------------------------------------- 16 2-3 使用Goto方法 ------------------------------------------------------------------------- 17 技巧3 获得指定行、列中的最后一个非空单元格 -------------------------------------- 17 技巧4 定位单元格 ------------------------------------------------------------------------------- 20

java2实用教程(第3版例子代码)

Java 2实用教程（第三版）清华大学出版社（编著耿祥义张跃平）例子源代码建议使用文档结构图（选择Word菜单→视图→文档结构图）

第一章Java 语言入门例子1 public class Hello { public static void main (String args[ ]) { System.out.println("你好，很高兴学习Java"); } } 例子2 public class People { int height; String ear; void speak(String s) { System.out.println(s); } } class A { public static void main(String args[]) { People zhubajie; zhubajie=new People(); zhubajie.height=170; zhubajie.ear="两只大耳朵"; System.out.println("身高:"+zhubajie.height); System.out.println(zhubajie.ear); zhubajie.speak("师傅，咱们别去西天了，改去月宫吧"); } } 例子3 import java.applet.*; import java.awt.*; public class Boy extends Applet { public void paint(Graphics g) { g.setColor(Color.red); g.drawString("我一边喝着咖啡，一边学Java呢",5,30); g.setColor(Color.blue);

Excel VBA编程的常用代码

用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！使用Dim语句 Dim a as integer '声明a为整型变量 Dim a '声明a为变体变量 Dim a as string '声明a为字符串变量 Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量 ...... 声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。强制声明变量 Option Explicit 说明：该语句必在任何过程之前出现在模块中。声明常数用来代替文字值。 Const ' 常数的默认状态是 Private。 Const My = 456 ' 声明 Public 常数。 Public Const MyString = "HELP" ' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。 Const MyStr = "Hello", MyDouble As Double = 3.4567 选择当前单元格所在区域在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就

可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 Sub My_Select Selection.CurrentRegion.Select End sub 返回当前单元格中数据删除前后空格后的值 sub my_trim msgbox Trim(ActiveCell.Value) end sub 单元格位移 sub my_offset ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格 ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格 ActiveCell.Offset(1 , 0).Select'当前单元格向下移动一格 ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格 end sub 如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往 sub my_offset 之下加一段代码 on error resume next 注意以下代码都不再添加sub “代码名称” 和end sub请自己添加! 给当前单元格赋值 ActiveCell.Value = "你好！！！" 给指定单元格赋值例如：Ａ１单元格内容设为"ＨＥＬＬＯ" Range("a1").value="hello" 又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入"ＨＥＬＬＯ" 1. sheets("sheet2").select