vb

你先得把图整上来吧

最近陀枪师姐2021开播，作为tvb电视剧儿童，我终于找到了新的话题点。近年来tvb重启了一系列曾经的热剧，但是最终都水花有限。今天就以法证先锋四为例做一分析。 法证先锋4仍由梅小青监制，于2020年三月播出。由于与上一部间隔时间较长，主演全部换血。又由于主演之一的黄心颖涉及插足丑闻，导致项目需要后期补拍，并选择汤洛雯代替黄心颖重新拍摄。 除了补拍，这部片子在剧情上也存在问题。而这是导致本片口碑下降的主要原因。我觉得，主创试图要做出与前三部不同的发展，但是反而搞得不伦不类。 比如主线cp，这一部剧的宣传上的男女主角居然不是cp。做个对比，法证1主cp为法证部tim sir和重案组高级督察梁小柔，副cp是法医sam和法证部职员林汀汀。第二部加入cp为新重案组高级督察马帼英和法证部杨渊升，以及重案组警长沈雄和法证部莫淑媛。第三部另起炉灶，主cp是法证部po sir和法医mandy，副cp是重案组高级督察凌倩儿和下属李展风，以及法证部be的小情侣。到了第四部，cp线是这样的。法证部高sir和小记者徐意（原黄心颖角色），法医和她去世姐姐的爱人兼路人，重案组高级督察king和法证部queen。除了king&queen这个cp外，其他就莫名其妙。感觉没啥推进就大结局强行凑一起了。再者，134三部男主本身都有cp，在拆cp重组上，这一部也最拙劣。第一部开篇不久tim sir夫人去世，到他和小柔定情，用了很大的篇幅。第三部po sir离婚到和mandy定情大概用了三分之一剧集的篇幅，相比第一部已经有点儿诡异了。这次，大概二十集左右高sir还和前女友Monique在一起（郑希怡姐姐好漂亮），然后Monique莫名其妙劈腿，然后结局高sir告白徐意…就，没有任何铺垫。（据说本来剧情有高氏兄妹和徐意的情结，因为妹妹演员朱晨丽当时无法补拍于是就全删了…） 当然除了cp线，主线剧情也各种没有新意，尤其是所谓电脑探案的加入，反而失去了原先探案剧抽丝剥茧的乐趣。forensic science是中立的，是根据证物获取最合理的还原，而不是无所不能的预测。 虽然吐槽了这么多，但是我当时还是追的挺开心…捂脸

描述返回表达式，该表达式已被转换为 Single 子类型的 Variant。语法CSng(expression)expression 参数是任意有效的表达式。说明通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币或整数运算的情况下，使用 CDbl 或 CSng 强制执行双精度或单精度运算。CSng 函数用于进行从其他数据类型到 Single 子类型的国际公认的格式转换。例如，对十进制分隔符（如千分符）的识别取决于系统的区域设置。如果 expression 在 Single 子类型允许的范围之外，则发生错误。

X6NiCrTiMoVB25-15-2属于德标镍合金耐蠕变钢，执行标准：EN 10302-2008X6NiCrTiMoVB25-15-2在650℃以下具有高的屈服强度和持久、蠕变强度，并且具有较好的加工塑性和满意的焊接性能。适合制造在650℃以下长期工作的航空发动机高温承力部件，如涡轮盘、压气机盘、转子叶片和紧固件等。

如果 DVB 是指数字卫星电视的话，是不分 VHF 和 UHF 的；VHF 和UHF只指模拟电视频段

Dim MyBName As stringmybmane= ComboBox1.Text Dim MyName As stringmyname= ComboBox2.TextDim mySql As String mysql= "select * from " + MyBName + " where 名 ="" + MyName + """

说详细点

我给你一个实例，你自己修改；一，运行界面：二，完整代码：Imports System.IOPublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click"写文件Dim Myw As New FileStream(Application.StartupPath & "实验文件.txt", FileMode.Create)Dim MyB_Write As BinaryWriter = New BinaryWriter(Myw)MyB_Write.Write(TextBox1.Text)Myw.Close()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click"读文件Dim Myr As New FileStream(Application.StartupPath & "实验文件.txt", FileMode.Open, FileAccess.Read)Myr.Position = 0Dim MyB_Read As New BinaryReader(Myr)Dim MyFileLength As Integer = CInt(Myr.Length - Myr.Position) - 1Dim MyFileData(MyFileLength) As CharMyB_Read.Read(MyFileData, 0, MyFileLength)Myr.Close()TextBox2.Text = ""Dim i As IntegerFor i = LBound(MyFileData) To UBound(MyFileData)TextBox2.Text = TextBox2.Text & MyFileData(i)NextEnd SubEnd Class

"给你写了一点，不觉得那代码有什么好的 Sub adpx6() Worksheets(ActiveSheet.Name).UsedRange.Interior.ColorIndex = 0"当前工作表的有数据的单元格的背景色设置为0 Set myb = CreateObject("scripting.dictionary") "创建字典 For Each rng In Worksheets(ActiveSheet.Name).UsedRange "浏览当前激活工作表中所有单元格 If Application.WorksheetFunction.CountIf(Worksheets(ActiveSheet.Name).UsedRange, rng) > 1 Then "如果单元格中的数据>1 If Not myb.Exists(rng.Value) Then "如果这个数不在字典中 Set myb(rng.Value) = rng "把这个单元格中的数加入字典 Else Set myb(rng.Value) = Union(myb(rng.Value), rng) "把已存在的值和找到的单元格中的值结合在一起加入字典 End If End If Next For Each mykey In myb "浏览字典 i = Int(1 + 55 * Rnd()) "取1-55一个随机数 myb(mykey).Interior.ColorIndex = i "设置单元格背景色 Next Set myb = NothingEnd Sub

你搞错了一点：Unicode字符规定，每个字符占用两个字节，包括英文和数字，所以你只需将：<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=3)> Public s As String改成：<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=6)> Public s As String即可！

平时多练习吧，有些属性要翻译成准确的中文很真说不准，其实有些独立的中文词在没有语境的情况下也有歧意的。其实你在编程时，点中属性后下面都有说明的，一般常用的都能看明白的。

该语句本身没有问题，希望你上传报错的图，是否形状不对之类的原因（内容有合并单元格导致不能部分复制）

如图所示的问题，要实现多条件查询，即在第一个组合框中输入条件1单击查询"Provider=Microsoft.Jet.OLEDB.4.0;data source=你的数据库文件.mdb;

do while not adoRs.eofif trim(adoRs!正确答案) = trim(adoRs!选择的答案) thenstore=store+1pro="正确" end ifadoRs.movenextloop如果不要中间步骤的话adoRs.Open "select count(*) from type2 where 正确答案 = 选择的答案", cn, adOpenStatic, adLockOptimistic msgbox adoRs.Fields(0)

以前使用DAO时，Microsoft有提供CompactDatabaseMethod来压缩MicrosoftAccess文件，RepairDatabaseMethod来修复损坏的MicrosoftAccess文件，。可是自从ADO出来之后，好像忘了提供相对的压缩及修复MicrosoftAccess文件的功能。现在Microsoft发现了这个问题了，也提供了解决方法，不过有版本上的限制！限制说明如下：ActiveXDataObjects(ADO),version2.1MicrosoftOLEDBProviderforJet,version4.0这是Microsoft提出的ADO的延伸功能：MicrosoftJetOLEDBProviderandReplicationObjects(JRO)这个功能在JETOLEDBProviderversion4.0(Msjetoledb40.dll)及JROversion2.1(Msjro.dll)中第一次被提出！这些必要的DLL文件在您安装了MDAC2.1之后就有了，您可以在以下的网页中下载MDAC的最新版本！UniversalDataAccessWebSite在下载之前先到VB6中检查一下，【控件】【设定引用项目】中的MicrosoftJetandReplicationObjectsX.Xlibrary如果已经是2.1以上的版本，您就可以不用下载了！1、新建一个新表单，选择功能表中的【控件】【设定引用项目】。2、加入MicrosoftJetandReplicationObjectsX.Xlibrary，其中(X.X大于或等于2.1)。3、在适当的地方加入以下的程序代码，记得要修改datasource的内容及目地文件的路径：DimjroAsjro.JetEngineSetjro=Newjro.JetEnginejro.CompactDatabase"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:wind2.mdb",_"来源文件在DAO3.60之后，RepairDatabaseMethod已经无法使用了，以上的程序代码显示了ADOCompactDatabaseMethod的用法，而它也取代了DAO3.5时的RepairDatabasemethod！

