VisualBasic程序设计作业复习资料
- 格式:doc
- 大小:28.54 KB
- 文档页数:5
1. Visual Basic集成开发环境中不包括下列哪些窗口( )。
A、工具箱窗口B、工程资源管理器窗口C、属性窗口D、命令窗口参考答案是:D2. 在设计应用程序时,通过( )窗口可以查看到应用程序工程中的所有组成部分。
A、代码窗口B、窗体设计窗口C、属性窗口D、工程资源管理器窗口参考答案是:D3. 在正常安装Visual Basic6.0后,可以通过多种方式启动Visual Basic。
以下方式中不能启动Visual Basic的是:( )。
A、通过“开始”菜单中的“程序”命令B、通过“我的电脑”找到vb6.exe,双击该文件名C、通过“开始”菜单中的“运行”命令D、进入DOS方式,执行vb6.exe文件参考答案是:D4. Visual Basic 6.0工程文件的扩展名是( )。
A、.vbpB、.frmC、.basD、.cls参考答案是:A5. Visual Basic6.0是面向( )的程序设计语言。
A、过程B、工程C、事件D、对象参考答案是:D6. 下列关于Visual Basic编程特点的叙述中,错误的是( )。
A、Visual Basic 是采用事件驱动编程机制的语言B、构成Visual Basic 程序的多个过程没有固定的执行顺序C、Visual Basic 程序既可以编译运行,也可以解释运行D、Visual Basic 程序不是结构化程序,不具备结构化程序的3 种基本结构参考答案是:D7. Visual Basic 6.0集成开发环境有三种工作状态,不属于三种工作状态之一的是( )。
A、设计状态B、编写代码状态C、运行状态D、中断状态参考答案是:B8. 在Visual Basic 6.0中要获取上下文相关帮助,只需将光标定位在相应位置,再按( )A、F1B、F2C、F3D、F4参考答案是:A9. Visual Basic 6.0集成开发环境的主窗口中不包括( )。
A、标题栏B、菜单栏C、状态栏D、工具栏参考答案是:C10. 下列可以激活属性窗口的操作是( )。
第2章1.新建工程,在窗体上创建两个命令按钮Command1、Command2,一个标签Label1,界面如图2-5所示,程序运行要求如下:1)单击“改变颜色”按钮,标签上的文字内容改为“颜色已经改变”,文字颜色改为红色。
“改变颜色”按钮代码:Label1.ForeColor = vbRedLabel1.Caption = "颜色已经改变"2)单击“改变字体”按钮,标签上的字体改为“黑体”。
“改变字体”按钮代码:Label1.FontName = "黑体"图2-5程序运行界面最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。
2.设计一个留言薄。
新建一个工程,在窗体上创建2个标签,2个文本框,1个命令按钮,属性设置如图2-6所示,。
要求单击“提交”按钮后,上面的文本框内容复制到下面的文本框中,且下面文本框中的内容不能修改。
单击“清除”按钮则清除两个文本框中的内容。
“提交”按钮代码:Text2.Text = Text1.Text“清除”按钮代码:Text1.Text = ""Text2.Text = ""图2-6 程序界面最后将工程文件、窗体文件分别以lx2-4.vbp、lx2-4.frm为文件名保存在D:\EX文件夹下。
3.设计一个程序,程序界面如图2-7所示。
当单击“显示”按钮时,在文本框中显示“欢迎使用VB!”;当单击“清除”按钮时,清除文本框内的文本;当单击“退出”按钮时,结束程序运行。
“显示”按钮代码:Text1.Text = "欢迎使用VB!"“清除”按钮代码:Text1.Text = ""“退出”按钮代码:End图2-7 程序运行界面最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹下。
《Visual Basic程序设计》复习资料2007年7月一、单项选择题1.若要求从文本框中输入密码时在文本框中只显示*号,则应在此文本框的属性窗口中设置()。
A.Text属性值为* B.Caption属性值为*C.Password属性值为* D.Seltext的属性为*2.以下关于窗体的描述中,错误的是 ( )A.执行Unload Form1语句后,窗体Form1消失,但仍在内存中B.窗体的Load事件在加载窗体时发生C.当窗体的Enabled属性为False时,通过鼠标和键盘对窗体的操作都被禁止D.窗体的Height、width属性用于设置窗体的高和宽3.与传统的程序设计语言相比,Visual Basic最突出的特点是()。
A.结构化程序设计 B.程序开发环境C.事件驱动编程机制 D.程序调试技术4.后缀为.cls的文件表示VB 的()。
A.窗体文件 B.类模块文件C.工程文件 D.标准类模块文件5.表达式4 + 5 \ 6 * 7 Mod 8 / 9的值是()。
A.4 B.5 C.6 D.76.用于获得字符串S从第6个字符开始的4个字符的函数是()。
A.Mid(S, 6, 4) B. Mid (S, 4, 6)C.MidStr(S, 6, 4) D.MidStr(S, 4, 6)7.设a="Visual Basic",下面使b="Basic"的语句是()。
A.b=left(a,8,12) B.b=mid(a,8,5)C.b=right(a,5,5) D.b=left(a,8,5)8.键盘事件的执行顺序是()。
A.KeyPress、KeyDown、KeyUp B.KeyDown、KeyPress、KeyUpC.KeyUp、KeyDown、KeyPress D.KeyUp、KeyPress、KeyDown9.要清除List列表框控件中的所有项目,可采用的方法是()。
Visual Basic程序设计复习要点及练习2005年6月Visual Basic程序设计是中央电大软件开发与应用专业和计算机应用专业等相关专业的统设必修课,所使用的文字教材是《Visual Basic程序设计》(刘世峰主编,中央电大出版社出版)及与之配套的实验教材《Visual Basic程序设计实验》、Visual Basic程序设计形成性考核作业册和Visual Basic程序设计期末复习指导。
期末考试题型为单项选择题、填空题、阅读程序题、完善程序题和编写程序题五种题型。
以下给出各章复习要点及部分练习题。
Ⅱ综合练习题一、单项选择题(每小题2分)1.在界面设计时,双击窗体中的对象后,VisualBasic将显示的窗口是()。
A.立即窗口B.属性窗口C.代码窗口D.工程资源管理器窗口2.后缀为.vbp的文件表示VB 的()A.窗体文件B.类模块文件C.工程文件D.标准类模块文件3.要在窗体Form1内显示“myfrm”,使用的语句是()A.Form.caption="myfrm" B.Form1.caption="myfrm"C.Form1.print "myfrm" D.Form. print "myfrm"4.表达式8+13 Mod 2*4+3()。
A.8 B.16 C.15 D.125.文本框没有()属性A、TextB、NameC、CaptionD、BorderStyle6.下列赋值语句正确的是()A.B+C =A B.A=B+CC.-B=A D.5=A+B7.如果准备向随机文件中写入数据,正确的语句是()A.Write # 1,rec B.Print # 1,recC.Get # 1,rec D.Put # 1,rec8.Winsock控件的LocalHostName属性的作用是()A.仅返回所用端口B.返回本地计算机的名称C.返回或设置所用端口D.返回本地计算机的IP地址9.要以读方式打开D盘的一个顺序文件 Test.doc,应使用的语句是()A.Open " Test.doc " For Output As #1B.Open "D:\ Test.doc " For Input As #1C.Open "D:\ Test.doc " For Output As #1D.Open " Test.doc " For Input As #110.Dim Abc(2,3)所定义的数组元素个数是()A、6B、5C、12D、911.在Visual Basic中,默认的数据类型是()A.Integer B.Double C.Currency D.Variant 12.当Winsock控件处于关闭状态时,其State属性的值是()A.1 B.0C.2D.313.执行指令”Line(200,200)-step(500,500)”后,CurrentX=( )A.500 B.200C.300D.70014.不属于VB数据库引擎的是()A.ODBC B.Jet引擎C.BDE D.OLE DB15.全局变量必须在()中定义A、标准模块B、窗体模块C、类模块D、任意模块16.改变驱动器列表框的Drive属性值,将激活()事件。
中南大学网络教育课程考试复习题及参考答案Visual Basic程序设计(专科)一、单项选择题:1.Visual Basic程序中的注释所使用的字符是 [ ]A. 'B. :C. \D. _2.若要设置定时器的定时间隔设为10秒,应将( )属性值设为10000。
[ ]A. IntervalB. ValueC. EnabledD. Text3.算法一般都可以用( )三种控制结构组合而成。
[ ]A.循环、分支、递归B.顺序、循环、嵌套C.循环、递归、选择D.顺序、选择、循环4.下列可调整图片框的大小以适合图片的属性是 [ ]A.stretchB. autosizeC. pictureD. oledropmode5.用下面的语句所定义的数组的元素个数是 [ ] Dim arr(3 to5,-2 to 2)A.20B. 12C.15D. 246.下列不属于常量的是 [ ]A. 12B. “ch”C. abcD. 1.237.InputBox函数的返回值类型为 [ ]A.数值型B.字符型C.逻辑型D.变体型8.默认情况下,语句:Dim student(10,5) 定义的数组有( )个元素。
[ ]A.50B.6C.15D.669.Abs( -3.14)的值是 [ ]A. 3B. -3C.-3.14D. 3.1410.要让菜单项无效,应将( )属性值设置为 False。
[ ]A. VisibleB. EnabledC. MoveableD. Checked11.以下代码,循环( )次 [ ]Dim nFor n = 1 To 50 Step 5sult.Text = Str(n)NextA.12B.10C.50D.1112.表达式 Mid("Beijing2008",4,4)的值是 [ ]A. BeijB. jingC. inj2D. 200813.A$="+3.14+2",则Val(A$)的值为 [ ]A. +3.14+2B. +5.14C. 3.14D. 5.1414.语句:Dim student(10,5 to 100) 定义的是一个( )维数组。
《Visual Basic程序设计》复习题一、单选题(每小题2分)1.VB工程文件的扩展名是。
[A] .vbp[B] .frm[C] .frx[D] .bas2.控件________没有Caption属性。
[A] Label[B] OptionButton[C] Frame[D] TextBox3.当设置了定时器的有关属性后,使窗体自动向下移动的语句是哪条?[A] Move Left, Top + 100[B] Move Top + 100[C] Move , Top + 100 [D] Move Top = Top + 1004.将通用对话框控件Commondialog1显示为颜色对话框,可以改变该控件的________属性。
[A] Color[B] FileName[C] Action[D] Filter5.下列函数中, 返回值是字符串的是:[A] Chr[B] InStr[C] Val[D] Asc6.表达式6.5 Mod 5 \ 2+ Fix(-8.5) *3的值是__________。
[A]-27[B]-24[C]-23[D]-267.将当前窗体中显示的文字及绘制的图形全部清除,可以用________方法。
[A] Me.Clear[B] Me.Cls[C] Me=””[D] Me.Delete8.某顶级菜单项的热键字母为F,操作________等同于单击该菜单项。
[A] 同时按下[Ctrl]和[F]键[B] 按下[F]键[C] 同时按下[Alt]和[F]键[D] 同时按下[Shift]和[F]键9.一个对象可以执行的动作和可以被对象识别的动作分别称为________。
[A] 方法和事件[B] 事件和方法[C] 属性和方法[D] 事件和过程10.在设计模式双击窗体中的对象后,Visual Basic将显示的窗口是______。
[A] 属性窗口[B] 代码窗口[C] 工具箱[D] 项目(工程)窗口11.在以下________中的这些对象都不响应Click事件。
vb程序设计复习资料VB程序设计复习资料VB(Visual Basic)是一种广泛应用于软件开发的编程语言,它的简单易学和强大的功能使得它成为了很多开发者的首选。
无论是初学者还是有一定编程经验的人,都需要不断复习和巩固自己的知识。
本文将为大家提供一些VB程序设计的复习资料,希望能够帮助大家更好地掌握这门语言。
一、VB语言基础在进行VB程序设计之前,我们首先需要了解VB语言的基础知识。
VB是一种基于事件驱动的编程语言,它的语法结构和其他编程语言有一些不同之处。
在复习VB语言基础时,我们可以从以下几个方面入手:1. 数据类型:VB中有许多不同的数据类型,包括整型、浮点型、字符串型等。
了解各种数据类型的特点和使用方法是非常重要的。
2. 变量和常量:在VB中,我们可以通过声明变量来存储数据,并通过赋值来改变变量的值。
同时,我们也可以使用常量来存储不可改变的值。
3. 运算符:VB中的运算符和其他编程语言类似,包括算术运算符、关系运算符、逻辑运算符等。
熟悉运算符的使用方法可以帮助我们更好地进行程序设计。
4. 控制语句:控制语句是编程中非常重要的一部分,它可以帮助我们控制程序的执行流程。
在VB中,我们可以使用条件语句(如if语句和select语句)和循环语句(如for循环和while循环)来实现程序的控制。
二、VB窗体设计VB的窗体设计是其独特之处之一,通过窗体设计,我们可以创建出具有交互性的界面。
在复习VB窗体设计时,我们可以从以下几个方面入手:1. 窗体属性:了解窗体的各种属性和方法,可以帮助我们更好地控制窗体的外观和行为。
例如,我们可以通过设置窗体的标题、大小和位置来使其符合我们的需求。
2. 控件使用:VB中有许多不同的控件,包括按钮、文本框、标签等。
了解这些控件的使用方法和属性,可以帮助我们创建出更加丰富多样的界面。
3. 事件处理:在VB中,我们可以通过编写事件处理程序来响应用户的操作。
了解各种事件的触发条件和编写方法,可以帮助我们实现更加灵活和交互性的界面。
《VisualBasic》复习资料总共50题共100分一、单选题(共20题,共40分)1. 假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为()(2分)bel1.BackStyle=0bel1.BackStyle=1Label1.BorderStyle=0 Label1.BorderStyle=1bel1.BackStyle=Truebel1.BackStyle=FalseLabel1.BorderStyle=True Label1.BorderStyle=False . ★标准答案:A2. 设置一个单选按钮(OptionButton)所代表选项的选中状态,应当在属性窗口中改变的属性是()(2分)A.CaptionC.TextD.value. ★标准答案:D3. 比较图片框(PictureBox)和图像框(Image)的使用,正确的描述是()(2分)A.两类控件都可以设置AutoSize属性,以保证装入的图形可以自动改变大小B.两类控件都可以设置Stretch属性,使得图形根据物件的实际大小进行拉伸调整,保证显示图形的所有部分C.当图片框(PictureBox)的AutoSize自属性为Jlase时,只在装入图元文件(*.wmf)时,图形才能自动调整大小以适应图片框的尺寸D.当图像框(Image)的Stretch属性为True时,图像框会自动改变大小以适应图形的大小,使图形充满图像框. ★标准答案:D4. VB的工程资源管理器可管理多种类型的文件,下面叙述不正确的是()(2分)A.窗体文件的扩展名为.frm,每个窗体对应一个窗体文件B.标准模块是一个纯代码性质的文件,它不属于任何一个窗体C.用户通过类模块来定义自已的类,每个类都用一个文件来保存,其扩展名为.basD.资源文件是一种纯文本文件,可以用简单的文字编辑器来编辑. ★标准答案:C5. 可以惟一标识控件数组中的每一个控件属性的是()(2分)B.CaptionC.IndexD.Enabled. ★标准答案:C6. 下面()不是VB的文件类控件(2分)A.DriveListBox控件B.KirListBox控件C.FileListBox控件D.MsgBox. ★标准答案:D7. 选中一个窗体,启动菜单编辑器的方法有()(2分)A.单击工具栏中的“菜单编辑器”命令B.执行“工具”菜单中的“菜单编辑器”命令C.按Ctrl+ED.按Shift+Alt+M. ★标准答案:D8. 用于获得字符串S从第2个字符开始的3个字符的函数是()(2分)A.Mid$(S,2,3)B.Middle(S,2,3)C.Right$(S,2,3)D.Left$(S,2,3). ★标准答案:A9. 计算结果为0的表达式是()(2分)A.Int(2.4)+Int(-2.8)B.Cint(2.4)+Cint(-2.8)C.Fix(2.4)+Int(-2.8)D.Fix(2.4)+Fix(-2.8). ★标准答案:D10. VB的启动有多种方法,下面不能启动VB的是()(2分)A.使用“开始”菜单中的“程序”命令B.使用“开始”菜单中的“运行”命令,在弹出的对话框中输入VB启动文件的名字C.使用“我的电脑”,在VB所在硬盘驱动器中找到相应的VB文件夹D.先打开VB的“文件”菜单,再按Zlt+Q组合键. ★标准答案:D11. 假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为()(2分)bel1.BackStyle=0bel1.BackStyle=1bel1.BackStyle=Truebel1.BackStyle=False. ★标准答案:A12. 当利用Line方法进行添加图时,以下正确的说法是()(2分)A.有7种不同的线型,而且不管线宽多少都可以绘制虚线/点划线/点线B.使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C.可利用Line方法添加矩形,如Line(300,300)-(2000,2000),BFD.可利用Line方法添加矩形,如Line(300,300)-(2300,2300),B+F. ★标准答案:B13. 定义变量如下:Dim My VarMy Var =”come see me “若在立即窗口中显示My Var的值,下面正确的是()(2分)A.Debug.Print My VarB.PictureBox.Print My VarC.Printer.Print My VarD.Print My Var. ★标准答案:A14. 下面对哪一种变量的类型说明符的使用是正确的()(2分)A.Dim a:a@=2000B.Dim a:a%=50000C.Dim a:a&=TrueD.Dim a:a$=”OK”. ★标准答案:D15. 选中一个窗体,启动菜单编辑器的方法有()(2分)A.单击工具栏中的“菜单编辑器”命令B.执行“工具”菜单中的“菜单编辑器”命令C.按Ctrl+ED.按Shift+Alt+M. ★标准答案:D16. 在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序:(2分)A.abcEFGB.abcefgC.ABCefgD.ABCEFG. ★标准答案:A17. 可以惟一标识控件数组中的每一个控件属性的是()(2分)B.CaptionC.IndexD.Enabled. ★标准答案:C18. 当利用Line方法进行添加图时,以下正确的说法是()(2分)A.有7种不同的线型,而且不管线宽多少都可以绘制虚线/点划线/点线B.使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C.可利用Line方法添加矩形,如Line(300,300)-(2000,2000),BFD.可利用Line方法添加矩形,如Line(300,300)-(2300,2300),B+F. ★标准答案:B19. 下列变量名中,合法的变量名是()(2分)A.C24B.A BC.A:BD.1+2. ★标准答案:A20. 在以下Form1窗体中没有采用的控件是()(2分)A.文本框B.水平滚动条C.框架D.选项按钮. ★标准答案:D二、多选题(共20题,共40分)1. 描述算法的方法是多种多样的,可以用____来描述算法(2分)A.文字B.符号C.高级语言D.流程图. ★标准答案:A,B,D2. 要清楚文本框Text1中的内容,使其内容为空字符串,可以采用()(2分)A.Text1.text=Space(0)B.Text1.text=0C.Text1.text=""D.Text1.text=Space(1)E.Cls Text1.text. ★标准答案:A,C3. 一般来说好的算法具备哪些特点(2分)A.有穷性B.确定性C.有输出结果D.有效性. ★标准答案:A,B,C,D4. 下列关于单选按钮的叙述中,正确的是()(2分)A.单选按钮组中的所有单选按钮都采用相同的名称(Name)B.单选按钮的Enabled属性能确定该按钮是否被选中C.一个窗体上(不包括其他容器)的所有单选按钮一次只能有一个被选中D.在运行期间用鼠标单击单选按钮时,按钮的Value属性变为真值E.在代码中采用语句 Option1.Value=True,把单选按钮Option1的Value属性值从原False值改为True值,将会触发Click事件. ★标准答案:C,D5. 以下说法中正确的有()(2分)A.使用ReDim语句可以改变数组的类型B.使用ReDim语句将释放动态数组所占的存储空间C.使用ReDim语句可以保留动态数组中原有的内容D.使用Erase语句将释放动态数组所占的存储空间E.使用Erase语句将释放静态数组所占的存储空间. ★标准答案:C,D6. 下列关于事件的叙述中,正确的是()(2分)A.事件是对象能够识别的动作B.每个对象都有一系列预先定义好的事件,但要使对象响应事件时执行某种操作,需要编写该对象相应的时间过程C.同一个事件的名称矮子不同的程序中可以不同D.对象的时间是不固定的. ★标准答案:A,B,D7. 下列函数中,用于取子串的函数是(2分)A.INT()B.LEFT()C.MID()D.RIGHT(). ★标准答案:B,C,D8. 下列属于VB转换函数的是(2分)A.ASC()B.STR()C.CHR()D.VAL(). ★标准答案:A,B,C,D9. 下列属于VB数学函数的是(2分)A.SIN()B.INT()C.EXP()D.LEN()E.ABS(). ★标准答案:A,B,C,E10. 已知A=Space(1),要产生3个空格,可以采用___函数(2分)A.Right(A,3)B.Space(3*A)C.String(3,A)D.A&A&AE.3*A. ★标准答案:C,D11. 下列关于对象属性的叙述中,正确的是()(2分)A.窗体何控件的所有属性都可以在属性窗口中设置B.窗体何控件的许多属性可以直接在属性窗口中设置,并立即在屏幕上看到效果C.窗体何控件的所有属性都可以在程序中通过语句设定D.窗体何控件的属性值不可以在程序运行中动态地修改E.控件的某些属性只能在程序运行时设定. ★标准答案:B,E12. 在工程资源管理器中“移除”一个文件后,该文件()(2分)A.在磁盘上删掉B.移入WINDOWS回收站中C.仍存于磁盘中D.仍存于当前工程中E.从当前工程中删掉. ★标准答案:C,E13. 日期函数Now可以取得系统当前的(2分)A.日期B.时间C.属性D.方法. ★标准答案:A,B14. 能够删除字符串中空格的函数是(2分)A.Ltrim()B.Rtrim( )C.Trim()D.Lcase(). ★标准答案:A,B,C15. 实现大小写字母互相转换的函数是(2分)A.Lcase()B.Ucase()C.LOG()D.EXP(). ★标准答案:A,B16. 实现数值、字符串相互转换的函数是(2分)A.STR()B.VAL()C.ABS()D.LOG(). ★标准答案:A,B17. 假设t,s,w分别为整型,字符型,逻辑型变量,且s="ABC",在下列的表达式中错误的有()(2分)A.t=5 And wB.s>90C.4*t-1D.s+"s"E.t+s. ★标准答案:B,E18. 程序设计的三种基本算法结构是(2分)A.顺序结构B.分支结构C.函数结构D.循环结构. ★标准答案:A,B,D19. 要求一个正整数n除以8所得的余数,可以采用()(2分)A.n Mod 8B.n-Int(n/8)C.n\8D.n-Int(n/8)*8E.n-Int(n\8). ★标准答案:A,D20. 使用语句"Dim t(t) As Integer"声明数组t之后,以下说法中正确的有()(2分)A.t数组中的所有元素值为0B.t数组汇总的所有元素值为空字符串C.t数组中的所有元素值不确定D.执行Erase t后,t数组中的所有元素值为0E.使用ReDim语句可以改变数组t的维数. ★标准答案:C,E三、判断题(共10题,共20分)1. vb提供的单选按钮的value属性,true表示选中,false表示未选中(2分)( ) . ★标准答案:正确2. 事件过程与sub过程,它们相同点都是事件的驱动,而不同的只是事件过程由控件属性决定,而sub过程是由户自定义。
Visual Basic程序设计作业答案
作业2
一、选择题
1.B 2.C 3.D 4.B 5.D 6.A 7.B 8.C 9.A 10.D 11.C 12.B 13.D 14.C 15.A 16.B 17.C 18.B 19.D 20.B
二、填空题
1.下拉式菜单弹出式菜单
2.打开另存为颜色字体打印
3.文本框列表框
4.Option Base 1
5.Call语句
6.工程工程属性通用Form1.Show
7.0
8.Sub过程的过程名不能返回值,而Function过程能通过过程名返回值
9.窗体模块标准模块类模块
10.移出内存无效状态
11.(1)2*Cosα*Sinα/(2*α)
(2) Sqr(s*(s-a)*(s-b)*(s-c))
(3) Sin(45*3.14/180)
12.(1)x>=1 And x<12
(2) A+B>=C Or a-c<=c
(3) a>0 And b>0 Or(a<0 And b<0)
13.False
14.For While Do
15.3
三、阅读下列程序,给出程序运行结果。
1.程序运行后,单击窗体,输出结果为:5050。
2.
3.
4.
3.4 3
5.
*
***
*****
*******
*********
四、程序设计题
1.
Private Sub Command1_Click()
Dim x As Single, y As Single
x = Val(Text1.Text)
If x < 100 Then
y = x
Else
If x < 200 Then
y = 9.5 * x
Else
If x < 300 Then
y = 0.9 * x
Else
If x < 500 Then
y = 0.8 * x
Else
y = 0.7 * x
End If
End If
End If
End If
Text2.Text = y
End Sub
2.
Private Sub Form_Load()
Dim x As Integer
x = 100
Do Until x > 200
If x Mod 3 <> 0 Then
Text1.Text = Text1.Text & Str(x) & Chr(13) & Chr(10)
End If
x = x + 1
Loop
End Sub
3.
Private Sub Form_Click()
Print "*";Tab(9);3,Tab(18);6;Tab(27);9;Tab(36);12
Print
For I=15 to 18
Print I;
For j=3 to 12 Step 3
Print Tab(3*j);j*I;
Next j
Print
Next I
End sub
4.
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Option1_Click()
Text1.Text = 10 * 2
End Sub
Private Sub Option2_Click()
Text1.Text = 10 / 2
End Sub
Private Sub Option3_Click()
Text1.Text = 10 + 2
End Sub
Private Sub Option4_Click()
Text1.Text = 10 - 2
End Sub
5.
Private Function Day(n As Integer)
Select Case n
Case 0
Day = "星期日" & Chr(13) & "(Sunday)"
Case 1
Day = "星期一" & Chr(13) & "(Monday)"
Case 2
Day = "星期二" & Chr(13) & "(Tuesday)"
Case 3
Day = "星期三" & Chr(13) & "(Wednesday)"
Case 4
Day = "星期四" & Chr(13) & "(Thursday)"
Case 5
Day = "星期五" & Chr(13) & "(Friday)"
Case 6
Day = "星期六" & Chr(13) & "(Saturday)"
End Select
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim n As Integer
n = Val(Text1.Text)
If KeyAscii = 13 Then
If n >= 0 And n < 7 Then
Label1.Caption = Day(n)
Else
MsgBox "请输入0~6之间的整数!"
End If
End If
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
6.
新建一个工程,在默认的窗体Form1上放置一个Picture控件,然后编写如下代码。
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "You pressed right Button"
Picture1.MousePointer = vbArrow
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.MousePointer = vbUpArrow
End Sub
7.
Private Sub Form_Load()
List1.AddItem "李敏"
List1.AddItem "张华"
List1.AddItem "吕晓烨"
List1.AddItem "赵巍"
List1.AddItem "袁莉"
List1.AddItem "王津"
List1.AddItem "何小渴"
List1.AddItem "崔宁"
List1.AddItem "陈曦"
List1.AddItem "刘伟楠"
End Sub
Private Sub Command1_Click()
If Text1.Text <> "" Then
List1.AddItem Text1.Text
Text1.Text = ""
Else
MsgBox "请在文本框中输入信息!" End If
End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex
End Sub
Private Sub Command3_Click()
If Command3.Caption = "修改" Then
Text1.Text = List1.Text
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = False
Command3.Caption = "修改确认"
Else
List1.List(List1.ListIndex) = Text1.Text
Command1.Enabled = True
Command2.Enabled = True
Text1.Text = ""
Command3.Caption = "修改"
End If
End Sub
Private Sub List1_Click()
If List1.ListIndex <> -1 Then
Command2.Enabled = True
Command3.Enabled = True
End If
End Sub。