位置:首页 » 技术 » vb运行异常 :实时异常 13 类型不匹配

vb运行异常 :实时异常 13 类型不匹配

日期:2014-10-01 阅读:0num
Advertisement

vb运行错误 :实时错误 13 类型不匹配

那位大哥帮忙看看

Private storedvalue As Double
Private Const opnone = 0
Private Const opadd = 1
Private Const opsubtract = 2 '减
Private Const opmultiply = 3 '乘
Private Const opdivide = 4 '除
Private operator As Integer
Private newentry As Boolean

Private Sub cmdclear_Click()
cmdclearentry_Click
storedvalue = 0
operator = opnone
End Sub

Private Sub cmdclearentry_Click()
txtdisplay.Text = ""
End Sub

Private Sub cmddecimal_Click()
If InStr(txtdisplay.Text, ".") Then
Beep
Else
If newentry Then
txtdisplay.Text = "."
newentry = False
Else
txtdisplay.Text = txtdisplay.Text & "."
End If
End If
End Sub

Private Sub cmdequals_Click()
Dim new_value As Double
If txtdisplay.Text = "" Then
new_value = 0
Else
new_value = (txtdisplay.Text) '这里错误 实时错误 13 类型不匹配End If
Select Case operator
Case opnone
storedvalue = new_value
Case opadd
storedvalue = storedvalue + new_value '加法运算
Case opsubtract
storedvalue = storedvalue - new_value '减法运算
Case opmultiply
storedvalue = storedvalue * new_value '乘法运算
Case opdivide
storedvalue = storedvalue / new_value '除法运算
End Select
operator = opnone
newentry = True
txtdisplay.Text = Format$(storedvalue)
End Sub

Private Sub cmdNumber_Click(Index As Integer)
If newentry Then
txtdisplay.Text = Format$(Index) '强制返回值
newentry = False
Else
txtdisplay.Text = txtdisplay.Text & Format$(Index)
End If
End Sub

Private Sub cmdoperator_Click(Index As Integer)
cmdequals_Click
operator = Index
newentry = True
End Sub

Private Sub cmdplusminus_Click()
If newentry Then
txtdisplay.Text = "-"
ElseIf Left$(txtdisplay.Text, 1) = "-" Then
txtdisplay.Text = Right$(txtdisplay.Text, Len(txtdisplay.Text) - 1)
Else
txtdisplay.Text = "-" & txtdisplay.Text
End If
End Sub

Private Sub Command1_Click()
Dim txt As String
Dim min_len As Integer
txt = txtdisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtdisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtdisplay.Text = "0"
End If
End Sub

Private Sub Command2_Click()
txt = Sqr(Val(txtdisplay.Text))
txtdisplay.Text = txt
End Sub

Private Sub Command3_Click()
txtdisplay.Text = txtdisplay.Text * 100 & "%"
End Sub

Private Sub Command4_Click()
txtdisplay.Text = 1 / Val(txtdisplay.Text)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
txtdisplay_KeyPress KeyAscii
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtdisplay_KeyUpKeyCode , Shift
End Sub

Private Sub txtdisplay_Change()
txtdisplay.SelStart = Len(txtdisplay)
End Sub

Private Sub txtdisplay_GotFocus()
txtdisplay_Change
End Sub

--cut--

试一试 Val(txtdisplay.Text) 吧

--cut--

顶上边的,val转换成数字的

--cut--

If IsNumeric(txtdisplay.text)=true then
new_value = cdbl(txtdisplay.Text)
endif

--cut--

引用:

OK 谢谢

结贴

