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

[ct114047689]

Private Sub Form_Load()
Dim q, d As String

q = "daf"
d = "fdsaf"
Call fun(q, d)

End Sub

Function fun(a As String, b As String) As Boolean
Text1.Text = a + b
End Function




没想到居然运行不了,,,,,
原因是这个原因...
dim q,d as string
-------

vb 真戳!!!

[Fanks]

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

[lorl2]

老兄,送分吗,给点俺吧

[toury]

楼主草草了看了两眼VB,就拿来用,不出错才怪.

你的问题很简单。根本原因在于你没把VB函数或过程中参数调用搞明白:比如什么是传值,什么是传址.你的fun函数用传址来定义形参a,而在调用的过程里,定义了变体,赋值为字符串做实参.肯定要报错的。

两个办法,一个是把q明确定义为STRING;如果你不高兴那样做,那就把fun(a As String, b As String)变成 fun(byval a As String, b As String),然后你再看看还报错吗?

顺便说一句，不喜欢VB你就别用。既然要用了就认真学、好好用；说些没用的话让人笑话，呵呵

[嗷嗷叫的老马]

哦~~~原来这就是VB呀........

[mcu_2008]

喷精了！

[clear_zero]

真戳!!! 啥意思啊

我记得南京人喜欢说 矬

[砸死牛顿的苹果]

说的啥方言?

[ct114047689]

????
只是一直被忽忧了很长时间~~~
呵呵
平时真马虎~~
哈哈

[熊孩子开学喽]

楼主自己基础不过关。

[一笑拔剑]

你还不如那些不定义直接用的人

[nbdd0121]

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

[斯赛]

南昌人？

[Michael_g]

8楼的，这是公共场所！

[Michael_g]

谁把这一年前的贴子顶上来的？

[SYSSZ]

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

[zengfanying]

接分

[雪碧爱可乐]

个人还是很喜欢VB的，特别是编程环境！！

[ken2002]

真是一年前的贴子呀

[Sandrer]

14楼的同志耐性真好，居然能找到这么久远的帖子！！
同时之前某个版主不是说把所有久远的帖都强行结帖吗？
怎么还有漏网之鱼？

[hjessica]

我也被骗了，居然就来了。。