你都没截图说错误断点在哪里

不知道你要用VB计时器实现什么样的功能呢？

不知道

按字母的排列顺序写吧，我也不知道

1 mscomm.vbx通信控件描述 mscomm.vbx通信控件可直接从vb的toolbox中加入窗体form，即可用其进行通信。若toolbox中无此控件，则用tools的custom controls 将mscomm.vbx从windows的system子目录中加入vb的toolbox中。 1.1 通信方式 mscomm.vbx有2种不同的方式来处理和解决各类通信软件的开发和设计问题 1、事件驱动。它与c/c++写windows 软件时的窗口回调函数类似，是1种功能强大的处理问题的方法。在实际工作中，往往要处理许多通信中的相关事件，例如：当线路数据到达本端或cd线和rts信号线状态发生变化时，要求我们使用相应的事件来跟踪和处理，该控件是使用oncomm事件来实现的，它也包括检测和处理通信错误等方面的问题，commevent 值返回最近的通信事件或错误的数字代码。通信控件详细的错误和事件举例有： mscomm-er-break 收到1个break signal mscomm-er-cdto cd 信号超时 …… mscomm-ev-cd cd信号改变 …… 2、查询方式。由程序设计者负责读取commevent的值并处理所发生的错误或事件。通常简单的应用程序设计可采用这种办法。 1.2 通信控件的属性 利用通信控件编制通信程序，关键是准确理解设置通信控件的属性。mscomm.vbx提供了27个关于通信控件方面的属性，例如： commport：设置或返回通信口编号。 settings：设置或返回以字符串形式出现的数据通信格式：波特率、校验、数据位和停 止位。 portopen：设置或返回通信口状态（包括打开和关闭1个通信口） …… 3、 实例 本程序应用背景为dcc95型静电除尘器自动监控系统软件，解决1个pc工控机（主站）与32个单片机（子站）之间的通信问题。主站与子站之间这总线式网络结构，采用rs-485通信标准，以问答方式进行数据通信。由于32个子站与主站发送通信命令（下行命令），主站在接收子站发回的相应回答命令（上行命令）后继续发送下行命令的通信形式。根据系统功能的要求，主站需发送2种类型的命令：（1）同期命令，它由定时器触发引起，每隔ls周期发送1次；（2）非周期性命令，它由操作者按动相应命令按钮引起，非周期性发送。自动监控系统软件安装在主站上，而通信程序作为自动监控系统软件的一部分也安装在主站上。 本文仅列出调试通信程序时进行试验用的基本演示程序清单。试验时，用1台pc机作为主站，另一台pc机模拟32个子站的工作，两台pc机之间采用rs232c串口通信。往主站的通信演示程序窗体（form）中加入1个通信控件、2个定时器控件和1个命令按钮控件，通信控件（mscomm1）用于访问串口，发送和接收数据；periodic定时器控件（periodic）用于控制每秒由主站向各子站发送周期性命令；命令按钮控件(nonperiodic-command)与nonperiodic定时器控件（nonperiodic）用于发送非周期性命令。数据传送采用事件驱动的通信方式，根据不同的发送命令设置rtreshlod属性，从而引起oncomm事件以接收数据。 2.1 窗体各控件初始化程序 设置通信串口工作参数，设置periodic定时器的在断间隔为ls, nonperiodic定时器的中断间隔为0.5s。 sub form-load () mscomm1.commport=2 "选用com2串行口 mscomm1.settings="9600，n8，1" "波特率9600，无奇偶校验位，8位数据位1位停止位 mscomm1.inputlen=0 "input将读取接收缓冲区的全部内容 mscomm1.inbuffersize=1024 "设置接收缓冲区的字节长度 mscomm1.portopen=true "打开通信口 mscomm1.inbuffercount=0 "清除发送缓冲区数据 mscomm1.outbuffercount=0 "清除接收缓冲区数据 periodic.inteval=100 "设置ls定时间隔，使遥测命令每隔ls发送1次 nonperiodic.inteval=500 "设置0.5s定时间隔，查询命令按钮是否处于激活状态以确定是否发送周期性命令 command-pressed=false "命令按钮为未激活状态 during- periodic=false "周期性命令数据传输尚未开始 during- nonperiodic=false "非周期性命令数据传输尚未开始 end sub 2.2 非周期性命令发送程序 根据命令按钮状态及周期性命令数据传输状态，在nonperiodic定时器的中断程序中发送非周期性命令。 sub nonperiodic-command-click () command-pressed=true "命令按钮激活 end sub sub nonperiodic-timer () if during- periodic=true or command-pressed=false then exit sub "若周期性命令数据传输尚未结束或命令按钮处于激活状态，则退出发送非周期性命令程序。 command-pressed=false "命令按钮恢复为未激活状态 call senddata (nonperiodic-command) "发送非周期性命令 mscomm1.rthreshold=r-nonperiodic-byte"发送非周期性命令后，设置rthreshold属性，使主站接收所设定的字节数后引发oncomm事件 end sub 2.3 periodic定时器程序 在periodic定时器的中断程序中发送周期性命令： sub periodic-timer () if during- nonperiodic=true then exit sub "若非周期性命令数据传输尚未结束，则退出发送非周期性命令程序。 during-periodic=true "设置周期性命令数据传输状态为正在进行中 call senddata (periodic-command) "发送周期性命令 mscomm1.rthreshold=r-periodic-byte "发送周期性命令后，主站接收r-remot- edata-byte个字节，可引发oncomm 事件 end sub 2.4 oncomm事件程序 根据rthreshold属性设置值，当接收缓存区内接收到相应字节的字符时，引发oncomm事件，在中断程序中接收数据。 sub mscomm1-oncomm () select case mscomm1.commevent "在此可插入处理各种不同错误或事件的代码 case mscomm-ev-receive receivestring$=mscomm1.input select case mscomm1.rthreshold case r-periodic-byte "周期性命令的应答数据 call disposedata(periodic-command) "处理接收数据 during periodic=false "设置周期性命令数据传输状态为结束 case r-nonperiodic-byte "非周期性命令的应答数据 call disposedata(nonperiodic-command) "处理接收数据 during-nonperiodic=false "设置非周期性命令数据传输状态为结束 end select end select end sub 随着vb版本的不断升级，vb将成为最快速、易用、强劲的应用开发工具，是企业级客户/服务器应用软件开发的首选工具之一。

DVBAI全称叫Vision Builder for Automation Inspection，NI官方的中文名称叫用于自动检测的视觉生成器。其可以理解为NI的工程师使用NI Vision Developments Module（视觉开发包VDM）开发的一款功能比较强大的应用程序。使用VBAI，可以直接用于项目检测，而不需要工程师再花太多的心思用于搭建程序框架，实现逻辑功能等。因此很多时候，一些简单的项目，使用VBAI，可能几分钟就可以完成了。VBAI的优点是可以快速的检测一些常规的视觉项目，而不需要花费太多的时间精力于编程上，入门相对简单。但是其缺点也是明显的，那就是其界面框架已经是固定的，要想有太多的修改编辑，是不可能的；目前还只有英文版的，要想弄成中文版的，也不方便；其支持的硬件，一般只能是NI的硬件，或NI认证的，或者是一些标准通信协议的硬件，才能被支持，比较受限制，如许多国产相机、采集卡、IO卡，在VBAI中就无法使用；VBAI做的项目，一般不能集成运动控制，如果有运动控制，只能考虑使用PLC，然后利用通信的方式与PLC交换数据。其它的一些问题，如数据保存等也只能TXT、CSV等几种格式。另外VBAI的脚本执行是顺序方式的，不能发挥LabVIEW的并行特性，因此其执行效率相对来讲，会慢一些。VBAI也可以生成开发程序的代码，但是因为其本身的复杂性（变量系统、附加工具等），其生成的代码相对比较复杂，难以看明白，调用起来不是很方便。VBAI的加密也很简单，只能保护脚本。如果给客户安装了VBAI，那么想要他可以修改参数，就得告诉其密码，这样对于软件产品的保护，是不利的。# H8 {& w& c2 q, b7 K4 I9 W9 c9 B. e5 p- a: ^/ I. |NI Vision Developments Module（视觉开发包VDM），则是NI的所有视觉函数的集成总合，所有NI视觉相关的程序、软件都是调用VDM中的函数，VBAI也是调用VDM里的函数。在安装完成VDM后，会附带生成视觉助手Vision Assistant。当然视觉助手本身也是一个EXE应用程序。其实现模式与VBAI非常类似，但是功能上没有VBAI那么强大，他不能实时的进行采集、处理、判断这样的过程。因为其采集与分析是分开的，然后没有变量系统，也就不能做规格判断。只能验证找没找到特征，可以测量得到特征的数据。但是正因为其相对简单，所以他生成的代码相简单明了许多。这也是NI出视觉助手的根本目的，就是为了让用户使用助手可以完成大部分的视觉功能，则不用去直接调用VDM中的函数，这样可以更方便的使用VDM。) U, e3 I+ S2 h6 @! T9 y. Q8 `; _* v) c7 E" xVBAI就像部门经理，VDM像总经理，部门经理能干的事，总经理基本都能干。视觉助手就是总经理的秘书。秘书可以帮总经理做一些事，但是不是所有事都可以做，要都做了，还要总经理干嘛。) O; p) H& S( U" m* ?. v, j5 t4 B( c! N" V) e8 T- v& ~5 UVBAI和视觉助手，都只能完成VDM中的大部分功能，有一些其它的特殊功能函数是无法完成的。因此如果想要有比较好、全面的开发，当然是使用LabVIEW这样的开发平台直接调用VDM中的函数。这时如果对VDM不是很熟悉，可以使用视觉助手来生成代码（LabVIEW、C、.NET），以方便开发平台的调用。而如果只是为了简单的应用、验证，使用VBAI即可。如果是比较有量的商业项目，肯定还是考虑使用LabVIEW+VDM这样的模式自己开发软件，这样可以有效的保护自己的软件产品，而不会被客户随意复制。+ L" b @9 l2 m* Q& u& ], 4 ~3 T6 V! Q6 Z9 {6 N0 V9 J# H

