你这个是VB.NET环境，Print 语句与VB6里的功能已经不一样了。
目前创新互联建站已为上1000+的企业提供了网站建设、域名、雅安服务器托管、网站托管维护、企业网站设计、青秀网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
解决的方法可以两种：
方法一：
把 Print(a) 改成 msgbox(a)
方法二：
在窗体上添加一个标签控件Label1
把 Print(a) 改成 Label1.Text = a
把 TextBox2.Text = Chr(Val("H" B))
改为
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) VbCrlf
试试？而且 TextBox2 的MultyLine属性要事先改为True
或者是：
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) “ ”
额，我可以用vb6.0的语句回答您，给您参考，就是不知道您可以转化成.net语句与否。
'添加text1,text2,text3用于记录a,b,c的值
Private Sub Command1_Click()
On Error GoTo check
Dim a, b, c, result1, result2
a = Text1.Text
b = Text2.Text
c = Text3.Text
result1 = (((-1) * b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
result2 = (((-1) * b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "x1= " result1 " x2= " result2
Exit Sub
check:
MsgBox "error!please check your number!"
End Sub
使用一个单重的循环扫描这个字符串中的所有字符，对每一个字符的出现次数进行统计，最后输出每个字符的出现次数。
Private Sub Command1_Click()
s = InputBox("请输入一个英文字符串：")
Dim a(128) As Integer
For i = 1 To Len(s)
t = Asc(Mid(s, i, 1))
a(t) = a(t) + 1
Next i
For i = 1 To 127
If a(i) 0 Then Print Chr(i); ":"; a(i)
Next i
End Sub
事实上，在B =阵列（...）数组参数短语的主要问题是2,5,3，所以这些整数数组（）函数的返回值类型的一个变种，而不是塑料。在指定的子数组参数的定义是一个整数，导致类型不匹配错误。
使用下面的方法解决这个问题：
定义函数的参数类型，
。私人小组代码（1为ByRef（带），作为字符串BYVAL myStr中）
你提到的原因，后的ByRef参数类型不匹配，因为默认情况下是作为一个参数传递的函数地址，你的第二个参数myStr的前面不限制转让其参数，系统，与前一个（）相同的地址，已成为通过轻轻是一个错误，只要在前面加1 BYVAL。
后的代码如下（调试通过）：
选项??基地1
。私人小组代码（1为ByRef（带），作为字符串BYVAL myStr中）
？？作为字符串昏暗的通道，C1为字符串
？N = UBound的（一） - LEN（myStr中）
？如果N 0？
？？？myStr的= myStr的字符串$（“*”）
？？结束如果
？？CH = myStr的
？？对于k = 1，UBound的（一）
？？？C1 = MID（myStr中，K，1）
？？？N = A（K）
？？？中$（CH，N）= C1
K-？
？？myStr的= CH
？打印myStr的？
END SUB
私人小组Command1_Click（）
昏暗的b（）
B =阵列（2，5，3，7，6，1，4）
MYNAME =“克莱门特”
调用的代码（二MYNAME）
END SUB