VB实验报告

内蒙古工业大学能动学院实验报告

课程名称：高级语言程序设计（VB）Ⅰ

实验名称：选择、循环、数组和过程综合程序设计实验类型：验证性□ 综合性√设计性□

实验室名称：校计算中心

班级：学号：

姓名：组别：

同组人：成绩：

实验日期：

实验报告撰写要求

一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容

1．实验目的

2．实验用仪器设备、器材或软件环境

3．实验原理、方案设计、程序框图、预编程序等

4．实验过程中需要记录的实验数据表格

二、实验过程中，要认真观察，仔细记录

三、完成实验后用实验报告纸撰写实验报告，包括以下内容

1．仪器设备型号及编号

2．实验器材或软件环境

3．实验步骤、程序调试方法

4．实验数据处理及结果分析

5．实验中存在的问题

6．体会及思考题

四、报告撰写时，要求格式规范、书写整齐

预习报告成绩：指导教师审核（签名）：年月日

预习报告

（一）实验目的

学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。

（二）实验仪器及软件环境：

普通台式电脑、m i c r o s o f t v i s u a l b a s i c 6.0标准环境下

（三）实验原理：

利用R n d函数产生80个随机整数，再利用F o r循环将产生的随机整数存入到数组中，最后用I f语句按每行10个数输出到第一个文本框中；用I f语句和M o d函数判断是否为奇偶数，后利用冒泡排序法将奇偶数排序分别输出到二、三文本框中。调用F u n c t i o n函数判断素数，利用F o r循环和I f函数输出，用累计求和法将素数的个数求出放入第四、五个文本框中。

（四）方案设计：

界面设计如下：

（五）程序框图如下

（六）预编代码：

O p t i o n B a s e1

D i m i%,j%,a%(),b%(),c%(80),l%,m%,n%,w%,p%,q% P r i v a t e S u b C o m m a n d1_C l i c k()

F o r i=1T o80

R a n d o m i z e

c(i)=I n t(R n d*90+10)

T e x t1.T e x t=T e x t1.T e x t&""&c(i)

s=s+1

I f s M o d10=0T h e n

T e x t1.T e x t=T e x t1.T e x t&v b C r L f

E n d I f

N e x t i

F o r i=1T o79

F o r j=1T o79

I f c(j)>c(j+1)T h e n

t=c(j)

c(j)=c(j+1)

c(j+1)=t

E n d I f

N e x t j

N e x t i

F o r i=1T o80

I f c(i)M o d2=0T h e n

m=m+1

R e D i m P r e s e r v e a(m)A s I n t e g e r

a(m)=c(i)

E l s e

n=n+1

R e D i m P r e s e r v e b(n)A s I n t e g e r

b(n)=c(i)

E n d I f

N e x t i

F o r i=1T o n/2

l=b(i)

b(i)=b(n+1-i)

b(n+1-i)=l

N e x t i

E n d S u b

P r i v a t e S u b C o m m a n d2_C l i c k()

F o r i=1T o m

T e x t2.T e x t=T e x t2.T e x t&""&a(i)

p=p+1

I f p M o d10=0T h e n

T e x t2.T e x t=T e x t2.T e x t&v b C r L f

E n d I f

N e x t i

E n d S u b

P r i v a t e S u b C o m m a n d3_C l i c k()

F o r i=1T o n

T e x t3.T e x t=T e x t3.T e x t&""&b(i)

q=q+1

I f q M o d10=0T h e n

T e x t3.T e x t=T e x t3.T e x t&v b C r L f

E n d I f

N e x t i

E n d S u b

P r i v a t e S u b C o m m a n d4_C l i c k()

F o r i=1T o80

I f s u s h u(c(i))=t u r e T h e n

w=w+c(i)

o=o+1

T e x t4.T e x t=T e x t4.T e x t&""&c(i)

j=j+1

E n d I f

I f j M o d10=0T h e n

T e x t4.T e x t=T e x t4.T e x t&v b C r L f

E n d I f

T e x t5.T e x t=o

T e x t6.T e x t=w

N e x t i

E n d S u b

P r i v a t e F u n c t i o n s u s h u(n A s I n t e g e r)A s B o o l e a n D i m i A s I n t e g e r

s u s h u=t u r e

F o r i=2T o n-1

I f n M o d i=0T h e n s u s h u=F a l s e

E x i t

F o r

N e x t i

E n d

F u n c t i o n

P r i v a t e S u b C o m m a n d5_C l i c k()

E n d

E n d S u b