微软的反病毒软件的数据库文件

如果你的默认浏览器是IE浏览器我就能解决问题。

这里有两问题：1、ie.Navigate "xxx_login.php"打开网页后，在网页没有载入完毕立即去获取网页控件会失败；2、ie.document.GetElementsByName("pwuser").value获取控件中是不是Element而不是Elements.dim ieSet ie=CreateObject("InternetExplorer.application")ie.Visible=trueie.Navigate "xxx_login.php"‘等待网页载入完成DoSleepu2002200Loopu2002Untilu2002IE.ReadyStateu2002=u20024ie.document.GetElementByName("pwuser").value = "用户名"ie.document.GetElementByName("pwpwd").Value = "密码"ie.document.GetElementByName("submit").Click

在浏览器中有2中插件可以播放Flash动画： 1. Netscape Navigator插件； 2. ActiveX控件；在Dreamweaver制作网页中，使用embed标签(对Netscape Navigator插件而言)和object标签(对ActiveX控件而言)来插入Flash文件，以保证所有浏览器都能播放。在页面插入.swf格式的Flash文件的方法：方法一： “插入”->“媒体”->“Flash”命令；方法二： 在“媒体”选项卡->选择“Flash”图标；然后选择你的.swf格式的Shockware文件即可。

webBrower控件

fs007(0).Navigate="http://www.hao123.com"fs007(1).Navigate="http://www.eyou.com"fs007(2).Navigate="http://dt.163.com"

首先要添加一个MicrosoftWeb浏览器控件subpage_load()tryAxWebBrowser1.Anchor=AnchorStyles.ToporAnchorStyles.Bottonor&_AnchorStyles.LeftorAnchorStyles.RightAxWebBrowser1.Navigate(ComboBox1.Text)"地址栏catchexasexceptionMsgbox(ex.Message)endtryendsubsubComboBox1_SelectedIndexChanged()AxWebBrowser1.Navigate(combobox1.text)endsubsubcombobox1_keypress()ifasc(e.keychar)=system.windows.forms.keys.enterthenAxWebBrowser1.Navigate(combobox1.text)"响应回车,开始连接endifendsub以上是在vb.net环境的代码,在vb中控件的命名肯能有点不同,比如combobox在vb中是combox.

插入一个internet控件，设置好控件的url就可以显示网页了

flag=3，不从磁盘缓冲区读取数据flag=4，转移结果不写入缓冲区

WebBrowser控件有一个属性，填充。

url=text1.textWeb.navigate url

WebBrowser1.Navigate "http://www.baidu.com"http://www.baidu.com 这里就是你要打开的网页，你可以改成其他地址

肯定可以实现了！VB的功能比VFP的要强大很多！当然难度肯定要增加一点的！但是编程的思路肯定是一样的

vfp是数据库vb是面向过程和面向对象的开发语言VFP跟VB比较，VFP简单。VFP淘汰已经。

5e-4=5*10^-4

e的意思是exponent，指数。这是用指数表示法显示数字，以e+n替换部分数字，其中e（代表指数）表示将前面的数字乘以10的n次幂。例如，用2位小数的“科学记数”格式表示12345678901，结果为1.23E+10，即1.23乘以10的10次幂。

在底部增加一个高度3-5rem的div即可底部页面添加<div style="height: 5rem;"></div>Vant 是有赞前端团队开源的移动端组件库，于 2016 年开源，已持续维护 4 年时间。Vant 对内承载了有赞所有核心业务，对外服务十多万开发者，是业界主流的移动端组件库之一。目前 Vant 官方提供了 Vue 版本和微信小程序版本，并由社区团队维护 React 版本。提供 60 多个高质量组件，覆盖移动端各类场景性能极佳，组件平均体积不到 1kb（min+gzip）单元测试覆盖率 90%+，提供稳定性保障完善的中英文文档和示例支持 Vue 2 & Vue 3支持按需引入支持主题定制支持国际化支持 TypeScript支持 SSR

2000人的群，名称是VB人生 号148317126，去那里问问

粘贴一段以前写的代码供参考 Dim DataRng As Range "定义一个数据范围，用来储存生成数据透视表的数据 Dim MyPivot As Worksheet "定义一个工作表，存放数据透视表" Dim pt As PivotTable "定义一个数据透视表，用来储存数据透视表对象” Dim MyTable As Worksheet "定义一个工作表，做为汇总表 Dim ptcache As PivotCache Set DataRng = Range("A1:D" & zuidazhi) " Set ptcache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=DataRng) Sheets.Add Sheets("Sheet1").SelectSet pt = ptcache.CreatePivotTable(tabledestination:=Sheets("Sheet1").Range("b1"), TableName:="pivottable1") With ActiveSheet.PivotTables("pivottable1").PivotFields("采样时间") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables("pivottable1").PivotFields("样品名称") .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables("pivottable1").PivotFields("分项") .Orientation = xlRowField .Position = 3 End With ActiveSheet.PivotTables("pivottable1").AddDataField ActiveSheet.PivotTables("pivottable1" _ ).PivotFields("值"), "计数项:值", xlCount With ActiveSheet.PivotTables("pivottable1").PivotFields("计数项:值") .Caption = "平均值项:值" .Function = xlAverage End With

有关这个Ivy Bridge如此之热的解释主要有两个，第一个是Ivy Bridge的核心面积下降而晶体管密度上升，因此功耗密度比SNB要高，而接触面积的减少使得散热效率降低，第二个解释就非常万能了，那就是Intel的3D晶体管工艺出问题了。 第一个解释看起来是对的，IVB的功耗密度确实提升了，但是它不足以解释整个问题所在。OverClockers认为IVB使用的导热材料改变了，这才是导致其散热出问题的根本所在。 在IHS（也就是CPU表面的金属外壳）和CPU核心之间会有一层类似黏合剂的材料辅助散热，SNB上使用的一直是fluxless solder（无钎剂焊料），而IVB上改用了TIM膏（具体不明，看后文感觉就是类似硅脂的某种导热膏），这二者的导热系数明显不同，前者可达80 W/mK（watts per meter Kelvin，热导率单位），而TIM膏只有5 W/mK。 这样一来IVB的散热过程就是：CPU核心->5 W/mK TIM -> IHS金属盖 -> 5 W/mK TIM -> Heatsink散热器 比较理想的散热过程应该是：CPU核心 -> 5 W/mK TIM -> Heatsink散热器 从散热的角度来讲，额外的热接触面并不利于提高散热效率，低导热系数的材质更是一大弊端。SNB处理器上并没有使用类似导热膏的东西（图片来源于VR-zone论坛） OverClockers询问了Intel到底使用了什么东西填充在IVB处理器的金属壳和核心之间，但是Intel的回答显然很专业----“秘密配方”，这种涉及企业秘密的问题不可能得到Intel的正式回应。

