用Visual Basic设有宇符串 VisualBasicProgramming，请使用函数分别取出该字符串的三个子字符串：Visual、Basic、Programming，并将 Visual 的字母都变为大写,Basic 的字母都变为小写。

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

Private Sub Command1_Click()
    Dim str As String
    Dim str1 As String, str2 As String, str3 As String
    
    str = "VisualBasicProgramming"
    
    str1 = UCase(Left(str, 6))
    str2 = LCase(Mid(str, 7, 4))
    str3 = Mid(str, 11)
    
    MsgBox "三个子字符串分别为：" & str1 & "、" & str2 & "、" & str3
End Sub

在窗体上的“计算”按钮的点击事件中，我们首先定义了一个字符串变量 str，并将其赋值为 "VisualBasicProgramming"。然后，我们使用以下函数来取出三个子字符串：

- `Left(str, 6)`：返回字符串 str 的左侧 6 个字符。在本例中，我们使用 Left(str, 6) 来取出字符串的前 6 个字符，即 "Visual"。
- `Mid(str, 7, 4)`：返回字符串 str 中从指定位置开始的指定数量的字符。在本例中，我们使用 Mid(str, 7, 4) 来取出字符串中从第 7 个字符开始的 4 个字符，即 "Basic"。
- `Mid(str, 11)`：返回字符串 str 中从指定位置开始到字符串末尾的所有字符。在本例中，我们使用 Mid(str, 11) 来取出字符串中从第 11 个字符开始到末尾的所有字符，即 "Programming"。

最后，我们使用 UCase 函数将 str1 中的字母全部转换为大写，使用 LCase 函数将 str2 中的字母全部转换为小写，并使用 MsgBox 函数将结果以消息框的形式显示出来。