监控系统程序设计

《监控系统程序设计》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、北京林业大学工学院实验报告课程名称____监控系统程序设计__＿班　　级_______自动化XXXX＿＿＿姓　名_XXXX_学号_XXXXXXXXXX_实验地点_____学研XX机房_＿＿＿指导教师___张超一、罗琴娟__成绩_______＿22实验日期：2014/6/9实验一一．实验目的：1.了解VB系统对计算机软件、硬件的要求。2.掌握启动和退出VB的方法。3.了解和使用VB集成开发环境各窗口、菜单的一般功能。4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。5.了解文本框、标签框

2、、命令按钮的构造及其属性、事件和方法。二．实验内容：题目1编写一个应用程序，界面如下图所示1．界面上有3个按钮，一个是“显示”按钮，一个是“清除”按钮，一个是“结束”按钮。把文本框的内容设置为空白。2．程序运行后，如果点击“显示”按钮，则在文本框中显示“欢迎使用VisualBasic6.0”，如下图所示：3．点击“清除”按钮，则清除文本框中显示的内容。如下图所示：4．点击“退出”按钮，则结束程序。题目2在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程：22实验日期：2014/6

3、/9PrivateSubCommand1_Click()Text1.Text=“VBProgramming”Text2.Text=“Text1.Text”Text1.Text=“ABCD”EndSub程序运行后，单击命令按钮，在两个文本框中各显示什么内容？题目3在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“显示”和“清除”。程序运行后，在文本框中输入一行文字（例如“程序设计”），如果单击第一个命令按钮，则把文本框的内容显示为窗体标题；如果单击第二个命令按钮，则清除文本框中的

4、内容。三．源代码：题目1PrivateSubCommand1_Click()Text1.FontSize=12Text1.Text="欢迎使用VisualBasic6.0"EndSubPrivateSubCommand2_Click()Text1.FontSize=12Text1.Text=""EndSubPrivateSubCommand3_Click()EndEndSub22实验日期：2014/6/9题目2PrivateSubCommand1_Click()Text1.Text="VBProg

5、ramming"Text2.Text="Text1.Text"Text1.Text="ABCD"EndSub题目3PrivateSubCommand1_Click()Form1.Caption=Text1.TextEndSubPrivateSubCommand2_Click()Text1.Text=""EndSub22实验日期：2014/6/9实验二一．实验目的：1．练习使用选择结构。2．练习使用判断语句解决数学问题。3．练习使用for循环。4．词频统计应用。5．***************。二

6、．实验内容：题目1选择结构编写一个应用程序，界面如下图所示1．界面上有2个按钮，一个是“出题”按钮，一个是“答题”按钮2．点击“出题”按钮，在两个标签上显示随机生成的数，数字范围在1~50之间3．用户看到生成的数字后，计算2个数的和，将值填写到文本框内。4．点击“答题”按钮。判断答案填写是否正确。如果填写正确，弹出“回答正确”；如果错误，也给出提示，并弹出正确答案22实验日期：2014/6/9题目提示：1．产生[a,b]内的随机数公式：Int((b-a+1)*Rnd+a)2．用户提示，可以用Msg

7、Box题目2五角星数一个5位数，它的每一位数字的5次方之和，与它本身的值相等，我们称这样的数为五角数。请输出所有的五角星数（最终结果有54748，92727，93084）。设计界面。例如，54748这个数：54748=55+45+75+45+85题目提示：最小的五位数到最大的五位数内循环,对每一个五位数分离它各个数字,然后求各个数字的5次方之和。题目3For语句计算的值（x>1）。程序运行时通过文本框输入x和n的值，单击命令按钮，在另一个文本框中输出y的值，运行界面如下图所示。（参考界面设计，实际

8、结果为1+0.5+0.25+0.125=1.875）22实验日期：2014/6/9题目4词频统计（选做题）随机输入一个字母数字字符串（字母不区分大小写，例如A与a相同，Z与z相同），统计字母出现的频率。例如，当输入字母数字字符串“H2e3LL4Ow5oRLd”，输出字母词频：h出现1次e出现1次l出现3次o出现2次r出现1次d出现1次三．源代码：题目1选择结构PrivateSubCommand1_Click()Text1.Text=""Label3.Caption=Int((50-