上机训练要求nwe(最新).doc

《上机训练要求nwe(最新).doc》由会员分享，可在线阅读，更多相关《上机训练要求nwe(最新).doc（19页珍藏版）》请在三一办公上搜索。

1、启睿教育：大学生职业能力培养领导者！上机（基础训练一）说明：本次训练内容为熟悉控件的基本使用，根据软件提供上机题目，每类选3-5个例子供同学们练习。请同学们先熟悉一下这些控件控件对象公共属性：1.对象尺寸和位置属性属性名称功能描述top与顶端距离left与左边距离width对象宽度height对象高度对象的位置与尺寸Private Sub Timer1_Timer()Label1.Left = Label1.Left + d * 300If Label1.Left + Label1.Width Form1.Width Then d = -dEnd IfIf Label1.Left = 0 Th

2、en d = -dEnd Sub1. 其它常见属性Font（字体）标签.FontName=字体类型 标签.FontSize=字号标签.FontBold=True 或False (粗体)标签.LblShow.FontItalic=True 或False（斜体）backcolor背景颜色forecolor前景颜色Visible可见与否，标签名.Visible=True 或Falseenabled对象可用与否mousepointer鼠标形状，1-anrow(箭头) 2-cross(十字)题套训练：6套 基本操作题 (2)31套 基本操作题 (2)59套 基本操作题 (1)1. 窗体属性及方法 属性名

3、称功能描述Caption窗体标题 窗体名称.Caption=欲显示的文本BorderStyle边框类型maxbutton取消和设置最大化按钮minbutton取消和设置最小化按钮Autoredraw窗体重画窗体控件的事件窗体的常用事件有Click（单击）、load事件。（1）Click（单击）事件当单击时触发该事件，并执行为该事件编写响应程序代码。（2）load（加载）事件 当窗体被加载的时候，触发改事件。窗体控件的方法 窗体对象名.show 窗体对象名.hide题套训练：20套 基本操作题 (1)8套 简单应用 (2)2. 标签控件Label (用于显示输出，不能输入)属性名称功能描述Cap

4、tion标题文本 标签名称.Caption=欲显示的文本BorderStyle边框类型， 0代表标签无边框；1代表标签有边框，且具有三维效果。Alignment对齐方式，0Left Justify：文本左对齐（默认值）1Right Justify：文本右对齐。2Center：文本居中AutoSize决定控件是否自动改变大小以显示Caption属性值的全部内容题套训练：15套 基本操作 (1)16套 基本操作 (1)17套 简单应用 (2) 3. 文本控件TextBox（用于输入及显示）属性名称功能描述text文本内容 文本框控件名.Text=欲显示的文本内容MaxLength设置在文本框中能够

5、输入文本的最大长度(0-代表任意长度)Alignment对齐方式，0Left Justify：文本左对齐（默认值）1Right Justify：文本右对齐。2Center：文本居中MultiLine是否可以显示或输入多行文本ScrollBars设置文本框是否有滚动条。0-无滚动条；1-水平滚动条； 2-垂直滚动条； 3-水平、垂直滚动条。PasswordChar口令功能 SelText返回或设置当前所选文本的字符串SelStart选中文本的起始位置SelLength选中文本的长度文本框控件的事件文本框的常用事件有Click（单击）、Change（改变）、KeyPress（按键）、GotFocu

6、s（获得焦点）、LostFocus（失去焦点）事件。（1）Click（单击）事件当单击时触发该事件，并执行为该事件编写响应程序代码。（2）Change（改变）事件当用户向文本框中输入新内容，或当程序把文本框控件的 Text 属性设置为新值时，触发Change事件。（3）GotFocus事件当对象获得焦点时产生该事件；获得焦点可以通过诸如按Tab键切换，或单击对象之类的用户动作，或在代码中用SetFocus方法改变焦点来实现。（4）LostFocus事件此事件是在一个对象失去焦点时发生；焦点的丢失或者是由于按Tab键或单击另一个对象操作的结果，或者是代码中使用SetFocus方法改变焦点的结果。

