《程序设计基础VB》作业题.doc

《《程序设计基础VB》作业题.doc》由会员分享，可在线阅读，更多相关《《程序设计基础VB》作业题.doc（50页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流程序设计基础VB作业题.精品文档.第一章 练习题一、选择题1、不需要编译，计算机便可直接执行的程序是（ ）。 A C语言程序 B Visual Basic语言程序 C 汇编语言程序 D 机器语言程序2、下面关于VB的叙述中，不正确的是（ ）。 A VB是美国Microsoft（微软）公司开发程序设计语言。 B VB是在20世纪60年代美国Dartmouth学院开发的Basic语言基础上发展而形成的。 C 用VB编写的程序可以在任何操作系统环境中运行。 D VB是面向对象的可视化的软件开发工具。3、下面关于VB的集成开发环境（IDE）的叙述中，

2、不正确的是（ ）。 A IDE是设计、调试、运行VB程序的工具。 B 打开/关闭各窗口的命令主要在IDE的“视图”菜单中。 C “窗体设计窗口”是用来设计应用程序界面（窗体）的。 D 不能往“控件工具箱”中添加其它控件。二、填空题1、如果进入VB的集成开发环境后，发现没有“工具箱”，那么可以打开（ ）菜单并选择“工具箱”菜单项，就可使“工具箱”出现。2、（ ）窗口用来管理一个应用程序所包含的各种资源文件。3、“代码窗口”用来编写应用程序的（ ）。三、简答题1、简单叙述计算机程序设计语言的发展历程。2、简单叙述窗体布局窗口的用途。3、简单叙述属性窗口的用途。四、实验题1、题目编写一个简单的VB程

3、序，界面如下图所示。程序有两个按钮。当用户按“显示”按钮时，在窗体上显示出“欢迎使用VB6.0”字样；当用户按“清屏”按钮时，清除窗体上的文字内容。程序有两个标签。一个用来显示显示“VB程序设计”字样；一个用来显示“系统当前时间”。2、实验目的初步了解IDE各窗口的用途及操作。初步了解一个VB程序的设计过程。观察一个VB程序的构成。3、实验步骤启动IDE单击任务栏的“开始菜单”程序Microsoft Visual StudioMicrosoft Visual Basic6.0便出现“新建工程”对话框，如下图所示。选择“标准EXE”工程类型，按“打开”按钮。便进入了IDE的界面如下图所示：界面设

4、计在“窗体设计”窗口中摆放控件方法一：单击“控件工具箱”中所要的控件（这时你会发现控件图标凹下去了），把鼠标移到窗体上（这时你会发现鼠标指针图形变成了“”字形），在窗体上初步确定一个安放点，按住鼠标左键往安放点的右下角拖，当你初步认为大小合适了便可放开鼠标左键。方法二：双击“控件工具箱”中所要的控件，该控件便被放到窗体中。但要注意：这种方法默认为把控件放到窗体中，而不能放到其它容器控件中（如：选项卡，图片框，框架）。控件的编辑 选中控件要想手动地调整一个控件的大小就必须先选中它。选中控件很简单：只要将鼠标指向该控件并按一下鼠标左键即可。当一个控件被选中后，它的周围便出现一些小正方形（我们称其为

5、“句柄”）。如果你要同时选中许多控件，你可以按住键在用鼠标点选所要的控件。 调整大小方法一：将鼠标移到被选中控件上下边的句柄上（这时你会发现鼠标指针图形变成了双向箭头状），按住鼠标左键上下拖放即可该变控件的高度。将鼠标移到被选中控件左右边的句柄上，按住鼠标左键左右拖放即可该变控件的宽度。方法二：选中要调整的控件，按住键，同时按、四个键来调整控件的高度、宽度。方法三：通过属性窗口设置该控件的Height属性值可改变控件的高度，设置该控件的Width属性值可改变控件的宽度。 调整位置方法一：选中要调整的控件，按住鼠标左键拖放。方法二：选中要调整的控件，按住键，同时按、四个键来调整控件的位置。 方法