=int(a1/b1)就行了啊,为什么一定要用vba呢

Excel 技巧 53例 （一） 1、如何在已有的单元格中批量加入一段固定字符？ 例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力： 1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列 ； 2）在B2单元格写入： ="13" & A2 后回车； 3）看到结果为 13xxxxxxxxxxxxx 了吗？鼠标放到B2位置，单元格的下方不是有一个小方点吗，按着鼠标左键往下拖动直到结束。当你放开鼠标左键时就全部都改好了。 若是在原证书号后面加13 则在B2单元格中写入：=A2 & “13” 后回车。 2、如何设置文件下拉窗口的最下面的最近运行的文件名个数？ 打开“工具”，选“选项”，再选“常规”，在“最近使用的文件清单”下面的文件个数输入框中改变文件数目即可。若不在菜单中显示最近使用的文件名，则将“最近使用的文件清单”前的复选框去掉即可。 3、在EXCEL中输入如“1-1”、“1-2”之类的格式后它即变成1月1日，1月2日等日期形式，怎么办？ 这是由于EXCEL自动识别为日期格式所造成，你只要点击主菜单的“格式”菜单，选“单元格”，再在“数字”菜单标签下把该单元格的格式设成文本格式就行了。 4、在EXCEL中如何使它象WORD一样的自动定时保存文件？ 点击“工具”菜单“自动保存”项，设置自动保存文件夹的间隔时间。如果在“工具”菜单下没有“自动保存”菜单项，那么执行“工具”菜单下“加载宏...”选上“自动保存”，“确定”。然后进行设置即可。 5、用Excel做多页的表格时，怎样像Word的表格那样做一个标题，即每页的第一行（或几行）是一样的。但是不是用页眉来完成？ 在EXCEL的文件菜单－页面设置－工作表－打印标题；可进行顶端或左端标题设置，通过按下折叠对话框按钮后，用鼠标划定范围即可。这样Excel就会自动在各页上加上你划定的部分作为表头。 6、在Excel中如何设置加权平均？ 加权平均在财务核算和统计工作中经常用到，并不是一项很复杂的计算，关键是要理解加权平均值其实就是总量值（如金额）除以总数量得出的单位平均值，而不是简单的将各个单位值（如单价）平均后得到的那个单位值。在Excel中可设置公式解决（其实就是一个除法算式），分母是各个量值之和，分子是相应的各个数量之和，它的结果就是这些量值的加权平均值。 7、如果在一个Excel文件中含有多个工作表，如何将多个工作表一次设置成同样的页眉和页脚？如何才能一次打印多个工作表？ 把鼠标移到工作表的名称处（若你没有特别设置的话，Excel自动设置的名称是“sheet1、sheet2、sheet3.......”），然后点右键，在弹出的菜单中选择“选择全部工作表”的菜单项，这时你的所有操作都是针对全部工作表了，不管是设置页眉和页脚还是打印你工作表。 8、EXCEL中有序号一栏，由于对表格进行调整，序号全乱了,可要是手动一个一个改序号实在太慢太麻烦，用什么方法可以快速解决？ 如果序号是不应随着表格其他内容的调整而发生变化的话，那么在制作EXCEL表格时就应将序号这一字段与其他字段分开，如在“总分”与“排名”之间空开一列，为了不影响显示美观，可将这一空的列字段设为隐藏，这样在调整表格（数据清单）的内容时就不会影响序号了。 9、用Excel2000做成的工资表，只有第一个人有工资条的条头（如编号、姓名、岗位工资.......)，想输出成工资条的形式。怎么做？ 这个问题应该这样解决：先复制一张工资表，然后在页面设置中选中工作表选项，设置打印工作表行标题，选好工资条的条头，然后在每一个人之间插入行分页符，再把页长设置成工资条的高度即可。 使用自定义方式重装了一遍中文office97，Excel的打印纸选项中只有A4一种，怎么办？ 随便安装一个打印机驱动程序就可以了。 10、在Excel中小数点无法输入，按小数点，显示的却是逗号，无论怎样设置选项都无济于事，该怎么办？ 这是一个比较特殊的问题，我曾为此花了十几个小时的时间，但说白了很简单。在Windows的控制面板中，点击“区域设置”图标，在弹出的“区域设置属性”对话面板上在“区域设置”里选择“中文（中国）”，在“区域设置属性”对话面板上在“数字”属性里把小数点改为“.”（未改前是“，”），按“确定”按钮结束。这样再打开Excel就一切都正常了。 11、如何快速选取特定区域？ 使用F5键可以快速选取特定区域。例如，要选取A2：A1000，最简便的方法是按F5键，出现“定位”窗口，在“引用”栏内输入需选取的区域A2：A1000。 12、如何快速返回选中区域？ 按Ctr+BacksPae（即退格键）。 13、如何快速定位到单元格？ 方法一：按F5键，出现“定位”对话框，在引用栏中输入欲跳到的单元格地址，单市“确定”按钮即可。 方法二：单击编辑栏左侧单元格地址框，输入单元格地址即可。 14、“Ctrl＋*”的特殊功用？一般来说，当处理一个工作表中有很多数据的表格时，通过选定表格中某个单元格，然后按下 Ctrl＋* 键可选定整个表格。Ctfl＋* 选定的区域是这样决定的：根据选定单元格向四周辐射所涉及到的有数据单元格的最大区域。 15．如何快速选取工作表中所有包含公式的单元格？ 有时，需要对工作表中所有包含公式的单元格加以保护，或填入与其他单元格不同的颜色，以提醒用户注意不能在有此颜色的区域内输入数据。以下方法可以帮助快速选取所有包含公式的单元格：选择“编辑”＼“定位”，单击“定位条件”按钮，在“定位条件”对话框中选择“公式”项，按“确定”按钮即可。 16、如何在不同单元格中快速输入同一数内容？ 选定单元格区域，输入值，然后按 Ctrl＋ Ener键，即可实现在选定的单元格区域中一次性输入相同的值。 17、只记得函数的名称，但记不清函数的参数了，怎么办？ 如果你知道所要使用函数的名字，但又记不清它的所有参数格式，那么可以用键盘快捷键把参数粘贴到编辑栏内。 具体方法是：在编辑栏中输入一个等号其后接函数名，然后按 Ctr＋ A键，Excel则自动进入“函数指南——步骤 2之2”。当使用易于记忆的名字且具有很长一串参数的函数时，上述方法显得特别有用。 18、如何把选定的一个或多个单元格拖放至新的位置？ 按住Shift键可以快速修改单元格内容的次序。具体方法是： 选定单元格，按下Shift键，移动鼠标指针至单元格边缘，直至出现拖放指针箭头（空心箭头），然后按住鼠标左键进行拖放操作。上下拖拉时鼠标在单元格间边界处会变为一个水平“工”状标志，左右拖拉时会变为垂直“工”状标志，释放鼠标按钮完成操作后，选定的一个或多个单元格就被拖放至新的位置。 19、如何让屏幕上的工作空间变大？ 可以将不用的工具栏隐藏，也可以极大化Excel窗口，或者在“视图”菜单中选择“全屏显示”命令。 20、如何使用快显菜单？ 快显菜单中包括了一些操作中最常用的命令，利用它们可以大大提高操作效率。首先选定一个区域，然后单击鼠标右健即可调出快显菜单，根据操作需要选择不同命令。 （二） 21、如何使用快显菜单？ 快显菜单中包括了一些操作中最常用的命令，利用它们可以大大提高操作效率。首先选定一个区域，然后单击鼠标右健即可调出快显菜单，根据操作需要选择不同命令。 22、如何防止Excel自动打开太多文件？ 当Excel启动时，它会自动打开Xlstart目录下的所有文件。当该目录下的文件过多时，Excel加载太多文件不但费时而且还有可能出错。解决方法是将不该位于Xlstart目录下的文件移走。另外，还要防止EXcel打开替补启动目录下的文件：选择“工具”＼“选项”＼“普通”，将“替补启动目录”一栏中的所有内容删除。 23、如何去掉网格线？ 1）除去编辑窗口中的表格线，单击“工具”菜单中的“选项”，再选中“视图”，找到“网格线”，使之失效； 2）除去打印时的未定义表格线 有时会出现这样的情况：你在编辑时未定义的表格线（在编辑窗中看到的也是淡灰色表格线），一般情况下在打印时是不会打印出来的，可有时却偏偏不听使唤给打印出来了，特别是一些所谓的“电脑”VCD中编辑的Excel表格更是这样。要除去这些表格线，只要在单击“文件”、“页面设置”、“工作表”菜单，点击一下“网格线”左边的选择框，取消选择“网格线”就行了。 24、如何快速格式化报表？ 为了制作出美观的报表，需要对报表进行格式化。有快捷方法，即自动套用Excel预设的表格样式。方法是： 选定操作区域，选取“格式”菜单中的“自动套用格式”命令，在格式列表框中选取一款你满意的格式样式，按“确定”按钮即可。要注意的是，格式列表框下面有包括“数字”、“边框线”、“字体”等6个“应用格式种类”选项，若某项前面的“x”不出现，则在套用表格样式时就不会用该项。 25、如何快速地复制单元格的格式？ 要将某一格式化操作复制到另一部分数据上，可使用“格式刷”按钮。选择含有所需源格式的单元格，单击工具条上的“格式刷”按钮，此时鼠标变成了刷子形状，然后单击要格式化的单元格即可将格式拷贝过去。 26、如何为表格添加斜线？ 一般我们习惯表格上有斜线，而工作表本身并没有提供该功能。其实，我们可以使用绘图工具来实现： 单击“绘图”按钮，选取“直线”，鼠标变成十字型．将其移至要添加斜线的开始位置，按住鼠标左键拖动至终止位置，释放鼠标，斜线就画出来了。另外，使用“文字框”按钮可以方便地在斜线上下方添加文字，但文字周围有边框，要想取消它，可选中文字框，调出快显菜单，选择“对象格式”＼“图案”，选择“无边框”项即可。 27、如何快速地将数字作为文本输入？ 在输入数字前加一个单引号“”"，可以强制地将数字作为文本输入。 28、如何定义自己的函数？ 用户在Excel中可以自定义函数。切换至 Visual Basic模块，或插入一页新的模块表（Module），在出现的空白程序窗口中键入自定义函数VBA程序，按Enter确认后完成编 写工作，Excel将自动检查其正确性。此后，在同一工作薄内，你就可以与使用Exed内部函数一样在工作表中使用自定义函数，如： Function Zm(a) If a＜ 60 Then im＝‘不及格” Else Zm=“及格” End If End Function 29、如何在一个与自定义函数驻留工作簿不同的工作簿内的工作表公式中调用自定义 函数？ 可在包含自定义函数的工作薄打开的前提下，采用链接的方法(也就是在调用函数时加上该函数所在的工作簿名)。假设上例中的自定义函数Zm所在工作薄为MYUDF.XLS，现要在另一不同工作簿中的工作表公式中调用Zm函数，应首先确保MYUDF.XLS被打开，然后使用下述链接的方法： =MYUDF.XLS！ ZM(b2) 30、如何快速输入数据序列？ 如果你需要输入诸如表格中的项目序号、日期序列等一些特殊的数据系列，千万别逐条输入，为何不让Excel自动填充呢？在第一个单元格内输入起始数据，在下一个单元格内输入第二个数据，选定这两个单元格，将光标指向单元格右下方的填充柄，沿着要填充的方向拖动填充柄，拖过的单元格中会自动按Excel内部规定的序列进行填充。如果能将自己经常要用到的某些有规律的数据（如办公室人员名单），定义成序列，以备日后自动填充，岂不一劳永逸！选择“工具”菜单中的“选项”命令，再选择“自定义序列”标签，在输入框中输入新序列，注意在新序列各项2间要输入半角符号的逗号加以分隔（例如：张三，李四，王二……），单击“增加”按钮将输入的序列保存起来。 31、使用鼠标右键拖动单元格填充柄？上例中介绍了使用鼠标左键拖动单元格填充柄自动填充数据序列的方法。其实，使用鼠标右键拖动单元格填充柄则更具灵活性。在某单元格内输入数据，按住鼠标右键沿着要填充序列的方向拖动填充柄，将会出现包含下列各项的菜单：复制单元格、以序列方式填充、以格式填充、以值填充；以天数填充、以工作日该充、以月该充、以年填充；序列……此时，你可以根据需要选择一种填充方式。 32．如果你的工作表中已有某个序列项，想把它定义成自动填充序列以备后用，是否需要按照上面介绍的自定义序列的方法重新输入这些序列项？ 不需要。有快捷方法：选定包含序列项的单元格区域，选择“工具”＼“选项”＼“自定义序列”，单击“引入”按钮将选定区域的序列项添加至“自定义序列”对话框，按“确定”按钮返回工作表，下次就可以用这个序列项了。 33、上例中，如果你已拥育的序列项中含有许多重复项，应如何处理使其没有重复项，以便使用“引入”的方法快速创建所需的自定义序列？ 选定单元格区域，选择“数据”＼“筛选”＼“高级筛选”，选定“不选重复的记录”选项，按“确定”按钮即可。 34、如何对工作簿进行安全保护？ 如果你不想别人打开或修改你的工作簿，那么想法加个密码吧。打开工作薄，选择“文件”菜单中的“另存为”命令，选取“选项”，根据用户的需要分别输入“打开文件口令”或“修改文件D令”，按“确定”退出。工作簿（表）被保护之后，还可对工作表中某些单元格区域的重要数据进行保护，起到双重保护的功能，此时你可以这样做：首先，选定需保护的单元格区域，选取“格式”菜单中的“单元格”命令，选取“保护”，从对话框中选取“锁定”，单由“确定”按钮退出。然后选取“工具”菜单中的“保护”命令，选取“保护工作表”，根据提示两次输入口令后退出。 注意：不要忘记你设置有“口令”。 35、如何使单元格中的颜色和底纹不打印出来？ 对那些加了保护的单元格，还可以设置颜色和底纹，以便让用户一目了然，从颜色上看出那些单元格加了保护不能修改，从而可增加数据输入时的直观感觉。但却带来了问题，即在黑白打印时如果连颜色和底纹都打出来，表格的可视性就大打折扣。解决办法是：选择“文件”＼“页面设置”＼“工作表”，在“打印”栏内选择“单元格单色打印”选项。之后，打印出来的表格就面目如初了。 36、工作表保护的口令忘记了怎么办？ 如果你想使用一个保护了的工作表，但口令又忘记了，有办法吗？有。选定工作表，选择“编辑”＼“复制”、“粘贴”，将其拷贝到一个新的工作薄中（注意：一定要是新工作簿），即可超越工作表保护。当然，提醒你最好不用这种方法盗用他人的工作表。 37、“$”的功用： Excel一般使用相对地址来引用单元格的位置，当把一个含有单元格地址的公式拷贝到一个新的位置，公式中的单元格地址会随着改变。你可以在列号或行号前添加符号“$”来冻结单元格地址，使之在拷贝时保持固定不变。 38、如何用汉字名称代替单元格地址？ 如果你不想使用单元格地址，可以将其定义成一个名字。 定义名字的方法有两种：一种是选定单元格区域后在“名字框”直接输入名字，另一种是选定想要命名的单元格区域，再选择“插入”＼“名字”＼“定义”，在“当前工作簿中名字”对话框内键人名字即可。使用名字的公式比使用单元格地址引用的公式更易于记忆和阅读，比如公式“=SUM（实发工资）”显然比用单元格地址简单直观，而且不易出错。 39、如何在公式中快速输入不连续的单元格地址？ 在SUM函数中输入比较长的单元格区域字符串很麻烦，尤其是当区域为许多不连续单元格区域组成时。这时可按住Ctrl键，进行不连续区域的选取。区域选定后选择“插入”＼“名字”＼“定义”，将此区域命名，如Group1，然后在公式中使用这个区域名，如“＝SUM（Group1）”。 40、如何定义局部名字？ 在默认情况下，工作薄中的所有名字都是全局的。其实，可以定义局部名字，使之只对某个工作表有效，方法是将名字命名为“工作表名！名字”的形式即可。 41、如何命名常数？ 有时，为常数指定一个名字可以节省在整个工作簿中修改替换此常数的时间。例如，在某个工作表中经常需用利率4.9％来计算利息，可以选择“插入”＼“名字”＼“定 义”，在“当前工作薄的名字”框内输入“利率”，在“引用位置”框中输入“＝ 0.04.9”，按“确定”按钮。 42、工作表名称中能含有空格吗？ 能。例如，你可以将某工作表命名为“Zhu Meng”。有一点结注意的是，当你在其他工作表中调用该工作表中的数据时，不能使用类似“＝ ZhU Meng！A2”的公式，否则Excel将提示错误信息“找不到文件Meng”。解决的方法是，将调用公式改为“＝"Zhu Mg"! A2”就行了。当然，输入公式时，你最好养成这样的习惯，即在输入“＝”号以后，用鼠标单由 Zhu Meng工作表，再输入余下的内容。 43、给工作表命名应注意的问题？有时为了直观，往往要给工作表重命名（Excel默认的荼表名是sheet1、sheet2.....），在重命名时应注意最好不要用已存在的函数名来作荼表名，否则在下述情况下将产征收岂义。我们知道，在工作薄中复制工作表的方法是，按住Ctrl健并沿着标签行拖动选中的工作表到达新的位置，复制成的工作表以“源工作表的名字+（2）”形式命名。例如，源表为ZM，则其“克隆”表为ZM（2）。在公式中Excel会把ZM（2）作为函数来处理，从而出错。因而应给ZM（2）工作表重起个名字。 44、如何拆分或取消拆分窗口？ 当我们给一个工作表输入数据时，在向下滚动过程中，尤其是当标题行消失后，有时会记错各列标题的相对位置。这时可以将窗口拆分为几部分，然后将标题部分保留在屏幕上不动，只滚动数据部分。其方法是在主菜单上单击“窗口”＼“拆分窗口”。取消拆分窗口时除了使用“窗口”＼“撒消拆分窗口”命令外，有捷径：将鼠标指针置于水平拆分或垂直拆分线或双拆分钱交点上，双击鼠标即可取消已拆分的窗口。 45、如何给工作簿扩容？ 选取“工具”＼“选项”命令，选择“常规”项，在“新工作薄内的工作表数”对话栏用上下箭头改变打开新工作表数。一个工作薄最多可以有255张工作表，系统默认值为6。 46、如何减少重复劳动？ 我们在实际应用Excel时，经常遇到有些操作重复应用（如定义上下标等）。为了减少重复劳动，我们可以把一些常用到的操作定义成宏。其方法是：选取“工具”菜单中的“宏”命令，执行“记录新宏”，记录好后按“停止”按钮即可。也可以用VBA编程定义宏。 47、如何快速地批量修改数据？ 假如有一份 Excel工作簿，里面有所有职工工资表。现在想将所有职工的补贴增加50（元），当然你可以用公式进行计算，但除此之外还有更简单的批量修改的方法，即使用“选择性粘贴”功能： 首先在某个空白单元格中输入50，选定此单元格，选择“编辑”＼“复制”。选取想修改的单元格区域，例如从E2到E150。然后选择“编辑”＼“选择性粘贴”，在“选择性粘贴”对话框“运算”栏中选中“加”运算，按“确定”健即可。最后，要删除开始时在某个空白单元格中输入的50。 48、如何快速删除特定的数据？ 假如有一份Excel工作薄，其中有大量的产品单价、数量和金额。如果想将所有数量为0的行删除，首先选定区域（包括标题行），然后选择“数据”＼“筛选”＼“自动筛选”。在“数量”列下拉列表中选择“0”，那么将列出所有数量为0的行。此时在所有行都被选中的情况下，选择“编辑”＼“删除行”，然后按“确定”即可删除所有数量为0的行。最后，取消自动筛选。 49、如何快速删除工作表中的空行？ 以下几种方法可以快速删除空行： 方法一：如果行的顺序无关紧要，则可以根据某一列排序，然后可以方便地删掉空行。 方法二：如果行的顺序不可改变，你可以先选择“插入”＼“列”，插入新的一列入在A列中顺序填入整数。然后根据其他任何一列将表中的行排序，使所有空行都集中到表的底部，删去所有空行。最后以A列重新排序，再删去A列，恢复工作表各行原来的顺序。 方法三：使用上例“如何快速删除特定的数据”的方法，只不过在所有列的下拉列表中都选择“空白”。 50、如何使用数组公式？ Excel中数组公式非常有用，它可建立产生多值或对一组值而不是单个值进行操作的公式。要输入数组公式，首先必须选择用来存放结果的单元格区域，在编辑栏输入公式，然后按ctrl＋Shift＋Enter组合键锁定数组公式，Excel将在公式两边自动加上括号“{}”。不要自己键入花括号，否则，Excel认为输入的是一个正文标签。要编辑或清除数组公式．需选择数组区域并且激活编辑栏，公式两边的括号将消失，然后编辑或清除公式，最后按Ctrl＋shift＋Enter键。 51、如何不使显示或打印出来的表格中包含有0值？ 通常情况下，我们不希望显示或打印出来的表格中包含有0值，而是将其内容置为空。例如，图1合计列中如果使用“=b2+c2+d2”公式，将有可能出现0值的情况，如何让0值不显示？ 方法一；使用加上If函数判断值是否为0的公式，即： =if（b2＋c2＋d2＝0，“”， b2＋c2＋d2） 方法二：选择“工具”＼“选项”＼“视窗”，在“窗口选项”中去掉“零值”选项。 方法三：使用自定义格式。 选中 E2：E5区域，选择“格式”＼“单元格”＼“数字”，从“分类”列表框中选择“自定义”，在“格式”框中输入“G/通用格式；G/通用格式；；”，按“确定”按钮即可。 52、在Excel中用Average函数计算单元格的平均值的，值为0的单元格也包含在内。有没有办法在计算平均值时排除值为0的单元格？ 方法一：如果单元格中的值为0，可用上例“0值不显示的方法”将其内容置为空，此时空单元格处理成文本，这样就可以直接用Average函数计算了。 方法二：巧用Countif函数 例如，下面的公式可计算出b2:B10区域中非0单元格的平均值：=sum（b2: b10）/countif（b2: b1o，"<>0"） 53、如何在Excel中实现“自动更正”功能？ Word用户都知道，利用Word的“自动更正”功能可以实现数据的快速输入．但在Excel中却没有类似“自动更正”功能的菜单命令。其实，使用VloopuP函数可以巧妙地解决这一问题。你的串号我已经记下，采纳后我会帮你制作

