文档介绍:该【VB程序设计-三角形 】是由【guoxiachuanyue001】上传分享,文档一共【10】页,该文档可以免费在线阅读,需要了解更多关于【VB程序设计-三角形 】的内容,可以使用淘豆网的站内搜索功能,选择自己适合的文档,以下文字是截取该文章内的部分文字,如需要获得完整电子版,请下载此文档到您的设备,方便您编辑和打印。VB程序设计-三角形
2
VB程序设计-三角形
作者:草原飞狼2014年5月22日)
W33O-I哼□m
tlFxaLiPmltnI
Fcasji
?End
tnz
J-SO
MjI."Ir-±-r«
Pd34
□咗或值■则■:
B«-4,rS«TlR
E-恥砂
CifihWi
Fsrrd
□if^miraLn
Trqq
L
<■]&■<
Tm*
-
p皿鈕
H一>jjijre>
hhB^l^la
□-
Cl
:i
ErihkL^d
Tr“
-M-
■^1UOMC4
^la
1-TucpMrBii,
r«ii;
jiff
FcciTiiric^*jr*n£
Tm*
Fs•土2却
■1^01X01121
4nK
Tn*
4+i|ki
'.JLi
13
1-su
■ZcmJ
h^iyrrRvi
Pd34
冷
D
LinN*诂
0-Ftoi
LiH>rcpic
Fsrwd
IhlKilUKaL
F4
■
|ft555CSB」;
II
布局窗口
10
基本圏形的输岀
10
10
10
运行界面(1)
源代码如下:
PrivateSubCommand1_Click()
Rem三角形算法一:正直角三角形
Dimi,jAsInteger
Fori=1To9
Forj=1Toi
expss=*
・PrintTab((j-1)*2+1);
'控制每个输出表达式的输出位置
・Printexpss;
Nextj
・Print
Nexti
EndSub
PrivateSubCommand10_Click()
Rem平形四边形算法二:双重循环,输出位置的控制
Dimi,jAsInteger
Fori=9To1Step-1
7
Forj=1To9
expss="*"
Rem下一条语句作用:控制每个输出表达式的
输出位置,每个表达式(星号)占两个宽度,从第17个位置开始输出
((j-i)*2+17);
・Printexpss;
Nextj
・Print
Nexti
EndSub
PrivateSubCommand2_Click()
Rem三角形算法二:倒直角三角形
Dimi,jAsInteger
Fori=9To1Step-1
Forj=1Toi
〃,〃expss=*
・PrintTab((j-1)*2+1);
'控制每个输出表达式的输出位置
・Printexpss;
Nextj
Nexti
EndSub
8
PrivateSubCommand3_Click()
Rem清空
EndSub
PrivateSubCommand4_Click()
Rem退岀
Dimint_msgAsIntegerint_msg=MsgBox("单击“是”退出程序,单击“否”返回程序!",vbYesNo+vbQuestion+vbDefaultButton1,"退出提示")
Ifint_msg=vbYesThen
UnloadMe
EndIf
EndSub
PrivateSubCommand5_Click()
Rem平形四边形算法一:双重循环,输出位置的控制
Dimi,jAsInteger
Fori=1To9
Forj=1To9
〃,〃
expss="*"
9
Rem下一条语句作用:控制每个输出表达式的
输出位置,每个表达式(星号)占两个宽度,从第17
1¥1
((j-i)*2+17);
・Printexpss;
Nextj
・Print
Nexti
EndSub
PrivateSubCommand6_Click()
Rem三角形算法三:直角三角形
Dimi,jAsInteger
Fori=1To9
Forj=1Toi
〃,〃
expss=*
Rem下一条语句作用:控制每个输出表达式的输出位置,每个表达式(星号)占两个宽度,从第17个位置开始输出
((j-i)*2+17);
10
;expss;
Nextj
Nexti
EndSub
PrivateSubCommand7_Click()
Rem三角形算法四
Dimi,jAsInteger
Fori=1To9
Forj=1To2*i-1'这一句很关
〃,〃
expss=*
Rem下一条语句作用:控制每个输出表达式的输出位置,每个表达式(星号)占两个宽度,从第17个位置开始输出
((j-i)*2+17);
・Printexpss;
Nextj
・Print
Nexti
11
EndSub
PrivateSubCommand8_Click()
Rem三角形算法五
Dimi,jAsInteger
Fori=9To1Step-1
Forj=1To2*i-1
〃,〃expss=*
Rem下一条语句作用:控制每个输出表达式的输出位置,每个表达式(星号)占两个宽度,从第17个位置开始输出
Form1・((j-i)*2+17);
・Printexpss;
Nextj
・Print
Nexti
EndSub
PrivateSubCommand9_Click()
Rem菱形输出,主要有两个三角形组成:第一个是倒三角形,第二个是正三角形
Rem以下是正三角形的输出
Dimi,jAsInteger
Fori=1To9
12
Forj=1To2*i-1
〃,〃
expss="*"
Rem下一条语句作用:控制每个输出表达式的
输出位置,每个表达式(星号)占两个宽度,从第17
1¥1
((j-i)*2+17);
・Printexpss;
Nextj
・Print
Nexti
Rem以下是倒三角形的输岀
Fori=8To1Step-1
Forj=1To2*i-1
〃,〃
expss=*
'・PrintTab(18一2*i+(j
-1)*2+1);'控制每个输出表达式的输出位置
(17+2*(j-i));
・Printexpss;
13
Nextj
Nexti
EndSub
PrivateSubForm_Load()
Rem初始化
WithPicturel
・FontName="宋体"
FontSize=12
FontBold=True
・ForeColor=&H80FF&
EndWith
EndSub
14