在VB环境中执行源代码,本身就是调试模式
成都创新互联公司成立十余年来,这条路我们正越走越好,积累了技术与客户资源,形成了良好的口碑。为客户提供网站制作、做网站、网站策划、网页设计、域名申请、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等,这些对于网站建设都非常重要,成都创新互联公司通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案,携手广大客户,共同发展进步。
按F8即可逐语句运行
点击语句左端空白处,将其背景色变为深红,就是添加断点,运行到该语句会停下来
可以在变量、对象等语句上点击右键,选择“添加监视”即可
不能完全控制,那个不是叫全局变量。应该叫类成员变量。执行顺序肯定是先定义数据,再到构造函数,在到Form_load。
你在怀疑出错的代码前面,想办法把参数date1的值显示出来(比如用对话框显示出来),通过在两种环境中的运行结果比较,就知道为什么会出现无法转换类型的错误了。如果仍然无法找到出错的所在,那么就可以利用这种方法继续上溯,直到找出症结所在
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a() As Integer = {678, 45, 324, 528, 439, 387, 87, 875, 273, 823}
Dim i%, j%, n%, t%, k%
Label1.Text = ""
n = UBound(a)
For i = 0 To n - 1
For j = 0 To n - i - 1
If a(j) a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
For k = 0 To n - 1
Label1.Text = a(k) " "
Next
Label1.Text = vbCrLf
Next i
End Sub
这是正确代码 我已经调试过了。尽请放心
如果是要判断引用类型可以用TypeOf来判断
Dim s = "666"
If TypeOf (s) Is String Then
Debug.Print("string")
Else
Debug.Print("not string")
End If
如果不知道是否是引用类型,可以这样判断:
Dim s = 666
If VarType(s) = VariantType.String Then
Debug.Print("string")
Else
Debug.Print("not string")
End If
或者:
Dim s = 666
If s.GetType = "".GetType Then
Debug.Print("string")
Else
Debug.Print("not string")
End If