如何用VB打“*”构成爱心
答案:4 悬赏:0 手机版
解决时间 2021-03-20 20:01
- 提问者网友：疯子也有疯子的情调
- 2021-03-20 04:31
如何用VB打“*”构成爱心
最佳答案
- 五星知识达人网友：妄饮晩冬酒
- 2021-03-20 05:14
够费劲的，可算画完了
Private Sub Command1_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
Private Sub Command1_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
全部回答
- 1楼网友：孤独入客枕
- 2021-03-20 07:53
不行的 VB实现不了
- 2楼网友：荒野風
- 2021-03-20 06:08
给你两个方程式，用VB计算不同坐标并输出“*”就可以了
希望对您有帮助
当φ属于第一，第四象限时：
ρ=—aφ
当φ属于第二，第三象限时
ρ=aφ
以上a均为正数，且φ∈（0，2∏」时就为一条心型线
另外比较简单的表达方式：
x~2+y~2+ax=a(x~2+y~2)~1/2
（~后面的数均为指数
希望对您有帮助
当φ属于第一，第四象限时：
ρ=—aφ
当φ属于第二，第三象限时
ρ=aφ
以上a均为正数，且φ∈（0，2∏」时就为一条心型线
另外比较简单的表达方式：
x~2+y~2+ax=a(x~2+y~2)~1/2
（~后面的数均为指数
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