EXCEL表使用360杀毒后，还提示有宏，删THISWORKBOOKS里面的Option Explicit 保存。再打开就正常，为什么？

Option Explicit是VB中的强制显式声明变量语句。Option表示选项或者选择权，是VB中的一种用于在模块之前定义模块中的字符串比较方法等语句。Explicit表示明确的或者清楚的。Option Explicit的意思是强制显式声明模块中的所有变量。在模块级别中使用。在你下载的模块中，第一句是Option Explicit的话，表明该模块需要强制申明所有的变量。如果存在未申明的变量，运行程序时会报错。比如下图中，没有申明变量i，所以在运行程序时，跳出“编译错误，变量未定义”报错。扩展资料：如何在新建的模块中自动插入Option Explicit语句。1.点击“工具”菜单。2.点击“选项”按钮。3.勾选“要求变量声明(R)”。另外，使用Option Explicit，可以让代码更规范并且可以避免变量因名称拼写等错误带来的结果错误。另外，使用“Option Explicit”可以加快程序的运行速度，它节省了在程序运行时动态分配变量存储空间的时间。所以说，使用Option Explicit是编程的一个好习惯。参考资料:百度百科 vb_option

option explicit是强制显示声明变量、语句在VB中，如果变量没有时行声明，则默认为变体类型，程序可以运行，但是会导致运行速度低下，内存空间浪费的缺点，并且如果变量名拼写错误，将会出现难以跟踪的问题。option explicit强制要求对变量及语句进行显示声明，不经声明的变量不能使用。强烈建议勾选此选项。

vb中Option Explicit 是什么意思。 Option Explicit 语句 在模组级别中使用，强制显式宣告模组中的所有变数。 如果没有使用 Option Explicit 语句，除非使用 Deftype 语句指定了预设型别，否则所有未宣告的变数都是 Variant 型别的。 使用 Option Explicit 可以避免在键入已有变数时出错，在变数的范围不是很清楚的程式码中使用该语句可以避免混乱。 Option Explicit 语句示例 该示例使用 Option Explicit 语句来强制显式宣告所有变数。如果试图使用一个未宣告的变数，则会在编译时导致错误。 Option Explicit 语句只能在模组级使用。 Option explicit "强制显式地宣告变数。 Dim MyVar "宣告变数。 MyInt = 10 "未宣告的变数将产生错误。 MyVar = 10 "已宣告的变数则不会产生错误。 VB中option explicit是什么意思 如果你加了Option Explicit，同样的程式就会报错“变数b没有定义”，必须改成如下形式才可以执行： a="123"b=a明白了没？ 追问： 加了就要DIM全部变数吗？ 回答： 恩，这其实就是显式定义变数，就这样想就行了。 VB中option explicit 是什么意思 送20分 Option Explicit Private Sub Command1_Click() Dim a As String a = "tttt" MsgBox (a) End Sub 以上成功执行 Option Explicit Private Sub Command1_Click() a = "tttt" MsgBox (a) End Sub 以上程式出现编译错误，就是说，只要使用了Option Explicit，所有的变数就必须要宣告，比如出错的程式就没有dim a的语句，所以出错了。 Private Sub Command1_Click() a = "tttt" MsgBox (a) End Sub 这段也能正常执行，因为没有option explicit，所以就可以不宣告变数。 请问vb中option explicit是什么意思啊？ 如果你在程式中指定了Option Explicit，那么所有的变数都必须用Dim显式宣告才可以使用。 比如原来下面的程式可段以正常执行： Dim a a="123" b=a "b没有用Dim定义 如果你加了Option Explicit，同样的程式就会报错“变数b没有定义”，必须改成如下形式才可以执行： Option Explicit Dim a,b a="123" b=a 明白了没？ VB程式设计：option Explicit 是什么意思？ 它一般放在程式码最上面 它说明程式中所有变数必须先宣告才能使用 vb中option explicit是什么意思哦？ 高手们！ 显式定义 vb中Option Explicit是什么意思要怎么用 禁止变数的隐式宣告，换句话说就是禁止使用未宣告的变数，一般放到模组的第一行 option explicit是什么意思 option explicit 明确选择 Option Explicit 强制变数宣告;强制宣告变数;强制显式宣告变数语句;变数定义 ASP中<%Option Explicit%>是什么意思? 一般在ASP中如果不宣告变数也可以使用变数，但是如果加上这个的话，就必须要宣告变数！这是程式设计师的一个好的习惯，尽量要加上他不要省略！

