VB基础教程

Dim a As Integer

Dim b, c, i, j As Integer

Private Sub Command1_Click()

Cls

For i = 1000 To 9999

a = Int(i / 100)

b = i Mod 100

c = a + b

If c ^ 2 = i Then

Print i

End If

Next

End Sub

画画不仅能激发儿童的拓展思维，也是爸妈陪宝宝促进亲情的一种方式;这里我给大家发布一份如何教孩子画画：儿童画画入门的教程。

首先教孩子认识图形，然后两条横线和两条竖线可组成正方形和长方形，要耐心认真的哟。

四条斜线可组成菱形。三条直线可组成三角形。

两条横线和两条斜线可组成梯形、平行四边形。

一条横线和一条弧线组成半圆形。两个半圆组成一个圆形。

形状组合

长方形和梯形可组成房子。 长方形、梯形、圆形可组成娃娃。

菱形、三角形、圆形可组成花卉。

长方形、圆形、半圆形可组成汽车、拖拉机等。

圆形、半圆形、长方形、三角形可组成鸟、小鸡。

三角形、半圆形、波浪线组成的山、水、船。

圆形、椭圆形组成的树。

总之，这些形与形的组成可绘成各种人物、动物、花鸟、山水、房屋、树、水果、家具等简易美丽的画面。

拓展练习

拓展画册1

拓展画册2

可以把两个拓展当做对孩子的考验，先认识图形再画出他。

儿童理发零基础教程如下：

材料：推剪、海绵擦、罩衣等。

1、准备好理发所需要的工具。理发前给小孩子穿上罩衣，这样避免头发往衣服里面藏。穿好罩衣后，把干毛巾，从脖子的地方塞进衣服里面。

2、准备好前序的工作后，就可以开始理发了。首先把理发器上面滴几滴油，这样不会卡头发，理发时更顺畅。先确定好自己要理发的部位，然后开动理发器电源。从头发的根部开始推剪。

3、记住理发时，要用海绵即使清扫脖子周围的头发渣，不然小孩子会觉得很痒，就不会配合理发了。把左右两边推剪成一样高低。把刘海用梳子梳理好，用剪刀，剪好，基本理发就结束了。最后就是结尾工作了，最后给孩子洗个澡，清洗身上残留的头发渣。

理发简介：

理发，(Hair care)，又名 头发护理，常见的是修剪头发，简称剪发，令人外观清洁整齐，有美化外型、美容之功用。 理发可以是家庭生活活动，家属及朋友互相帮助。不过理发也可视为七十二行之一种专业，是发廊、理发店的理发师之职业。 

理发通常指基本的头发护理，而头发的美化则称为美发。但除了剪发，“理发全套”可能包括洗头、吹头发、染发、恤发、定型、美甲、按摩等。

男女梳栉，都得用梳子和篦子。古人挽发为髻古代男女到了成年，要行加冠与及笄之礼，要束发；对罪犯施髡刑，还有仅去须鬓的刑罚，这都需要专门的“栉工”。

由于各朝代对头发的清洁卫生处理方法不同，所以有不同的称呼，明代叫“篦头”，清代叫“剃头”，还有叫“剪头”、“推头”等。