VB中想要用PRINT方法显示一个心型。求高手指点代码的错误之处

第二行和倒数第二行你设置的空格太少了，写下一个“0”至少要三个空格

创新互联建站长期为上1000家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为平利企业提供专业的成都网站制作、网站设计，平利网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制开发。

你把第二行写成tab(2):0:tab(5):0。。。。试试就好的了

再看看别人怎么说的。

怎样使用键盘打一个小 心型 出来？拜托各位了...

更多的键盘符号，推荐你使用sogou打字，和QQ拼音打字，里面的符号很全！

如果用智能ABC的话，使用组合键，按住V键不要松开，再按数字1，以此类推

Go语言输出打印--排坑

一.几种公共方法

1)Print:   输出到控制台(不接受任何格式化，它等价于对每一个操作数都应用 %v)

print 在golang中 是属于输出到标准错误流中并打印,官方不建议写程序时候用它。可以再debug时候用

2)Println: 输出到控制台并换行

3)Printf : 只可以打印出格式化的字符串。只可以直接输出字符串类型的变量（不可以输出整形变量和整形等）

4)Sprintf：格式化并返回一个字符串而不带任何输出

5)Fprintf：来格式化并输出到 io.Writers 而不是 os.Stdout

二.带占位符输出--网址：    

和python差不多的道理，这里简单补充

v     值的默认格式

%+v   添加字段名(如结构体)

%#v　 相应值的Go语法表示 

%T    相应值的类型的Go语法表示 

%%    字面上的百分号，并非值的占位符

%c     相应Unicode码点所表示的字符 

%x     十六进制表示，字母形式为小写 a-f

%X     十六进制表示，字母形式为大写 A-F

%U     Unicode格式：U+1234，等同于 "U+%04X"

go语言命令行打印清除

命令如下：

直接在终端中输入gohelp即可显示所有的go命令以及相应命令功能简介，主要有下面这些:

build:编译包和依赖；clean:移除对象文件；doc:显示包或者符号的文档；env:打印go的环境信息；bug:启动错误报告；fix:运行gotoolfix；fmt:运行gofmt进行格式化；generate:从processingsource生成go文件

get:下载并安装包和依赖；install:编译并安装包和依赖；list:列出包；run:编译并运行go程序；test:运行测试；tool:运行go提供的工具；version:显示go的版本；vet:运行gotoolvet；命令的使用方式为:gocommand[args],除此之外，可以使用gohelp；来显示指定命令的更多帮助信息。；在运行gohelp时，不仅仅打印了这些命令的基本信息，还给出了一些概念的帮助信息:；c:Go和c的相互调用；buildmode:构建模式的描述；filetype:文件类型；gopath:GOPATH环境变量

environment:环境变量；importpath:导入路径语法；packages:包列表的描述；testflag:测试符号描述；testfunc:测试函数描述等。

GO语言学习系列八——GO函数(func)的声明与使用

GO是编译性语言，所以函数的顺序是无关紧要的，为了方便阅读，建议入口函数 main 写在最前面，其余函数按照功能需要进行排列

GO的函数 不支持嵌套，重载和默认参数

GO的函数 支持 无需声明变量，可变长度，多返回值，匿名，闭包等

