vb做动态爱心代码(爱心代码编程)
visualstudio怎么敲爱心代码
VISUALSTUDIO2019运行爱心代码直接输出ASCII就行就会显示心形。这些代码能够完毕几个不同的爱心图案。当中有一个样例甚至能够在黑色背景的控制台上打印出跳动的3D爱心动画，效果相当震撼。
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
'单击窗口看运行效果 ?看在我这么辛苦的份上 采纳吧
你会用Vb编程B编写"爱心"用符号“*”
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
hi。。。。
用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