VB实验报告刘倩.docx
《VB实验报告刘倩.docx》由会员分享，可在线阅读，更多相关《VB实验报告刘倩.docx（9页珍藏版）》请在冰豆网上搜索。
VB实验报告刘倩
内蒙古工业大学信息工程学院
实验报告
课程名称：
高级语言程序设计（VB）Ⅰ
实验名称：
选择、循环、数组和过程综合程序设计
实验类型：
验证性□综合性√设计性□
实验室名称：
校计算中心
班级：
测控11-1学号：
201110107020
姓名：
刘倩组别：
同组人：
成绩：
实验日期：
2012/6/11
实验报告撰写要求
一、实验前用预习报告纸撰写预习报告，预习报告包括以下内容
1．实验目的
2．实验用仪器设备、器材或软件环境
3．实验原理、方案设计、程序框图、预编程序等
4．实验过程中需要记录的实验数据表格
二、实验过程中，要认真观察，仔细记录
三、完成实验后用实验报告纸撰写实验报告，包括以下内容
1．仪器设备型号及编号
2．实验器材或软件环境
3．实验步骤、程序调试方法
4．实验数据处理及结果分析
5．实验中存在的问题
6．体会及思考题
四、报告撰写时，要求格式规范、书写整齐
、预习报告成绩：
指导教师审核（签名）：
2012年06月11日
预习报告
一．属性设置，如表格所示：
控件名
属性名
属性值
Label1
caption
随机生成80个数
Label2
caption
偶数从小到大排序
Label3
caption
奇数从大到小排序
Label4
caption
筛选的素数
Label5
caption
素数的个数和总和
Textbox1
caption
空白
Textbox2
caption
空白
Textbox3
caption
空白
Textbox4
caption
空白
Command1
caption
生成随机数
Command2
caption
偶数排序
Command3
caption
奇数排序
Command4
caption
生成的素数
实验报告成绩：
指导教师审核（签名）：
2012年06月11日
实验报告
一、实验目的
学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。
二、实验内容
利用随机函数产生80个10～99之间的随机整数，将其中的偶数按由小到大的顺序排列并输出，将奇数按由大到小的顺序排列并输出；在产生的80个随机整数中，找出其中的素数，并将这些素数求和。
三、实验要求
1．将随机产生的80个整数存入数组，按每行10个数输出到窗体或文本框中。
2．偶数和奇数也分别存入数组，将排好序的偶数和奇数分别输出到窗体或两个文本框中。
3．用Sub子过程或Function函数过程判断随机整数是否为素数。
4．将素数按每行10个数在窗体或文本框中输出。
5．将素数的个数及求和结果输出到窗体或文本框中。
6．界面和属性由学生自行设计和设置（界面设计要合理、美观，属性设置用表格完成，包括对象名、属性名和属性值）。
①．实验代码：
Dimq（1To80）AsInteger
PrivateSubCommand1_Click（）
Fori=1To80
q（i）=Int（90*Rnd+10）
Text1=Text1&q（i）&""
IfiMod10=0ThenText1=Text1&Chr（13）&Chr（10）
Next
EndSub
PrivateSubCommand2_Click（）
Fori=1To80
Ifq（i）Mod2=0Thenn=n+1:
q（n）=q（i）
Next
Show
Fori=1Ton-1
Forj=i+1Ton
Ifq（i）>q（j）Then
t=q（i）:
q（i）=q（j）:
q（j）=t
EndIf
Next
Next
Fori=1Ton
Text2=Text2&q（i）&""
IfiMod10=0ThenText2=Text2&Chr（13）&Chr（10）
Next
EndSub
PrivateSubCommand3_Click（）
Fori=1To80
Ifq（i）Mod2<>0Thenn=n+1:
q（n）=q（i）
Next
Show
Fori=1Ton-1
Forj=i+1Ton
Ifq（i）t=q（i）:
q（i）=q（j）:
q（j）=t
EndIf
Next
Next
Fori=1Ton
Text3=Text3&q（i）&""
IfiMod10=0ThenText3=Text3&Chr（13）&Chr（10）
Next
EndSub
PrivateFunctioncheck（mAsInteger）AsBoolean
DimkAsInteger,fAsInteger
f=True
Fork=2Tom-1
IfmModk=0Then
f=False
EndIf
Nextk
check=f
EndFunction
PrivateSubCommand4_Click（）
DimmAsInteger
Fori=1To80
Ifcheck（q（i））Thenn=n+1:
q（n）=q（i）
Next
Fori=1Ton
m=m+q（i）
Text4=Text4&q（i）&""
IfiMod10=0ThenText4=Text4&Chr（13）&Chr（10）
Next
Label5.Caption="产生素数的个数为:
"&n&Chr（10）&"所有素数之和：
"&m
EndSub
②．试验中的问题截图及最后截图：
ａ.产生的随机数没有正常显示在文本框中，而后面的偶数排序奇数排序却显示出来。
如图所示：
原因为在Text1=Text1的语句后面缺少了“&a（i）&""”的语句。
经调试后正常显示，如图所示：
b.当编写代码时队之前的子程序定义错误时，会出现调试对话框，如图所示：
原因为正在编写的子程序与之前的子程序名不同，需调试为同一个子程序名，调试后正常显示。
c.当对偶数排序后鹰继续对子程序进行赋值，否则结果将不显示，出现调试对话框，如图所示：
正确代码为：
d.最后运行程序图，如图所示：
②．属性设置，如表格所示：
控件名
对象名
属性值
标签
label
随机产生的80个数
文本框
textbox
空白
命令按钮
command
产生的随机数
③．VB试验中的体会
这学期我们有幸开了VB的课程，同时也对VB的一些简单的编程有了些了解，同时也了解了VB的一切历史。
试验中我对一些属性名及扩展名有了更深的了解，同时也可以自己动手编写一些简单的编程，这能使我们更好的培养动手动脑能力，学会综合运用选择结构、循环结构、数组和过程进行程序设计的方法。
总之，学会了VB对以后的电脑的使用增加了许多好处，使我们更好的融入这个信息时代！
升级会员 