VB语言实验6.doc_第1页
VB语言实验6.doc_第2页
VB语言实验6.doc_第3页
VB语言实验6.doc_第4页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

VB实验报告院 系： 专 业： 土木工程 课程名称： VB语言程序设计 学 号： 姓 名： 2011年 9 月 13 日机号班级土木101学号201000501006姓名吴秋丽实验名称实验6 循环结构程序设计（2）实验目的1.；掌握For.Next语句及DoLoop语句的使用2. 掌握多重循环的使用；3. 掌握循环结构的嵌套使用；4.掌握和循环有关的常用算法；5. 会打印有关规律的字符图形。实验内容【题1】 （1）界面设计示意图（2）在属性窗口修改过的对象属性列出如下：对象名属性名属性值Form1Caption“水仙花数”Command1Caption“显示花数”Command2Caption“结束”（3）程序代码：Private Sub Command1_Click() A = 1: B = 0: C = 0 For A = 1 To 9 For B = 0 To 9 For C = 0 To 9 X = 100 * A + 10 * B + C If X = A 3 + B 3 + C 3 Then Print X & = & (A 3) & + & (B 3) & + & (C 3) End If Next C Next B Next AEnd SubPrivate Sub Command2_Click() EndEnd Sub【题2】（1）界面设计示意图 （2）在属性窗口修改过的对象属性列出如下： 无（3）程序代码：Private Sub Form_Click() Dim I%, J%, N% N = InputBox(请输入金字塔的行数:, sy62) For I = 1 To N Print Tab(25 - I); For J = 1 To 2 * I - 1 Print *; Next J
人人文库> 全部分类> 教育资料 > 课设设计

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论