自学vb 菜鸟有问题不会，有那位好心人帮忙，小弟谢了！！！

Question

Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As Single
Dim FirstNum As BooleanPrivate Sub Form_Load()
Num1 = 0
Num2 = 0
StrNum1 = ""
StrNum2 = ""<----------提示字符不匹配，为什么？？？
FirstNum = True
End SubPrivate Sub Command1_Click(Index As Integer)
Select Case Index
 Case 0 To 9
  If FirstNum Then
   StrNum1 = Str(Index)
   FristNum1 = False
  Else
   StrNum1 = StrNum1 + Str(Index)
  End If
  Label1.Caption = StrNum1
  
 End SelectEnd Sub

Answer 1

Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As Single
改为
Dim Num1 As Single
Dim Num2 As Single
Dim StrNum1 As Single
Dim StrNum2 As Single

Answer 2

Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As Single
改为：
Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As string
Dim FirstNum As Boolean

Answer 3

haohaohappy() 已经更正了楼主声明上的一个错误
如果声明Dim Num1, Num2 As Single
那么Num1是变体形而不是单精形，当然也不必一条一条的写可以写成
Dim Num1 As Single,Num2 As Single另外即使修改了声明也是通不过的，因为不能隐式得把空字符转化为数字
有几种修改方法
1改成
StrNum1 = Val("")
StrNum2 = Val("")
这样可以把空字符变成0
2看楼主得声明好像式要让StrNum作为一个字符串
是不是申明得时候写错了，请注意String(字符串) 和 Single(单精数字) 上得区别

Answer 4

其中你原来写的这句话中
Dim StrNum1, StrNum2 As Single
中的strNum1在下面赋值时被被变为VAREANT（变体型），而StrNum2依旧是Single浮点型
在下面你将两个字符串赋给2个变量，STRNUM1作为变体型编译通过了，而STRNUM2则没有，这是VB的一个问题，我以前也遇到过。
建议还是分别定义。STRNUM1，STRNUM2应该为STRING字符串型
StrNum1 = ""
StrNum2 = ""<----------提示字符不匹配，为什么？？？

Answer 5

single是数字的，“”是空字符串，当然不可以了
改为：Dim StrNum1, StrNum2 As string，
或者 StrNum1 = 0
     StrNum2 = 0

Answer 6

该为
Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As string
Dim FirstNum As Boolean

Answer 7

给变量赋值错误！
 类型：single 为数值型
 空字符："" 为字符型
 类型错误或字符不匹配！

Answer 8

vb前辈们你们好
  谢谢你们的帮助！
特别是 sssss342072(乘凉的狙击手) 
让我茅塞顿开

Answer 9

顺便说一下
      haohaohappy() 你的那种声明格式不行呀
          程序提示缺少变量。你看是不是，