VB实验报告bjfu.docVIP

PAGE  PAGE 22 北京林业大学工学院 实 验 报 告 课程名称____监控系统程序设计__＿ 班　　级_______自动化XXXX＿＿＿ 姓　 名_XXXX _学号_XXXXXXXXXX_ 实验地点_____学研XX机房_＿＿＿ 指导教师___张超一、罗琴娟__成绩_______＿ 实验日期：2014/6/9 实验一 一．实验目的： 1.了解VB系统对计算机软件、硬件的要求。 2.掌握启动和退出VB的方法。 3.了解和使用VB集成开发环境各窗口、菜单的一般功能。 4.熟悉建立、编辑、运行、保存一个简单的VB应用程序的全过程。 5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。 二．实验内容： 题目1 编写一个应用程序，界面如下图所示 界面上有3个按钮，一个是“显示”按钮，一个是“清除”按钮，一个是“结束”按钮。把文本框的内容设置为空白。 程序运行后，如果点击“显示”按钮，则在文本框中显示“欢迎使用Visual Basic 6.0”，如下图所示： 点击“清除”按钮，则清除文本框中显示的内容。如下图所示： 点击“退出”按钮，则结束程序。 题目2 在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text = “VB Programming” Text2.Text = “Text1.Text” Text1.Text = “ABCD” End Sub 程序运行后，单击命令按钮，在两个文本框中各显示什么内容？ 题目3 在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“显示”和“清除”。程序运行后，在文本框中输入一行文字（例如“程序设计”），如果单击第一个命令按钮，则把文本框的内容显示为窗体标题；如果单击第二个命令按钮，则清除文本框中的内容。 三．源代码： 题目1 Private Sub Command1_Click() Text1.FontSize = 12 Text1.Text = 欢迎使用Visual Basic6.0 End Sub Private Sub Command2_Click() Text1.FontSize = 12 Text1.Text = End Sub Private Sub Command3_Click() End End Sub 题目2 Private Sub Command1_Click() Text1.Text = VB Programming Text2.Text = Text1.Text Text1.Text = ABCD End Sub 题目3 Private Sub Command1_Click() Form1.Caption = Text1.Text End Sub Private Sub Command2_Click() Text1.Text = End Sub 实验二 一．实验目的： 1．练习使用选择结构。 2．练习使用判断语句解决数学问题。 3．练习使用for循环。 4．词频统计应用。 5．***************。 二．实验内容： 题目1 选择结构 编写一个应用程序，界面如下图所示 界面上有2个按钮，一个是“出题”按钮，一个是“答题”按钮 点击“出题”按钮，在两个标签上显示随机生成的数，数字范围在1~50之间 用户看到生成的数字后，计算2个数的和，将值填写到文本框内。 点击“答题”按钮。判断答案填写是否正确。如果填写正确，弹出“回答正确”；如果错误，也给出提示，并弹出正确答案 题目提示： 产生[a,b]内的随机数公式：Int((b-a+1)* Rnd+a) 用户提示，可以用MsgBox 题目2 五角星数 一个5位数，它的每一位数字的5次方之和，与它本身的值相等，我们称这样的数为五角数。请输出所有的五角星数（最终结果有54748，92727，93084）。设计界面。 例如，54748这个数： 54748 = 55 + 45 + 75 + 45 + 85 题目提示： 最小的五位数到最大的五位数内循环,对每一个五位数分离它各个数字,然后求各个数字的5次方之和。 题目3 For 语句 计算的值（x1）。 程序运行时通过文本框输入x和n的值，单击命令按钮，在另一个文本框中输出y的值，运行界面如下图所示。（参考界面设计，实际结果为1+0.5+0.25+0.125=1.875） 题目4 词频统计（选做题） 随机输入一个字母数字字符串（字母不区分大小写，例如A与a相同，Z与z相同），统计字母出现的频率。 例如，当输入字母数字字符串“H2e3LL4Ow5oRLd”，输出字母词频： h出现1次