vb实验报告三.完整版.doc

学生实验报告

课程名称

信息系统程序设计VB

实验成绩

实验项目名称

循环结构程序设计

批阅教师

刘星星

实验者

邵佳

学号

20525811127

专业班级

经济信息管理2111

实验日期

2012.11.11

一、实验预习报告（实验目的、内容，主要设备、仪器，基本原理、实验步骤等）

实验目的

1、掌握For语句的使用；

2、掌握Do语句的名种形式的使用；

3、掌握如何控制循环条件，防止死循环或不循环。

二、实验主要仪器设备及耗材

实验室计算机。

三、实验内容

１、教材309页实验四：实验4.1—实验4.9。

四、实验报告要求

1、每个学生独立完成一份实验报告，将实验报告结果编辑成文档上交，只须交电子版，做好后请先交学习委员，学习委员再统一交给我。请将实验报告更名成如下形式：学号+姓名，如周晗同学须将每一次实验报告更名为：01周晗.DOC。

2、实验报告要求在实验过程记录部分用截图的形式，记下实验内容中每一个实验的代码截图及运行后的屏幕截图。

3、实验报告要求在实验分析与总结部分回答问题。

4、若交上来的实验报告有发现完全雷同或绝大部分雷同，将视这些报告全部未交。请保护自己的产权，也给别人一个好好学习的机会。

注：因不允许上网，故请每位同学自备U盘或其它移动存储设备，或与其他同学共用。

二、实验过程记录（包括实验过程、数据记录、实验现象等）

4.1★

4.2

4.3

4.4

4.5

4.6

4.7

4.8

4.9

三、实验分析与总结（各题只接写答案，不用抄题，答案也请尽量写简单）

1、回答教材100页习题四第6——12题，将答案写在下面。直接写题号再写答案。

6题：（1）循环6次

（2）循环19次

（3)不循环，部长小于0，循环初值小于终值

(4）无数次

7题:第40句执行了4次，第50句执行了12，第90句执行了1302。

8题：只要将循环的终值设置成为一个非常大的值，然后在循环体内增加IF语句，判断是否到达循环结束条件，形式如下：

For循环变量=1to非常大的数

，，，，，

If达到循环结束条件

Next循环变量

9题：(1)S=0

Fori=1to10

S=S+(i+1)+(2*i+1)

Nexti

(2)S3=0

S7=0

Fori=1to100

Ifimod3=0thenS3=S3+1

Ifimod7=0thenS7=S7+1

Nexti

(3)S=InputBox(“输入字符串”)

Fori=Len(s)to1step-1

Printmid(s,i,1);

Nexti

10题：运行的结果为10100，该程序的功能是将十进制数转化为二进制字符串。

11题：运行后的结果为22和484，该程序的功能是用相减法求x,y的最大公约数和最小公倍数.

12题：

Privatesubcommand1-click()

Dimi%,t%,MAX%,Avr!

Forml.fontsize=12

Avr=0

Print

Randomize

T=int(Rnd()*51+50)

Printt;

Avr=avr+t

Max=t

Min=t

Fofi=1to19

T=int(rnd()*51+50)

Printt;

Avr=avr+t

Iftmaxthenmax=t