4453998918vb程序设计实验报告

1、vb程序设计实验报告实验三 选择结构程序设计一、实验目的1. 掌握逻辑表达式的正确书写形式。2. 掌握单分支与双分支条件语句的使用。3. 掌握多分支条件语句的使用。4. 掌握情况语句的使用及与多分支条件语句的区别。二实验内容4. 编制程序，计算某个学生奖学金的等级（假定只考虑一等奖），以三门功课成绩m1，m2，m3为评奖依据。奖学金一等奖评定标准如下： (1) 平均分大于95分者。(2) 有两门成绩是100分，且第三门功课成绩不低于80分者。5. 编一模拟袖珍计算器的完整程序，界面如图2.3.1所示。要求：输入两个操作数和一个操作符，根据操作符决定所做的运算。6输入一个数字（17），用英文显示

2、对应的星期一星期日。提示：用select语句来实现。三实验步骤4，打开vb后，建立一个命令按钮，输入奖学金评定，编辑代码如下:private sub command1_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

3、 m2 = 100 and m1 = 85) then msgbox 一等奖学金 else msgbox 不是一等奖学金 end ifend sub5，打开vb后，建立4个lebel标签，4个text文本框，2个command按钮，如上图。编辑代码如下：private sub command1_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 =

4、 val(text1.text) * val(text2.text)case /text4.text = val(text1.text) / val(text2.text)end selectend subprivate sub command2_click()endend sub6, 打开vb后，建立1个text文本框，1个command按钮。代码如下：private sub command1_click()a = text1.textselect case acase 1print mondaycase 2print tuesdaycase 3print wednesdaycase 4pr

5、int thursdaycase 5print fridaycase 6print saturdaycase 7print sundayend selectend sub四实验总结1，从此此实验中掌握了if语句的使用.掌握情况语句的使用,以及情况语句与多分支语句的使用区别.2，写在不同行的条件代码要用空格加下划线分开，有关m1,m2,m3的三个条件要用and隔开3，使用select语句时，case后的条件是字符型。实验四 循环结构程序设计一实验目的1. 掌握for语句的使用。2. 掌握do语句的各种形式的使用。3. 掌握如何控制循环条件，防止死循环或不循环。二实验内容3用单循环显示有规律图形，

6、如图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计算k+=2912211611117141211s当第i项的值10-4时结

7、束。提示：找出规律，第i项的分母是前一项的分母加上表示有分母项开始的计数项8求sn=a+aa+aaa+aaa+aaaaa(n个a)，其中a是一个由随机数产生的19(包括1，9)中的一个正整数，n是一个由随机数产生的510(包括5，10)中的一个数。例如：当a=2，n=5时，sn=2+22+222+2222+22222。提示：为了得到不断重复的数temp，可在循环体利用下面通项： temp=temp*10+a temp的初值为0。三实验步骤3，打开vb，程序代码如下：private sub form_click()for i = 1 to 10print spc(10 - i);if i 10

8、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 =

9、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个30100(包括30，100)的正整数，求最大值、最小值、平均值，并显示整个数组的

10、值和结果。4用起泡法对10个数进行从大到小排序，可以参考教材中的【例3-22】。6编一对已知数组a()，删除数组中数组元素中某个元素的程序。假定数组a的值利用array函数，分别为1，6，8，3，5，9，10，2，7，4，删除key值为10的元素。三实验步骤3，打开vb，建立1个command按钮，程序代码如下：private sub command1_click()dim a(10)randomizedim sum as integer, min as integer, max as integersum = 0: min = 100: max = 30for i = 0 to 9a(i)

11、= int(30 + (71 * rnd)sum = sum + a(i)if a(i) max then max = a(i)print a(i);next iprintprint 最大值:; maxprint 最小值:; minprint 平均值:; sum / 10end sub4，打开vb，建立1个command按钮，程序代码如下：private sub command1_click()dim a(1 to 10) as integerrandomizeprint 排序前：;for i = 1 to 10a(i) = int(rnd * 100)print a(i);next ifor

12、 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

13、): a(9) = tnextredim a(8)print aaend sub调试过程：实时错误”13”,类型不匹配四实验总结1，学会了静态数组和动态数组的运用。2，对于array函数的添加元素和删除元素的掌握还有一定的问题，上面的6题不会做。实验七一实验目的 1. 掌握常用控件的重要属性、事件和方法。2. 掌握常用activex控件的特性，熟练应用这些高级控件进行编程。3. 初步掌握创建基于图形用户界面应用程序的过程。4. 熟练掌握键盘事件、鼠标事件及其事件过程的编写技艺。5. 掌握普通拖放和ole拖放的原理，掌握实现拖放的方法。二实验内容1调试教材中的【例4-7】，体会基本控件的使用方法

14、。2调试教材中的【例4-8】，体会基本控件的使用方法。3设计一个如图7.1所示程序。当用户在“操作选项”框架中选定操作后，文本框发生相应的变化，同时在“操作说明”框架中的标签上显示有关的操作说明。图7.1提示： (1) 在文本框中移动光标和选定内容是通过设置selstart和sellength属性实现的。(2) 文本框中内容分行显示是因为插入了回车换行符。回车符的ascii码值为13，其符号常数为vbcr；换行符的ascii码值为10，其符号常数为vblf。(3) 把光标移动到第三行的开始，实质是确定文本中第二行后vbcr或vblf的位置。选定文本中的第三行，关键是确定第三行前后vbcr或vb

15、lf的位置。三实验步骤1， 打开vb，创建如下界面：程序代码为：private sub command1_click()list1.additem text2.texttext3 = list1.listcountend subprivate sub command2_click()list1.removeitem list1.listindextext3 = list1.listcountend subprivate sub command3_click()list1.cleartext3 = list1.listcountend subprivate sub command4_click(

16、)endend subprivate sub form_load()with list1 .additem 北京市 .additem 上海市 .additem 天津市 .additem 江苏省 .additem 河北省 .additem 山东省 .additem 安徽省end withtext3 = list1.listcountend subprivate sub list1_click()text1 = list1.list(list1.listindex)end subprivate sub text1_change()end sub2， 打开vb，创建如下界面：程序代码为：privat

17、e sub command1_click() text3 = 学号: & text1 & chr(13) + chr(10) text3 = text3 & 姓名: & text2 & chr(13) + chr(10) if option1.value = true then text3 = text3 & 性别: & 男 & chr(13) + chr(10) else text3 = text3 & 性别: & 女 & chr(13) + chr(10) end if text3 = text3 & 籍贯: & list1.text & chr(13) + chr(10) text3 =

18、 text3 & 系别: & combo1.text & chr(13) + chr(10)end sub3， 打开vb，创建如下界面：程序代码为：private sub form_load()text1.text = 清明时节雨纷纷, & chr(13) + chr(10) & 路上行人欲断魂; & chr(13) + chr(10) & 借问酒家何处有, & chr(13) + chr(10) & 牧童遥指杏花村.end subprivate sub option1_click()i = 1n = 2do while n 3if (mid(text1.imemode, 1) vblf theni = i + 1elsen = n + 1i = i + 1end iflooptext1.selstart = i - 1text1.setfocuslabel2.caption = 光标被移动到文本的开始位置end subprivate sub option2_click()i = 1n = 2do while n 3if (mid(text1.imemode, 1)