强制变量申明。。

你好~~~~我想举个例子你会更明白的希望我能帮到你啦Option Explicit Private Sub Command1_Click() Dim a As String a = "tttt" MsgBox (a) End Sub 以上成功执行 Option Explicit Private Sub Command1_Click() a = "tttt" MsgBox (a) End Sub 以上程序出现编译错误，就是说，只要使用了Option Explicit，所有的变量就必须要声明，比如出错的程序就没有dim a的语句，所以出错了。 Private Sub Command1_Click() a = "tttt" MsgBox (a) End Sub 这段也能正常运行，因为没有option explicit，所以就可以不声明变量。最后感谢提供者：OP红发杰克

简单来说,Option Explicit就是强制你定义所有变量的开关一旦打上Option Explicit,你使用的所有变量必须先声明,才能使用.使用Option Explicit可以养成良好的编程习惯

Option Explicit 是指必须要声明变量如果没有这句话时我们可以这样写a=5msgbox a虽然a没有像dim a as long这样声明变量，但也没有问题，可以正常运行，但是加了Option Explicit 这句话后，就运行不了了，会提示a变量没有定义，这时我们必须要这样定义一下a：dim a as long vb中的变量可以没声明就可以使用，代码少的时候可能带来一定方便，但是如果代码很多的时候，局部变量和全局变量很可能撞名，出现错误，而这种错误是很难被发现的，所以要养成良好习惯，Option Explicit，这句是不能省略！--------------------------------------------------------Option Base1这句是指规定数组下标从1开始，如果没有这句，数组下标是从0开始的。Option Base1和Option Explicit是完全不同的概念

是用来强制定义的，使用了这个以后，如果你的程序中使用没有定义的变量，则会提示

看重复定义的是那个变量，找到他，去掉其中一个试一试！

输出的是啥啊？