6、三：通过属性窗口设置该控件的Top属性值，可改变控件顶边到其容器（窗体）顶边的距离；设置该控件的Left属性值，可改变控件左边到其容器左边的距离。 删除控件如果想删除窗体中的某个控件，你可以用鼠标右击该控件，这时会出现一个“快捷菜单”，选择其中的“删除”命令。 对齐控件如果你要使一些控件按某种方式对齐，你可以先选中这些控件，然后打开“格式”菜单并把鼠标指向“对齐”命令，从出现的二级菜单中选择所要的对齐方式。 锁定控件如果你已经把一些控件的大小、位置调整好了，你可以把它们锁定，防止误操作改变其位置。锁定控件的步骤是：选中控件，然后打开“格式”菜单，选择“锁定”命令。设置窗体、控件的属性对象名称对

7、象类型属性设置值用途Form1窗体Caption=”第一章示例1”程序界面Picture=窗体背景图片文件名全称，例如：Picture=”d:VB示例第一章tx1.bmp”Label1标签Caption=”VB程序设计”显示一个标题Label2标签Caption=系统当前时间显示系统时间Command1命令按钮Caption=”显示”在窗体上打印文字Command1命令按钮Caption=”清屏”清除窗体上的文字Timer1时钟Interval=100（单位是：毫秒）闹钟为相关控件的有关事件过程编写程序代码 对命令按钮Command1的Click（即鼠标左单击）事件过程编写如下代码Privat

8、e Sub Command1_Click() CurrentX = 2100 CurrentY = 500 Print 欢迎使用VBEnd Sub 对命令按钮Command2的Click事件过程编写如下代码Private Sub Command2_Click()ClsEnd Sub 对时钟的Timer1的Timer事件过程编写如下代码Private Sub Timer1_Timer() Label2.Caption = Time()End Sub注意：事件过程的头、尾是系统自动给出的，不须用户输入。运行、结束程序 运行程序方法一：点击工具栏上的“启动”按钮，如右图所示：方法二：打开“运行”菜单

9、选择“启动”方法三：按功能键F5 结束程序方法一：点击工具栏上的“结束”按钮，如右图所示：方法二：打开“运行”菜单选择“结束”方法三：点击程序窗体上的“关闭”按钮方法四：按住键，再按键。保存程序一个应用程序设计完成后，程序被存放在计算机的内存中。如果计算机被关闭或重启，程序就会丢失。要想使程序长期保存，就必须把程序存放在计算机的磁盘中。按工具栏中的“保存”按钮，如右图所示：然后在出现的“对话框”中，选择文件的存放位置、文件名。当把所有的窗体文件、工程文件都存储完后，出现一个如下图所示的对话框：修改程序要对已经存过盘的工程进行修改，步骤如下： 到存放工程的文件夹 双击“工程文件”，图标如下图 修

10、改 存盘4、思考回答问题当一个程序被存盘后，有那些文件？能否用Windows的重命名功能对某个文件重命名？当你使用Windows的复制功能将“工程文件”复制到另一个文件夹中，然后双击该文件图标会出现什么情况？为什么？能否双击“窗体文件”打开工程，为什么？第二章 练习题一、选择题1、当窗体被关闭时，系统自动执行该窗体的_事件过程。（A）Click （B）Load （C） Unload （D）LostFocus2、如果Print方法在窗体的Load事件过程中不起作用，原因是（ ）属性 的值为false。 （A）AutoRedraw （B）Moveable （C）MaxButton （D）Contr