如果你的字是用标签显示的那么代码如下Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = vbRedEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = vbBlackEnd Sub

1.Label1.ForeColor=&HFF&2.ForeColor就是字体颜色3.Label1属性栏里可以设置

修改VB代码的字体、大小、以及颜色可以参考下面的代码：PrivateSubForm＿LoadLabel1。字体＝＂常规＂；将字体改为常规字体Label1。字形大小＝50”字形大小改变字体颜色DAO为红色为前楼＝vbRed＇Label1。标签自动改变大小与文本内容EndSub扩展资料：vb参考函数Do．．．Loop语句：当条件为True或者当条件变为True时，重复一语句块。Empty：表示未初始化的变量的值。Eqv运算符： 使两个表达式相等。Erase语句：重新初始化固定数组的元素，并为动态数组重新分配存储空间。Err对象：包含有关运行时错误的信息。

Public Sub Timerall_Timer()Dim a As IntegerDim b As IntegerDim c As IntegerRandomizea = Int(Rnd * 18 + 1) "决定标签b = Int(Rnd * 9 + 1) "决定标签数c = Int(Rnd * 2) "决定标签数正负Select Case aCase 1Timer1.Enabled = TrueCase 2Timer2.Enabled = Truea,b,c是一个过程变量，不管你这里怎么随机，只不过是在这个过程里面随机，跟上面没关系，解决办法是将他们变成全局变量public a As Integerpublic b As Integerpublic As IntegerPublic Sub Timer1_Timer()Label1.Caption = bIf c = 1 ThenLabel1.ForeColor = vbRedElseLabel1.ForeColor = vbGreenEnd IfEnd SubPublic Sub Timer2_Timer()Label2.Caption = bIf c = 1 ThenLabel2.ForeColor = vbRedElseLabel2.ForeColor = vbGreenEnd IfEnd SubPublic Sub Timer3_Timer()Label3.Caption = bIf c = 1 ThenLabel3.ForeColor = vbRedElse……Public Sub Timerall_Timer()Randomizea = Int(Rnd * 18 + 1) "决定标签b = Int(Rnd * 9 + 1) "决定标签数c = Int(Rnd * 2) "决定标签数正负Select Case aCase 1Timer1.Enabled = TrueCase 2Timer2.Enabled = True

