vb里面点击一个按钮怎么同时播放两个文本框的数字？

Question

vb里面，点击一个按钮后，如何实现同时播放两个文本框的数字？
程序代码如下:
Private Declare Function Beep Lib kernel32 (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim s As String
Dim i As Integer
s = Text1.Text + Text2.Text
For i = 1 To Len(s)
Select Case Mid(s, i, 1)
Case 0
Beep 523, 200

Case 1
Beep 587, 200
Case 2
Beep 659, 200
Case 3
Beep 698, 200
Case 4
Beep 784, 200
Case 5
Beep 880, 200
Case 6
Beep 980, 200
Case 7
Beep 1060, 200
End Select
Next
End Sub

Answer 1

在 VB 中，您可以使用按钮的 Click 事件来同时播放两个文本框的数字。假设您的两个文本框控件分别名为 TextBox1 和 TextBox2，您可以按照以下步骤编写代码：

打开窗体设计器，在窗体上添加两个文本框控件，并设置它们的 Name 属性分别为 TextBox1 和 TextBox2。

添加一个按钮控件，并设置它的 Name 属性为 Button1。

双击按钮控件，在按钮的 Click 事件处理程序中添加以下代码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim num1 As Integer = 0 ' 第一个文本框的数字

Dim num2 As Integer = 0 ' 第二个文本框的数字

' 尝试将第一个文本框的内容解析为整数

If Integer.TryParse(TextBox1.Text, num1) Then

' 如果解析成功，将第一个文本框的数字加 1

num1 += 1

' 将加 1 后的数字显示在第一个文本框中

TextBox1.Text = num1.ToString()

End If

' 尝试将第二个文本框的内容解析为整数

If Integer.TryParse(TextBox2.Text, num2) Then

' 如果解析成功，将第二个文本框的数字加 1

num2 += 1

' 将加 1 后的数字显示在第二个文本框中

TextBox2.Text = num2.ToString()

End If

End Sub
上述代码中，我们首先声明了两个整型变量 num1 和 num2，分别用来存储第一个文本框和第二个文本框中的数字。然后，我们尝试将两个文本框的内容解析为整数，如果解析成功，就将其加 1 并显示在相应的文本框中。注意，我们使用 TryParse 方法来避免解析失败时抛出异常的情况。

最后，我们将这段代码添加到按钮的 Click 事件处理程序中，这样当用户单击按钮时，就会同时播放两个文本框的数字。追问

是不是vb代码？我这里怎么总是报错的