VB程序设计实验报告实验三选择结构程序设计一、实验目的1. 掌握逻辑表达式的正确书写形式。

2. 掌握单分支与双分支条件语句的使用。

3. 掌握多分支条件语句的使用。

4. 掌握情况语句的使用及与多分支条件语句的区别。

二﹑实验内容4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。

奖学金一等奖评定标准如下：(1) 平均分大于95分者。

(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。

5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。

要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。

6．输入一个数字（1～7），用英文显示对应的星期一～星期日。

提示：用Select语句来实现。

三﹑实验步骤4，打开VB后，建立一个命令按钮，输入"奖学金评定"，编辑代码如下:Private Sub mand1_Click()Dim m1!, m2!, m3!m1 = InputBox("输入m1 的值")m2 = InputBox("输入m2 的值")m3 = InputBox("输入m3 的值")If (m1 + m2 + m3) / 3 > 95 Or _(m1 = 100 And m2 = 100 And m3 >= 85 Or _m1 = 100 And m3 = 100 And m2 >= 85 Or _m3 = 100 And m2 = 100 And m1 >= 85) ThenMsgBox "一等奖学金"ElseMsgBox "不是一等奖学金"End IfEnd Sub5，打开VB后，建立4个Lebel标签，4个Text文本框，2个mand按钮，如上图。

编辑代码如下：Private Sub mand1_Click()Select Case Trim(Text3)Case "+"Text4.Text = Val(Text1.Text) + Val(Text2.Text)Case "-"Text4.Text = Val(Text1.Text) - Val(Text2.Text)Case "*"Text4.Text = Val(Text1.Text) * Val(Text2.Text)Case "/"Text4.Text = Val(Text1.Text) / Val(Text2.Text)End SelectEnd SubPrivate Sub mand2_Click()EndEnd Sub6, 打开VB后，建立1个Text文本框，1个mand按钮。

代码如下：Private Sub mand1_Click()a = Text1.TextSelect Case aCase 1Print "Monday"Case 2Print "Tuesday"Case 3Print "Wednesday"Case 4Print "Thursday"Case 5Print "Friday"Case 6Print "Saturday"Case 7Print "Sunday"End SelectEnd Sub四﹑实验总结1，从此此实验中掌握了IF语句的使用.掌握情况语句的使用,以及情况语句与多分支语句的使用区别.2，写在不同行的条件代码要用空格加下划线分开，有关m1,m2,m3的三个条件要用AND隔开3，使用Select语句时，Case后的条件是字符型。

实验四循环结构程序设计一﹑实验目的1. 掌握For语句的使用。

2. 掌握Do语句的各种形式的使用。

3. 掌握如何控制循环条件，防止死循环或不循环。

二﹑实验内容3．用单循环显示有规律图形，如图4.1。

提示：（1）循环体内显示用String函数来实现，找出循环控制变量与String函数内个数的关系，即：String(i,Trim(Str(i)))。

（2）Trim函数是去除字符串两边的空格。

因为将数值i转换成字符，系统自动在数字前加符号位，正数为空格，负数为“-”；而String函数只取字符串中的第一个字符，本例中为空格，因此要利用Trim函数去除空格。

（3）为了使得最后一行的0显示，如按照上面公式为1，则要对公式修改为：String(i,Right( (Str(i),1))图4.1 实验4.3运行界面之一4．计算 2912211611117141211S当第i项的值<10-4时结束。

提示：找出规律，第i项的分母是前一项的分母加上表示有分母项开始的计数项=a+aa+aaa+aaa+⋯aa⋯aaa(n个a)，其中a是一个由随机数产生的1~9(包括1，9)中的一8．求Sn个正整数，n是一个由随机数产生的5~10(包括5，10)中的一个数。

=2+22+222+2222+22222。

例如：当a=2，n=5时，Sn提示：为了得到不断重复的数Temp，可在循环体利用下面通项：Temp=Temp*10+aTemp的初值为0。

三﹑实验步骤3，打开VB，程序代码如下：Private Sub Form_Click()For i = 1 To 10Print Spc(10 - i);If i < 10 Then Print String(i * 2 - 1, Trim(Str(i)));If i = 10 Then Print String(i * 2 - 1, Right(Str(i), 1)):PrintNext iEnd Sub4，打开VB，程序代码如下：Private Sub Form_Click()a = 0b = 1s = 0Dob = b + as = s + 1 / ba = a + 1Loop Until 1 / b < 0.0001Print sEnd Sub8，打开VB，程序代码如下：Private Sub Form_Click()a = Int(Rnd * 9 + 1)n = Int(Rnd * 6 + 5)temp = 0s = 0For i = 1 To ntemp = temp * 10 + as = s + tempNext iPrint sEnd Sub四﹑实验总结1，从此次实验中得到的是掌握了FOR语句的使用,还有的是DO语句的各种形式的使用,如何控制循环和防止死循环或不循环。

2，学会了String函数的用法。

实验五数组一﹑实验目的1. 掌握数组的声明、数组元素的引用。

2. 掌握静态数组和动态数组的使用差别。

3. 应用数组解决与数组有关的常用算法。

二﹑实验内容3．随机产生10个30~100(包括30，100)的正整数，求最大值、最小值、平均值，并显示整个数组的值和结果。

4．用起泡法对10个数进行从大到小排序，可以参考教材中的【例3-22】。

6．编一对已知数组a()，删除数组中数组元素中某个元素的程序。

假定数组a的值利用Array 函数，分别为{1，6，8，3，5，9，10，2，7，4}，删除Key值为10的元素。

三﹑实验步骤3，打开VB，建立1个mand按钮，程序代码如下：Private Sub mand1_Click()Dim a(10)RandomizeDim sum As Integer, min As Integer, max As Integersum = 0: min = 100: max = 30For i = 0 To 9a(i) = Int(30 + (71 * Rnd))sum = sum + a(i)If a(i) < min Then min = a(i)If a(i) > max Then max = a(i)Print a(i);Next iPrintPrint "最大值:"; maxPrint "最小值:"; minPrint "平均值:"; sum / 10End Sub4，打开VB，建立1个mand按钮，程序代码如下：Private Sub mand1_Click()Dim a(1 To 10) As IntegerRandomizePrint "排序前：";For i = 1 To 10a(i) = Int(Rnd * 100)Print a(i);Next iFor i = 1 To 10For j = i + 1 To 10If a(i) < a(j) Thent = a(i): a(i) = a(j): a(j) = tEnd IfNext jNext iPrintPrint "排序后：";For i = 1 To 10Print a(i);Next iEnd Sub6，打开VB，程序代码如下：Private Sub Form_Click()Dim a()aa = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)ReDim a(9)For i = 0 To 9If a(i) = "10" Then t = a(i): a(i) = a(9): a(9) = tNextReDim a(8)Print aaEnd Sub调试过程：实时错误”13”,类型不匹配四﹑实验总结1，学会了静态数组和动态数组的运用。

2，对于Array函数的添加元素和删除元素的掌握还有一定的问题，上面的6题不会做。

实验七一﹑实验目的1. 掌握常用控件的重要属性、事件和方法。

2. 掌握常用ActiveX控件的特性，熟练应用这些高级控件进行编程。

3. 初步掌握创建基于图形用户界面应用程序的过程。

4. 熟练掌握键盘事件、鼠标事件及其事件过程的编写技艺。

5. 掌握普通拖放和OLE拖放的原理，掌握实现拖放的方法。

二﹑实验内容1．调试教材中的【例4-7】，体会基本控件的使用方法。

2．调试教材中的【例4-8】，体会基本控件的使用方法。

3．设计一个如图7.1所示程序。

当用户在“操作选项”框架中选定操作后，文本框发生相应的变化，同时在“操作说明”框架中的标签上显示有关的操作说明。

图7.1提示：(1) 在文本框中移动光标和选定内容是通过设置SelStart和SelLength属性实现的。

(2) 文本框中内容分行显示是因为插入了回车换行符。