版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、1.等腰正三角形Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = 1 To 2 * i - 1s &= "*"Next jLabel1.Text &= s & vbCrL
2、fk = k - 1Next iEnd SubEnd Class2.作业等腰三角形(多加一行空格Dim i As Integer, j As Integer, s As String, k%Label2.Text = ""k = 20For i = 1 To 6s = Space(kFor j = 1 To 2 * i - 1s &= "*"Next jLabel2.Text &= s & vbCrLf & vbCrLfk = k - 1Next iPrivate Sub Button1_Click(ByVal sende
3、r As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = i To 2 * i - 1s &= "*"Next jLabel1.Text &= s & vbCrLfk = k - 1Next iEnd SubEnd Class4.倒正三角形Privat
4、e Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = 2 * i - 1 To 17s &= "*"Next jLabel1.Text &= s & vbCrLfk = k + 1Nex
5、t iEnd SubEnd ClassPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""k = 20For i = 1 To 9s = Space(kFor j = i To 9s &= "*"Next jLabel1.Text &= s & vb
6、CrLfk = k + 1Next iEnd SubEnd Class6.上三角九九乘法表(顶角向左Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""For i = 1 To 9s = Space(i - 1 * 8For j = i To 9 '字符串左对齐,在右边以空格填充以达到
7、总长度为8s &= (i & "x" & j & "=" & i * j.PadRight(8Next jLabel1.Text &= s & vbCrLfNext iEnd SubEnd Class7.下三角九九乘法表(顶角向右Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs Handles Button1.ClickDim i As Integer, j As Integer, s As String, k%Label1.Text = ""For i = 1 To 9s = ""For j = 1 To i '字符串左对齐,在右边以空格填充以达到总长度为8s &= (i & "x&
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 助动自行车及其零件项目可行性报告
- 公司年会流程方案(2篇)
- 产品质量提升方案企业(2篇)
- 用户自行开发的专用集成电路(ASIC)项目可行性分析报告
- 宣传部活动策划方案
- 常见的谚语大全
- 中考英语复习第25讲 书面表达之提纲作文(课件)
- 人教版七年级上册数学期末考试试卷含答案
- 职业健康安全管理措施
- 药学社会实践报告范文
- 蹲踞式起跑 教案
- 论文设计普通车床C6132进行机电一体化改造设计
- 240万吨年洗精煤选煤厂建设项目可行性研究报告
- 中小学教师职称评审“说课讲课评课”考核操作指引
- 阅读书目:《给教师的60条法律建议》
- 安全意识之员工安全教育培训系列
- 化学电源设计与制造工艺学教学大纲
- 架子工教学大纲(中)
- CFX的流场精确数值模拟教程
- 04环境因素识别与评价表钻井-ok
- 隧道衬砌台车洞内拼装工艺图解.ppt
评论
0/150
提交评论