7、文本框控件的方法文本框的常用方法是设置焦点SetFocus方法，即将当前焦点强制设置到指定的文本框上。使用的语句格式为：对象.SetFocus例如：Text1.SetFocus题套训练：3套 基本操作题 (1)25套 基本操作题 (2)6套 简单应用题 (1)63套 基本操作题 (2)76套 简单应用题 (2)54套 基本操作题 (2)81套 基本操作题 (1)4. 命令按钮(commandbutton)属性名称功能描述Caption标题 s&How 同时按Alt键和带有下划线的字母（快捷方式） &前的字符Cancel按钮的Cancel属性设置为True时，按Esc键与单击此命令按钮的作用相同

8、Default按钮的Default属性设置为True时，按Enter键与单击此命令按钮的作用相同Enabled本属性可决定控件是否可用，取值为flase 和 trueValue选定命令按钮都会将其 Value 属性设置为 True 并触发 Click 事件。False（默认）指示未选择按钮 如：cmdClose.Value=True （运行时属性）visible可见与否 Style（类型）与Picture（图片）属性可在某个按钮上添加小图片，当style=1时，才可用picture命令按钮的事件命令按钮支持多种事件，但最常使用的是Click事件，单击命令按钮时将调用已写入Click事件过程中的

9、代码。单击命令按钮后也将生成 MouseDown 和 MouseUp 事件。如果要在这些相关事件中附加事件过程，则应确保操作不发生冲突。命令按钮控件中该三个事件发生的顺序为：MouseDown、Click、MouseUp。如果用户双击命令按钮控件，则每次都被分别处理为单击，即命令按钮不支持双击事件。题套训练：6套 基本操作题 (1)27套 基本操作题 (1)36套 简单应用题 (1)5. 图片框（PictureBox）PictureBox控件可以用来显示来自于位图、图标或者元文件，以及来自增强的元文件、JPEG或GIF文件中的图形。如果控件不足以显示整幅图像，则裁剪图像以适应控件的大小。Pic

10、tureBox控件可用来显示图形，也可作为其他控件的容器，显示图形方法或Print方法输出的文本。属性名称功能描述Picture设置其显示的图形 AutoSize设置是否能自动调整控件的大小，以完整显示装入的图片利用函数LoadPicture 实现动态装入图片和清除图片使用LoadPicture函数设置Picture属性代码格式：图片框对象名. Picture= LoadPicture(图片文件路径名)使用LoadPicture函数清除Picture属性代码格式：图片框对象名. Picture= LoadPicture说明： 图片文件路径名如： app.path & “文件名” 题套训练：3套

11、 基本操作题 (2)22套 基本操作题 (1)53套 基本操作题 (2)64套 简单应用题 (1)6. 图像框（Image）Image控件使用的系统资源比PictureBox控件少而且重新绘图速度快，在Image控件中可以伸展图片的大小使之适合控件的大小，而在 PictureBox控件中不能这样做。属性名称功能描述Picture设置其显示的图形 Stretch决定是否伸缩图片以满足控件大小利用函数LoadPicture 实现动态装入图片和清除图片使用LoadPicture函数设置Picture属性代码格式：图像框对象名. Picture= LoadPicture(图片文件路径名)使用LoadP

12、icture函数清除Picture属性代码格式：图像框对象名. Picture= nothing题套训练：2套 基本操作题 (2)22套 基本操作题 (1)53套 基本操作题 (2)14套 基本操作题 (1)7.时间控件（timer）属性名称功能描述Enabled用来确定计时器控件是否开始工作， 开始为Ture， False暂停定时器操作 Interval决定了时钟事件之间的间隔，Interval=1000，则表示每秒钟触发一个 Timer事件题套训练：13套 简单应用题 (2)19套 基本操作题 (2)23套 简单应用题 (1)8.滚动条滚动条分为横向（HscrollBar）与竖向（Vscr

