VB程序总出现类型不匹配代码如下

2025-04-27 12:04:12

推荐回答（3个）

回答1：

这是肯定的啊，你看：
Dim a As Single 这里，a已经定义为Single(单精度浮点型)
那我们再看，Text1控件里的内容肯定是String(字符类型)的，那么好了：
a = Text1.Text
这里，你要让单精度浮点型的值从字符类型里获取，肯定是类型不符合啊！

你要转换一下类型才行：
a = Val(Text1.Text)
b = Val(Text3.Text)

回答2：

建议修改一下代码：

 Private Sub Command1_Click()
    Dim a As Single, b As Single
    a = Val(Text1.Text)
    b = Val(Text3.Text)
    ......

回答3：

a = Text1.Text

这个语句执行后的变量a是文本，例如是"10"，文本大小比较不是我们想像的，而加减运算会类型错，这样的语句应该修改为：
a = Val(Text1.Text)

VB程序总出现类型不匹配 代码如下

VB程序总出现类型不匹配代码如下