vb做动态爱心代码(vbs爱心特效教程)

http://www.itjxue.com  2023-03-04 19:43  来源:未知  点击次数: 

visualstudio怎么敲爱心代码

VISUALSTUDIO2019运行爱心代码直接输出ASCII就行就会显示心形。这些代码能够完毕几个不同的爱心图案。当中有一个样例甚至能够在黑色背景的控制台上打印出跳动的3D爱心动画,效果相当震撼。

VB 怎么弄成心形

'你们的太难看了,看我的画图法

'把下面的代码放在窗体里,运行,单击窗体看看

Private Sub Form_Click()

ScaleMode = vbPixels

Circle (20, 20), 10, , 0, 3.2

Circle (40, 20), 10, , 0, 3.2

Line (10, 20)-(30, 50)

Line (50, 20)-(30, 50)

PSet (30, 50)

End Sub

VB绘心形图源代码

放入一个按钮复制下面代码即可

Private Sub Command1_Click()

Print "/\/\"

Print "\ /"

Print " \/"

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编写"爱心"用符号“*”

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程序怎么做一个心型图?

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

(责任编辑:IT教学网)

更多

推荐Discuz!建站文章