11、olBox3、在运行时，要使窗体既不能移动有不能改变大小，应设置BorderStyle=( )。 （A） 0 （B） 1 （C）2 （D） 34、要使窗体运行时充满整个屏幕，应设置其（ ）属性。 （A） Height （B）Width （C）WindowState （D） AutoRedraw5、要使标签控件的大小随Caption 属性值而自动调整，应设置其（ ）属性。（A）Width （B）AutoSize （C） Caption （D）Alignment6、要设置标签控件字体的大小，应设置其（ ）属性。（A）Height （B）Width （C） Caption （D）Font7、要使标签

12、控件标题内容居中显示，应设置其（ ）属性。 （A）Alignment （B）Appearance （C） BackStyle （D）ToolTipText8、 程序运行时，要使用户不能修改文本框中的内容，那么应设置_。 （A） Enabled=False （B） MultiLine=False （C） Locked=True （D） PasswordChar=”*”9、当设置文本框的ScrollBars=Both 而文本框确没有显示出滚动条，原因是（ ）。 （A）文本框中没有内容 （B）文本框的MultiLine=False （C）文本框的Locked=True （D）文本框的MultiLin

13、e=True10、 程序运行时，要使用户不能修改文本框中的内容，那么应设置_。 （A） Enabled=False （B） MultiLine=False （C） Locked=True （D） PasswordChar=”*”11、要使鼠标指向“命令按钮”时，出现一个提示文本，应设置其_属性。 （A）Caption （B）Picture （C）ToolTipText （D） Style12、要使命令按钮在运行时能力丧失（不能用），Enabled=（ ）。 (A) True (B) False13、使命令按钮获得“焦点”的方法是（ ）。 （A）LinkSend （B）Move （C） SetF

14、ocus （D）Refresh14、一个窗体上有三个文本框，按放置顺序分别是：Text1，Text2，Text3 ，若使程序运行时Text3首先获得“焦点”，那么，应设置其（ ）属性值为 0 。 （A） Top （B）Tag （C） Tabindex （D）Index15、一个窗体上有两个文本框，按放置顺序分别是：Text1，Text2 ，要想在Text1中按“回车”键，“焦点”自动转到Text2上，应在（ ）处编写程序。（A）Private Sub Text1_KeyPress(KeyAscii As Integer) （B）Private Sub Text1_LostFocus() （C）

15、Private Sub Text2_GotFocus() （D）Private Sub Text1_Click()16、用一个对象来表示：“一只白色的足球被踢进球门”，那么，白色、足球、踢、 进球门分别是（ ）。 （A）属性、对象、方法、事件 （B）属性、对象、事件、方法 （C）对象、属性、方法、事件 （D）对象、属性、事件、方法17、下面关于对象属性的叙述中，不正确的是（ ）。 A 属性是对一个对象特征的描述。 B 属性都有名称、取值类型、值。 C 属性的值必须在设计时确定。 D 有些属性的值可以在程序运行时改变。二、填空题1、当双击控件工具箱中的控件是，系统默认地把控件放到（ ）中。2、一

16、般来说对象有属性、方法、事件，（ ）是指对象具有作某种事的能力。3、app.path返回值的含义是（ ）。4、要使标签背景透明（与其容器的背景一致），应设置其（ ）属性值为0。5、文本框的MaxLength=0的含义是（ ）。6、往当前工程中添加窗体的操作步骤是：打开（ ）菜单，选择（ ）命令。三、简答题1、假如一个工程有两个窗体Form1、Form2，其中Form1为启动窗体，如果你想让Form2为启动窗体，应如何操作？2、简述“标签”与“文本框”的区别。3、假如一个窗体上有三个“文本框”，按放置顺序依次为Text1、Text2、Text3，若要使程序运行时，Text3首先获得“焦点”，应如

