在form1、标题为“鼠标光标形状”的窗体上添加一个文本框

在form1、标题为“鼠标光标形状”的窗体上添加一个文本框 基础题(1) 【解题思路】先将窗体的Caption属性设置为"鼠标光标形状"，然后再添加一个名称为Text1的文本框。通过文本框和窗体的MousePointer属性的设置，使鼠标在文本框中时，鼠标光标为箭头(Arrow)形状;在窗体中其他位置处，鼠标光标为十字(Cross)形状。 【操作步骤】 步骤1:新建一个窗体，在窗体中添加一个窗体和一个文本框，然后按照题目设置控件属性。程序中用到的控件及属性见3.78。 表3.78 步骤2:调试并运行程序，关闭程序后按题目要求存盘。 基础题(2) 【解题思路】通过标签的Name、Caption属性设置标签的名称和标题，通过命令按钮的Name、Caption属性设置命令按钮的名称和标题。 【操作步骤】 步骤1:建立界面，在窗体中添加3个文本框，一个命令按钮和两个标签控件。并设置控件的属性。程序中用到的控件及属性见表3.79和表3.80。 步骤2:打开代码编辑窗口，在指定位置编写代码。 参考答案 Private Sub Command1_Click() Text3 = Text1.SelLength Text2 = Text1.SelStart End Sub 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第35套第二大题的第二小题来进行同类的练习。 简单题(1) 【解题思路】窗体载入时，通过滚动条的Min、Max属性设置两个滚动条的移动刻度值的范 围，滚动条刻度值的范围是圆可以在矩形中移动的范围。形状控件的Top和Left属性值随着滚动 条的Value属性值的变化而改变，使水平滚动条的滚动块在最左边时，圆靠在矩形的左边线上， 滚动块在最右边时，圆靠在矩形的右边线上。垂直滚动条的情况与此类似。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_load() HScroll1.Min = Shape2.Left ' HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ? VScroll1.Min = Shape2.Top ' VScroll1.Max = Shape2.Height + ? - Shape1.Height HScroll1.Value = 1000 VScroll1.Value = 1000 End Sub Private Sub HScroll1_Change() ' , = HScroll1.Value End Sub Private Sub VScroll1_Change() ' Shape1.Top = ? End Sub 程序结束 参考答案 第1个,处填入:Width 第2个,处填入:Shape2.Top 第3个,处填入:Shape1.Left 第4个,处填入:VScroll1.Value 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第19套第二大题的第二小题来进行同类知识点的练习。 简单题(2) 【解题思路】计时器的Interval属性用来控制计时器事件发生的时间 间隔(Interval是以毫秒为单位)。当单击"发射"按钮时开始计时，将计时器控件的Enabled属性设 置为True。航天飞机图标将向上运动，速度逐渐加快，通过形状控件的Height、Top属性判断是 否全部进入云中后，如果全部进入则停止，这时需要将计时器控件的Enabled属性设置为False， 并把飞行距离d、所用时间(单位为秒)分别显示在标签Label1和Label2中;单击"保存"按钮，则把 飞行距离、所用时间存入考生文件夹下的out4.txt文件中。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a, t, d Private Sub Command1_Click() ' Timer1.? = True d = Image1.Top End Sub Private Sub Command2_Click() Open App.Path & "\out4.txt" For Output As #1 Print #1, Label1, Label2 Close #1 End Sub Private Sub Form_Load() a = 1 t = 0 End Sub Private Sub Timer1_Timer() Image1.Top = Image1.Top - a * 50 If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then ' , = False ' d = ? - Image1.Top Label1 = d Label2 = t * Timer1.Interval / 1000 End If a = a + 0.1 ' t = ? End Sub 程序结束 参考答案 第1个,处填入:Enabled 第2个,处填入:Timer1.Enabled 第3个,处填入:d 第4个,处填入:t + 1 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 综合题 【举一反三】可以通过第1套第二大题的第一小题来进行同类知识点的练习。 【解题思路】单击"读数据"命令按钮，通过文件操作和For循环语句将考生文件夹下in5.dat 文件中两组已按升序方式排列的数据(每组30个数据)分别读入数组A和B，并分别将它们显示在 Text1、Text2中;为使数据间保持一定间隔，每个数据后用Space(2)加入2个空格。 单击"合并"命令按钮，通过For语句将A、B两个数组合并，合并方式为数组的前30个数为数 组A，后30个数为数组B，然后运用冒泡排序的生成按升序方式排列的数组C，并将合并后 数组的数据依升序方式显示在Text3中。 【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(30) As Integer, b(30) As Integer, c(60) As Integer Private Sub Command1_Click() Dim k As Integer Open App.Path & "\in5.dat" For Input As #1 For k = 1 To 30 Input #1, a(k) Text1 = Text1 + Str(a(k)) + Space(2) Next k For k = 1 To 30 Input #1, b(k) Text2 = Text2 + Str(b(k)) + Space(2) Next k Close #1 End Sub Private Sub Command2_Click() '考生编写程序开始 ',,,,,,,,,,,,,,,,,,,,,,, ',,,,,,,,,,,,,,,,,,,,,,, '考生编写程序结束 '以下程序将合并后的数组C显示在Text3中 For k = 1 To 60 Text3 = Text3 + Str(c(k)) + Space(2) Next k End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\out5.dat" For Output As #1 Print #1, Text3.Text Close #1 End Sub 程序结束 参考答案 c(1) = a(1) For i = 2 To 30 c(i) = a(i) Next c(31) = b(1) For j = 32 To 60 c(j) = b(j - 30) Next For i = 1 To 60 f = True For j = 1 To 59 If c(j) > c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t f = False End If Next If f Then Exit For End If Next 步骤3:调试并运行程序，关闭程序后按题目要求存盘。 【举一反三】可以通过第35套第三大题来进行同类知识点的练习。 下面是赠送的两篇散文欣赏，可以仔细阅读， 不需要的朋友可以下载后编辑删除～～谢谢～～ 脚下的时光 不知走过多少地方，不知看过多少风景，不知听说过多少轶事; 不知经历过多少岁月，不知邂逅过多少良人，不知变换过多少心情; 不知理想的未知是否在前路等待?????? 题记:蒲公英 悠悠岁月，时间苍苍～( 文章阅读网:www.sanwen.net ) 在这繁花似锦的青葱岁月里，我们不断的接受新鲜的美好事物，不断的享受科技发展所带来的高品质生活;我们总是随大流的，去跟风一些前卫潮流的思想;然而，很少有人去整理那些过往的断壁残垣～ 我走过很多地方，但是同样的，我也有更多的地方没去过～ 我渴望走遍地球上每一寸土地，我期许世界上每一个地方的人都善良～ 从踏入社会的那一刻起，我就觉得人应该是自由的;应该去做自己喜欢的事，看自己喜欢的风景，爱自己喜欢的人;一切都那么单纯，完美～ 然而，现实的世界告诉我;理想的丰满一定要遇到拥有相同理想的另一半～ 我喜欢珠海，一个美丽的花园城市;我喜欢那里的天气，没有北方的寒冷;四季如春的温度感觉非常惬意，不用担心换季带来的差异～走在市区的街道上，绿化的花草树木被园丁修剪的井然有序;形态各异的花卉搭配得格外美观～尤其是除过草之后的绿地，泥土的芬芳与绿草的清新扑鼻而来，有一种身处大草原的感觉，使人心旷神怡～我时常一个人发呆，散步;看着过往的人群，车水马龙的街道;也时常去繁华的街巷，拥挤的商业中心;感觉这才是生活，正因为世界有了这么多事物的陪伴，才使我有了对美好生活的向往与喜悦～ 珠海的夜，很美;到处灯红酒绿，一派歌舞升平的祥和;每当夜幕降临，才是广东因有的生活的开始～溜冰场，酒吧，迪厅，大排档等等等等;我很庆幸在这里认识了很多人，他们教会了我很多，也帮助了我很多;我们都是来自五湖四海，为了同一个目标而聚集在一起的年轻人;我们时常出去聚会，嗨皮;但等到散场后，又回到了应有的孤寂～白天，可以去渔女，公园，九州城，免税店等等都是不错的地方～ 人常说，一个时代会有一个时代的代表;而我在这个曾经为之奋斗的地方，也时常会想起曾经相识的人，走过的地方，看过的风景;有时候，听着当时的流行歌曲，也会感伤;也会自嘲一笑;还有那公车到站的粤语提醒，还有那想见却永远没见的人;一篇篇，一幕幕久久回荡在脑海;早晨的肠粉，中午的餐饭，下午的炒粉，晚上的烧烤; 好像味道还回味在口中一样～人，只有在对自己真诚的人的眼里，才会感觉到亲切;而我，也着实喜欢这座城市带给我家一样的温暖感觉～ 在这短暂而悠长的时光里，我成长了很多，也磨砺了很多;正是因为思想的成熟，阅历的增长，我选择了离开;去寻找属于自己的新的天地，新的开始，新的征程～ 其实，无论走过多少地方;都不重要～ 重要的是你从中得到什么～知识～阅历～思想～?????? 每个人，在人生的道路上;难免遇到挫折困苦，也难免会因为一些因素而错失机缘～ 不可能因为一时的艰难险阻而放弃将要来临的幸福～ 也不可能因为一时的过失而自暴自弃颓废一生～ 人，应该用豁达的心态来迎接下一秒的新鲜时光;而不是沉溺在上一秒的懊恼当中～ 每个人的路，都在自己的脚下;只有自己醒悟才能把未来的路走好，反之只会让错误延续到未来，从而影响以后的健康生活～ 即便曾经的时光再美好，那也只是人生道路上的一段插曲;没必要去纠结当时的愕然，愚昧～就像我，从来不对上一秒的事情产生情绪一样～ 一切都是恬淡的样子，顺其自然比什么都好～ 对于未来，只要真诚的去善待身边的所有;我相信，未来的时光，也该是你想象的模样～ 蒲公英 2015.12.13 家乡的茶籽林 坐落在戴云山脉西麓的高才坂，属亚热带季风气候区，夏无酷暑，冬无严寒，日照充足，雨量充沛，山区丘陵满地尽是红壤土，非常适宜茶籽树的生长。高才坂种植小果油茶有着悠久的历史，是远近闻名的茶籽油之乡。 家乡高才坂，一年四季茶籽林郁郁葱葱，枝繁叶茂。村头的亭后坑、银珠垄、赤土岭、牛脊崎，村尾的庵墘头、虎坪林、下淂，村庄对岸的牌匾山、坑里、墘头、下坋、坑柄里等等，山坡上，山坳里，道路边，田边地头，屋后山边，漫山遍野到处是一片连着一片的茶籽林。那里是我儿时与伙伴们捉迷藏、摘茶苞、采茶菇、捡茶籽的地方。 每当春风拂来，几场淅淅沥沥的春雨之后，唤醒沉睡了一个冬季的茶籽树林。老茶树开始发出新枝，抽出嫩芽，嫩芽吐露出嫩红嫩红的叶片，转眼间，嫩红的叶片又变成稚嫩的绿叶。整片茶籽林绿浪涛涛，层层叠叠，在家乡群山环抱的山腰上，形成一道翠绿的屏障。清明节后，儿时的我常与伙伴们在嬉戏玩耍的同时，十分注意寻找茶籽树梢上的“茶苞”，这是一种生长在茶籽树上的果实，果熟时表面会脱去一层薄如蝉翼的白皮，淡绿色的形似胖胖的寿桃，中空，果瓤可以食用，果肉脆而汁多，清甜爽口。“茶苞”是儿时伙伴们最喜欢的果实，从茶籽树上摘下，在袖口上来回擦几下，脱去表层酥松的外皮，馋猫似地往嘴里塞，津津有味地品尝着大自然恩赐的美食，这是我与伙伴们喜欢到茶籽林玩耍的原因之一。 秋季来临，茶籽树上挂满了青色中夹杂着褐色的茶籽果，茶树枝被压弯下垂，这是村民一年的希望。全村的村民这时节荷锄上山为茶籽林锄草，将林地里各种杂草锄掉，并填埋在茶籽树头下作为有机肥，锄后的茶籽林寸草不留。这是家乡当地的传统习惯，很少采撷树上的油茶果，而是在锄得干干净净的林地上捡茶籽。村民在锄草中，时常发 现茶籽林里长的一种真菌——茶树菇，菇伞灰色如碗口大，菇腿灰白色很长，采摘回家煮汤或煮米粉汤味道极其甜美。 清爽的秋风送来百花仙子的柔情蜜意，吹开了丹桂的花骨朵，让神州大地香气四溢的同时，茶籽树也毫不犹豫地绽放自己的花朵，展示自己最妖艳的容貌，一夜之间，漫山遍野的茶籽林中雪白的油茶花盛开了，白色花朵中间吐露出金黄色的花蕊，散发出沁人心脾的芬芳，茶籽林变成一片白色的花海。成群的蜜蜂“嗡嗡嗡”在花丛中飞来飞去，落在金黄色的花蕊中不知疲倦地采蜜，也为油茶花义务传授花粉，为明年茶籽树挂果立下汗马功劳。儿时，我和伙伴们像一群快乐的小蜜蜂，一头扎进茶籽林里，一边观赏着洁白娇艳的油茶花，一边折一根抽去内心的赤蕨杆当吸管，插入金黄色的花蕊中，轻轻一吸，芬芳甜美、味道香醇的花蜜便进入口中。我们小心翼翼地攀下茶树枝，如痴如醉地在一朵又一朵的油茶花中滋滋有声吮吸着花蜜，比供销社卖的硬糖粒还要甜美十倍。 到了秋高气爽的秋末，山区空气相对干燥，白天依然烈日炎炎，可夜晚却出现霜冻，昼夜温差很大。这时，茶籽树上的茶籽果由原来的青色转瞬间全部变成深褐色，已经熟透的茶籽果一颗颗裂开大嘴，露出大嘴里油光发亮的油茶籽。阵阵秋风送爽，茶籽树梢随风摇曳，催促油茶籽快快离开树梢，洒脱地坠落在村民锄得干干净净的地板上，几天时间，茶树林的地面上便铺上一层深褐色的油茶籽。此时的茶籽林沸腾了，满怀丰收喜悦的村民，发动全村男女老幼一起上山捡收油茶籽，大家一边欢快地捡着，一边大声地说笑着，这边有母亲唤儿声，那边有青年男女对歌声，茶籽林里飘出一阵阵欢乐的笑声。这笑声就像嘹亮的集合号角，将满地的油茶籽在愉快的气氛中快速聚结起来，坚定果断地跟随村民进入农家大院。( 油茶籽从开花、授粉、结果到成熟落地，经历了秋、冬、春、夏、秋五个季节的阳光雨露，尽吸天然养分，天地精华，营养极高，是纯天然的绿色食品。村民视油茶籽为农家之宝，及时晒干，装筐储藏，等待冬闲之时送到榨油坊加工成金黄色的茶籽油。