用Visual Basic设a=3,6=5,6=8,d=7，计算a*a+（6+3）/3

可以的，以下是 Visual Basic 的代码实现：

Private Sub Command1_Click()
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    Dim result As Double
    
    a = 3
    b = 6
    c = 5
    d = 7
    
    result = a * a + (b + c) / 3
    
    MsgBox "计算结果为：" & result
End Sub

在窗体上的“计算”按钮的点击事件中，我们定义了四个变量 a、b、c 和 d，并将它们分别赋值为 3、6、5 和 7。然后，我们使用这些变量来计算表达式 a*a+（6+3）/3 的值，并将结果存储在 result 变量中。最后，我们使用 MsgBox 函数将计算结果显示在一个消息框中。

请注意，我们在计算表达式时使用了括号来明确运算顺序。