监控系统程序设计Word文件下载.docx

1、Text1.FontSize = 12Text1.Text = 欢迎使用Visual Basic6.0Private Sub Command2_Click（）Private Sub Command3_Click（）End VB ProgrammingText2.Text = Text1.TextABCDForm1.Caption = Text1.Text实验二1练习使用选择结构。2练习使用判断语句解决数学问题。3练习使用for循环。4词频统计应用。5*。题目1 选择结构5界面上有2个按钮，一个是“出题”按钮，一个是“答题”按钮6点击“出题”按钮，在两个标签上显示随机生成的数，数字范围在150之

2、间7用户看到生成的数字后，计算2个数的和，将值填写到文本框内。8点击“答题”按钮。判断答案填写是否正确。如果填写正确，弹出“回答正确”；如果错误，也给出提示，并弹出正确答案题目提示：1产生a,b内的随机数公式：Int（b-a+1）* Rnd+a）2用户提示，可以用MsgBox题目2 五角星数一个5位数，它的每一位数字的5次方之和，与它本身的值相等，我们称这样的数为五角数。请输出所有的五角星数（最终结果有54748，92727，93084）。设计界面。例如，54748这个数：54748 = 55 + 45 + 75 + 45 + 85最小的五位数到最大的五位数内循环,对每一个五位数分离它各个数字

3、,然后求各个数字的5次方之和。题目3 For 语句计算的值（x1）。程序运行时通过文本框输入x和n的值，单击命令按钮，在另一个文本框中输出y的值，运行界面如下图所示。（参考界面设计，实际结果为1+0.5+0.25+0.125=1.875）题目4 词频统计（选做题）随机输入一个字母数字字符串（字母不区分大小写，例如A与a相同，Z与z相同），统计字母出现的频率。例如，当输入字母数字字符串“H2e3LL4Ow5oRLd”，输出字母词频：h出现1次e出现1次l出现3次o出现2次r 出现1次d出现1次Label3.Caption = Int（50 - 1 + 1） * Rnd + 1）Label4.Ca

4、ption = Int（50 - 1 + 1） * Rnd + 1）Dim x, y As Singlex = Label3.Captiony = Label4.Captionmsg1$ = 回答正确msg2$ = 回答错误。正确答案是： & x + yIf Text1.Text = x + y ThenPrint MsgBox（msg1$）ElsePrint MsgBox（msg2$）End If Dim i, j, k, l, m As Double Dim num As Double Dim n As Double For i = 1 To 9 For j = 0 To 9 For k

5、= 0 To 9 For l = 0 To 9 For m = 0 To 9 n = i 5 + j 5 + k 5 + l 5 + m 5 num = i * 10000 + j * 1000 + k * 100 + l * 10 + m If （n = num） Then Text1.Text = Text1.Text & num End If Next实验三 1练习while循环的使用。2练习滚动条控件的使用。3使用image控件显示图像。4使用ListBox控件输入输出。5使用数组改变数据顺序。题目1 打印菱形（while）使用while循环打印如菱形，要求可通过输入行数n，来控制打印

6、的层数，例如：输入n=1，打印*输入n=3，打印* *如当输入n=7，打印* * *提示：形成菱形的行数只能为奇数，n=1,3,5,2n+1,因此当n输入不合理，需要给出提示。题目2 标准体重设计程序实现对标准体重的判断。程序运行时，选择性别，输入身高和体重，单击“测试”，滚动条会根据计算结果，滑动到“偏瘦”、“标准”或“偏胖”的位置，如图所示。（1）对于标准体重的计算，公式如下：男性：（身高80）70标准体重女性：（身高70）60标准体重（2）对于标准身材的判定方法如下：理想身材范围：标准体重+20或-20；偏胖：理想体重20%； 偏瘦：理想体重20%。（1）滚动条表示的范围分为3档，所以滚