17、何操作？四、实验题实验一1、题目设计一个简单VB小程序，界面如下右图所示。窗体上有三个命令按钮，按“Print方法”按钮在窗体上显示信息；按“Cls方法”按钮清除窗体的信息；按“Move方法”按钮使窗体往右下角移动。窗体被加载时，在窗体的标题栏中显示“第二章实验一”字样。2、实验目的了解窗体Load事件的发生条件及用途。初步掌握窗体的Print、Cls、Move方法的使用。初步掌握命令按钮的Clik事件的发生条件及用途。3、实验步骤界面设计对象名称对象类型属性设置值用途Form1窗体Font.size=24程序界面Command1命令按钮Caption=”Print方法”在窗体上打印文字Com

18、mand2命令按钮Caption=”Cls方法”清除窗体上的文字Command3命令按钮Caption=”Move方法”移动窗体代码设计Private Sub Form_Load() Caption = 第二章实验一 Font.sEnd SubPrivate Sub Command1_Click() Print 第一个输出项, 第二个输出项 Print 现在的时间是：; Time() Print x=; 5, y=; 4; Print x+y=; 10End SubPrivate Sub Command2_Click() ClsEnd SubPrivate Sub Command3_Click

19、() Move Left + 100, Top + 100End Sub4、思考问题应如何调整窗体的Print起始打印位置。在程序代码中，如何使“命令按钮”获得“焦点”。实验二1、题目设计一个简单VB小程序，界面如下右图所示。窗体上有两个“标签”，两个“文本框”，一个“命令按钮”。当程序运行时，用户在上面的“文本框”中输入圆的半径，然后点击“计算”按钮，程序便计算出圆的周长、面积并显示在下面的“文本框”中。2、实验目的初步掌握“标签”的基本属性及使用。初步掌握“文本框”的基本属性及使用。利用“文本框”输入、输出数据。如何使“焦点”从一个对象上转移到另一个对象上。3、实验步骤界面设计对象名称对象

20、类型属性设置值用途Form1窗体Caption=”第二章实验二”应用程序界面Label1标签Caption=”请输入圆的半径”提示用户Label2标签Caption=”圆的周长、面积”提示用户Text1文本框接受用户输入Text2文本框MultiLine=True显示计算结果Command1命令按钮Caption=”计算”作计算程序代码Private Sub Command1_Click() Dim r1, zc!, mj! r = Val(Text1.Text) zc = 2 * 3.14 * r mj = 3.14 * r 2 Text2 = 圆的周长= + Str(zc) + vbCrL

21、f Text2 = Text2 + 圆的面积= + Str(mj)End SubPrivate Sub Text1_GotFocus() Text1 = Text2 = End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End IfEnd Sub4、思考问题请指出该程序的缺陷。为什么要在text1的GotFocus事件过程中，清空两个文本框的内容？第三章 练习题一、选择题1、表达式16/4-25*8/4 Mod 52 = ( )。 （A） 14 （B） 4

22、 （C） 20 （D） 22、数学式3X5写成VB表达式是（ ）。（A） 3=X5 （B）3=X or X5（C） 3=X and X=3 and 2 Or sin（x）0.9 And 3x+3=（ ）。 （A）True （B）False ( C ) 不能计算4、将逻辑型数据转换成整型数据时，转换规则是（ ）。（A） 将True转换为 1 ，将False转换为 0 （B） 将True转换为 1 ，将False转换为 1 （C） 将True转换为 0 ，将False转换为 -1（D） 将True转换为 1 ，将False转换为 05、下面正确的变量名是（ ）。 （A） 3xy （B） xy_01

23、 （C） sa t01 （D） integer6、Int(-3.1)+round (-4.6)=_。 （A）-8 （B）-7 （C） -9 （D）-67、对不同类型的运算符优先级规定是（ ）。 （A） 字符运算符 算术运算符 关系运算符 逻辑运算符（B） 算术运算符 字符运算符 关系运算符 逻辑运算符（C） 算术运算符 字符运算符 逻辑运算符 关系运算符（D） 字符运算符 关系运算符 逻辑运算符 算术运算符8、k=12.5 ，len( str( k ) )=( ) 。 （A） 4 （B） 3 （C） 5 （D） 29、len(“vb程序设计”)=( ) 。（A） 5 （B） 10 （C） 2