13、ollBar）两种属性名称功能描述Max滚动块处于最右边（横向滚动条）或最下边（竖向滚动条）时返回的值就是最大值Min滚动块处于最左边或最上边，返回的值为最小值Value返回或设置滚动滑块在当前滚动条中的位置 ， 对象名.value= 数值SmallChange单击滚动条左边、右边上的箭头时，滚动条控件Value属性值的改变量LargeChange单击滚动条中滚动框前面或后面的部位时，引发Value属性值改变量。滚动条控件的事件与滚动条控件相关的事件主要是Scroll与Change，当在滚动条内拖动滑块时会触发 Scroll事件（但要注意，单击滚动箭头或滚动条时不发生Scroll事件），滚动框

14、发生位置改变后则会触发Change事件。Scroll 事件用来跟踪滚动条中的动态变化，Change 事件则用来得到滚动条最后的Value属性值。 题套训练：8套 基本操作题 (2)1套 基本操作题 (1)26套 基本操作题 (2)28套 基本操作题 (2)29套 基本操作题 (2)22套 简单应用题 (2)80套 简单应用题 (1) 9.形状控件（shape）属性名称功能描述shape设定形状 0-长方形，1-正方形，2-椭圆，3-圆 ，4，5 borderstyle图形边框线条设置fillcolor设定图形填充颜色 当fillstyle=0时有效fillstyle设定图形填充样式题套训练：1

15、0套 基本操作题 (1)19套 基本操作题 (1)41套 基本操作题 (2)86套 基本操作题 (2)73套 简单应用题 (2) 12套 简单应用题 (2) 10.直线控件（line）属性名称功能描述Bordercolor 设置线条颜色X1起点横坐标 Y1起点列坐标X2终点横坐标Y2终点列坐标题套训练：16套 简单应用题 (1) 33套 简单应用题 (2) 11. 单选按钮 属性名称功能描述caption按钮标题alignment标题在左和右的设置value选中与否，选中为true,未选中为flaseenabled是否可用（1） 框架（Frame）可进行分组（2） 选中按钮的事件（每个按钮都要

16、编写事件） Private Sub Option1_Click() End SubPrivate Sub Option2_Click() End SubPrivate Sub Option3_Click() End Sub33 套 简单应用（1）（3） 判断哪个按钮被选中，执行其它事件 If Option1 And Option3 Then ElseIf Option1 And Option4 Then ElseIf Option2 And Option3 Then End If 67套 简单应用（1）（4） 区别是否是按钮数组a. 判断单选按钮组（多按钮情况）中哪个被选中的方法For i =

17、 0 To 2 If Op1(i).Value = True Then Print 我是 + Op1(i).Caption End If Next i For k = 0 To 3 If Option1(k).Value Then n = k End IfNext k60套 简单应用（1）54套 简单应用（1）b. 判断单选按钮组,某按钮被选中的事件Private Sub Option1 Click(Index As Integer)Select Case indexCase 0Case 1Case 2End SelectEnd Sub1套 简单应用（1）12.复选按钮 属性名称功能描述cap

18、tion按钮标题alignment标题在左和右的设置value0-未选中 1-选中 2-灰色enabled是否可用53套 基本操作（1） 41套 简单应用题 (2)84套 简单应用题 (1)13. 列表框 列表框用于显示一个项目列表，用户可以选择其中的一项或多项属性名称功能描述text当前选中列表项文本 只能在程序运行时使用List列表项数组 list1.list(i)=”列表项内容”ListCount返回列表框中项目数量的数值ListIndex返回或设置控件中当前选择项目的索引号，只能在程序运行时使用MultiSelect选项是否可以进行多重选择，只能在界面设计时指定（style=2不能设置

19、）Style列表框的外观，1（Standard）即为标准型；2（CheckBox）为复选框型sorted列表项是否排序Selected返回或设置在列表框控件中某项目是否处于选中的状态列表框控件的方法（1）增加项目方法AddItem用AddItem可以为列表框增加项目，代码规则如下：列表框名称.AddItem 项目字符串，索引值List2.AddItem list1.text (添加选中列表内容)List1.additem text1.textFor i=0 to list1.listcount-1 List2.AddItem list1.list(i)Next i（2）删除项目方法Remove

