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
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
解决方案 »
- 调试器查看变量时字符串顶多能看到前256个字符,怎么查看更多的内容
- !!!!!请教如果客户端非正常断开,服务器端应该怎样判断并做标记呢
- 为什么自定义的消息用PostThreadMessage发送后不能被我的窗口函数拦截呢?
- vb 操纵ie
- 请教一下,mshflexgrid 这控件如何间色!
- 怎样才能让窗体提前出来??
- sql server发送email
- 请教一个有关winapi函数的问题
- 怎样给一个程序加进度栏?
- 请大家看看我的问题!(Beyond VB VC++ Delphi BCB PHP ASP PB Java ...)
- 进来看看~(独家)~~~实现半透明窗体、不规则窗体、窗体置顶、拖动无标题栏窗体的ActiveX.dll
- 需要MD5的VB代码
Dim StrNum1, StrNum2 As Single
改为
Dim Num1 As Single
Dim Num2 As Single
Dim StrNum1 As Single
Dim StrNum2 As Single
Dim StrNum1, StrNum2 As Single
改为:
Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As string
Dim FirstNum As Boolean
如果声明Dim Num1, Num2 As Single
那么Num1是变体形而不是单精形,当然也不必一条一条的写可以写成
Dim Num1 As Single,Num2 As Single另外即使修改了声明也是通不过的,因为不能隐式得把空字符转化为数字
有几种修改方法
1改成
StrNum1 = Val("")
StrNum2 = Val("")
这样可以把空字符变成0
2看楼主得声明好像式要让StrNum作为一个字符串
是不是申明得时候写错了,请注意String(字符串) 和 Single(单精数字) 上得区别
Dim StrNum1, StrNum2 As Single
中的strNum1在下面赋值时被被变为VAREANT(变体型),而StrNum2依旧是Single浮点型
在下面你将两个字符串赋给2个变量,STRNUM1作为变体型编译通过了,而STRNUM2则没有,这是VB的一个问题,我以前也遇到过。
建议还是分别定义。STRNUM1,STRNUM2应该为STRING字符串型
StrNum1 = ""
StrNum2 = ""<----------提示字符不匹配,为什么???
改为:Dim StrNum1, StrNum2 As string,
或者 StrNum1 = 0
StrNum2 = 0
Dim Num1, Num2 As Single
Dim StrNum1, StrNum2 As string
Dim FirstNum As Boolean
类型:single 为数值型
空字符:"" 为字符型
类型错误或字符不匹配!
谢谢你们的帮助!
特别是 sssss342072(乘凉的狙击手)
让我茅塞顿开
haohaohappy() 你的那种声明格式不行呀
程序提示缺少变量。你看是不是,