7、动条的Min和Max可以设置为0和2。（2）单击“测试”时，根据身高首先计算标准体重。利用选择结构，判断Option1的Value如果是True，就按照男性公式计算；如果Option2的Value是True，就按照女性公式计算；（3）根据标准体重的值，与用户输入的体重值比较，设定滚动条的Value属性取值为0、1、2，分别表示“偏瘦”、“标准”、“偏胖”题目3 移动的图片1.请先上网搜寻自己喜欢的图片。2.要求程序运行时的初始界面如图4-17（a）所示，3.通过拖动滚动条，移动图片位置，如图4-17（b）和4-17（c）所示。4.提示：利用Image显示图片，通过设定image控件的left属

8、性移动图片。（a） （b） （c）5.完成实验后，窗体文件（.frm）和工程文件（.vbp）以及图片打包为zip/rar压缩文件，并将压缩文件重命名为学号后2位姓名.zip，例如，17李明.zip。文件夹包括内容：题目4 数组逆转1.程序运行时单击窗体，依次探出如图（a）所示的输入框（用ListBox控件来做）。2.要求点击input后，可以依次输入6个整数，保存在一个一维数组中；3.然后点击reverse之后，可以将数组元素的值进行逆序存放，之后输出，如图（b）所示。逆序前数组中的第1个元素的值，在逆序后，应该变成第6个元素的值，依次类推。（a） （b）Picture1.ClsDim n,

9、m, i, X As Integer n = Text1.TextIf （n Mod 2 = 0） Or （n 0 Dim a（100） As String m = 0 While m X X = X - 2 n = n + 2Dim a, b, c, x, y As Integerx = Text1.Texty = Text2.TextIf Option1 = True Thena = （x - 80） * 0.7ElseIf Option2 = True Thena = （x - 70） * 0.6b = a * 0.8c = a * 1.2If y c ThenHScroll1.Valu

10、e = 2HScroll1.Value = 1Private Sub HScroll1_Change（）Image1.Left = HScroll1.Value + 840Dim a（6）, t As IntegerList1.ClearFor i = 0 To 5a（i） = InputBox（请输入一位数List1.AddItem （a（i）Next iList2.ClearFor i = 0 To 2t = a（i）a（i） = a（5 - i）a（5 - i） = tList2.AddItem （a（i）实验四1利用VB求函数值。2练习数组的使用。3练习function过程的使用。4分

11、数计算。5表达式求值。题目1 数组练习 分数统计单击“输入”，利用InputBox输入6个百分制成绩；单击“输出”，统计出成绩平均分，并显示来；统计出高于平均分（含等于）的学生成绩，显示出来。题目2 过程&数组练习 Fibonacci数列自由设计界面，用数组求得Fibonacci数列（1 1 2 3 5 8 13 21 34）的前20项。点击按钮“Fibonacci数列”，按照每行5个输出到Listbox， Fibonacci数列数学描述式为：F（i） = F（i-2） + F（i-1）。（a）前20项，每行5个输出到Listbox中换行符：vbCrLf题目3 过程练习 分数计算编写一个求三个

12、数最大值的函数和最小值函数。然后调用此函数求下列表达式的值。要求定义表达式如下：运行界面如下图1所示，首先在文本框中输入a，b，c三个数，然后单击“表达式计算”按钮，在文本框中输入表达式的值m。题目4 过程练习 表达式求值自行设计界面,用户可以输入一个整数n，单击窗体上的“计算”按钮，求解-1+（1+2）-（1+2+3）+（-1）n（1+2+3.+n），其中n ave） Thenmsg1$ = score（i）Text2.Text = msg2$ + msg1$ + msg2$ = Text2.TextDim f（20） As Integerf（0） = 0f（1） = 1For i = 2