20、Item此方法可以删除列表框中指定的项目，代码如下：列表框名称.RemoveItem 索引值列表框名称.RemoveItem 列表框名称.listindex (删除被选中的列表项)（3）清除所有项目方法Clear用Clear可以清除列表框中所有的内容，代码如下：列表框名称.Clear 12套 基本操作（1） 39套 基本操作（1）36套 基本操作（2）50套 基本操作（2）26套 简单应用题 (1)29套 简单应用题 (1)30套 简单应用题 (1)27套 简单应用题 (1)21套 简单应用题 (2)14. 组合框（ComboBox）组合框控件将文本框控件（TextBox）与列表框控件（Lis

21、tBox）的特性结合为一体，它可以如同列表框一样，让用户选择所需项目，也可以如文本框一样通过输入文本来选择选项。text选中列表项文本listList(i)style类型 （a） （b） （c）三种Style组合框的方法 跟列表框一样，组合框也适用 AddItem、Clear、RemoveItem 方法. 49套 基本操作题（1） 52套 简单应用题（1）72套 简单应用题（2）73套 简单应用题（1） （选中判断）15. 通用对话框DialogTitle标题属性，用于设置通用对话框标题文本Action标准对话框的类型action属性设置Action属性值描 述0没有操作（无对话框打开）1打开

22、“打开”对话框2打开“另存为”对话框3打开“颜色”对话框4打开“字体”对话框5打开“打印”对话框6打开“帮助”对话框2CommonDialog控件的方法在程序中要使用CommonDialog控件的标准对话框，除了使用CommonDialog控件的Action属性设置对话框的类型外，还可以使用CommonDialog控件的方法。CommonDialog控件的方法方 法所打开的对话框ShowOpen打开“打开”对话框ShowSave打开“另存为”对话框ShowColor打开“颜色”对话框ShowFont打开“字体”对话框ShowPrinter打开“打印”或“打印选项”对话框ShowHelp调用Wi

23、ndows帮助引擎CommonDialog1.Action=1或者CommonDialog1.ShowOpen1 “打开”对话框在程序运行时，当CommonDialog控件的Action属性为1或者调用ShowOpen方法时，系统就会弹出“打开”对话框。FilterCD1.Filter=文本文件(*.txt)|*.txt|WORD文档(*.doc)|*.docFilterIndex返回或设置“打开”或“另存为”对话框中一个默认的过滤器Filename返回或设置用户所选择的文件的完整路径和文件名称DefaultExt设置或返回对话框默认的文件扩展名FileTitle返回用户选择文件的文件名称，包

24、括扩展名，但不包括路径当设置filter为所有的时候，DefaultExt设置才有效2“另存为”对话框程序运行时，当CommonDialog控件的Action属性为2或者调用ShowSave方法时，系统就会弹出“另存为”对话框，它为用户在存储文件时提供了一个标准的用户界面。实际上“另存为”对话框和“打开”对话框除了标题栏上的文字不同之外，其他内容与用法均相同，14套 基本操作（2）45套 基本操作（1）27套 综合应用12套 综合应用16. 文件系统控件文件操作控件示例 1DriveListBox（驱动器列表框）控件 Drive属性在程序运行时返回或设置被选驱动器。Drive1.Drive=C

25、:2DirListBox（文件夹列表框）控件 本控件的主要属性是Path属性，用来返回或设置当前文件夹的路径，该属性在设计时不可用，只能在程序运行中使用，其语法格式为： 文件夹列表框名称.Path=具体的路径 3FileListBox（文件列表框）控件文件列表框控件主要有3个属性，即 Path 属性、FileName 属性和Pattern属性，其介绍如下。l Path属性：返回或设置运行时的路径以显示文件，默认路径为当前路径。发生改变时会触发PathChange事件。l FileName属性：返回和设置从文件列表框中选定的文件名字符串。l Pattern属性：用于设置文件列表框中显示的文件类型

