简单的圆柱体怎么做，请问在WORD里如何绘制简单的圆柱体

来源：整理时间：2023-04-18 08:56:29 编辑：航空兔素材手机版

本文目录一览

1，请问在WORD里如何绘制简单的圆柱体
2，要做一个圆柱体先确定什么条件你是怎么做的
3，怎样做圆柱体啊啊急急急
4，用VB作一个简单的圆柱

1，请问在WORD里如何绘制简单的圆柱体

插入-形状-流程图倒数第三个就是

请问在WORD里如何绘制简单的圆柱体

2，要做一个圆柱体先确定什么条件你是怎么做的

1. 先确定圆的直径或半径、画出两个圆（圆柱底面）2. 画侧面展开图，长＝直径×3.14，宽＝圆柱的高3. 裁剪，将长方形卷成空心圆柱，接缝处用透明胶纸粘好4. 将2个圆粘贴在圆柱底面

二踢脚？？最简单的自制方法，把一般的爆竹拆开，火药收集起来重新自己卷一个大的，不过越大越危险，不建议自己制。威力太大变成雷管，就成违法犯罪了。

要做一个圆柱体先确定什么条件你是怎么做的

3，怎样做圆柱体啊啊急急急

体积=π平方乘于高表面积=？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？就行了

每天都能做

那不简单吗，用纸卷起来，两边盖个圆

怎样做圆柱体啊啊急急急

4，用VB作一个简单的圆柱

Dim oldx, oldy, shape As IntegerPrivate Sub Combo1_Change() Picture1.DrawWidth = Int(Combo1.Text)End SubPrivate Sub Combo1_Click() Picture1.DrawWidth = Int(Combo1.Text)End SubPrivate Sub Form_Load() Dim i As Integer shape = 1 Do While i <= 40 i = i + 2 Combo1.AddItem Str(i) LoopEnd SubPrivate Sub Label2_Click(Index As Integer) Select Case Index Case 0 shape = 0 Case 1 shape = 1 Case 2 shape = 2 End SelectEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) oldx = X oldy = YEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If shape = 0 Then Picture1.Line (oldx, oldy)-(X, Y) If shape = 1 Then Picture1.Line (oldx, oldy)-(oldx, Y) Picture1.Line (oldx, oldy)-(X, oldy) Picture1.Line (oldx, Y)-(X, Y) Picture1.Line (X, oldy)-(X, Y) End If If shape = 2 Then If Abs(X - oldx) > Abs(Y - oldy) Then radius = Abs(Y - oldy) Else radius = Abs(X - oldx) Picture1.Circle (oldx, oldy), radius End IfEnd SubPrivate Sub Command1_Click() CommonDialog1.ShowColor Picture1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click() CommonDialog1.Filter = "BMP文件|*.bmp" CommonDialog1.ShowOpen If CommonDialog1.FileName <> "" Then Picture1.Picture = LoadPicture(CommonDialog1.FileName) End IfEnd SubPrivate Sub Command3_Click() CommonDialog1.Filter = "BMP文件|*.bmp" CommonDialog1.ShowSave If CommonDialog1.FileName <> "" Then SavePicture Picture1.Image, CommonDialog1.FileName End IfEnd SubPrivate Sub Command4_Click() Picture1.ClsEnd SubPrivate Sub Command5_Click() EndEnd Sub