13、To 20f（i） = f（i - 2） + f（i - 1）j = 1For k = 1 To 4For i = 1 To 5msg1$ = f（j）msg$ = msg$ + msg1$ + j = j + 1List1.AddItem msg$List1.AddItem vbCrLfNext kPublic Function max（ByVal a As Double, ByVal b As Double, ByVal c As Double） As Doublemax = aIf a max = bIf max min = bIf min min = cDim a, b, c, m A

14、s Doublea = Val（Text1.Text）b = Val（Text2.Text）c = Val（Text3.Text）m = max（a, b, c） / （min（a + b, b, c） * max（a, b, b + c）Text4.Text = mFunction sum（ByVal n As Integer） As IntegerFor i = 1 To nsum = sum + ix = x + （-1） i） * sum（i）Text2.Text = x实验五1了解VB界面如何添加控件。2认识串行通信控件。3使用VB控制串口的打开与关闭、连接与断开。4利用串口发送和接

15、受信息。程序设计界面图下图所示。在工程中添加串行通信控件（该控件在运行时不可见），并放入表单中，将属性Rthreshold从默认的0改为1，其他属性不变；将表单名改为frmMain，在表单中添加两个标签（Label），将Caption属性分别命名为“接受”和“发送”；添加两个文本框，将Text属性清空，并分别将Name属性更改为txtReceive与txtSend；添加三个命令按钮，分别将Name属性更改为cmdOpen、cmdClose、cmdSend，并将Caption属性一次更改为“打开”、“关闭”与“发送”，将cmdClose与cmdSend的Enable属性更改为False。实现功能

16、：点击“打开”按钮，将虚拟串口“COM1”和“COM2”相连；此时在“发送”文本框内输入任意字符串“abc”；点击“发送”按钮；在“接收”文本框内出现发送的字符串“abc”。点击“关闭”按钮，关闭串口，此时再发送字符串，接收不到字符串。Private Sub cmdClose_Click（）MSComm1.PortOpen = FalseMSComm2.PortOpen = False cmdSend.Enabled = FalsecmdClose.Enabled = FalsePrivate Sub cmdOpen_Click（）MSComm1.PortOpen = TrueMSComm2.

17、PortOpen = TruecmdSend.Enabled = TruecmdClose.Enabled = TruePrivate Sub cmdSend_Click（）MSComm1.Output = txtSend.Text + txtReceive.Text = txtReceive.Text + MSComm2.InputPrivate Sub Form_Load（）MSComm1.CommPort = 2MSComm1.Settings = 9600,n,8,1MSComm1.InputMode = 0MSComm1.RThreshold = 1MSComm2.CommPort

18、= 3MSComm2.Settings = MSComm2.InputMode = 0MSComm2.RThreshold = 1总结：通过对Visual Basic程序设计教程的 学习，让我初步了解了VB的一些基本知识、基本语法、编程方法和常用算法。刚进行VB学习时，感觉这门课程很枯燥、晦涩、难懂，不明白它为什么会引起那么多编程爱好者的学习兴趣，那时候我总认为这些人是怪胎、天才。这学期在张老师的带领下，我走进了VB的世界，那些VB的控件、按钮和代码是那么的难懂、更不用谈自己编程了。但我并没有因此放弃学习，在张老师的教导下，我渐渐掌握了VB的编程方法，已经可以编一些小程序了。自己渐渐有了自信去学习VB了！通过这几次的实验检验了自己的的学习成果，虽然实验有点难度，但最后在老师的指导下成功完成。一学期是VB课程学习结束了，但我对VB的学习还要加强，对一些较复杂的VB程序的编程还是很吃力。在学习VB后，我明显感觉到在生活中的心思更加缜密了，对于问题的分析能力有了一点提高！在学习VB中，懂得了团队的力量也知道了个人的力量是有限的，有些事还是要集体的努力。对于一些不懂的问题在经过思考之后还是难以解决的还是要去问老师和同学，这样既能增进感情交流又能节约时间。在这里要感谢张老师和罗老师耐心的指导和热心的帮助，因为自己的能力有限常常麻烦老师。.忽略此处.