Private Sub Command1_Click(Index As Integer)"属性窗口中需要设置Command1.Style = 1Command1(Index).BackColor = vbRedEnd Sub

右边有属性，

PrivateSubForm_Load()Label1.Font="楷体""字体改为楷体Label1.FontSize=50"字体大小Label1.ForeColor=vbRed"字体颜色改为红色Label1.AutoSize=True"label随文字内容自动改变大小EndSub

新建一个Winform，在和Form1平行的位置粘贴如下代码Public Class MyLabel Inherits Label Protected Overrides Sub OnPaint(e As PaintEventArgs) e.Graphics.DrawEllipse(New Pen(Color.Red), New Rectangle(2, 2, 10, 10)) MyBase.OnPaint(e) End Sub End Class运行，停掉，在工具箱找到MyLabel，拖动就可以看到效果。这只是最基本的重写，要模仿QQ还需要其他技术以及美工。

只要把 标签位置 确定好就OK了 代码Option ExplicitConst Captions As String = "要显示的滚动文字"Private Sub Form_Load()Timer1.Interval = 200End SubPrivate Sub Timer1_Timer()Static N As IntegerDim L As Integer, C As StringL = Int(Me.Height / 220)C = String(L, "　") + Captions + String(L, "　")N = N + 1If N > Len(C) - L Then N = 1Label1.Caption = Mid(C, N, L)Label2.Caption = Mid(C, N, L)Label3.Caption = Mid(C, N, L)End Sub

