程序流程图怎么画

程序流程图画图方法如下：

1、根据实际需要，选择相应的工具进行下载安装并运行，在其程序主界面中，点击“新建”按钮创建新的流程图窗口后，点击“查看”-“工具箱”项打开对应的窗口。

2、通过工具箱添加流程图元素的方法：点击“工具箱”中相应的工具，然后在画布中点击即可完成新元素的添加 *** 作。

3、元素大小和位置的调整：在“工具箱”界面中点击“指针”按钮，随后就可以对流程图元素进行大小和位置的设置 *** 作了。

4、元素添加文字方法：将鼠标移动到元素中心并双击，当出现文字输入框时，输入相应的文扰念核字就可以完成元素注释的添加。

5、对于元素更多样式的添加，我们可以借助“属性”面板来实现，选中对应的高御缓掘元素后，在“属性”界面中，就可以对“填充样式”进行填充了。

6、对于不同元素之间的连接，可以借助“连接线”来实现。双击对应的连线工具，就缓掘可以批量实现元素连接了。

7、最后可以借助“快捷菜单栏”中的“对齐”工具对添加的元素进行对齐处理。

8、依据以上方法，我们可以自由绘制相应的程序流程图高御。

程序流程图又称程序框图，是一种将图形符号与文字说明搭配用于描述程序具体运行步扰念核骤或程序设定的图示。通俗的讲就是在流程图的基础上有主题的梳理事件流程，常用于对计算机与程序相关的流程算法与设计思路的梳理。

Private Sub Check1_Click()

If Check1.Value Then

Text1.Font.Bold = True

Else

Text1.Font.Bold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value Then

Text1.Font.Italic = True

Else

Text1.Font.Italic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value Then

Text1.Font.Underline = True

Else

Text1.Font.Underline = False

End If

End Sub

Private Sub Combo1_Click()

Text1.Font.Name = Combo1.Text

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Dim i As Integer

For i = 0 To Screen.FontCount - 1

Combo1.AddItem Screen.Fonts(i)

Next

Combo1.ListIndex = 0

For i = 6 To 40 Step 2

Combo2.AddItem i

Next

Combo2.ListIndex = 12

Text1.Font.Size = Combo2.Text

End Sub

Private Sub Option1_Click()

Text1.ForeColor = vbBlack

End Sub

Private Sub Option2_Click()

Text1.ForeColor = vbRed

End Sub

Private Sub Option3_Click()

Text1.ForeColor = vbBlue

End Sub

各有所好。有人要立即见到效果，有人却还要等咐核等等一下。衡正掘

如果你那程序各种选择都要在按下确定按钮后才有效果，则所有的选单按清拆钮与复选择按钮都不要与文本框关联，另外编过程吧。

If Option1.Value = True Then '表示选中它

Option1.Value = False '表示没有选中它

Text1.FontName = Option1.Caption '文本框的字体名称

End If

If OptionName(0).Value = True Then '如果是控件数组的话

Text1.FontName = OptionName(0).Caption '文本框的字体名称

End If

If Check1.Value = Checked Then '表示打上了勾

Check1.Value = Unchecked '表示无打上了勾

Text1.FontUnderline = False

End If

等等

---