26、。可使用DOS通配符，指定多个类型时以“；”分隔。例如，要在文件列表框中仅显示扩展名是.com和.exe的文件： File1.Pattern= *.com; *.exe 4控件的连接（1）将驱动器列表框的操作赋值给文件夹列表框的 Path 属性，在驱动器列表框的 Change 事件中输入如下代码： Private Sub Drive1_Change() Dir1.Path=Drive1.DriveEnd Sub （2）对文件夹列表框控件进行的操作，直接影响文件列表框所显示的内容： Private Sub Dir1_Change() File1.Path=Dir1.PathEnd Sub （3）

27、 选中文件操作 File1.filename 11套 基本操作（1）顺序文件的操作： 1) 打开文件Open 文件名 For Input As #文件号例如： open “c:ttt1.txt” for input as #1 open “t1.txt” for input as #1 Open CD1.filename for input as #1 Open app.path & “t1.txt” for input as #1 Open file1.path & “” & file1.filename for input as #1 2) 读文件 Input #文件号, 变量名表 读出一

28、个数据项 Line Input #文件号, 变量名表 读出一行 Do while not eof(文件号) Line Input #1, c Text1.Text=Text1.Text & c Loop 读出全部内容读数到文本框的方法：Do while not eof(文件号) Input #1, c Text1.Text=Text1.Text & c Loop 读数到数组的方法： Do while not eof(文件号) Input #1, c N=n+1 A(n)=c Loop 读数到文本框和数组的方法 Do while not eof(文件号) Input #1, c N=n+1 Te

29、xt1.Text=Text1.Text & c A(n)=c Loop 3） 写文件 Print #文件号，输出列表 例： Open “D:SJTEST.DAT” For Output As #1 Print #1,Text1.Text 把文本框的内容一次性写入文件Close #1Write #文件号，输出列表 其中的输出列表一般指用逗号，分隔的数值或字符串表达式。Write #与Print #的功能基本相同，区别是Write #是以紧凑格式存放，在数据间插入逗号，并给字符串加上双引号。 4）文件关闭Close 文件号 第2套 综合应用第5套 综合应用第12套 综合应用第16套 简单应用（2）

30、第32套 简单应用（2）第28套 综合应用常用算法1.数列f(1)=1 f(2)=1 f(3)=f(1)+f(2) f(n)=f(n-1)+f(n-2) Dim a( ) as integer 获得n ReDim a(n) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i - 1) + a(i - 2) NextDim a( ) as integer 获得n ReDim a(n) a(1) = text1.text a(2) =text2.textk=2 do while k a(j + 1) Then t = a(j + 1) a(j + 1) = a(

31、j) a(j) = t End If Next j Next i第4套 综合应用 (数排序)第21套 综合应用 （字符排序）5. 最大最小Max=a(1): min=a(1)For i=lbound(a) to ubound(a) If a(i) max then max=a(i) If a(i) min then min=a(i)Next i第5套 简单应用第6套 简单应用第10套 综合应用6.读取与判断字符串（含大小写操作）相关函数：StrReverse(string1) 将string 反向 （回文判断） Mid(stringvar, start, length) 从指定位置取出字符 C

32、hr( number) 返回对应字符 ASC(STR) 返回字符的ASCII值 Ucase(str) 大写 chr(asc(“a”)-32) Lcase (str) 小写 chr(asc(“A”)+32)取出单词（字符）的方法为： For i=1 to len(str) C=mid(str,I,1) If c “” then if asc(c)65 and asc(c) = 65 And k = 97 And k ? Then fmax = b(i) Next i分数段统计For i = 1 To n If arr(i) = 60 And arr(i) = 70 And arr(i) = 80 And arr(i) = 90 And arr(i) = 100 Then Text6 = Val(Text6) + 1 End If Text1 = Val(Text1) + 1 Next （3）统计每个单词出现的频度 第17套 综合应用第18套 综合应用第20套 综合应用第21套 简单应用（1）第24套 综合应用8. 口令输入第8套 综合应用第14套 综合应9. 分解因子第9套 简单应用（1）第13套 综合应用19