Private Sub Form_Load() Form1.Show Print Tab(8); "√,∫,∑" End Sub
也可以在立即窗口输出:Debug.Print "√,∫,∑"
还可以输出到文本文件里 Private Sub Form_Load() Open "C:\1.txt" For Output As #1 Print #1, "√,∫,∑√,∫,∑√,∫,∑" Close #1 End Sub
chw(8730)为√ chw(8747)为∫ chw(8721)为∑
Private Sub Command1_Click() Text2 = AscW(Text1) If Text2 < 0 Then Text2 = 65536 + Text2End SubPrivate Sub Command2_Click() If Not IsNumeric(Text2) Then Text1 = Text2 MsgBox "输错位置了", , "输错位置了" Exit Sub End If Text1 = ChrW(Text2) End Sub 以上程序可以查询任何字符的CHRW 和ARCW码
Form1.Show
Print Tab(8); "√,∫,∑"
End Sub
Private Sub Form_Load()
Open "C:\1.txt" For Output As #1
Print #1, "√,∫,∑√,∫,∑√,∫,∑"
Close #1
End Sub
chw(8747)为∫
chw(8721)为∑
Text2 = AscW(Text1)
If Text2 < 0 Then Text2 = 65536 + Text2End SubPrivate Sub Command2_Click()
If Not IsNumeric(Text2) Then
Text1 = Text2
MsgBox "输错位置了", , "输错位置了"
Exit Sub
End If
Text1 = ChrW(Text2)
End Sub
以上程序可以查询任何字符的CHRW 和ARCW码
用 Label + Line 拼接
也可以用GDI画图
不好意思,上面写错了
chRw(8730)为√
chRw(8747)为∫
chRw(8721)为∑