Visual Basic 复习提纲.doc

Visual Basic 复习提纲：例子：在程序设计中控件的合理选用十分重要，如：几十个项目中任选其中一项或多项时应选用（ CJ ）控件定时将数据保存应选用（ E ）控件常用作命令按钮的控件为（ I ）。在几个方案中只能选择其中之一应选用（ F ）控件。用于一段文字的显示、修改可用（ B ）。用于给定区间参数设置可用（ H ）来形象化调节设置A. Label B.Textbox C.ListBox D.Shape E.Timer F.OptionButtonG. Frame H. HscrollBar I. Command J. CheckBox K. Line在程序设计中可以通过控制对象的各种事件来驱动相应的模块子程序，实现方便灵活的程序控制，如： 当判断按键的Ascii码是否为时，应选用（C ）事件来驱动 拖动滚动条的滚动块会产生（ H ）事件。 定时器控件只响应一个事件就是（ J ）事件 当改变了文本框的内容时，会自动产生（ B ）事件。 当文本框失去焦点时会发生（ E ）事件。 打开某窗体时，初始化该窗体中各控件，应选用（ F ）事件来驱动A. Click B.Change C.Keypress D.KeyDown E.LostFocus F.Load G.Mousemove H.Scroll I.GotFocus J. Timer K.Interval 在程序设计中可通过改变控件对象的各种属性来设计友善的人机界面：让按钮控件不起作用可修改其（ D ）属性。改变Text文本框单行或多行显示方式可修改（ F ）属性。让控件隐藏起来，成为不可见控可修改其（ H ）属性。将通用对话框类型设置为“另存为”对话框，应修改（ C ）属性。按Tab键时，焦点在各个控件之间移动的顺序是由_N_属性来决定的。改变定时器控件的定时间隔可修改（ J ）属性。A. Caption B.Width C.Action D.Enabled E.Height F.MultiLine G.Top H.Visible I.Max J.Interval K. Min L.Index M.Tab N.Tabindex O.TabStop在程序设计中可以通过运用对象的不同方法来实现各种操作，如： 将通用对话框以“打开文件对话框”方式打开，可用（ J ）方法 清除列表框中全部内容，可用（ A ）方法来实现 清除由Print方法在窗体或图片框中显示的文本，可用（ E ）方法来实现 用来显示一个新窗体，可用（ B ）方法。 将指定的文本放到剪贴板Clipboard上 ，可用（ C ）方法。 移动对象在窗体中的位置可用（ K ）方法。A. Clear B.Show C.SetText D.Print E.Cls F.PopupMenuG.Show H.Hide I.showfont J.Showopen K.Move控件名称属性事件方法窗体Caption、Width、height、top、Left、backcolor、forecolor、drawwidth、fontname、Fontsize、FontBold、FontItalic、Fontundline、Fontstrikethru、Visible、EnableLoad、click Print、cls、show、hide、unload、move文本框Text、Maxlength、Locked、Multiline、Passwordchar、Scrollbars、Tabstop、TabindexChange、keypresssetfocus标签框Alignment、Autosize、Bordstyle、WordwrapChange命令按钮Visible、Enable、Default、Cancel复选框Valueclick单选按钮Valueclick框架通用对话框actionShowopen、showsave、Showcolor、showfont、Showprinter、showhelp图片框picture图像框picture计时器intervaltimer列表框P136Additem removitem 组合框与列表框类似Additem removitem驱动器列表框drive目录列表框Path 文件列表框Path pattern图形控件Pset circle1、Print的格式：.print ，|； 省略输出项则输出一空行，没14列为一段，“；”为紧凑格式与print方法有关的函数：（1） Tab(n)：从第n列开始输出（2） Space(n)：输出n个空格例如：语句Form1.print Tab(10);”#”的作用是在窗体当前输出行（ A ）A、第10列输出字符”#”B、第9输出字符”#”C、第11输出字符”#”D、输出10个字符”#”2、move方法的一般格式：见p873、获得焦点的方法：（1） 已知某窗体中有两个文本框（名称分别为txt1和txt2），现在要求在txt1中输入完毕后按回车键就能使焦点（当前光标）跳到txt2，而不用Tab键进行切换。请补充下面txt1和KeyDown（按键）事件过程中的程序代码的空缺。If KeyDown=13 Then txt2._setfocus_End If4、如何保证文本框输入数据的正确性： 5、命令按钮：(1) 若命令按钮cmdOK初始时是灰色，表示用户当前不能使用。在应用程序运用时，为使该命令按钮变成可用的，应使用什么语句？ cmdOK.Enabled=True(2) 若主窗口内有一个按钮“打开”，单击该按钮就会打开另一窗体frmD，请写出该命令的单击事件过程中的程序代码。 Frmd.show(3) 设一个名称为fraInput的框架（Frame）控件包含了两个文本框（名称分别为txt1和txt2），请写出使fraInput的两个子控件和txt1和txt2不可见的程序代码。Txt1.Visible=falseTxt2.visible=false6、复选框（CheckBox）的状态有哪些？7、设置通用对话框的类型时有哪两种方法？ActionShow8、图片框和图像框的不同之处9、基本语法输入输出分支结构循环结构数组过程和函数10、在列表框（组合框）添加或删除项目11、在窗体或图片框中画点、线、圆（椭圆）等（常用的颜色函数）12、消息框（inputbox和 msgbox）的格式例如：通过输入对话框窗口输入一个数值，窗口标题为“输入窗“，窗口在左上角位置为当前窗体的宽度和高度的处，默认值为，提示信息为“输入“，用InputBox函数的正确格式写出输入语句，输入值放入变量中。13、鼠标事件p7914、改变坐标系的方法SCALECurrentX CurrentY15、每次上机作业的选择题程序题：1、【程序说明】以下是一个简化了的猜数游戏，自动生成一个小于100的随机整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束，最多只能猜十次，十次都没猜中，用消息框输出“太遗憾了!”，单击窗体则开始猜数，如要终止可按Ctrl+Break组合键，其中r为随机数，x为输入的整数。 Private Sub Form_Click()Dim r, x, i As Integer R=int(rnd100)For i = 1 To 10 x =inputbox(“请输入一个整数” If x r Then MsgBox (太大了，请继续猜！) If x = r Then Print 猜中了！共猜了 + str(i)+ 次If i 10 then msgbox“太遗憾了”End Sub2、【程序说明】利用一个定时器、一个标签和2个命令按钮制作一个动态秒表，各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时单击“开始”按钮后秒表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行的时间（折算成小时、分钟和秒数）。Dim n As IntegerPrivate Sub Command1_Click()Dim hh, mm, ss As IntegerIf Command1.Caption = 计时开始 Then Timer1.Enabled = True n = 0 Command1.Caption = 停止Else Timer1.Enabled = False hh = n 3600 mm = (n - hh * 3600) 60 ss = n Mod 60 MsgBox 一共运行了 & hh & 小时 & mm & 分 & ss & 秒！ Command1.Caption = 计时开始 Label1.Caption = 0 End IfEnd SubPrivate Sub Timer1_Timer()n = n + 1Label1.Caption = CStr(n)End Sub3、【程序说明】利用一个定时器控件来实现文字的水平移动，要求运行时标签内的文字从窗体左边向右边移动，每次Left属性增加100缇（Twip），当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入）。Private Sub Form_Load()Timer1.Inerval=100Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer() If Label1.Left=Form1.Width Then Label1.Left=-Label1.Width Else Label1.Left=-Label1.Left+100End IfEnd Sub4、从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出 5 8 6 7；输入1000，则输出 0 0 0 1。5、【程序说明】窗体上有两个按钮：Command1（显示）和Command2（退出）。下列程序运行时，“显示”按钮能响应，“退出”按钮不能响应；单击显示按钮后，在窗体上显示一个用字符“*”组成的5层金字塔，同时显示按钮不能响应，“退出”按钮能响应。Private Sub Command1_Click()Dim I ,j as integerFor i=1 To 5 Print spc(5-i); For j=1 to 2*i-1 Print “*”; Next j PrintNext iCommand1.Enabled=FalseCommand2.Enabled=True_End SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load() Command1.Enabled=TrueCommand2.Enabled=FalseEnd Sub6、【程序说明】单击窗体后在窗体上输出前20个斐波那契数（5个一行）Private Sub Frm_click() Dim f(20) as integer F(1)=1 F(2)=1 For i=3 to 20 F(i)=f(i-2)f(i-1) Next i For i=1 to 20 If i mod 5=0 then print Print f(i); Next i End Sub7、【程序说明】单击窗体后在窗体上输出两个正整数M、N的最大公约数Private Sub Form_Click()Dim m，n，r as integerM=inputbox(“请输入m的值：”)N=inputbox(“请输入n的值：”)Print m；“和”；n；“的最大公约数是：”R=m mod nDo until R=0M=n：n=r：r=m mod nLoopPrint nEnd Sub8、【程序说明】单击窗体后在窗体上输出杨辉三角Private Sub Command1_Click()Dim n As Integern = InputBox(请输入杨辉三角的层数：)ReDim a(n, n) As IntegerFor i = 0 To n a(i, 0) = 1 a(i, i) = 1Next iFor i = 2 To n For j = 1 To n a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next jNext iClsFor i = 0 To n For j = 0 To i Print a(i, j); Next j PrintNext iEnd Sub9、【程序说明】在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4。Private Sub Command1_Click( )For i=0 To 3 If Option1(i). Value =True then opt=Option1(i).Caption End IfNext iSelect Case optCase”+” Result=Val(Text1.Text)+Val(Text2.Text) Case”-” Result=Val(Text1.Text)-Val(Text2.Text) Case”*” Result=Val(Text.Text)*Val(Text2.Text) Case”/” Result=Val(Text1.Text)/Val(Text2.Text)End Select Label4.Caption =ResultEnd Sub10