奇怪的定义!不信你试试!我被骗了!

Question

Private Sub Form_Load()
Dim q, d As Stringq = "daf"
d = "fdsaf"
Call fun(q, d)End SubFunction fun(a As String, b As String) As Boolean
Text1.Text = a + b
End Function
没想到居然运行不了,,,,,
原因是这个原因...
dim q,d as string
-------vb 真戳!!!

Answer 1

如果是别的语言
C :
int i,k
i和k都是int型VB:
dim i,k as string
i是变体.K才是字符型........
VBvb 真戳!!!.

Answer 2

不同的语言有不同的语法要求，如果VB都要和C一样，那它就不是VB了。

Answer 3

楼主草草了看了两眼VB,就拿来用,不出错才怪.你的问题很简单。根本原因在于你没把VB函数或过程中参数调用搞明白:比如什么是传值,什么是传址.你的fun函数用传址来定义形参a,而在调用的过程里,定义了变体,赋值为字符串做实参.肯定要报错的。两个办法,一个是把q明确定义为STRING;如果你不高兴那样做,那就把fun(a As String, b As String)变成 fun(byval a As String, b As String),然后你再看看还报错吗?顺便说一句，不喜欢VB你就别用。既然要用了就认真学、好好用；说些没用的话让人笑话，呵呵

Answer 4

Private Sub Form_Load() 
Dim q as String,d As String
'VB定义法.不定义或不指定类型为Variant 
q = "daf " 
d = "fdsaf " 
Call fun(q,d) 
End Sub 
Function fun(a As String,b As String)As Boolean 
Text1.Text = a + b 'ERROR真正出错在这里+必须类型匹配，用&没问题。
End   Function 

Answer 5

用VB的不应该贬低VB,大家应该维护VB才对!