VB中的一个小问题

作者&投稿:乐官 (若有异议请与网页底部的电邮联系)
vb6的一个小问题@~

定义一个数组b(n)存放当时a(i)的值。校对时,读取b(n)的值即可。

Public和Private一般用于定义全局变量,也可以在类中使用。前者定义的是公共变量,如果在一个模块当中使用,那么整个应用程序都能使用它所定义的变量,如果在类中使用,那么它就是一个共有属性。而后者定义的是私有变量,如果在一个模块中使用,那么只有这个模块才能访问到它所定义的变量,如果在类中使用,那么它就是一个私有属性。
Dim和Static一般在过程(Sub或者Function)内部使用,它们所定义的变量都只能在过程内部被访问。区别在于:前者定义的是动态变量,过程一旦结束,该变量所占有的内存就会被系统回收,而变量所储存的数据就会被破坏。后者定义的是静态变量,这意味着在过程结束后这个变量所占有的内存不会被回收,数据当然也不会被破坏了,这样当你下次再调用该过程的时候,数据就依然存在。
相比之下,Public和Static都有保留数据不被破坏的作用,但是,前者适合于那些所有过程都可能访问到的变量,而后者则把变量的作用范围缩在最小(只在该过程内能被访问)。
dim是Data
Interpretation
Module的缩写,我们一般把它理解为“定义”就可以了。

Long(长整型)变量存储为 32 位(4 个字节)有符号的数值形式,
其范围从 -2,147,483,648 到 2,147,483,647。
Long 的类型声明字符为和号 (&)

你在代码中有一个1279*140,溢出是因为VB在运算时遇到这样的数都会按最匹配的类型计算,这里因为1279和140都是整型,所以它会以整型进行运算,整型的 范围:-32767 到 +32768之间,因为1279*140=179060大于65535所以有溢出,要想正确计算,就要给其中一个数转换成长整型,或是范围大于179060的数据类型,

buffer2 = buffer1 + 1279& * 140

加上一个 & 就会让VB在运算时按长整型进行运算,就不会溢出了

buffer2=buffer1 + 179060 '不会溢出
1279 * 140
因为系统是用最合适的数据类型来给一个没有指定数据类型的数据进行匹配,所以,这两个数,都被匹配成整型
这样运算出来的结果,>32767,所以会溢出
你可以这样用 clng(1279) * 140 这样就不会了

这应该是VB中的一个bug。当把两个数字(整数)进行乘法运算时,VB会把它们当成integer,而不管你前面怎么定义。1279*140如果当成integer,结果肯定溢出。解决的办法是全部用变量。
Dim buffer1 As Long
Dim buffer2 As Long
Dim i as long ,j as long
i=1279
j=140
buffer1 = 169 + 202645
buffer2 = buffer1 + i* j
这样就不会溢出了。