相关文章
  • 帮忙:vb 运行发生实时异常'91'

    帮忙:vb 运行发生实时错误'91' 有个类模块(Class.cls) 有代码如下: Public PubClId As Integer Public Sub Init() PubClId = 1 End Sub 在标准模块中引用 Public MyMoKuai as New Class 在FORM窗口中使用: MyMoKuai.PubClId=111 程序运行到MyMoKuai.PubClId=111时错误提示: 实时错误 '91 ': 对象变量或With块变量未设置 我该怎么解决? ----

  • vb 运行发生实时异常'91'

    求助:vb 运行发生实时错误'91' 在我的标准模块中有如下数据库连接代码 Public Sub DBopen() On Error GoTo DBExt_Error ConnStr = "Provider=SQLOLEDB.1;User ID= " & UserName & "Password= " & LoginPwd & "Persist Security Info=False;Initial Catalog=stu;

  • vb运行异常 :实时异常 13 类型不匹配

    vb运行错误 :实时错误 13 类型不匹配 那位大哥帮忙看看 Private storedvalue As Double Private Const opnone = 0 Private Const opadd = 1 Private Const opsubtract = 2 '减 Private Const opmultiply = 3 '乘 Private Const opdivide = 4 '除 Private operator As Integer Private newentry A

  • 实时异常13 类型不匹配

    实时错误13 类型不匹配 a1 = CInt("&H" & Mid(Hex(hdc2), 5, 2)) '这句老是是提示 实时错误 13 类型不匹配 hdc2 是用for to 循环找到的图片框1某点的颜色值(用的getpixel) 如果换成 a1 = CInt("&H" & Mid(Hex(hdc2), 3, 2)) 就没错....... ------解决方案-------------------- 探讨 a1 = CInt(&qu

  • 急运行时异常‘13’类型不匹配

    急!!!运行时错误'13'类型不匹配 我的代码如下 Dim ExcelApp As Excel.Application, workbook10 As Excel.workbook, worksheet10 As Excel.worksheet Dim i As Integer, Datetime() As Date, Waveheight() As Integer, Datetime0 As Date, Datetime00 As Date, Datetime000 As Date, Waveh

  • 新手运行出现“实时异常55,文件已打开”

    新手求助:运行出现"实时错误55,文件已打开" 用open打开指定文件,对其中的数据判断,满足条件的重新创建文件或打开创建的文件添加,出现错误 Private Sub Cmdzhuaqu_Click() Dim a$, m%, n%, b$, c$, d$, a1$, a2$ '检测txt文件内有多少条记录 Open Txtlujing.Text For Input As #1 m = 0 While Not EOF(1) Input #1, a m = m + 1 Wend Clos

  • vb连接数据库,实时异常‘430’,类不支持自动化或不支持期望的接口

    vb连接数据库,实时错误'430',类不支持自动化或不支持期望的接口 之前连接本地和远程mysql数据库都没问题,今天突然出错了,显示Rs.Open "Select * from user", conn, 1, 3 错误: 实时错误'430',类不支持自动化或不支持期望的接口 引用部件什么的都确定没有问题,关键是以前用的好好的,突然就变脸了,重启系统重装了一下vb还是不行.不知道有没有人遇到同样的问题? ------解决方案-------------------- user是关键字,用

  • 新手使用VB连接SQL实时异常‘3704’

    新手使用VB连接SQL实时错误'3704' 错误:对象关闭时,不允许操作 简介:我要做的是一个办公自动化系统,窗体中有四个文本框,有一个Command1按钮,用于输出下一个查询结果,我刚开始写的代码比较简单,目的是要测试一下功能,但是当我惦记Command1按钮的时候,却出现了上面的错误,求高手不吝指教 代码如下: 全局: Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command Dim rst As New ADODB.Record

  • VB中提示实时异常上标越界9什么有关问题啊小弟我是新手

    VB中提示实时错误下标越界9什么问题啊!我是新手 Private Sub MSComm1_OnComm() Static maxv '存储最大幅度值 ReDim Preserve f(n) '存储频率值 ReDim Preserve v(n) '存储幅度值 ReDim Preserve changef(n2) '存储共振频率变化值 ReDim Preserve yyy2(n2) '画曲线时保修上一次的纵坐标 ReDim Preserve yyy3(n2) ReDim Preserve ampma

  • vb 运行出错Run-time error '13' Type mismatch,该如何处理

    vb 运行出错Run-time error '13' Type mismatch 朋友做的软件,好像是用VB做的,在一台电脑上运行,出现这样的错误 vb 运行出错Run-time error '13' Type mismatch --cut-- 这个错误就是描述的,变量类型不吻合

  • VB6报13 门类不匹配

    VB6报13 类型不匹配 各位前辈,请教一下 以下代码编译时报错13, 类型不匹配,请问怎样修改 Private Sub tmrTime_Timer() Dim i As Integer Dim j As Integer Dim k As Integer Dim szDeviceList As String '用于存放监视软元件 Dim Devbox(12) As Long '用于暂时存放监视软元件 Dim lData(12) As Long '用于存放监视软元件的数值 Dim lRet As

  • access 2000 VBA 运行异常“13”,类型不匹配?

    access 2000 VBA 运行错误"13",类型不匹配?? 本帖最后由 xty353535 于 2012-01-31 10:21:33 编辑 private Sub RegistButton_Click() Dim dbLocal As Database Dim QryDef1 As QueryDef Dim RecSet1 As Recordset, RecSetW As Recordset Dim SQLSTR As String Dim RET As Integer Me.

  • 求指导:vb 运行时报run-time errors '3704'的异常如何解决

    求指导:vb 运行时报run-time errors '3704'的错误怎么解决 本帖最后由 zwx1991 于 2012-06-26 12:22:35 编辑 代码如下:求大侠指导 把Do While Not RsUser.EOF去掉之后运行正常.一旦加上就报run-time errors '3704'("对象关闭时,不允许操作")这个错误. Private Sub Form_Load() Dim StrSql As String Dim RsUser As New ADODB.Rec

  • 不知道为什么,老提示 实时异常 类型不匹配

    不知道为什么,老提示 实时错误 类型不匹配 在写access数据二进制图片时候,如下代码: Dim NumBlocks As Integer Dim LeftOver As Long Dim byteData() As Byte '字节数组 Dim DestFile As Integer, i As Integer Dim ColSize As Long Dim BlockSize As Integer BlockSize = 256 ColSize = Col.ActualSize DestF

  • 求指导:vb 运行时报run-time errors '3704'的异常如何解决

    求指导:vb 运行时报run-time errors '3704'的错误怎么解决 代码如下:求大侠指导 把Do While Not RsUser.EOF去掉之后运行正常.一旦加上就报run-time errors '3704'("对象关闭时,不允许操作")这个错误. VB code Private Sub Form_Load() Dim StrSql As String Dim RsUser As New ADODB.Recordset ListView1.View = lvwRepo

  • 怎么使VB运行出现异常的时候留在窗口,而不是直接退出

    如何使VB运行出现错误的时候留在窗口,而不是直接退出 如何使VB运行出现错误的时候留在窗口,而不是直接退出 ------解决方案-------------------- 引用: Quote: 引用: 你要抓错误. on error .... 抓到后作处理就不会退出了 有没有全局调用的,就写一个on error 就够了,而不用每个过程都写? 我知道的好像没有哦, 不过每个函数里面抓错是一个好的编程习惯 ------解决方案-------------------- 有几个原则 1)避免出错 比如出"

  • Microsoft VBScript 运行时异常 (0x800A000D) 类型不匹配: 'scan'

    Microsoft VBScript 运行时错误 (0x800A000D) 类型不匹配: 'scan' <%if Request.ServerVariables( "Content_Length ") <> 0 then if request.Form( "text ") <> " " then dim lysql set rsly=server.createobject( "adodb.recordset

  • 急 Microsoft VBScript 运行时异常 异常 '800a000d' 类型不匹配: '[string: &quot;&quot;]'

    急求助 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: '[string: ""]' /Default.asp?y=2&id=157&Web=0&page= page没有值时就出现这种错误 怎么回事呢? Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: '[string: ""]' /inc/functionpicview.asp,行 47 47行是 pag

  • 关于ASP上传文件时遇到的有关问题:Microsoft VBScript 运行时异常 异常 '800a000d' 类型不匹配

    关于ASP上传文件时遇到的问题:Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配 /inc/UpFile.asp,行 17 Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配 /Setup.asp,行 206 ------解决方案-------------------- http://www.scriptlover.com/pos

  • 运行时异常 '4218' 类型不匹配 ,简单又复杂的有关问题

    运行时错误 '4218' 类型不匹配 ,简单又复杂的问题. 设计思路 :创建一个新WORD文档A,将模板WORD文档b的数据拷贝到A,并且在A中定位指定字符(比如"普通地热水洗井循环时间"),找到后在此后插入数据 问题:在做定位的时候出错.出错地方,代码为 ---------------出错处 begin 类型不匹配-------- Set myRange = objWord.Range(Start:=0, End:=objWord.ActiveWindow.Selection) --

最新文章
  • MBP 拆下来 2G DDR3 笔记本内存有人要吗?

    从 MBP 拆下来的 2G 内存, DDR3 原装,三星内存. ¥ 80. 有人要吗? --cut-- zhaofucheng在2016-05-09 23:58:29回答到: 搭车出 MAC 专用英伟达内存 16G 8*8 400 元 未拆封 包邮出把,... 16g crucial mac 内存# http://tb.cn/mAVH0fx zhaofucheng在2016-05-09 23:58:29回答到: 我的已出 帮顶起 aheadlead在2016-05-09 23:58:29回答到:

  • 自拍杆蓝牙好还是线控好 自拍杆蓝牙好还是线控好

    自拍杆一般可放置的手机宽度在56毫米到86毫米之间,市面上大部分手机都能固定,使用时打开蓝牙进行配对或者线控. 两会期间美女记者玩自拍 自拍杆蓝牙好还是线控好 ? 自拍杆选蓝牙连接还是线控操作要看自己用的那个方便,那我就讲讲线控和蓝牙的优缺点:线控的有个开关直接按一下比较方便,但是兼容性不好,只能自己手机拍,而且受线材长度限制.蓝牙的话一般兼容性比线控的好点,而且还要连蓝牙可以别人给拿着遥控,缺点比较费电,自拍杆需要充电,总的来说各有各的好处,个人偏向选蓝牙.苹果手机用蓝牙或者线控的都方便,因为

  • 三星Note3眼睛图标如何取消 三星Note3眼睛图标如何取消

    现在分享的三星Note3使用技巧,即Galaxy Note3屏幕上方出现的眼睛图标能否取消.如何去掉的具体操作方法.Note3手机屏幕上有个眼睛图标,这是由于开启了"智能屏幕"功能,利用手机前置摄像头的眼部智能识别技术,可以实现Smart stay智能休眠.智能旋转.智能滚动和智能暂停四大功能. 三星Note3眼睛图标如何取消,这需要将智能屏幕的四大功能全部关闭,请看下面的具体操作方法(N9006.N9008.N9002.N9009版本都可参考本教程): 1.在待机页面下,点击[应用程

  • edius怎么剪切视频 edius怎么剪切视频

    1.将一整段视频拖到EDIUS Pro 8的时间线上. 2.在需要裁剪的开始的地方停住,点击时间线上面的裁剪工具后,素材就会被切断,视频裁剪的入点就确定了. 3.继续拖动时间线,在需要裁剪的结束的地方停住,点击时间线上面的裁剪工具后,素材就会被切断. 4.确定了视频裁剪出入点之后,就可以把多余的前后两端删除掉,只保留裁剪出来的有用视频.

  • 能力提升就是养成好习惯

    通过学习感悟一个道理:用你的一生去养成一种良好的习惯,这一种良好的习惯将会受益于你的一生!是呀,我们经常说人是习惯性动物,人采取的行动几乎都是靠习惯来促使的.比如,你放学.下班回家,走哪条路.坐哪路车,我们常常是不用思考就直奔过去:走路先迈哪个脚,穿衣服先穿哪个胳膊,你都会发现它是在靠习惯支配. 1 不说 不可能 这3个字 2 凡事第一反应:找方法,而不是找借口 3 遇到挫折对自己说 机会来了 4 不说消极的话 不落入消极情绪,一旦出现立即正面处理 5 凡事预先订立目标 6 凡事预先做计划 尽量

  • 尼康J2的有效像素是多少 尼康J2的有效像素是多少

    尼康J2的有效像素是1015万像素,总像素是1200万像素.

  • 《魔兽世界》招商银行联名卡,世界等你改写! 《魔兽世界》招商银行联名卡,世界等你改写!

    招商银行魔兽世界信用卡全新推出"德拉诺之王"珍藏版卡面,更有魔兽世界logo,巫妖王,及血精灵等三款卡面等待您的申请! 魔兽世界联名卡(含新版,旧版)持卡人持联名卡每消费20元人民币或境外消费2美元可累计一个联名卡专属积分,每300魔兽世界专属积分可兑换15元魔兽世界点卡一张,艾泽拉斯的无限精彩刷出来! 更多详情请查看招商银行魔兽世界联名卡产品主页. 活动地址:http://market.cmbchina.com/ccard/wow2012/?WT.mc_id=

  • 梦幻西游无双版新手选择什么职业 最强职业选择推荐 梦幻西游无双版新手选择什么职业 最强职业选择推荐

    梦幻西游无双版里,各位玩家在选择职业的时候,会面临四种职业选择,分别就是剑侠客.巨魔王.玄彩娥和杀破狼,那么梦幻西游无双版新手选择什么职业好?哪个职业实力最强?现在小编就为各位玩家带来了梦幻西游无双版新手最佳职业选择推荐,一起来看看吧! 给各位梦幻西游无双版的玩家们带来新手最佳职业选择推荐. 最适合新手的职业 第一名:剑侠客 剑侠客是大唐.大唐应该算的上是新手最热门的职业了,大唐的技能很简单,就是平砍.横扫.后发,暴击比较厉害,而且在无双版里面的大唐不会很脆皮,加上输出暴力,不管是PK还是做任务

  • 为什么U盘只能存储4G以下的文件

    现在的U盘容量是越来越大了,8G的已经成为主流,16G.32G这些也不再是什么稀奇的东西,但U盘通常会被格式化为FAT32文件格式,这就会造成U盘分区的最大文件体积限制成了4G,超过4G就会出现错误.所以就需要变更U盘文件格式为NTFS格式. 如何安全的将U盘Fat32格式转换为NTFS呢?下面就跟你一起来实际操作一下吧,在转换之前,建议你对该U盘上的重要数据进行备份,以防万一. 1. 将USB文件系统变更为NTFS格式 这是最简单的方法用来改变USB驱动器上的文件格式,尤其是在该文件系统存在的

  • 《喂我石油2》第六大关攻略 《喂我石油2》第六大关攻略

    本次小编为大家带来的是喂我石油2第六大关通关攻略,为大家详细介绍了第六大关中15个关卡的通过方法,你还在等什么,快来看看吧. >>>喂我石油2通关攻略大全 注意事项:第2关.第7关.第14关有彩蛋! 喂我石油2第二大关攻略 第1关 第2关 第3关 第4关 第5关 第6关 第7关 第8关 第9关 第10关 第11关 第12关 第13关 第14关 第15关 第6章第1关攻略: 本关为引导关卡,根据提示放置物品即可. 本次小编为大家带来的是喂我石油2第六大关通关攻略,为大家详细介绍了第六大关中

热门推荐
  • Rails 3.2 性能: 更慢了? Rails 3.2 性能: 更慢了? 拥有一个大型代码库意味着我们不能很经常升级Rails的版本(我们平均每两年一次升级,每次升级需要1-2周的开发时间).不过每次我们做升级工作的时候,我最先好奇的事情之一是,检查不同版本之间的性能差异. 就我们之前的升级来说,在从Rails 2.3 到 Rails 3.0的过程中,我 记录下来的平均动作 变得要慢2倍,一个动作需要的平均时间由225ms攀升到480ms.幸运的是,在这种情境下我们可以拿出一些技巧(GC调优),这样我们最终将同样的动作时间缩减到280ms.即使是实现一些新奇的技巧,这
  • Google 会下决心解决困扰 Android 系统多年的老大难问题吗? Google 会下决心解决困扰 Android 系统多年的老大难问题吗? 每月伊始,Google 都会更新 Android 开发者仪表盘里每个主要 Android 版本活跃设备数量的各自份额.五月的数据显示过去七天内曾登录使用过 Google Play 的 Android Marshmallow 即 Android 6.X 版本设备份额从上月的 2.9% 升至了 7.5%. 这个百分比所传达的信息一如既往的重要.Android Marshmallow 滞后于 Android 上一代主版本 Android Lollipop 的使用率.去年同一时期,Lollipop 在全
  • 否认被收购 BAT阴影下的豌豆荚路向何方? 否认被收购 BAT阴影下的豌豆荚路向何方? 频频传出"被收购"传闻的豌豆荚近来与BAT三巨头的关系是剪不断理还乱.先是在去年传阿里将以15亿美金收购豌豆荚,后来腾讯又加入收购之争,今年年初又出现了百度手机助手屏蔽豌豆荚应用商店的事件. 在昨日豌豆荚独立工具应用"Snap效率锁屏"发布会上,创始人王俊煜就此向外界进行了回应,他表示,并未听说被收购的事情,同时对于百度手机助手屏蔽豌豆荚应用商店的事件,双方仍在交涉之中,希望不要伤害到用户.他还表示,2015年豌豆荚将坚持做应用内搜索(打通内部应用以及不同应用的整合
  • 宝宝睡觉不安稳怎么办 宝宝睡觉不安稳怎么办 1.安全舒适的床上环境.宝宝夜醒很多原因是与父母分床睡造成的夜间寒冷.孤独恐惧.不安全感等离不开的.如何让宝宝夜间醒来还是有安全感,可以再自行睡去,不要父母起床安抚呢?在宝宝的小床上营造一个安全舒适.像妈妈的温暖怀抱一样的环境是最佳的办法.在宝宝睡前,父母就做好以下准备:除了给宝宝盖的小被子外,在身体两旁分别加上一个柔软的小靠枕.或者小毛毯,以便宝宝夜里惊醒四处踢踹时能感觉到柔软的物体,误以为是妈妈的身体,这样他就会安然睡去.注意,小靠枕等物品不要靠近宝宝的头面部,防止窒息.如果不是十分娇嫩的新
  • 电脑怎么破解wifi密码? 电脑怎么破解wifi密码? 1.首先,到系统天堂下载"wifi万能钥匙PC版" 2.在确保硬件已具备(笔记本需要内置无线网卡,台式机需要配置一块无线网卡)的情况下,安装"wifi万能钥匙PC版"程序.当弹出"警告"窗口中选择"允许". 3.安装完成后,运行桌面上的"wifi万能钥匙".接着在打开的程序主界面中点击"刷新"按钮来搜索周围的无线wifi热点. 4.当周围存在wifi热点时,就会自动列出,接着我们只需要选
  • 流年的日子 流年的日子 流年的日子,过得无知从来,不好不坏,无知所去,不喜不悲,活在自己的现时,该吃吃,该喝喝,万事不问,生客不应,一切按部就班,既定程序. 舟至花红叶翠处,人随万水千山行,不知不觉中,便有了情怀. 本站阅读配图 何谓情怀?有人归纳为:当人们习惯于用手机看时间,掏出怀表,便是情怀;当人们习惯于用电脑打字,钢笔书写,便是情怀;当人们习惯于被动地感受这世界,不厌其烦地刷新微博与朋友圈,静下来翻开一本书,此也情怀. 得了情怀,你已不在当下活着,心理年龄肯定不再年轻.情怀是紫砂壶壁上的那层茶垢,是弥散心灵的一息
  • GIT学习札记序言 GIT学习札记序言 GIT学习笔记序言 以前只是简单的使用SVN没有使用过GIT,新单位在用GIT,一直没有深入的学习过什么,现在想拿这个笔记来激励自己系统的学习一下GIT.