vb练习.doc

第1周1、 在窗体上拖放一个标签控件，然后在form_click事件中声明一个字符串变量str_test（长度为5），试一下当赋给这个变量的字符串大于5的时候，在标签中显示出来的结果是什么。private sub form_click()dim a as string * 5a = dddddddddddlabel1.caption=a2、 根据输入圆的半径长度，计算圆的周长和面积。掌握浮点类型和符号常量的用法，界面自行设计。dim a as singlep = 3.1415926a = val(text1)text2 = p * a * atext3 = 2 * p * a3、 创建一个判断输入数字是否闰年的程序，通过这个习题掌握运算符的优先级顺序。闰年的条件符合下面两者之一：（1）能被4整除，但不能被100整除。（2）能被4整除又能被400整除。界面如下：dim x as integer, y as booleanx = text1y = (xmod4 = 0) and (xmod100 0) or (xmod4 = 0) and (xmod400 = 0)text2 = y第5周4、 用户输入直角三角形的两条直角边，计算出斜边的长度。通过这个例子掌握系统自带算术函数val和sqr的用法。注意定义变量时候的数据类型。5、 从字符串中取字符，从界面输入字符串，并取任意位置的字符。界面设计如下，用到的函数val和mid。6、 使用日期和时间函数在窗体上显示系统当前的日期和时间。通过这个习题掌握日期和时间函数的用法，界面如下：7、 按照要求编写程序： 新建一个vb工程，在窗体下方添加一个按钮，按钮的名称为“command1”，按钮上显示“输入并计算”。在适当的事件过程中编写代码，使得程序运行时，当单击按钮的时候，程序完成如下功能：通过inputbox函数让用户输入4个整数，程序负责计算用户输入的4个数的和与平均值，最后把这4个整数和计算结果都在窗体上打印出来。程序编写完毕后，运行，查看效果。保存为average.vbp和average.frm。private sub command1_click()dim a as integerdim b as integerdim c as integerdim d as integerdim s as singlea = inputbox(输入一个整数, 输入整数)b = inputbox(输入一个整数, 输入整数)c = inputbox(输入一个整数, 输入整数)d = inputbox(输入一个整数, 输入整数)s = a + b + c + dave = s / 4print a, b, c, dprint 和print sprint 平均值print aveend sub8、 设计一个程序，有两个变量，为它们生成10-99的随机正整数，然后对调两个变量中的数字。保存为swap.vbp和swap.frm。 12 整理by蓉蓉private sub command1_click()randomizedim a as integerdim b as integerdim c as integera = int(99 - 10 + 1) * rnd) + 10b = int(99 - 10 + 1) * rnd) + 10print a, bc = aa = bb = cprint 对调后print a, bend sub第7周一、功能：每次点击“出题”按钮，随机出1道加法题目，参加运算操作数在1-100之间，用户在textbox输入答案。点击“确定”按钮，利用msgbox给出输入的答案是正确或错误。需要用到的知识点：ifthenelse结构,msgbox函数，randomize，rnd函数，val函数private sub command1_click()randomizelabel1.caption = int(100 - 1 + 1) * rnd) + 1label3.caption = int(100 - 1 + 1) * rnd) + 1end subprivate sub command2_click()if val(text1.text) = val(label1.caption) + val(label3.caption) thenmsgbox rightelsemsgbox errorend ifend sub二、功能：制作一个简单的趣味心理测试小程序，心理测试的题目为下列红色字，把这个内容做成程序（也可以自己设计一个心理测试题目）请你选择答案你的新房子正在装潢，你会在哪一部分花最多的钱？1、客厅的沙发、摆设。2、卧室的床。3、浴室、厨房。选择1： 你天生有致富的命，可惜不太会把握，回想一下自己花钱的态度，别太注意表面功夫，要考虑收支平衡！其实你是财运不差的人，别一直偷懒，放弃可以进财的机会。选择2：你是个高品味的人，天生上流社会的人物，或许目前你的财务状况还谈不上大富大贵，但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的，只是还称不上是大富翁。选择3：你看起来实在不象是会成为大富翁的人，但是人不可貌相，你偏偏是最有机会成为大富翁的人。你的财运很好，做什么工作都赚钱！连你自己都不清楚是怎么变成大富翁的。提示：（1）可以textbox在显示结果，将它的multilines属性设为true可以显示多行文本（2）可以定义3个string变量，存放3种选择的结果分析并根据用户的选择显示在textbox中private sub command1_click()if val(text1) = 1 thentext2 = 你天生有致富的命，可惜不太会把握，回想一下自己花钱的态度，别太注意表面功夫，要考虑收支平衡！其实你是财运不差的人，别一直偷懒，放弃可以进财的机会。elseif val(text1) = 2 thentext2 = 你是个高品味的人，天生上流社会的人物，或许目前你的财务状况还谈不上大富大贵，但是你总是口袋快见底时又刚好有适时的补充。你是穷不了的，只是还称不上是大富翁。elseif val(text1) = 3 thentext2 = 你看起来实在不象是会成为大富翁的人，但是人不可貌相，你偏偏是最有机会成为大富翁的人。你的财运很好，做什么工作都赚钱！连你自己都不清楚是怎么变成大富翁的。end ifend subprivate sub command2_click()text1 = 1text2 = end sub三、某航空公司规定在79月份，如果订票数超过20张，则票价优惠15%，如果超过10张则票价优惠5%，在15月份、10月份和11月份，如果订票数超过20张，则票价优惠25%，如果超过10张，则票价优惠15%。从窗体文本框中输入票价、月份以及订票数，并显示出所需金额。private sub command1_click()dim s as integerdim m as integerdim v as integerdim n as integerm = val(text1)v = val(text2)n = val(text3)select case mcase 7 to 9 if n 20 then s = v * n * 0.85 elseif n 10 then s = v * n * 0.95 else: s = v * n end ifcase 1 to 5, 10, 11 if n 20 then s = v * n * 0.75 elseif n 10 then s = v * n * 0.85 else: s = v * n第9周一、写一个程序求1-100的奇数的和。private sub command1_click()dim i as integer, s as integers = 0for i = 1 to 100 step 2 s = s + i next i text1.text = send sub二、写一个程序，要求能打印以下图形，打印十行。private sub command1_click()dim i as integer, c as stringfor i = 1 to 10c = c + *print cnext iend sub三、求所有水仙花数（水仙花数为3位（100-999）正整数,各位的数字立方和等于本身）。private sub command1_click()dim i as integer, a as integer, b as integer, c as integerfor i = 100 to 999a = i 100b = i 10 mod 10c = i mod 10if i = a 3 + b 3 + c 3 thenprint iend ifnext iend sub四、用随机函数产生9个两位的正整数，并使用print语句在窗体上按照矩阵的排列显示出来。private sub command1_click()dim i as integer, a as integerfor i = 1 to 9randomizea = int( (99 - 10 + 1) * rnd) + 10print a;if i mod 3 = 0 thenprintend ifnext iend sub第11周1、 完成书上冒泡排序的算法。掌握循环嵌套和数组结合在一起的用法。2、 按照要求编写程序：新建一个vb工程，在窗体中添加三个按钮，名称分别为“btninput”、“btnmax”和“btnmin”，按钮上分别显示“输入数据”、“求最大值”和“求最小值”。在适当的事件过程中编写代码，使得程序运行时，当点击“输入数据”按钮的时候，程序通过inputbox函数让用户输入8个整数，放入一个数组中，并将这8个数显示在窗体上；当点击“求最大值”按钮的时候，程序求出数组中的最大数，显示在窗体上；当点击“求最小值”按钮的时候，程序求出数组中的最小数，显示在窗体上。程序编写完毕后，运行，查看结果。（要注意由于题目要求的三个功能是在不同事件里完成的，所以要把存放数据的数组设置为全局变量）接下来，将整个工程保存到“g:myprojectvb1”文件夹中，窗体文件名为“vb1.frm”，工程文件名为“vb1.vbp”。最后，退出vb。 dim a(1 to 8) as integerprivate sub btninput_click()for i = 1 to 8a(i) = inputbox(输入整数)print a(i);next iend subprivate sub btnmax_click()max = 1for i = 1 to 8if a(i) a(max) thenmax = iend ifnext iprintprint 最大的数是; a(max)end subprivate sub btnmin_click()min = 1for i = 1 to 8if a(i) = a) and (char = a) and (char = 0) and (char 0 theny = xelseif x = 0 theny = 0else y = abs(x)end ifprint yend sub2、在窗体上放置1个命令按钮(名称为command1)和1个文本框(名称为text1)，然后编写如下事件过程：private sub command1_click()x=val(text1.text) select case xcase is=10，is=7print i=; iprint x=; xa) i4x5b) i7x15c) i6x8d) i10x76、下列程序是判断一个整数(=3) 是否为素数，请补充完整。dim n as integern=inputbox(请输入一个整数(=3) ) k=int(sqr(n) ) i=2tag=0while i 1000)次开关后,最后都有哪几盏灯是亮着的?（可先不用上交，13周上机时交）private sub command1_click()dim a(1 to 7) as integerdim b as integerdim k as integerdim c as integerfor i = 1 to 7a(i) = i mod 2next in = inputbox(输入次数)b = n 7k = n mod 7c = b mod 2if k = 0 and c = 0 then for i = 1 to 7 if a(i) = 1 then print 亮; else: print 关; end ifnext iend ifif k = 0 and c 0 then for i = 1 to 7 a(i) = 1 - a(i) if a(i) = 1 then print 亮; else: print 关; end if next iend ifif k 0 and c = 0 then for i = 1 to k a(i) = 1 - a(i) next i for i = 1 to 7 if a(i) = 1 then print 亮; else: print 关; end if next i end ifif k 0 and c 0 then for i = 1 to 7 a(i) = 1 - a(i) next i for i = 1 to k a(i) = 1 - a(i) next i for i = 1 to 7 if a(i) = 1 then print 亮; else: print 关; end if next iend ifprintprint a b c d e f gend sub参考答案：option base 1private sub command1_click() dim a a = array(1, 0, 1, 0, 1, 0, 1) for n = 1 to 100 i = n mod 7 if i = 0 then i = i + 7 if a(i) = 1 then a(i) = 0 else a(i) = 1 end if next n for n = 1 to 7 num = asc(a) + n - 1 if a(n) = 1 then print chr(num) end if next nend sub第13周1、设计一个加油站计费程序，各种汽油的收费不同：90号汽油单位为2.8元/升，93号汽油单价为3.4元/升，97号汽油单价为3.6元/升。界面如下：功能要求：在窗体上放置1个框架，由于汽油种类互斥，使用单选按钮可以选择汽油种类，3个单选按钮分成一组，3个标签，第一个标签显示“数量（升）”，第二个标签显示所选汽油的单价，第三个标签显示总价格。1个文本框用来输入汽油的数量。1个命令按钮用来计算总价格。private sub command1_click()if option1.value = true then label3.caption = 总价格为： & 2.8 * text1 & 元 elseif option2.value then label3.caption = 总价格为： & 3.4 * text1 & 元else label3.caption = 总价格为 & 3.6 * text1 & 元 end if end subprivate sub option1_click()label2.caption = 90号汽油单价2.80升/元end subprivate sub option2_click()label2.caption = 93号汽油单价3.40升/元end subprivate sub option3_click()label2.caption = 97号汽油单价3.60升/元end sub2、按照要求编写程序：新建一个vb工程，在窗体中添加一个文本框，名称为“txtresult”，默认显示的内容为空；添加一组单选按钮，单选按钮名称分别为“op1”、“op2”,显示内容分别为“飞机”、“火车”；再添加一组单选按钮，单选按钮名称分别为“op3”、“op4”,显示内容分别为“广州”、“上海”；添加一个按钮，名称为“btnshow”，按钮上显示“显示”。在适当的事件过程中编写代码，使得程序运行时，当点击按钮的时候，程序完成以下功能：根据选中的单选按钮，在文本框中显示“坐什么去哪里”。程序编写完毕后，运行，查看结果。接下来，将整个工程保存到“g:myprojectvb1”文件夹中，窗体文件名为“vb1.frm”，工程文件名为“vb1.vbp”。最后，退出vb。private sub btnshow_click()if option1.value = true then if option3.value = true then text1.text = 坐飞机去广州 else text1.text = 坐飞机去上海 end ifelse if option3.value = true then text1.text = 坐火车去广州 else text1.text = 坐火车去上海 end ifend ifend sub第15周一、完成书上范例4-7。二、（1）在窗体中实现标签由右向左的滚动，标签显示“您好，网络之家”这几个字。（2）窗体的标题为自己学号和姓名。（3）用一个命令按钮控制，如果标签在滚动，点击命令按钮后停止，如果标签停止，点击命令按钮后滚动。（4）保存窗体文件：名为righttoleft.frm和工程文件：名为righttoleft.vbp。dim i as integerprivate sub command1_click()i = i + 1if i mod 2 = 0 thentimer1.enabled = falseelsetimer1.enabled = trueend ifend subprivate sub timer1_timer()label1.move la