...剪刀均分成四块小长方形,然后按图b的形状拼成一个
(1)图b中的阴影部分的正方形的边长等于长为m,宽为n的长方形的长宽之差,即m-n;(2)方法一:图b中的阴影部分的正方形面积等于大正方形的面积减去4个长方形的面积,即(m+n)2-4mn;方法二:图b中的阴影部分的正方形的边长等于m-n,所有其面积为(m-n)2;(3)(m-n)2=(m+n...

条件概率的一个小问题
作为事件来说,你说的两种情况完全一样,都是:两件都是不合格品。区别在于:与谁比较。前面第一种情况的样本总体是:两件中至少有一件不合格品,第二种情况的样本总体是:任意的两件产品。正是由于比较的对象不同,因此得到的概率也不同。

...解的一元一次方程应用题关于方案设计的分几个小问的题目,连同答案...
15.在公式 中,用v,v0,t表示a,则a=___.若v=15,v0=5,t=3,则a=___.二.选择题(每小题3分,共21分)1.方程 的解是 ( )A. B. C. D. 2.下列方程: ,,,中,一元一次方程的有 ( )A.1个 B. 2个 C.3个 D. 4个3.甲数比乙数的 还多1,设甲数为 ,则乙数可表示为( ) 4.方程 的...

高中物理有关动量能量的一个小问题
A选项实在不理解可以用均值不等式或是求二次函数最大值法求解 。D选项 如果弹簧弹性势能不为0,那么必然会对A产生弹力 使A加速,所以只有当A不受加速的力时才达到速度最大。弹簧压缩量最大时 A与B有相同的速度 同解法1 记住在完全弹性碰撞下 满足 初动能等于末动能加势能 初动量等于末动量 不懂...

谁有数学日记的题材?不要内容!最好给一些奥数题,我自己编题材,不然总...
1.如何问问题?有甲、乙两人,其中,甲只说假话,而不说真话;乙则是只说真话,不说假话。但是,他们两个人在回答别人的问题时,只通过点头与摇头来表示,不讲话。有一天,一个人面对两条路:A与B,其中一条路是通向京城的,而另一条路是通向一个小村庄的。这时,他面前站着甲与乙两人,但...

初三的一个英语小问题,在线等!!!
答案选A:解释:"yes,i agree."是插入语,完全可以拿出来 则句子变为:he cried out___joy.所以很容易看出选A,如果选项D是filled with,那么也可以选D,因为full of=filled with 例句:He is full of bright ideas.他足智多谋。a body full of deformations 全身畸形 He is full of extraordina...

问一个化学平衡的小问题
答:1、Q是指上述反应平衡时放出的热量 不是完全进行放出的热量,因为此反应是可逆反应。2、平衡时向其中加入0.25mol的A,0.75mol的B,1.5mol的C ,平衡不会向生成C的方向移动,而是反方向移动。如果平衡时向其中加入0.25mol的A,0.75mol的B,0.5mol的C 平衡会继续保持。

初中趣味数学题带答案
你好 1、一个人花8块钱买了一只鸡,9块钱卖掉了,然后他觉得不划算,花10块钱又买回来了,11块卖给另外一个人。问他赚了多少?答案:2元 2、假设有一个池塘,里面有无穷多的水。现有2个空水壶,容积分别为5升和6升。问题是如何只用这2个水壶从池塘里取得3升的水。答案:先用5升壶装满后倒...

有关于高等数学中的一点小问题
1、这个其实是由对数的换底公式得来的:log(a)b=log(c)b\/log(c)a ---括号中的字母代表底数,c为引入的中间值,一般取10或e。若引入的中间值为e,则换底公式变为:log(a)b=ln b\/ln a。2、换底公式的推导如下:设n=log(a)b………① 则a^n=b………② 把①代入②即得对数恒等式...

读图,回答问题。 小题1:关于两图的叙述,正确的是 A.两图所示地区属于同...
小题1:B小题2:C小题3:B 试题分析:小题1:根据图的的经纬度与海陆轮廓可以判定甲乙两图分别是斯堪的纳维亚半岛和朝鲜半岛,它们分属于欧洲和亚洲,一个在大陆的西岸,另一个在大陆的东岸,故选项A和D都是错误的。从图中的经纬度的跨度来看,甲图涉及的范围较乙大,比例尺小故选项C也是错误的...

新昌县18670323151: vb的一个小问题
老朋清胰: 在运行中输入代码: regsvr32.exe PrintGrid.OCXed 按回车就行了,如果弹出注册成功就能使用了. 或者,建立一个文本文件,在里面写上regsvr32.exe PrintGrid.OCX 保存后,将扩展名改为.bat然后找到PrintGrid.OCX文件位置,吧刚才文件复制过来和它一个目录,然后双击该BAT文件,如果弹出注册成功就能使用了.

新昌县18670323151: VB的一个小问题 -
老朋清胰: 表示所有的变量要先声明,再使用 如果使用,Option Explicit 语句必须写在模块的所有过程之前. 如果模块中使用了 Option Explicit,则必须使用 Dim、Private、Public、ReDim 或Static...

新昌县18670323151: vb 的一个小问题 -
老朋清胰: 直接在文本框中加入就可以了:Text1="a>b" 你的代码修改后就是:Private Sub Command1_Click() a = 10 * 5 + 6 - 1 b = 10 * 3 + 7 - 2 If a = aPrint a = a > b Text1="a>b" End If End Sub OK!祝你顺利!

新昌县18670323151: vb编程里的一个小问题(哪里出了错)?
老朋清胰: 成自我调用了 Text1_Change这个事件自己调用自己直到内存承受不了为止 首先你的明白 这个事件的意思 是当内容发生改变时就要调用这个事件 你在开头写上了Text1.text=Mid("how are you" ,2 ,7)而且是小写 下面又将Text1中的内容改成大写 这个时候因为变成了大写所以会发生自已调用自己而后来 一调用吧 又发生了 Text1.text=Mid("how are you" ,2 ,7) 所以程序中 Text框的内容一直在变所以发生了自我调用 这就是错误的根源

新昌县18670323151: 关于vb中的一个小问题 -
老朋清胰: 代码贴出来…… 你需要在cls以后把累加的结果也改成0才行Private Sub Command3_Click() Picture1.Cls Text1.Text = "" Text2.Text = "" n=0 '加上这一句就可以了End S...

新昌县18670323151: VB中的一个小问题
老朋清胰: Private Sub A_Click()A.Enabled = FalseMsgBox "" '这里写你的代码A.Enabled = TrueEnd Sub 原理很简单,点击按钮A后自动变灰色,就是不能点击了.代码会由上到下执行,在按钮代码最后再次执行 A.Enabled = True激活按钮点击功能就可以了.

新昌县18670323151: 一个VB小问题
老朋清胰: 1、只输入数字 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii > 57 Or KeyAscii < 48 Then KeyAscii = 0 End If End Sub 2、输入TEXT1时,锁定TEXT2 Private Sub Text1_GotFocus() Text2.Enabled = False '当正在编辑TEXT1时,...

新昌县18670323151: 学习VB过程时遇到了一个小问题 -
老朋清胰: Dim i, max, a, r, n As Long这句其实并没有将你想申明为LOng的i, max, a, r申明成功,只有最后的n申明成功了,其他的都是随机型变量,未指定类型我以前也是这么申明的要注意哦解决的办...

新昌县18670323151: vb小问题一个
老朋清胰: A 项目文件 *.vbp 窗体文件 *.frm 模块文件 *.bas 定制控件 *.ocx 类模块 *.cls 资源文件 *.res

新昌县18670323151: 关于VB的几个小问题(1)将数学表达式Cos2(a+b)+5e2写成vb表达式正确形式("2"是上标,平方)?(2)Int(198.555*100+0.5)/100的值是多少?(3... -
老朋清胰:[答案] 第一个问题后边知道 前边有些麻烦 需要查一下5e2是 5*exp^2 第二题的值是:198.56 先计算里边的值为 198560 int是取整 得出的结果也是198560 再除以100 所以为198.56 第三题的答案是:round(x,3) 第四题的答案是:s=6 因为mid("Visual Basic...

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网