GO的函数用 func 来声明，且左大括号 { 不能另起一行

一个简单的示例：

输出为：

参数：可以传0个或多个值来供自己用

返回：通过用 return 来进行返回

输出为：

上面就是一个典型的多参数传递与多返回值

对例子的说明：

按值传递：是对某个变量进行复制，不能更改原变量的值

引用传递：相当于按指针传递，可以同时改变原来的值，并且消耗的内存会更少，只有4或8个字节的消耗

在上例中，返回值 (d int, e int, f int) { 是进行了命名，如果不想命名可以写成 (int,int,int){ ,返回的结果都是一样的，但要注意:

当返回了多个值，我们某些变量不想要，或实际用不到，我们可以使用 _ 来补位，例如上例的返回我们可以写成 d,_,f := test(a,b,c) ，我们不想要中间的返回值，可以以这种形式来舍弃掉

在参数后面以 变量 ... type 这种形式的，我们就要以判断出这是一个可变长度的参数

输出为：

在上例中， strs ...string 中， strs 的实际值是b,c,d,e,这就是一个最简单的传递可变长度的参数的例子，更多一些演变的形式，都非常类似

在GO中 defer 关键字非常重要，相当于面相对像中的析构函数，也就是在某个函数执行完成后，GO会自动这个；

如果在多层循环中函数里，都定义了 defer ,那么它的执行顺序是先进后出；

当某个函数出现严重错误时， defer 也会被调用

输出为

这是一个最简单的测试了，当然还有更复杂的调用，比如调试程序时，判断是哪个函数出了问题，完全可以根据 defer 打印出来的内容来进行判断，非常快速，这种留给你们去实现

一个函数在函数体内自己调用自己我们称之为递归函数，在做递归调用时，经常会将内存给占满，这是非常要注意的，常用的比如，快速排序就是用的递归调用

本篇重点介绍了GO函数(func)的声明与使用，下一篇将介绍GO的结构 struct

用VB程序怎么做一个心型图？

Dim X1, Y1, X2, Y2 As Integer\x0d\x0aDim I As Integer\x0d\x0aDim J As Boolean\x0d\x0aDim K As IntegerDim WithEvents Label1 As Label\x0d\x0aDim WithEvents Timer1 As TimerPrivate Sub Form_Activate()\x0d\x0a I = 100\x0d\x0a K = 100\x0d\x0a X1 = Me.Width / 2\x0d\x0a Y1 = Me.Height / 3\x0d\x0a X2 = X1\x0d\x0a Y2 = Y1\x0d\x0aLabel1.Top = Me.Height / 2 - Label1.Height / 2\x0d\x0a Label1.Left = Me.Width / 2 - Label1.Width / 2\x0d\x0aEnd SubPrivate Sub Form_Load() Me.BackColor = H0\x0d\x0a Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\x0a Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\x0a Me.DrawMode = 13\x0d\x0a Me.DrawWidth = 2\x0d\x0a Me.FillStyle = 7\x0d\x0aSet Label1 = Me.Controls.Add("VB.Label", "Label1")\x0d\x0a Set Timer1 = Me.Controls.Add("VB.Timer", "Timer1")\x0d\x0aLabel1.Visible = True\x0d\x0a Label1.AutoSize = True\x0d\x0a Label1.BackStyle = 0\x0d\x0a Label1.Caption = "I LOVE YOU"\x0d\x0a Label1.Font.Size = 60\x0d\x0a Label1.ForeColor = HFF00\x0d\x0a Timer1.Enabled = True\x0d\x0a Timer1.Interval = 10\x0d\x0a Me.WindowState = 2\x0d\x0aEnd SubPrivate Sub Timer1_Timer()\x0d\x0a Me.Circle (X1, Y1), 250\x0d\x0a Me.Circle (X2, Y2), 250\x0d\x0a \x0d\x0a If Y1 = Me.Height / 3 Then\x0d\x0a K = K - 5\x0d\x0a End If\x0d\x0a Else\x0d\x0a I = 100\x0d\x0a K = 100\x0d\x0a X1 = Me.Width / 2\x0d\x0a Y1 = Me.Height / 3\x0d\x0a X2 = X1\x0d\x0a Y2 = Y1\x0d\x0a \x0d\x0a Me.FillColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)\x0d\x0a Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End If\x0d\x0a \x0d\x0a Me.DrawWidth = 3\x0d\x0a \x0d\x0a Me.PSet (Rnd * Me.Width, Rnd * Me.Height), RGB(Rnd * 225, Rnd * 225, Rnd * 225)\x0d\x0a Me.DrawWidth = 2\x0d\x0aEnd SubPrivate Sub Form_Click()\x0d\x0a End\x0d\x0aEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)\x0d\x0a End\x0d\x0aEnd Sub

网页标题：关于用go语言打印一个心型的信息
文章转载：http://chengdu.cdxwcx.cn/article/doosped.html