option是可选择的事物，选择，选择权，选择的自由的意思。option是一个英语单词，可以用作名词和及物动词，可以翻译为选择、选项，等等，option[英]["u0252pu0283n][美][u02c8ɑpu0283u0259n]，n.选择（的自由）;选项；选择权；选择能力。option的用法OptionExplicit。当使用OptionExplicit时，必须在模块中的所有过程声明每一个变量，否则会出现语法错误并不能被编译。这样做的好处是，它能消除程序中因为错拼变量名而导致程序错误，所以见意使用此选项。OptionPrivateModule。当使用此设定时，模块中的代码将标记为私有，这样在宏对话框中就不能看到这些代码，也就是在Excel主界面的工具/宏/宏的对话框中不会显示私有的子程序名称，这也防止了模块的内容被其它工程引用，不过在同一工程中的其它模块仍然是可用的。第三人称单数：options过去分词：optioned复数：options现在进行时：optioning过去式：optioned

）则要加上Dim x as integer这个句

Option Explicit 语句 在模块级别中使用,强制显式声明模块中的所有变量。Option Explicit 报错的话,应该是你的程序中有未声明的变量. next后面不要加I

Option Explicit 语句 强制要求显式声明脚本中的所有变量。 如果使用 Option Explicit，该语句必须出现在脚本的任何其他语句之前。你放在第八行当然不行了。要放在首行。 必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。如果试图使用未经声明的变量名，则会出现错误。 其实那个第三行可以不要的conn.asp要包含他的文件的最上面包含

1楼正

这是一个习惯问题。假如有这个声明，则 VB 会要求所有变量在使用前都必须申明，如果没有，则反之。 我本人是建议使用了，因为不使用这个声明的话，那很容易出现变量名打错了自己却不知道的情况，当程序大起来的时候，这些错误更容易出现，而因为没有强制变量声明的情况下，错了的变量名对 VB 来说也是合法的，VB 只是以为你又要使用一个新变量，所以它并不会提示错误，这对高度程序造成很大的影响。 反过来，如果有这个强制声时的话，当你打错变量名时，这个错误的变量名会被 VB 认为是新变量，但这个新变量你却是没有预先定义的，当编译或运行的时候，VB 会提示你这个变量没定义，那你自己一看就很容易发现是变量名打错了，这对调试程序很有用的。 建议你使用这个声明。

我找不到通讯录

数组的4种声明方式：1.先声明再初始化例如：//1.声明int[] nums;//初始化nums = new int[5];2.声明并初始化例如：//2.声明、初始化int[] nums = new int[10];3.创建数组同时赋值例如：//3.创建数组同时赋值String[] names=new String[]{"大名","小米","夏雨荷"};int[] ages=new int[]{21,22,21,56,13};for (int i = 0;i < names.length;i++){System.out.prinrln(names[i]);}for (int i = 0;i < ages.length;i++){System.out.prinrln(ages[i]);}4.创建同时赋值，简写，不能写成两条语句例如：//4.创建同时赋值，简写，不能写成两条语句String[] cities = {"上海","北京"};扩展资料：数组（Array）是有序的元素序列。若将有限个类型相同的变量的集合命名，那么这个名称为数组名。组成数组的各个变量称为数组的分量，也称为数组的元素，有时也称为下标变量。用于区分数组的各个元素的数字编号称为下标。数组是在程序设计中，为了处理方便， 把具有相同类型的若干元素按有序的形式组织起来的一种形式。 这些有序排列的同类数据元素的集合称为数组。数组是用于储存多个相同类型数据的集合。在C语言中， 数组属于构造数据类型。一个数组可以分解为多个数组元素，这些数组元素可以是基本数据类型或是构造类型。因此按数组元素的类型不同，数组又可分为数值数组、字符数组、指针数组、结构数组等各种类别。

不可以放在任何事件过程中

1.visualbasic数据类型2.变量的声明3.option explicit 关键字4.变量的作用域5.static 关键字6.常量7.数据类型转换visualbasic数据类型 数据类型 举例字节型 56布尔型 true false整型 5367长整型 4364574单精度型 4362.34双精度型 4652.65735745货币型 $234.34日期型 4/7/2000对象型 label1字符串型 "my homepage"变体型 任意值变量的声明dim var as typepublic var as typeprivate var as type其中：public 定义公有变量dim、private 定义私有变量option explicit 关键字在visualbasic中用户可以不声明而直接使用变量，但容易产生错误。可以使用option explicit关键字强制声明变量，必需先声明再引用。option explicit关键字放在窗体或模块的通用声明(genneraldeclarations)处。也可以通过设置将option explicit自动加到每个模块中。变量的作用域局部(local)：在过程级定义的变量，仅在声明它的过程中可见。模块/窗体(modudule/form)：在模块或窗体级声明的变量，在声明它的模块或窗体中的所有过程中可见。公有(public)：在模块或窗体级声明的变量，在所有项目的任何过程中都可见。static 关键字普通的局部变量在过程结束后被释放，在下次执行过程时从新初始化为0。用static声明的局部变量在过程结束后不被释放，仍保留变量的值。例如：sub p()static i as integeri=i+1msgbox "a=" & iend sub常量常量是程序中不发生变化的值。它和变量一样有三种作用域：它的定义语法如下：[public]const con[as type]=expression[private]const con[as type]=expression[]内为可以缺省项数据类型转换visualbasic自动完成某些数据转换，为提高运行速度，我们通常使用ctype() 函数显示地转换。visualbasic转换函数包括：cbool 转换为boolean类型cbyte 转换为byte类型ccur 转换为currency类型cdate 转换为date类型cdbl 转换为double类型cint 转换为integer类型clng 转换为long类型csng 转换为single类型cstr 转换为string类型cvar 转换为variant类型cverr 转换为error类型

Option Explicit这一行的意思是说，每个需要调用的变量都需要预定义你的程序中，temp这个变量没有定义就调用了，所以会显示错误应该在调用之前先定义一下dim temp as long

100分我可能帮你弄

因为你一开始使用了Option Explicit ，所以在这个程序中对于所有的变量都要进行声明，否则没有声明的变量会提示出错的

选第一个就没错,编程要养成好的习惯变量用之前一定要先声明.

你有病啊！这么麻烦。拿个胶布把鼠标滚轮粘上不就可以了？要这么麻烦吗？

什么意思，说清楚点行吗？加QQ群180409904一起交流

On Error GoTo MyErrHandler " 打开错误处理程序。 ...... ...... ......Exit Sub " 退出程序，以避免进入错误处理程序。MyErrHandler: " 错误处理程序。 Select Case Err.Number " 检查错误代号。 ... " 处理其他错误状态 . . . End Select Resume " 将控制返回到产生错误的语句。

是否是素数.prime 在数学中就是素数(质数)的意思.

不好翻译哦，好多控件名字都是自己定的，也不知道是什么类型的控件。

数据->有效性，下列框做选择

Option ExplicitPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ClipCursor Lib "user32" (lpRect As Any) As LongPrivate Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As LongConst ID = "123"Private Sub CommandButton1_Click()If TextBox1 = ID Then Unload UserForm1 Exit SubElse UserForm1.Height = UserForm1.Height - 30 UserForm1.Width = UserForm1.Width - 30 TextBox1 = "" TextBox1.SetFocusEnd IfIf UserForm1.Height < 80 Then MsgBox "不知道密码就不要再撑了!按""X""离开吧!"End IfEnd SubPrivate Sub CommandButton2_Click() TextBox1 = "" TextBox1.SetFocusEnd SubPrivate Sub UserForm_Initialize()Application.EnableCancelKey = xlDisabledSetWindowPos hWndForm, -1, 0&, 0&, 0&, 0&, 3 "让视窗保持最上层Call SetForegroundWindow(hWndForm) "让视窗取得焦点End SubFunction hWndForm() As Long hWndForm = FindWindow("ThunderDFrame", UserForm1.Caption) "UserFormEnd FunctionPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If Not TextBox1 = ID ThenThisWorkbook.Saved = TrueThisWorkbook.CloseEnd IfSetWindowPos hWndForm, -2, 0&, 0&, 0&, 0&, 3Application.EnableCancelKey = xlInterruptEnd Sub用这个程序

Option Explicit 语句用于在文件级强制对该文件中的所有变量进行显式声明。Option Explicit { On | Off }各部分说明On可选。启用 Option Explicit 检查。如果在 Option Explicit 语句后没有指定 On 或 Off，则默认为 On。Off可选。禁用 Option Explicit 检查。备注如果使用，则 Option Explicit 语句必须出现在文件中其他所有源语句之前。当 Option Explicit 出现在文件中时，必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。试图使用未声明的变量名将发生编译时错误。如果没有使用 Option Explicit 语句，则所有未声明的变量都是 Object 类型。注意 使用 Option Explicit 可避免拼错现有变量的名称，或避免在变量范围不清楚的代码中产生混淆。如果代码中没有指定 Option Explicit，编译器的默认设置将是 Option Explicit On。 示例本示例使用 Option Explicit 语句强制所有变量的显式声明。试图使用未声明的变量将导致编译时错误。Option Explicit 语句只用在模块级。Option Explicit On " Force explicit variable declaration.Dim MyVar As Integer " Declare variable.MyInt = 10 " Undeclared variable generates error.MyVar = 10 " Declared variable does not generate error.（本说明来自微软官网）

OptionExplicit语句用于在文件级强制对该文件中的所有变量进行显式声明。OptionExplicit{On|Off}各部分说明On可选。启用OptionExplicit检查。如果在OptionExplicit语句后没有指定On或Off，则默认为On。Off可选。禁用OptionExplicit检查。备注如果使用，则OptionExplicit语句必须出现在文件中其他所有源语句之前。当OptionExplicit出现在文件中时，必须使用Dim、Private、Public或ReDim语句显式声明所有变量。试图使用未声明的变量名将发生编译时错误。如果没有使用OptionExplicit语句，则所有未声明的变量都是Object类型。注意使用OptionExplicit可避免拼错现有变量的名称，或避免在变量范围不清楚的代码中产生混淆。如果代码中没有指定OptionExplicit，编译器的默认设置将是OptionExplicitOn。示例本示例使用OptionExplicit语句强制所有变量的显式声明。试图使用未声明的变量将导致编译时错误。OptionExplicit语句只用在模块级。OptionExplicitOn"Forceexplicitvariabledeclaration.DimMyVarAsInteger"Declarevariable.MyInt=10"Undeclaredvariablegenerateserror.MyVar=10"Declaredvariabledoesnotgenerateerror.（本说明来自微软官网）

Option Explicit 语句 用于在文件级强制对该文件中的所有变量进行显式声明。 Option Explicit { On | Off } 各部分说明 On 可选。启用 Option Explicit 检查。如果在 Option Explicit 语句后没有指定 On 或 Off，则默认为 On。 Off 可选。禁用 Option Explicit 检查。 备注 如果使用，则 Option Explicit 语句必须出现在文件中其他所有源语句之前。 当 Option Explicit 出现在文件中时，必须使用 Dim、Private、Public 或 ReDim 语句显式声明所有变量。试图使用未声明的变量名将发生编译时错误。 如果没有使用 Option Explicit 语句，则所有未声明的变量都是 Object 类型。 注意 使用 Option Explicit 可避免拼错现有变量的名称，或避免在变量范围不清楚的代码中产生混淆。如果代码中没有指定 Option Explicit，编译器的默认设置将是 Option Explicit On。 示例 本示例使用 Option Explicit 语句强制所有变量的显式声明。试图使用未声明的变量将导致编译时错误。Option Explicit 语句只用在模块级。 Option Explicit On " Force explicit variable declaration. Dim MyVar As Integer " Declare variable. MyInt = 10 " Undeclared variable generates error. MyVar = 10 " Declared variable does not generate error.

Option Explicit 语句 在模块级别中使用，强制显式声明模块中的所有变量。语法Option Explicit说明如果使用，Option Explicit 语句必须写在模块的所有过程之前。如果模块中使用了 Option Explicit，则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译时间会出现错误。如果没有使用 Option Explicit 语句，除非使用 Deftype 语句指定了缺省类型，否则所有未声明的变量都是 Variant 类型的。注意 使用 Option Explicit 可以避免在键入已有变量时出错，在变量的范围不是很清楚的代码中使用该语句可以避免混乱。 　　编译器的默认设置将是 Option Explicit On。 　　示例 　　本示例使用 Option Explicit 语句强制所有变量的显式声明。试图使用未声明的变量将导致编译时错误。Option Explicit 语句只用在模块级。 　　Option Explicit " Force explicit variable declaration. 　　Dim MyVar As Integer " Declare variable. 　　MyInt = 10 " Undeclared variable generates error. 　　MyVar = 10 " Declared variable does not generate error. 　　说通俗点，就是为了避免混乱，使用 Option Explicit 之后，必须对变量进行声明才可以使用！　　举个简单的例子：　　<script language="vbscript">　　< !--　　Option Explicit " 要求在脚本中声明所有的变量　　Dim Mystring　　Mystring="This is my string"　　-- >　　< /script>

数组必须先声明再使用

Option Explicit 语句在模块级别中使用，强制显示声明模块中的所有变量。Option Explicit 语句必须写在模块的所有过程之前。如果模块中使用了 Option Explicit，则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译时会出现错误。如果没有使用 Option Explicit 语句，除非使用 Deftype 语句指定了缺省类型，否则所有未声明的变量都是 Variant 类型的。注意:使用 Option Explicit 可以避免键入已有变量时拼错，在变量的范围不是很清楚的代码中使用该语句可以避免混乱。 编译器的默认设置将是 Option Explicit On。

没有安装 msdn 嘛

1、<%option explicit%> 要固定放在页面的第一行2、可以用

哈哈……你就是没有声明啊……至少要有 Dim 语句，VB 现在都直接不允许不声明直接用变量了，索然可以改回去……这不是个好习惯……

它这样提示就必然是变量没有定义了 自己检查一下吧

实现对话框是否用模态显示就是用“Show 0（缺省）、Show 1”语句实现的。使用“模态对话框”与“非模态对话框”的区别是：程序运行到“模态对话框”时，只有在模态对话框的窗口关闭后才能运行后面的语句。而使用“非模态对话框”时，不管对话框是否关闭，后面的语句都会接着运行。你的源程序段没看到，猜想你的UserFrame可能是在对话框后面要调用的，可查一下是不是这个原因。如果不想用“模态对话框”方式，可把对话框后面的语句通过“对话框”窗口调用。不知是否对你有用。

把下面的文本，不带*。的复制到文本里面，保存存一下，用VB打开就可以了*。*。*。*。*。*。。VERSION 5.00Begin VB.Form Form1 Caption = "Marquee" ClientHeight = 3960 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3960 ScaleWidth = 4680 StartUpPosition = 3 "窗口缺省 Begin VB.CommandButton Command2 Cancel = -1 "True Caption = "跑马灯结束" Height = 495 Left = 2640 TabIndex = 5 Top = 3360 Width = 1215 End Begin VB.Timer Timer1 Left = 2160 Top = 3480 End Begin VB.CommandButton Command1 Caption = "跑马灯开始" Height = 495 Left = 840 TabIndex = 2 Top = 3360 Width = 1215 End Begin VB.TextBox Text2 Height = 1215 Left = 840 MultiLine = -1 "True ScrollBars = 2 "Vertical TabIndex = 1 Text = "新建 文本文档.frx":0000 Top = 1920 Width = 3135 End Begin VB.TextBox Text1 BackColor = &H80000018& Height = 375 Left = 1200 TabIndex = 0 Top = 360 Width = 2895 End Begin VB.Label Label4 Alignment = 2 "Center Caption = "请输入跑马灯文字" Height = 375 Left = 1320 TabIndex = 4 Top = 1200 Width = 2295 End Begin VB.Label Label2 Caption = "Text 跑马灯" Height = 375 Left = 120 TabIndex = 3 Top = 360 Width = 975 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Explicit"宣告要在 Text1 裏显示的跑马灯字串变数Dim TString As StringPrivate Sub Command1_Click()"宣告储存 Text1 字串长度的变数Dim TWidth As LongCommand2.Enabled = True"启动 Timer 显示跑马灯Timer1.Enabled = TrueCommand1.Enabled = False"text2 裏必须输入跑马灯字串If Text2.Text = "" ThenMsgBox "请输入跑马灯文字""没有输入就按下 Command2 跑马灯结束钮Command2_ClickExit SubEnd If"统计 Text1Box 裏到底放的下几个字Do While TextWidth(Space(TWidth)) <= Text1.WidthTWidth = TWidth + 1Loop"设定跑马灯字串为 Text1 宽度个空白"加原输入的 跑马灯文字TString = Space(TWidth) + Text2.TextEnd SubPrivate Sub Command2_Click()Text1.Text = ""Command1.Enabled = TrueCommand2.Enabled = False"关闭跑马灯显示Timer1.Enabled = FalseText2.SetFocusEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseTimer1.Interval = 200Command2.Enabled = False"将各元件 Font 统一，利於计算字串宽度Text1.Font = Me.FontText2.Font = Me.FontMe.ShowText2.SetFocusEnd SubPrivate Sub Timer1_Timer()"开始颉取跑马灯字串之位置指标Static TPos As Long"如果位置指标越过了整个字串If TPos > Len(TString) Then"把位置指标移到最开头TPos = 1Else"把位置指标移到下一个字TPos = TPos + 1End If"逐字显示跑马灯字串Text1.Text = Mid(TString, TPos)End Sub

Declare Function outpot Lib "c:zzfmydll" Alias "OUTDATA" (ByVal addr1%, ByVal odata%) As Integer我就以这一个讲一下吧!这个是引用dll的声明方法Declare 声明 ,关键字function :是一个函数outpot :是你调用时用的名字,可以自己定义Lib 关键字 ,后面是dll文件的路径 ,查找方法是 ,如果是绝对路径,直接查找,如果只有文件名 查找顺序为:程序所在目录-->系统目标/window ----> system --> system32Alias 关键字 后面 OUTDATA,为dll内存放的名字,不能改后面 addr1 odata 就是两个参数 ,按值传递 integer 型 返回类型 integer 呵呵 应该能明白吧!

Dim i As LongDim j As LongDim ResNum1 As StringFor i = 2 To NUMBERICUPDOWN1 If NUMBERICUPDOWN1 Mod i = 0 Then ResNum1 = i For j = 1 To Sqr(ResNum1) If ResNum1 Mod j > 0 Then TEXTBOX1.Text = TEXTBOX1.Text & "," & ResNum1 Next j End IfNext iTEXTBOX1.Text = Left(TEXTBOX1.Text, Len(TEXTBOX1.Text) - 1)MsgBox "质因数分解成功！"希望对你有帮助，望采纳！我体会到了帮助别人是最快乐的！抱歉，原来的回答中有误，1不是质数，所以改了一下，希望你能再试一试！

&——表示地址的意思

Option Explicit"设计阶段先给ComboBox的属性Sorted设置为True值"测试后，一些不使用的功能，自行删除代码Dim i As Integer, Lstr As StringPrivate Sub Combo1_Click()"点击组合框后，让列表框取得该数据的驻点 For i = 0 To List1.ListCount - 1 If List1.List(i) = Combo1.Text Then Exit For Next i List1.Selected(i) = TrueEnd SubPrivate Sub Command1_Click()"添加 "如果数据为空，不添加 If Trim(Combo1.Text) = "" Then MsgBox "请先填入数据" Exit Sub End If "检查是否重复添加 For i = 0 To List1.ListCount - 1 If List1.List(i) = Combo1.Text Then MsgBox "该数据已经存在，不予添加。" Exit Sub End If Next i "添加 List1.AddItem Combo1.Text Combo1.AddItem Combo1.Text Combo1.Refresh: List1.RefreshEnd SubPrivate Sub Command2_Click() If List1.ListIndex < 0 Then MsgBox "请先点击要删除的项目。" Exit Sub End If"记录将被删除的值 Lstr = List1.List(List1.ListIndex)"删除被点击的List List1.RemoveItem List1.ListIndex"删除Combo1对应值 For i = 0 To Combo1.ListCount - 1 If Combo1.List(i) = Lstr Then Exit For Next i Combo1.RemoveItem iEnd SubPrivate Sub Command3_Click()"清除列表框 List1.Clear"清除组合框 Combo1.ClearEnd SubPrivate Sub Form_Load() Combo1.Clear List1.Clear "先添加5个测试用途的数据 For i = 5 To 1 Step -1 Combo1.AddItem i & Chr(i + 64) List1.AddItem i & Chr(i + 64) Next iEnd SubPrivate Sub List1_Click() Combo1.Text = List1.List(List1.ListIndex)End Sub

Option ExplicitDim t As IntegerPrivate Sub Form_Load()t = 0Timer1.Interval = 2000End SubPrivate Sub Timer1_Timer()t = t + 1Label1.Caption = Str(t)End Sub其实这样就可以实现你要的功能了啊你为什么要设置Timer1.Interval = 100？？直接搞为2000就可以了，可以节约资源

不能设置类pagesetup的papersize属性定制模块行为(1) Option Explicit "强制对模块内所有变量进行声明Option Private Module "标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示 Option Compare Text "字符串不区分大小写 Option Base 1 "指定数组的第一个下标为1(2) On Error Resume Next "忽略错误继续执行VBA代码,避免出现错误消息(3) On Error GoTo ErrorHandler "当错误发生时跳转到过程中的某个位置(4) On Error GoTo 0 "恢复正常的错误提示(5) Application.DisplayAlerts=False "在程序执行过程中使出现的警告框不显示(6) Application.ScreenUpdating=False "关闭屏幕刷新 Application.ScreenUpdating=True "打开屏幕刷新(7) Application.Enable.CancelKey=xlDisabled "禁用Ctrl+Break中止宏运行的功能工作簿(8) Workbooks.Add() "创建一个新的工作簿(9) Workbooks(“book1.xls”).Activate "激活名为book1的工作簿(10) ThisWorkbook.Save "保存工作簿(11) ThisWorkbook.close "关闭当前工作簿(12) ActiveWorkbook.Sheets.Count "获取活动工作薄中工作表数(13) ActiveWorkbook.name "返回活动工作薄的名称(14) ThisWorkbook.Name ‘返回当前工作簿名称 ThisWorkbook.FullName ‘返回当前工作簿路径和名称(15) ActiveWindow.EnableResize=False ‘禁止调整活动工作簿的大小(16) Application.Window.Arrange xlArrangeStyleTiled ‘将工作簿以平铺方式排列(17) ActiveWorkbook.WindowState=xlMaximized ‘将当前工作簿最大化工作表(18) ActiveSheet.UsedRange.Rows.Count ‘当前工作表中已使用的行数(19) Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)(20) Sheets(Sheet1).Name= “Sum” "将Sheet1命名为Sum(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) "添加一个新工作表在第一工作表前(22) ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) "将当前工作表移至工作表的最后(23) Worksheets(Array(“sheet1”,”sheet2”)).Select "同时选择工作表1和工作表2(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete "删除工作表1(25) ActiveWorkbook.Sheets(i).Name "获取工作表i的名称(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines "切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings ‘切换工作表中的行列边框显示(28) ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式(29) Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接(30) ActiveSheet.PageSetup.Orientation=xlLandscape 或ActiveSheet.PageSetup.Orientation=2 "将页面设置更改为横向(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName ‘在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.LeftFooter=Application.UserName ‘将用户名放置在活动工作表的页脚

说说思路：这个显然要用ADO1、连接数据库，得到连接对象conn2、用下面的select语句打开表，将数据读入RecordSetset rs=conn.execute("select * from 表名")3、用循环将数据读入二维数组arrrow=0while not rs.eofarr[row,0]=rs["id"]arr[row,1]=rs["year"]arr[row,2]=rs["mon"]arr[row,3]=rs["1"]arr[row,4]=rs["2"].........row=row+1wend