1 / 6
文档名称:

VB经典例题13道附.docx

格式:docx   大小:26KB   页数:6页
下载后只包含 1 个 DOCX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

VB经典例题13道附.docx

上传人:花双韵芝 2022/5/17 文件大小:26 KB

下载得到文件列表

VB经典例题13道附.docx

文档介绍

文档介绍:精品文档
精品文档
1
精品文档
.
,有多少数字,有多少其他
PrivateSubButton1_Click(,.等腰三角形
PrivateSubButton1_Click(,)
Dimn,s
=""
n=Val()
Fori=1Ton
s=""
&=Space(n-i)
Forj=1To2*i-1
s&="*"
Next
&=s&vbCrLf
Next
EndSub
8.倒等腰三角形
PrivateSubButton1_Click(,)
Dimn,s
=""
精品文档
精品文档
5
精品文档
..
精品文档
精品文档
6
精品文档
.
n=Val()
Fori=nTo1Step-1
s=""
&=Space(n-i)
Forj=2*i-1To1Step-1
s&="*"
Next
&=s&vbCrLf
Next
EndSub
9.右上角的直角三角形
PrivateSubButton1_Click(,)
Dimn,s
=""
n=Val()
Fori=nTo1Step-1
s=""
&=Space(n-i)
Forj=iTo1Step-1
s&="*"
Next
&=s&vbCrLf
Next
EndSub
10.菱形
PrivateSubButton1_Click(,)
Dimn,s
=""
Fori=1To6
s=""
&=Space(i-1)
Forj=1To12
s&="*"
Next
&=s&vbCrLf
Next
EndSub

(1).判断输入的数字是否是水仙花数
PrivateSubButton1_Click(,)
Dims,a,b,c
精品文档
精品文档
7
精品文档
..
精品文档
精品文档
6
精品文档
.
s=Val(