24、（D） 610、随机产生 10，50 之间整数的正确表达式是（ ）。 （A） Round( Rnd*51) （B） Int(Rnd*40+10)（C） Round( Rnd*50) （D） 10+Int(Rnd*41)11、赋值语句 A=123 + Mid$( “123456”,3,2) 执行后，A=（ ）。 （A）”12334” （B）123 （C） 12334 （D）15712、Val (“123ab”)=（ ）。 （A）0 （B）123 （C）1230 ( D ) 不能转换13、当Ucase$(C$)”A” and Ucase$(C$)=1 then if x=1 then f=sqr(

25、x+1) f=sqr(x+1) else End if f=x2+3 End if (C) if x=1 then (D) if x=1 then f=sqr(x+1) f=sqr(x+1) End if End if f=x2+3 if x1 then f=x2+3 End if 5、X是单精度类型变量，用Select语句表示下列处理的正确语句是（ ）。当0X60 时，输出“不及格”；当60X70 时，输出“及格”；当70X80 时，输出“中”； 当80X90 时，输出“良”； 当90X100 时，输出“优”。(A) Select case X (B) Select case X Case

26、0X60 Case 0 to 59 Print “不及格” Print “不及格” Case 60X70 Case 60 to 69 Print “及格” Print “及格” Case 70X80 Case 70 to 79 Print “中” Print “中” Case 80X90 Case 80 to 89 Print “良” Print “良” Case 90X100 Case 90 to 100 Print “优” Print “优” Case else Case else Print “不在转换范围内” Print “不在转换范围内” End Select End Select(

27、C) Select case X (D) Select case X Case is 60 Case is =100 Print “不及格” Print “优秀” Case is 70 Case is 90 Print “及格” Print “良好” Case is 80 Case is 80 Print “中” Print “中” Case is 90 Case is 70 Print “良” Print “合格” Case is 100 Case is 60 Print “优” Print “不及格” Case else Case else Print “不在转换范围内” Print “不

28、在转换范围内” End Select End Select6、下面关于for next 循环的叙述中，不正确的说法是（ ）。 (A) 省略步长，系统默认为：步长是 1 (B) 循环变量必须是数值型 (C) 循环体内必须有 Exit For 语句 (D) 如果初值大于终值，不能省略 step 步长，否则循环只能执行一次。7、下面哪个程序不能正确显示1！，2！，3！，4！的值（ ）。（A）for i=1 to 4 （B） for i=1 to 4 n=1 for j=1 to i for j=1 to I n=1 n=n*j n=n*j next j next j print n print n

29、next i next i （C） n=1 （D） n=1 : j=1 for j=1 to 4 do while j5 n=n*j n=n*j print n print n : j=j+1 next j loop 8、下列循环能正常结束的是（ ）。 （A） i=5 （B） i=1do do i=i+1 i=i+2 loop until i0 i=i+1 i=i+2 loop until i0 loop9、下列if语句中，语法不正确的是（ ）。 (A) if x1 then print x (B) if x+13 then print xelse print “error” end if (

30、C) if x1 then (D) if x2 then print x y=x+1if x2 then y=x+1 end if end if 10、下面程序运行时会出现（ ）错误。 Dim k% ，I% k = 1 For i = 1 To 10 k = k * i Next iPrint k （A） 溢出 （B） 循环缺少 step （C）变量I 定义时大写，使用时小写二、填空题1、x=5 ，y=12，那么 iif( xy , x , y )=( )2、要使FOR k=（ ） to -5 STEP -2语句循环20次，k的初值应是多少？3、I=5，则choose( I ,”+”,”-”,”*”,”/” )=（ ）。4、一条语句要在下一行继续写，用（ ）符号分隔。三、写出程序运行结果1、X=Int( R