诗经中的用韵

诗经中的用韵心理健康自查 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 心理健康自查表PAGE/NUMPAGES心理健康自查表心理健康水平综合评估【自评量表】90项症状检查表（SCL-90） 要求 对教师党员的评价套管和固井爆破片与爆破装置仓库管理基本要求三甲医院都需要复审吗 ：20分钟之内独立完成。计分说明：采取1—5分的5级评分标准。从1分代表无症状到5分代表症状严重，依次递进。要记好题目顺序对应的分数，不能乱掉。总分160分以上的需要注意。1、头痛。　　1、无2、轻度3、中度4、相当重5、严重　　2、神经过敏，心中不踏实。　　1、无2、轻度3、中度4、相当重5、严重　　3、头脑中有不必要的想法或字句盘旋。　　1、无2、轻度3、中度4、相当重5、严重　　4、头晕和昏倒。　　1、无2、轻度3、中度4、相当重5、严重　　5、对异性的兴趣减退。　　1、无2、轻度3、中度4、相当重5、严重　　6、对旁人责备求全。　　1、无2、轻度3、中度4、相当重5、严重　　7、感到别人能控制您的思想。　　1、无2、轻度3、中度4、相当重5、严重　　8、责怪别人制造麻烦。　　1、无2、轻度3、中度4、相当重5、严重　　9、忘记性大。　　1、无2、轻度3、中度4、相当重5、严重　　10、担心自己的衣饰整齐及仪态的端正。　　1、无2、轻度3、中度4、相当重5、严重　　11、容易烦恼和激动。　　1、无2、轻度3、中度4、相当重5、严重　　12、胸痛。　　1、无2、轻度3、中度4、相当重5、严重　　13、害怕空旷的场所或街道。　　1、无2、轻度3、中度4、相当重5、严重　　14、感到自己的精力下降，活动减慢。　　1、无2、轻度3、中度4、相当重5、严重　　15、想结束自己的生命。　　1、无2、轻度3、中度4、相当重5、严重　　16、听到旁人听不到的声音。　　1、无2、轻度3、中度4、相当重5、严重　　17、发抖。　　1、无2、轻度3、中度4、相当重5、严重　　18、感到大多数人都不可信任。　　1、无2、轻度3、中度4、相当重5、严重　　19、胃口不好。　　1、无2、轻度3、中度4、相当重5、严重　　20、容易哭泣。　　1、无2、轻度3、中度4、相当重5、严重　　21、同异性相处时感到害羞不自在。　　1、无2、轻度3、中度4、相当重5、严重　　22、感到受骗、中了圈套或有人想抓住您。　　1、无2、轻度3、中度4、相当重5、严重　　23、无缘无故地突然感到害怕。　　1、无2、轻度3、中度4、相当重5、严重　　24、自己不能控制地发脾气。　　1、无2、轻度3、中度4、相当重5、严重　　25、怕单独出门。　　1、无2、轻度3、中度4、相当重5、严重　　26、经常责怪自己。　　1、无2、轻度3、中度4、相当重5、严重　　27、腰痛。　　1、无2、轻度3、中度4、相当重5、严重　　28、感到难以完成任务。　　1、无2、轻度3、中度4、相当重5、严重　　29、感到孤独。　　1、无2、轻度3、中度4、相当重5、严重　　30、感到苦闷。　　1、无2、轻度3、中度4、相当重5、严重　　31、过分担忧。　　1、无2、轻度3、中度4、相当重5、严重　　32、对事物不感兴趣。　　1、无2、轻度3、中度4、相当重5、严重　　33、感到害怕。　　1、无2、轻度3、中度4、相当重5、严重　　34、我的感情容易受到伤害。　　1、无2、轻度3、中度4、相当重5、严重　　35、旁人能知道您的私下想法。　　1、无2、轻度3、中度4、相当重5、严重　　36、感到别人不理解您不同情您。　　1、无2、轻度3、中度4、相当重5、严重　　37、感到人们对您不友好，不喜欢您。　　1、无2、轻度3、中度4、相当重5、严重　　38、做事必须做得很慢以保证做得正确。　　1、无2、轻度3、中度4、相当重5、严重　　39、心跳得很厉害。　　1、无2、轻度3、中度4、相当重5、严重　　40、恶心或胃部不舒服。　　1、无2、轻度3、中度4、相当重5、严重　　41、感到比不上他人。　　1、无2、轻度3、中度4、相当重5、严重　　42、肌肉酸痛。　　1、无2、轻度3、中度4、相当重5、严重　　43、感到有人在监视您谈论您。　　1、无2、轻度3、中度4、相当重5、严重　　44、难以入睡。　　1、无2、轻度3、中度4、相当重5、严重　　45、做事必须反复检查。　　1、无2、轻度3、中度4、相当重5、严重　　46、难以作出决定。　　1、无2、轻度3、中度4、相当重5、严重　　47、怕乘电车、公共汽车、地铁或火车。　　1、无2、轻度3、中度4、相当重5、严重　　48、呼吸有困难。　　1、无2、轻度3、中度4、相当重5、严重　　49、一阵阵发冷或发热。　　1、无2、轻度3、中度4、相当重5、严重　　50、因为感到害怕而避开某些东西、场合或活动。　　1、无2、轻度3、中度4、相当重5、严重　　51、脑子变空了。　　1、无2、轻度3、中度4、相当重5、严重　　52、身体发麻或刺痛。　　1、无2、轻度3、中度4、相当重5、严重　　53、喉咙有梗塞感。　　1、无2、轻度3、中度4、相当重5、严重　　54、感到没有前途没有希望。　　1、无2、轻度3、中度4、相当重5、严重　　55、不能集中注意。　　1、无2、轻度3、中度4、相当重5、严重　　56、感到身体的某一部分软弱无力。　　1、无2、轻度3、中度4、相当重5、严重　　57、感到紧张或容易紧张。　　1、无2、轻度3、中度4、相当重5、严重　　58、感到手或脚发重。　　1、无2、轻度3、中度4、相当重5、严重　　59、想到死亡的事。　　1、无2、轻度3、中度4、相当重5、严重　　60、吃得太多。　　1、无2、轻度3、中度4、相当重5、严重　　61、当别人看着您或谈论您时感到不自在。　　1、无2、轻度3、中度4、相当重5、严重　　62、有一些不属于您自己的想法。　　1、无2、轻度3、中度4、相当重5、严重　　63、有想打人或伤害他人的冲动。　　1、无2、轻度3、中度4、相当重5、严重　　64、醒得太早。　　1、无2、轻度3、中度4、相当重5、严重　　65、必须反复洗手、点数目或触摸某些东西。　　1、无2、轻度3、中度4、相当重5、严重　　66、睡得不稳不深。　　1、无2、轻度3、中度4、相当重5、严重　　67、有想摔坏或破坏东西的冲动。　　1、无2、轻度3、中度4、相当重5、严重　　68、有一些别人没有的想法或念头。　　1、无2、轻度3、中度4、相当重5、严重　　69、感到对别人神经过敏。　　1、无2、轻度3、中度4、相当重5、严重　　70、在商店或电影院等人多的地方感到不自在。　　1、无2、轻度3、中度4、相当重5、严重　　71、感到任何事情都很困难。　　1、无2、轻度3、中度4、相当重5、严重　　72、一阵阵恐惧或惊恐。　　1、无2、轻度3、中度4、相当重5、严重　　73、感到在公共场合吃东西很不舒服。　　1、无2、轻度3、中度4、相当重5、严重　　74、经常与人争论。　　1、无2、轻度3、中度4、相当重5、严重　　75、单独一人时神经很紧张。　　1、无2、轻度3、中度4、相当重5、严重　　76、别人对您的成绩没有作出恰当的评价。　　1、无2、轻度3、中度4、相当重5、严重　　77、即使和别人在一起也感到孤单。　　1、无2、轻度3、中度4、相当重5、严重　　78、感到坐立不安心神不定。　　1、无2、轻度3、中度4、相当重5、严重　　79、感到自己没有什么价值。　　1、无2、轻度3、中度4、相当重5、严重　　80、感到熟悉的东西变成陌生或不象是真的。　　1、无2、轻度3、中度4、相当重5、严重　　81、大叫或摔东西。　　1、无2、轻度3、中度4、相当重5、严重　　82、害怕会在公共场合昏倒。　　1、无2、轻度3、中度4、相当重5、严重　　83、感到别人想占您的便宜。　　1、无2、轻度3、中度4、相当重5、严重　　84、为一些有关“性”的想法而很苦恼。　　1、无2、轻度3、中度4、相当重5、严重　　85、您认为应该因为自己的过错而受到惩罚。　　1、无2、轻度3、中度4、相当重5、严重　　86、感到要赶快把事情做完。　　1、无2、轻度3、中度4、相当重5、严重　　87、感到自己的身体有严重问题。　　1、无2、轻度3、中度4、相当重5、严重　　88、从未感到和其他人很亲近。　　1、无2、轻度3、中度4、相当重5、严重　　89、感到自己有罪。　　1、无2、轻度3、中度4、相当重5、严重　　90、感到自己的脑子有毛病。　　1、无2、轻度3、中度4、相当重5、严重SCL-90量表共包括10个因子，即90项分为十大类，每一因子反映受检者的一方面情况，下面是各因子名称及所包含项目：1．躯体化：1、4、12、27、40、42、48、49、52、53、56、58共12项2．强迫症状：3、9、10、28、38、45、46、51、55、65共10项3．人际关系敏感：6、21、34、36、37、41、61、69、73共9项4．抑郁：5、14、15、20、22、26、29、30、31、32、54、71、79共13项5．焦虑：2、17、23、33、39、57、72、78、80、86共10项6．敌对：11、24、63、67、74、81共6项7．恐怖：13、25、47、50、70、75、82共7项8．偏执：8、18、43、68、76、83共6项9．精神病性：7、16、35、62、77、84、85、87、88、90共10项10.其他：19、44、59、60、64、66、89共7项，主要反映睡眠及饮食情况。ExcelVBA_类代码实例集锦ExcelVBA_类代码实例集锦PAGE/NUMPAGESExcelVBA_类代码实例集锦1,类动态数组控件‘2007VBA技巧‘快盘\Mytb\更新\类\类动态数组控件.xlsm‘2013-6-16类模块代码：PublicWithEventsfrmAsMSForms.UserFormPublicWithEventsmyTextAsMSForms.TextBoxPublicIndexAsIntegerPrivateSubmyText_Change()Index=Mid(myText.Name,8)Iffrm.Controls("Textbox"&Index)<>""Then"控件名称："&frm.Controls("Textbox"&Index).Name&vbCrLf&_"Text属性："&frm.Controls("Textbox"&Index).TextEndIfEndSubPrivateSubmyText_DblClick(ByValCancelAsMSForms.ReturnBoolean)Index=Mid(myText.Name,8)Iffrm.Controls("Textbox"&Index)<>""Then"控件名称："&frm.Controls("Textbox"&Index).Name&vbCrLf&_"Cancel属性："&CancelEndIfEndSubKeyUp事件与Change事件重迭，二者取其一PrivateSubmyText_KeyUp(ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger)Index=Mid(myText.Name,8)Iffrm.Controls("Textbox"&Index)<>""TheneyUp"&vbCrLf&_"控件名称："&frm.Controls("Textbox"&Index).Name&vbCrLf&_"按键值：&H"&Hex$(KeyCode)EndIfEndSubPrivateSubmyText_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)SelectCaseIndexCase3Case8Case4Case9CaseElseEndSelectEndSub模块1代码：Publica(1To14)AsmyTextSubformshow()Userform2.ShowEndSub窗体代码：PrivateSubCommandButton1_Click()Dimi&,t$Fori=1To14Ifa(i).myText.Text<>""Thent=t&"控件名称："&a(i).myText.Name&vbTab&"Text属性："&a(i).myText.Text&vbCrLfEndIfNextiMsgBoxtEndSubPrivateSubUserForm_Initialize()Dimi&Fori=1To14Seta(i)=NewmyTextSeta(i).myText=Me.Controls("Textbox"&i)Seta(i).frm=MeNextiEndSub工作表代码：PrivateSubCommandButton1_Click()Userform2.ShowEndSub2,复选框选择‘快盘\Mytb\更新\类\类0928..xls‘当复选框选择到7个时，其它的复选框不能再选择。当复选框选择小于7个，其它的复选框还能继续选择。类模块代码：PublicWithEventscheAsMSForms.CheckBoxPublicWithEventsfrmAsMSForms.UserFormPrivateSubche_Change()'类的数据改变事件DimindexAsLongindex=Mid(che.Name,9)'取出checkboxN中的数字NIffrm.Controls("checkbox"&index)=TrueThena=a&Format(index,"00")&","n=n+1Ifn=7ThenFori=1To18b=Format(i,"00")IfInStr(a,b)=0Thenfrm.Controls("checkbox"&i).Enabled=FalseEndIfNextElseEndIfElsen=n-1a=Replace(a,Format(index,"00"),"")Fori=1To18frm.Controls("checkbox"&i).Enabled=TrueNextEndIfEndSub模块1代码：Publicnewclass(1To18)Asche类,n&,a$Subformshow()UserForm1.ShowEndSub窗体代码：PrivateSubUserForm_Initialize()Fori=1To18Setnewclass(i)=Newche类'创建一个新的che类对象Setnewclass(i).che=Controls("checkbox"&i)'设置新类和checkbox(i)控件创建关键Setnewclass(i).frm=Me'类窗体也和当前窗体建立关联NextEndSub3,限制多个TEXTBOX的输入，使其只能输入数值‘快盘\Mytb\更新\类\如何限制多个TEXTBOX的输入_zhaogang1980.xls‘6447-1-1.html类模块代码：PublicWithEventsTxtboxAsMSForms.TextBoxPrivateSubTxtbox_Change()WithCreateObject("vbscript.regexp").Global=True.Pattern="[^0-9.]+"If.test(Txtbox.Text)ThenTxtbox.Text=.Replace(Txtbox.Text,"")EndIfEndWithEndSub模块1代码：SubMacro1()UserForm1.ShowEndSub窗体代码：DimTxt()AsNewclsTxtPrivateSubUserForm_Initialize()DimctlAsControl,m&ForEachctlInMe.ControlsIfTypeName(ctl)="TextBox"ThenIfctl.Name<>"TextBox1"Thenm=m+1ReDimPreserveTxt(1Tom)SetTxt(m).Txtbox=ctlEndIfEndIfNextEndSubPrivateSubTextBox1_Exit(ByValCancelAsMSForms.ReturnBoolean)'第一个不需要类模块IfTextBox1.Text=""ThenExitSubIfIsDate(TextBox1.Text)=FalseThenCancel=TrueTextBox1.Text=""EndIfEndSub4，限制输入字母‘8095-1-1-14725.htmlPrivateWithEventstAsMSForms.TextBoxPrivateSubt_KeyPress(ByValKeyAsciiAsMSForms.ReturnInteger)'限制只可以输入数字，不可输入字母和其他符号SelectCaseKeyAsciiCase48To57Case46IfInStr(1,t.Text,".")ThenKeyAscii=0EndIfCaseElseKeyAscii=0EndSelectEndSubPrivateSubt_KeyUp(ByValKeyCodeAsMSForms.ReturnInteger,ByValShiftAsInteger)'限制中文输入WithCreateObject("vbscript.regexp").Global=True.Pattern="[^0-9.]+"If.test(t.Text)Thent.Text=.Replace(t.Text,"")EndIfEndWithEndSubPublicSubtk(iAsOLEObject)'获取oleboject对象Sett=i.ObjectEndSubDimAr(1To100)AsTT'定义数组类Subjustest()DimjAsOLEObject,KAsByteForEachjInSheet1.OLEObjectsIfTypeName(j.Object)="TextBox"Then'如果为TEXTBOX控件'清空文本框K=K+1:SetAr(K)=NewTT'同时创建类实体Ar(K).tkj'给类实体赋值，激活事件。EndIfNextEndSub5，表格上的按钮‘telnet_zhaogang1960。xls‘类模块clsCmd中代码：PublicWithEventsCmdboxAsMSForms.CommandButtonPrivateSubCmdbox_Click()MsgBoxCmdbox.CaptionEndSub‘表格1上的ActiveX按钮控件DimCmd(1To3)AsNewclsCmdPrivateSubWorksheet_Activate()DimiAsByteFori=1To3SetCmd(i).Cmdbox=Me.OLEObjects("CommandButton"&i).ObjectNextEndSubPrivateSubWorksheet_Deactivate()EraseCmdEndSub6,求助由代码生成的控件的事件by:山菊花‘当光标移入某个文本框，这个文本框的背景色变为蓝色，前景改为白色‘7834-1-1.html类模块代码：PublicWithEventscmdAsMSForms.CommandButtonPublicWithEventsmBoxAsMSForms.TextBoxPrivateSubcmd_Click()DimctlAsMSForms.ControlWithUserForm1ForEachctlIn.ControlsIfTypeName(ctl)="TextBox"ThenIfctl.Name<>"TextBox1"Then.Controls.Removectl.NameElseIfTypeName(ctl)="CommandButton"ThenIfctl.Name<>"CommandButton1"Andctl.Name<>"CommandButton2"Then.Controls.Removectl.NameEndIfNext.CommandButton1.Enabled=True.CommandButton2.Enabled=FalseEndWithEndSubPrivateSubmBox_MouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)Fori=2To4WithUserForm1.Controls("TextBox"&i).ForeColor=0.BackColor=16777215EndWithNextmBox.BackColor=16711680mBox.ForeColor=16777215EndSub窗体代码：Privated(1To4)AsNewcmd_ClassPrivateSubCommandButton1_Click()Fori=1To3Withd(i).mBox.Left=10.Top=(i-1)*30+3.Width=70.Height=20.Text=.NameEndWithNextiWithd(4).cmd.Left=CommandButton2.Left.Top=CommandButton2.Top+CommandButton2.Height.Width=CommandButton2.Width.Height=CommandButton2.Height.Caption="删除"EndWithCommandButton1.Enabled=FalseCommandButton2.Enabled=TrueEndSubPrivateSubCommandButton2_Click()Fori=2To4WithControls("TextBox"&i)TextBox1.Value=Val(TextBox1.Value)+Val(.Value).ForeColor=0.BackColor=16777215EndWithNextEndSub7，窗体键盘‘快盘\Mytb\更新\类\可否实现窗体键盘.xls模块1代码：PublicsNameAsString类模块CmdArray代码：PublicWithEventscmdAsMSForms.CommandButtonPrivateSubcmd_Click()UserForm1.Controls(sName).Text=UserForm1.Controls(sName).Text&cmd.CaptionEndSub类模块TxtArray代码：PublicWithEventstxtAsMSForms.TextBoxPrivateSubtxt_MouseDown(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)sName=txt.NameEndSub窗体代码：PrivatearrCmd(0To10)AsCmdArrayPrivatearrTxt(1To4)AsTxtArrayPrivateSubUserForm_Initialize()DimiAsIntegerDimcmdNewAsCmdArrayDimtxtNewAsTxtArrayFori=0To10SetcmdNew=NewCmdArraySetcmdNew.cmd=Me.Controls("CommandButton"&i)SetarrCmd(i)=cmdNewSetcmdNew=NothingNextFori=1To4SettxtNew=NewTxtArraySettxtNew.txt=Me.Controls("TextBox"&i)SetarrTxt(i)=txtNewSettxtNew=NothingNextEndSub8，横道图快盘\Mytb\更新\类\类入门\横道图_a371014988.xls模块1代码：Sub画线条()DimstAsWorksheet,arrAsRange,tgAsRangeSetst=Sheets("横道图")Setarr=st.Range("A5:A"&st.Range("A65536").End(xlUp).Row)ForEachtgInarrDimLiAsNew类1Li.SDate=DateValue(tg.Offset(0,3))Li.Edate=DateValue(tg.Offset(0,4))Li.st=stLi.target=tgLi.arr=st.Range(Cells(2,7),st.Cells(2,255).End(xlToLeft))IfLi.lineThenDebug.PrinttgNextEndSub类模块类1代码：'取左Privatem_stAsWorksheetPrivateM_SDateAsDatePrivateM_EDateAsDatePrivateM_targetAsRangePrivateM_arrAsRangeConstHeightAsInteger=3PublicPropertyGetEdate()AsDateEdate=M_EDateEndPropertyPublicPropertyLetEdate(valueAsDate)M_EDate=valueEndPropertyPublicPropertyGetSDate()AsDateSDate=M_SDateEndPropertyPublicPropertyLetSDate(valueAsDate)M_SDate=valueEndPropertyPublicPropertyGetst()AsWorksheetSetst=m_stEndPropertyPublicPropertyLetst(stvalueAsWorksheet)Setm_st=stvalueEndPropertyPublicPropertyGettarget()AsRangeSettarget=M_targetEndPropertyPublicPropertyLettarget(tgvalueAsRange)SetM_target=tgvalueEndPropertyPublicPropertyGetarr()AsRangeSetarr=M_arrEndPropertyPublicPropertyLetarr(valueAsRange)SetM_arr=valueEndPropertyPublicFunctionGetDateLineLeft(ByValStartDateAsDate)AsSingleDimtgAsRange,StartPointLeftAsSingle,iAsIntegerForEachtgInarrIfIsDate(tg.value)ThenIfYear(StartDate)=Year(tg.value)AndMonth(StartDate)=Month(tg.value)Then'IfDateValue(Year(StartDate)&"-"&Month(StartDate)&"-"&"1")=DateValue(tg.Value)ThenDebug.PrintDay(StartDate)SelectCaseCInt(Day(StartDate))CaseIs0ThenpSalary=DElse‘错误提示MsgBox“薪水怎能为负呢?”EndIfEndProperty与PropertyLet函数相对应的是PropertyGet函数，用于从类中获取属性的值。在CEmployee类中，相应的PropertyGet语句为：PropertyGetName()AsStringName=pNameEndPropertyPropertyGetAddress()AsStringAddress=pAddressEndPropertyPropertyGetSalary()AsDoubleSalary=pSalaryEndPropertyLet语句和Get语句的数据类型必须相匹配。例如，LetSalary接受Double类型的值作为其参数，这意味着其返回的相应的Get属性的值必须是Double。如果数据类型不一致，就会导致编译错误。这些Get语句简单地将三个属性向外公开。要创建只读属性，则忽略PropertyLet语句而仅使用PropertyGet语句。例如，WithholdingTax属性是只读的，在Get语句中的代码计算合适的值并将其公开，但避免从外部改变该属性的值：PropertyGetWithholdingTax()AsDoubleWithholdingTax=some_tax_calculationEndProperty该属性没有对应的Let语句，因此该属性只读，没有办法将值赋给WithholdingTax。类模块能够包含方法，例如CEmployee类有一个用于雇员复核薪水的方法：PublicSubPrintPaycheck()‘放置打印复核的实际代码EndSub好了，我们已经完成了CEmployee类的初步定义，如图1所示。图1：CEmployee类下面，在标准模块的代码中实例化类，并使用其属性和方法。首先，在VBE编辑器中插入一个模块，声明一个CEmployee类型的变量。（注意，在复杂的应用程序中，在类模块中声明并实例化另一个类是完全合法的）DimEmpAsCEmployee接下来，实例化该类，创建一个可用来工作的实际对象，如下列语句：SetEmp=NewCEmployee上述语句创建了一个名为Emp的对象，能够使用CEmployee类中的属性来引用特定的雇员信息，例如：Emp.Name=“fanjy”Emp.Address=“YiChang”Emp.Salary=1000这三个语句调用在CEmployee类中声明的PropertyLet语句来赋值给类中的私有变量。我们能够使用下列代码读取对象的属性的值：Debug.PrintEmp.NameDebug.PrintEmp.AddressDebug.PrintEmp.Salary上述语句调用类模块中的PropertyGet语句并获取数据。我们也能读取类中的只读属性WithholdingTax：Debug.PrintEmp.WithholdingTax由于WithholdingTax属性没有相应的Let语句，因此不能给该属性赋值。如果试图赋值：Emp.WithholdingTax=4000则会导致：“编译错误：不能给只读属性赋值”。也能够调用方法来执行操作：Emp.PrintPaycheck在集合中存储类的多个实例如果到运行时还不知道有多少个雇员，那么能够在运行时按需要创建多个Emp对象，每创建一个Emp对象之后将其存储在集合中。例如：DimCollAsNewCollectionDimNdxAsLongDimEmpAsCEmployeeForNdx=1ToNumberOfEmployeesSetEmp=NewCEmployee‘设置Emp对象的属性Coll.AddItem:=Emp,Key:=Emp.NameNextNdx上面的For…Next循环将创建CEmployee类的NumberOfEmployees个实例，具体数量由运行时决定，并将其存储在名为Coll的集合对象中。之后，能够使用ForEach循环从Coll集合中获取每个雇员信息或执行操作：ForEachEmpInCollEmp.PrintPaycheckNextEmp类的Instancing属性类的Instancing属性决定其可见性（或称作作用域），默认属性值为1-Private，意味着类仅能在包含该类的 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 中创建和访问。其他工程不能基于该类创建对象。对于绝大多数应用程序来说，Private是足够了。Instancing属性的另一个值是2-PublicNotCreatable，表明其他工程能够将变量声明为该类，但是不能使用Set语句创建该类的实例。在多个工程间使用类如果一个工作簿需要使用定义在另一个工作簿中的类，则需要在包含类模块的工作簿中编写代码导出类到另一个工程。该类的Instancing属性必须是2-PublicNotCreatable。假设Book1.xls工作簿中包含一个名为Class1的类模块，Book2.xls需要使用该类。首先，将Book1工作簿的工程名称从缺省的“VBAProject”修改为唯一的名称，例如MyProject。然后，在VBE编辑器中激活Book2工作簿的界面，设置对Book1工作簿的引用，即在VBE中选择“工具——引用”，然后在列表中选择“MyProject”。然后，在Book2中，创建如下声明：PublicCAsMyProject.Class1因为Instancing的属性值为PublicNotCreatable，所以可以声明一个Class1类的变量，但不能创建该类的实例。因此，需要在Book1中编写一个函数来创建Class1的新实例，并返回该实例给Book2。在Book1中，创建下面的过程：PublicFunctionGetClass1()AsClass1SetGetClass1=NewClass1EndFunction然后，在Book2中设置公共变量C为上述函数的结果，例如：SetC=MyProject.GetClass1()现在，C被设置为Class1的新实例。好了，上面只是对类模块的一些初步介绍，还有一些知识未讲述，例如PropertySet语句，留待以后在慢慢整理。<完美Excel整理，仅供参考！>10，设置类的默认属性设置类的默认属性在Excel中，许多对象都有一个默认的属性。如果在使用某对象时，没有专门指定属性，则会使用该对象的默认属性。例如，Range对象的Value属性是其默认属性，因此下列两行代码作用相同：Range(“A1”).Value=123Range(“A1”)=123然而，VBA并没有提供一种简单的机制用于为类指定默认属性，但是确实可以指定默认的属性，只不过需要“费一些周折”。假设有一个名为CMyClass的类，其代码如下：OptionExplicitPrivatepValueAsLongPrivatepNameAsStringPropertyGetValue()AsLongValue=pValueEndPropertyPropertyLetValue(VAsLong)pValue=VEndPropertyPropertyGetName()AsStringName=pNameEndPropertyPropertyLetName(VAsString)pName=VEndProperty如果没有指定默认属性，下面的测试将失败，导致运行时错误438——对象不支持该属性或方法。Subtest()DimMyClassAsCMyClassSetMyClass=NewCMyClassMyClass=123EndSub要使Value属性为默认属性，可按下列步骤进行。步骤1：保存工作簿。步骤2：在VBE编辑器中打开CMyClass模块。步骤3：单击“文件——移除CMyClass”。步骤4：当出现“在移除CMyClass之前是否将其导出”的信息提示框时，选择“是”，保存该模块。步骤5：在记事本或者其它文本编辑器中打开刚导出的文件CMyClass.cls。步骤6：找到PropertyGetValue()过程，并在第一