Private Sub Form_Load()Label1.BackColor = vbRedLabel2.BackColor = vbYellowLabel3.BackColor = vbGreenEnd SubPrivate Sub Timer1_Timer()Label4 = Label4 - 1If Label4 = -1 Then If Label2.Visible Then Label4 = 10 Label1.Visible = Not Label1.Visible Label2.Visible = flase Label3.Visible = Not Label3.Visible Else Label2.Visible = True Label4 = 3 End IfEnd IfEnd SubPrivate Sub Label1_Click()Timer1.Interval = 1000Label1.Visible = TrueLabel2.Visible = FalseLabel3.Visible = FalseLabel4 = 10End SubPrivate Sub Label3_Click()Timer1.Interval = 1000Label3.Visible = TrueLabel2.Visible = FalseLabel1.Visible = FalseLabel4 = 10End Sub

可以实现，但是效率非常低，不可取个人觉得你这个问题可能要先界定一下你的需求，看你的需求是要在逐字键入资料到TextBox中时同时改变颜色呢，还是要在TextBox中输出你取得的资料并改变字串中的颜色，如果是前者的话建议你可以改用RichTextBox比较简单，而如果是后者的话还可以考虑直接用几个Label去取代TextBox作输出，去接成一个字串输出就可以随你要的自行设定输出颜色，又不需要写太多的程式码，接Label的方法可以参考一下面的程式码。Private Sub Form_Load()Label1.AutoSize = TrueLabel2.AutoSize = TrueLabel3.AutoSize = TrueLabel1.ForeColor = vbBlackLabel2.ForeColor = vbRedLabel3.ForeColor = vbBlueLabel1.Caption = "Tak"Label2.Caption = "e it"Label3.Caption = " easy"Label2.Move Label1.Left + Label1.Width, Label1.TopLabel3.Move Label2.Left + Label2.Width, Label1.TopEnd Sub

Option ExplicitDim T As IntegerPrivate Sub Form_Load() Label1.Caption = "绿灯行" Label1.ForeColor = vbGreen Shape1.Shape = 3 Shape1.FillStyle = 0 Shape1.FillColor = vbGreen Label1.ForeColor = vbGreen Label1.FontSize = 18 Timer1.Interval = 1000 T = 0End SubPrivate Sub Timer1_Timer()T = T + 1Select Case TCase 1 To 3:Shape1.FillColor = vbGreen Label1.Caption = "绿灯行" Label1.ForeColor = vbGreen Shape1.Shape = 3Case 4 To 5: Shape1.FillColor = vbYellow Label1.ForeColor = vbYellow Label1.Caption = "注意"Case 6 To 8: Shape1.FillColor = vbRed Label1.ForeColor = vbRed Label1.Caption = "红灯停"Case 9 To 10: Shape1.FillColor = vbYellow Label1.ForeColor = vbYellow Label1.Caption = "注意" T = 0End SelectEnd Sub

这样就对了 Private Sub Command1_Click() Command1.Visible = False Label1.Visible = False Text1.Visible = False Label2.Visible = True Label2.AutoSize = True Label2.FontName = "黑体" Label2.ForeColor = vbRed Label2.Caption = Text1.Text & "同学，祝你进步！" Command2.Visible = True Command3.Visible = TrueEnd Sub 你的错误在于 1 把=写成了 -号 还有几个细微的地方也错了。自己对比下把

Dim c As IntegerPrivate Sub Form_Click()c = c + 1Select Case cCase 1 Label1.BackColor = vbRed Label1.ForeColor = vbGreen Label1.Caption = "背景红色，字体绿色"Case 2 Label1.BackColor = vbGreen Label1.ForeColor = vbRed Label1.Caption = "背景绿色，字体红色"Case 3 Label1.BackColor = vbWhite Label1.ForeColor = vbBlue Label1.Caption = "背景白色，字体蓝色"End SelectIf c = 3 Then c = 0End SubPrivate Sub Form_DblClick()Label1.Caption = "单击改变！"c = 0Label1.BackColor = vbWhiteLabel1.ForeColor = vbBlueEnd SubPrivate Sub Form_Load()Form_DblClickEnd Sub

"添加好控件，把代码复制到窗体模块可以了吧。"label1，Label2，Text1"Command1:确定,command2:重输PrivateSubForm_Load()Text1.PasswordChar="*"Text1.MaxLength=6Command1.Enabled=FalseCommand2.Visible=FalseLabel2.Visible=FalseEndSubPrivateSubCommand1_Click()IfText1.Text="123456"ThenLabel2.ForeColor=vbBlueLabel2.Caption="欢迎进入应用程序！"ElseLabel2.ForeColor=vbRedLabel2.Caption="密码错误！"EndIfLabel2.Visible=TrueEndSubPrivateSubCommand2_Click()Text1.Text=""Command1.Enabled=FalseCommand2.Visible=FalseEndSubPrivateSubText1_Change()IfText1.Text<>""ThenCommand1.Enabled=TrueCommand2.Visible=TrueElseLabel2.Visible=FalseCommand1.Enabled=FalseCommand2.Visible=FalseEndIfEndSub

bon joviuff1f

使用SQL Server企业管理器的自动创建脚本功能生成一个标准的脚本,一看就全明白了.

周宝霖饰演

TRUE这个很简单啊

不知道

图像吗？ 是拉伸的意思。

属性。语法：object.Stretch [= boolean]StretchStretch属性决定控件能否将加载的图片缩放到控件本身的大小来显示，该属性的值是一个布尔型数据。为True时，加载图形后，改变图形大小使之适应图像框的大小，为False时，改变控件大小是之符合图形大小。扩展资料：注意事项在VB中，控件的Stretch属性设置为False 时，图像框可自动改变大小以适应其中的图形，图像框是一个简化的图形控件。在窗体设计时，用于显示保存的图片数据，其上是无法进行绘图的，图像控件的常用属性与其他控件类似，它的独立属性是Stretch属性和Picture属性。图片框Picturebox的Autosize属性默认为False，Picturebox的AutoSize属性为False时，图片框里的图片按实际大小显示，超过图片框大小的部分会被裁切。

