VB程序总出现类型不匹配 代码如下
答案:3 悬赏:0 手机版
解决时间 2021-03-24 08:28
- 提问者网友：佞臣
- 2021-03-23 13:07
VB程序总出现类型不匹配 代码如下
最佳答案
- 五星知识达人网友：山河有幸埋战骨
- 2021-03-23 14:14
这是肯定的啊，你看：
Dim a As Single 这里，a已经定义为Single(单精度浮点型)
那我们再看，Text1控件里的内容肯定是String(字符类型)的，那么好了：
a = Text1.Text
这里，你要让单精度浮点型的值从字符类型里获取，肯定是类型不符合啊！
你要转换一下类型才行：
a = Val(Text1.Text)
b = Val(Text3.Text)
Dim a As Single 这里，a已经定义为Single(单精度浮点型)
那我们再看，Text1控件里的内容肯定是String(字符类型)的，那么好了：
a = Text1.Text
这里，你要让单精度浮点型的值从字符类型里获取，肯定是类型不符合啊！
你要转换一下类型才行：
a = Val(Text1.Text)
b = Val(Text3.Text)
全部回答
- 1楼网友：酒者煙囻
- 2021-03-23 16:38
建议修改一下代码： Private Sub Command1_Click()
Dim a As Single, b As Single
a = Val(Text1.Text)
b = Val(Text3.Text)
......
- 2楼网友：躲不过心动
- 2021-03-23 15:27
a = Text1.Text
这个语句执行后的变量a是文本，例如是"10"，文本大小比较不是我们想像的，而加减运算会类型错，这样的语句应该修改为：
a = Val(Text1.Text)
这个语句执行后的变量a是文本，例如是"10"，文本大小比较不是我们想像的，而加减运算会类型错，这样的语句应该修改为：
a = Val(Text1.Text)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯
| 正方形一边上任一点到这个正方形两条对角线的 |
| 阴历怎么看 ？ |