育才学习网1.VB中的符号常量是什么
VB中的符号常量（常数）是用于容易修改的目的，可在代码中的任何地方使用常数代替实际的值。
比如说程序代码要多处使用圆周率，可先定义（Const PI =3.14），然后就使用PI来代表3.14。假如在该题目中使用了数百个PI，如果要修改它的精度改为3.141593，只需修改声明中的常量值Const PI= 3.141593就达目的，而不用一次一次的去改。
常数
执行程序时保持常数值的命名项目。常数可以是字符串、数值、另一常数、任何（ 除乘幂与 Is 之外的） 算术运算符或逻辑运算符的组合。每个主应用程序皆可定义自己的一组常数。用户也可以 Const 语句定义附加常数。可在代码中的任何地方使用常数代替实际的值。
Const 语句，声明用于代替文字量的常数。
Const 语句示例
该示例使用 Const 语句来声明用于代替文字值的常数。Public 常数在标准模块的通用部分声明，而不是在类模块中声明。Private 常数可以在任何模块类型的通用部分声明。
'缺省情况下常数是私有的。
Const MyVar = 459
'声明公用常数。
Public Const MyString = "HELP"
'声明私有的整数常数。
Private Const MyInt As Integer = 5
'在一行中声明多个常数。
Const MyStr = "Hello", MyDouble As Double = 3.4567
2.vb如何写入特殊符号到文本文件
有两种方法，一：用ascii码字符，比如：
dim St as string
open "c:\ab.texe" for output as #1
st=chr(asc(""")) & AskUser chr(asc("""))
& "=hex:00,00,00,00"
write #1,st
close #1
其中chr(asc（)）中的内容是你正常方法无法输入的字符，
另一种方法是：在要输入特殊字符时，做特殊的处理：例如
dim St as string
open "c:\ab.text" for output as #1
st=""""" &AskUser """"" & "=hex:00,00,00,00"
write #1,st
close #1
其中"""""之所以用五个"是因为正常情况下"字符是不能直接赋给字符常量的，因为st="""这个会引起误解，所以要在左右多家一个"，其他的特殊字符处理也是一样的，比如要把（赋给一个字符，你可以这么做：
st=""(""
3.VB编写"爱心"用符号“*”
Private Sub form_Click()
Print Tab(10); "**";
Print Tab(20); "**",
Print Tab(6); "*";
Print Tab(14); "*";
Print Tab(18); "*";
Print Tab(25); "*",
Print Tab(4); "*";
Print Tab(15); "*";
Print Tab(17); "*";
Print Tab(27); "*",
Print Tab(3); "*";
Print Tab(16); "*";
Print Tab(28); "*",
Print Tab(3); "*";
Print Tab(28); "*",
Print Tab(4); "*";
Print Tab(27); "*",
Print Tab(5); "*";
Print Tab(26); "*",
Print Tab(7); "*";
Print Tab(24); "*",
Print Tab(9); "*";
Print Tab(22); "*",
Print Tab(11); "*";
Print Tab(20); "*",
Print Tab(13); "*";
Print Tab(17); "*",
Print Tab(15); "*",
End Sub'单击窗口看运行效果 看在我这么辛苦的份上 采纳吧