Excel中如何用vba统计cells(I,j)所在的合并单元格的合并个数? MergeArea属性：返回一个 Range物件，该物件代表包含指定单元格的合并区域 通过MergeArea.rows.count获得合并区域的行数，MergeArea.columns.count获得合并区域的列数 故题目中要统计cells(i,j)所在的合并单元格的合并个数就可以用下面程式码实现： sub main ro=cells(i,j).MergeArea.Rows.Count co=cells(i,j).MergeArea.Columns.Count su=ro*co msgbox "指定单元格合并区域包含”& su &"个单元格” end sub EXCEL,VBA中如何获取 合并单元格的值 思路： 1、在需要读数的区域内回圈 2、在回圈体内首先判断该单元格是否为合并单元格， 是，读取合并区域的第一个单元格的值,即合并单元格的值，并作处理或储存在某单元格，跳出回圈; 否，直接读取单元格的值，并作处理或储存在某单元格; 下面是VBA语句，定义 r,c 是增强程式的通用性，请视具体情况修改： Sub a() Dim r As Integer "行号 Dim c As Integer "列号 r = 2 c = 1 If Cells(r, c).MergeCells Then "是否是合并单元格 Debug.Print Cells(r, c).MergeArea.Cells(1, 1) "是，打印合并区域的第一个单元格的值,即合并单元格的值 Else Debug.Print Cells(r, c) "否，列印单元格的值 End If "可把if语句块放在回圈中 End Sub VBA 如何找到合并单元格的合并区域 可以利用 mergearea.row 和mergearea.column 返回合并单元格的行和列 如何用Aspose.Cells自动调整合并单元格的行 您可以尝试以下程式码： [C#] Instantiate a new Workbook Workbook wb = new Workbook(); Get the first (default) worksheet Worksheet _worksheet = wb.Worksheets[0]; Create a range A1:B1 Range range = _worksheet.Cells.CreateRange(0, 0, 1, 2); Merge the cells range.Merge(); Insert value to the merged cell A1 _worksheet.Cells[0, 0].Value = "A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog....end"; Create a style object Aspose.Cells.Style style = _worksheet.Cells[0, 0].GetStyle(); Set wrapping text on style.IsTextWrapped = true; Apply the style to the cell _worksheet.Cells[0, 0].SetStyle(style); Create an object for AutoFitterOptions AutoFitterOptions options = new AutoFitterOptions(); Set auto-fit for merged cells options.AutoFitMergedCells = true; Autofit rows in the sheet(including the merged cells) _worksheet.AutoFitRows(options); Save the Excel file wb.Save("e:\test2\autofitmergedcells.xlsx"); [VB] "Instantiate a new Workbook Dim wb As New Workbook() "Get the first (default) worksheet Dim _worksheet As Worksheet = wb.Worksheets(0) "Create a range A1:B1 Dim range As Range = _worksheet.Cells.CreateRange(0, 0, 1, 2) "Merge the cells range.Merge() "Insert value to the merged cell A1 _worksheet.Cells(0, 0).Value = "A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog....end" "Create a style object Dim style As Aspose.Cells.Style = _worksheet.Cells(0, 0).GetStyle() "Set wrapping text on style.IsTextWrapped = True "Apply the style to the cell _worksheet.Cells(0, 0).SetStyle(style) "Create an object for AutoFitterOptions Dim options As New AutoFitterOptions() "Set auto-fit for merged cells options.AutoFitMergedCells = True "Autofit rows in the sheet(including the merged cells) _worksheet.AutoFitRows(options) "Save the Excel file wb.Save("e: est2autofitmergedcells.xlsx") Excel VBA中如何获得合并单元格的值? 合并后的单元格名称是首个单元格的名称.. Excel 如何在word中用vba删除有合并单元格的行 从后面往前删除就可以保持前面的位置。 Private Function MyFunction9() Dim I As Long, J As Long For I = 1 To Range("A65536").End(xlUp).Row "最大行数 For J = Range("A65536").End(xlUp).Row To I + 1 Step -1 "这里的最大行数看似和上面一样，但是其实它是不一样的，I 的是固定的，J 的是不固定。 If Range("A" & I).Value = Range("A" & J).Value Then Rows(J).Delete Next Next End Function VBA用CELLS表示单元格,如何实现单元格的合并 Range(Cells(1, 2), Cells(2, 2)).Merge EXCEL中如何用VBA判断某一地址单元格是否为合并单元格 亲，拿单元格A1举例吧： IF Range("A1").MergeCells = True Then 如果A1是合并单元格，则 给你写一个函式吧 Function IsMerge(R As Range) As Boolean If R.MergeCells Then IsMerge = True End Function vba excel 复制合并单元格 Sub Macro1() Range("A1:E10").Select Selection.Copy "复制 Sheets("Sheet2").Select ActiveSheet.Paste ‘贴上 Range("A3").Select End Sub

建议您先行备手机内的数据 (短信、联系人、下载的应用程序等)然後请按以下步骤操作恢复出厂设置 :设定 > 个人 > 备份和重置 > 恢复出厂设置 重启手机后，手机便恢复出厂设置了。索尼是一家业务涉及电子、娱乐、金融等行业的跨国企业，由井深大、盛田昭夫于1946年5月创立，总部位于日本东京。索尼经营范围包括智能家居、电子游戏、通讯产品和信息技术等。[1]2004年11月索尼并购了历史悠久的米高梅电影公司。2018年5月索尼收购EMI Music Publishing公司60%股权索尼是一家业务涉及电子、娱乐、金融等行业的跨国企业，由井深大、盛田昭夫于1946年5月创立，总部位于日本东京。索尼经营范围包括智能家居、电子游戏、通讯产品和信息技术等。2004年11月索尼并购了历史悠久的米高梅电影公司。2018年5月索尼收购EMI Music Publishing公司60%股权。1996年10月，索尼（中国）有限公司在北京成立，是Sony集团统一管理和协调Sony在华业务活动的全资子公司。作为在中国的地区总部，索尼（中国）有限公司在中国国内从事电子信息行业的投资，产品市场推广，顾客售后服务联络，并针对Sony在中国的各所属企业进行宏观管理及广泛的业务支持，推动Sony在中国市场业务的不断发展。索尼在华销售的产品包括平面特丽珑彩电、背投/等离子/液晶彩电、数码相机、笔记本电脑、家用摄录放一体机、家庭影院系统、DVD播放机、数据投影机、Memory Stick记忆棒、聚合锂离子电池等。索尼在华的电子业务规模到已经达到50亿美元，总投资额已超过8亿美元，包括六家工厂在内，索尼在华共有大约一万名员工。Sony集团CEO出井伸之曾在Sony集团全球董事会上承诺：把高速发展的中国市场作为未来发展的重中之重，希望中国成为Sony东亚业务区域的成长引擎。Sony为其电子产品在中国的发展定下了宏伟的目标：到2005年在华销售额达到2002年的5倍；到2008年，把2005年的目标再翻一番，超越日本市场成为Sony仅次于美国的第二大市场。

你说的效果无法实现。

看这代码，只要x,y,z有一个不是数字，应该就能蹦出msgbox

VB还有个messagebox吗？头一次听说，。，，2分，闪...

Private Sub Form_Click() msg$ = "请确认此数据是否正确" Title$ = "数据检查对话框" x= MsgBox(msg$, 19, Title$) Ifx = 6 Then Printx * x ElseIfx = 7 Then Print "请重新输入" End IfEnd Sub

引号不加只是没数据显示吧...

http://jingyan.baidu.com/article/647f0115912deb7f2048a846.html

　　Vbcrl是VBA中一个特殊的常量，其功能是在连接的字符串处换行，使用范例如下：　　1、启动excel后，按下alt+F11，打开vbe窗口；　　2、按下crtl+G，打开立即窗口；　　3、立即窗口输入：msgbox"你好"&Vbcrlf&"此处换行"，回车；　　4、效果如下图：　　

s=MsgBox("确定要删除用户帐号吗？", vbYesNo + 32 + vbDefaultButton2) = vbYes这样就可以了，然后判断S是否为truevbYesNo，就是启动一个yes和一个no按钮vbDefaultButton2，就是默认选中第二个按钮，这里表示NO按钮32不知道是啥= == vbYes就是“是否选择YES键”s=MsgBox("确定要删除用户帐号吗？", vbYesNo + 32 + vbDefaultButton2) = vbYes结果是点了确定键S=true，否则就是false PS.大部分是猜的，不过这样解释对于自我摸索的我来说，已经尽力了最好去翻书看看MSGBOX的参数设置，会有详解的

privatesubform_click()dimaasintegerdimbasintegera=val(t1.text)b=val(t2.text)msg$="你选择做除法吗？"title$="请选择"x=msgbox(msg$,20,title$)ifx=6thenl2.caption="您求得的结果是"&str(a/b)elsel2.caption="您求得的结果是"&str(amodb)endifendsub

以下代码复制粘贴到记事本，另存为xx.vbs，编码选ANSIrem vbs弹出多个窗口title="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)Set ws=CreateObject("WScript.Shell")Set fso=CreateObject("Scripting.Filesystemobject")tmpfile=fso.GetSpecialFolder(2)+"v.v"Set f=fso.CreateTextFile(tmpfile,2)f.Write "msgbox """ & title & """ & vbCrLf & ""Don"t be evil."",,""warning"""f.CloseFor i=1 To 10ws.Run """" & WSH.FullName & """ -e:vbscript """ & tmpfile & """",0,FalseWSH.Sleep 1000Next

MsgBox "Save data now"要用双引号的吧！

也可以用msgbox,你可以改一下：msgbox"购票金额为"&s，print是将它打印在form上，两个函数的格式不一样.

你要返回直可以那么写，不要返回值就msgbox内容,vbokonly,标题