Visual Basic程序设计练习
- 格式:doc
- 大小:193.72 KB
- 文档页数:13
练习参考答案第 1 章一、选择题1.C,2.C ,3.B,4.B,.5.C ,6.C,7.D,8.D,9.B,10.C ,11.B,12.C,13.C,.14.A.,15.B ,16.A ,17.B ,18.B,19.B,20.B。
二、填空题1.(1)按字母序;(2)按分类序。
2.(1)多文档界面或MDI;(2)单文档界面或SDI。
3. Aft+Q。
4. 13。
分别为【文件】、【编辑】、【视图】、【工程】、【格式】、【调试】、【运行】、【查询】、【图表】、【工具】、【外接程序】、【窗口】、【帮助】。
5. (1).vbp;(2).frm(3).bas。
6.(1)对象框;(2)属性显示方式;(3)属性列表;(4)属性解释。
7.(l)固定;(2)浮动。
8.(1)标准控件(或内部控件);(2)ActiveX控件;(3)可插入对象。
9.Shift或Ctrl。
10.T1.Text=“How are you!”或T1=“How are you!”。
11.(1)对象;(2)过程。
12.“What is your name?”。
13.(l)Hello;(2)Visual Basic。
14.(l)建立可视用户界面;(2)设置对象属性;(3)编写代码。
15.(l)属性窗口;(2)运行。
第 2 章一、选择题1. A,2. D,3. B,4. B,5. B,6. A,7. C,8. D,9. C,10.D,11. D,12. A,13. A, 14. D,15. B,16. B,17. C,18.C,19.C,20.C, 21.A, 22.D,23. B,24.A,25.A。
二、填空题1.(1)变体类型;(2)字符串型。
2.(1)其所在的过程;(2)窗体及窗体内的所有过程;(3)模块内的所有过程;(4)整个工程中所有的模块和所有的过程。
3. Visual Basic.NET Programming。
4. Shanghai。
Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分,共45分)1.无论何种控件,共同具有的属性是()。
A.Text 属性B.Caption属性C.Name属性D.Autosize属性2.当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息,应按的键是()。
A.Help B.F10 C.F1 D.Esc3.为了保存一个Visual Basic应用程序,下列说法正确的是()。
A.只保存窗体文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件4.在Visual Basic中,变量的默认类型是()。
A.Integer B.VariantC.Double D.Currency5.Timer控件可用于后台进程中,可在Timer事件内编程,要停止触发Timer事件,需要设置的属性是()。
A.Interval=0或Enabled=False B.Interval=0或Visible=False C.Enabled=False 或Enabled=0 D.Interval=0且Enabled=False6.要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列()属性设置就有效。
A.MaxButton B.BorderSyleC.Width D.MinButton7.有程序代码如下:Text1.Text = "Visual Basic",则Text1,Text ,和"Visual Basic"分别代表()。
A.对象,值,属性B.对象,方法,属性C.对象,属性,值D.属性,对象,值8.要设置命令按钮的背景图形,必须设置的两个属性是()。
A.Value和Icon B.Style和IconC.Caption和Picture D.Style和Picture9.在VB中,下列合法的变量名是()。
VisualBasic程序设计自测题VisualBasic是一种可视化的编程语言,广泛应用于Windows平台的软件开发中。
本文将提供一组VisualBasic程序设计的自测题,旨在帮助读者巩固和检验自己对该编程语言的掌握程度。
以下是一组精选的题目,涵盖了VisualBasic的各个核心知识点和常见应用场景。
题目一:变量和数据类型1. 声明一个名为"age"的整型变量,初始值为25。
2. 声明一个名为"name"的字符串变量,初始值为"John Smith"。
3. 声明一个名为"salary"的双精度浮点型变量,初始值为1000.50。
4. 将"age"的值加上10,然后输出结果。
5. 将"name"和"salary"的值连接起来,然后输出结果。
题目二:条件语句和循环结构1. 编写一个程序,判断一个整数是否为正数、负数或零,并输出相应的提示信息。
2. 编写一个程序,输出1到10之间的所有奇数。
3. 编写一个程序,求1到100之间所有能被3整除的数之和。
4. 编写一个程序,判断一个年份是否为闰年,并输出相应的提示信息。
5. 编写一个程序,求1到100之间的所有素数(只能被1和自身整除的数)。
题目三:数组与字符串操作1. 声明一个整型数组,包含5个元素,分别为1, 2, 3, 4, 5。
2. 将数组中的所有元素相加,然后输出结果。
3. 声明一个字符串变量,值为"Hello, World!"。
4. 输出字符串的长度。
5. 将字符串中的"World"替换为"VB",然后输出结果。
题目四:函数和过程1. 编写一个函数,接受两个整数参数,返回它们的最大公约数。
2. 编写一个函数,接受一个字符串参数,统计字符串中的字母个数并返回。
页脚内容1一、填空题(每题1分,共10分)1.把数学式子: 25sin 21π+写成VB 的数值表达式为( Sqr(1+3.14159/2*Sin(25*3.14159/180)) )。
2.设A=5,B=6,C=7,D=8,表达式3>2*B OR A=C AND B<>C OR C>D 的值是( True )。
3.若Case 子句中的表达式表列具有形式:<表达式1> To <表达式2>,则它的含义是:当测试表达式的值等于( 指定范围内的值 )时,执行该Case 子句相应的语句块。
4.执行下面的程序段后,x 的值为( 12 )。
x=0For i=1 To 8 Step 3x=x+iNext i5.在图片框上放置的控件称为图片框的( 子 )对象,而窗体是图片框的( 父 )对象。
6.将命令按钮Command1的Caption 属性值赋给文本框Text1的Text 属性使用的语句为( Text1.Text=Command1.Caption )7.复选框的Value 属性为( 1 )时,表示复选框被选中。
8. 使用滚动条可以获取某一范围内的数值输入。
为使垂直滚动条的Value 属性值从下往上递增变化,应设置滚动条Min 属性值大于( Max )属性值。
9.语句:Dim A(-3 to 4) as Integer定义的一维数组A的元素个数是(8)。
10.给定如下子过程:Function fun(ByVal num As Long) As LongDim k As Long,i As Integerk=1For i=1 To numk=k*iNext iEnd Function执行语句Print fun(5) 后在窗体上显示的结果为(0)。
二、单项选择题(每题1.5分,共30分)1.装载窗体是窗体的( C )。
A) 对象B) 属性C) 事件D) 方法2.设a="Visual Basic",下面使b的值为"Basic"的赋值语句正确的是( B)。
1.执行下面的程序段后,x 的值为 A 。
x=5For i=1 To 20 Step 2x=x+i\5Next iA.21 B.22 C.23 D.242.在窗体上画两个文本框(其【Name】属性分别为“Text1”和“Text2”)和一个命令按钮(其【Name】属性为“Command1”),然后编写如下事件过程:Private Sub Command1_Click()x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopForm1.Print xForm1.Print nEnd Sub程序运行后,单击命令按钮,窗体上显示的值分别为 B 。
A.1和0 B.2和72 C.3和50 D.4和1683.执行下面的程序段后,s的值为 C 。
s=5For i = 2.6 To 4.9 Step 0.6s=s+1Next iA.7 B.8 C.9 D.104.执行下面的程序段后,s的值为 A 。
s = 0i = 1N=1Do While i < Ns = s + ii = i + 1LoopA.0 B.1 C.2 D.35.执行下面的程序段后,s的值为 B 。
s = 0i = 1N=1Dos = s + ii = i + 1Loop While i < NA.0 B.1 C.2 D.31.在空白处填上代码以完成整个循环。
For i = l To 10Print Tab(16 - i);For j = 1 TO 2 * i - 1Print "*"Next jPrint '换行Next i2.补充代码,以完成查找75最大公约数的功能。
For i=36 To 1 Step -1If 75 mod i == 0 ThenPrint "75最大公约数为",iExit ForEnd ifNext i3.补充代码,以完成查找35和75最大公约数的功能。
一、单项选择题1. 在代码中引用一个控件时,应使用控件的()属性A. CaptionB. NameC. TextD. Index2. 以下4种描述中,错误的是()A.常量在程序执行期间其值不会发生改变B.根据数据类型不同,常量可分为字符型常量、数值常量、日期、时间型常量和布尔型常量C.符号常量是用一个标识符来代表一个常数,好像是为常数取一个名字,但仍保持常数的性质D. 符号常量的使用和变量的使用没有差别3. Visual Basic中可以用类型说明符来标识变量的类型,其中表示货币型的是()A.% B. #C.@ D. $4. 表达式16/4-2^5*8/4 MOD 5\2的值为()A. 14B. 4C. 20D. 25. 表达式Int(Rnd*71)+10产生的随机整数范围是()A. (10,80)B.(10,81)C. [10,80]D.[10,81]6. 表达式ASC("F")的类型是()A. 字符表达式B.关系表达式C.算术表达式D.逻辑表达式7. 要定义5个元素的整型数组,以下语句正确的是()A. Dim arr(5) As IntegerB. Dim arr(1 To 5)C. Dim arr(4) As IntegerD. 以上都不对8. 如要获得滚动条的当前值,可访问的属性是()A. TextB.ValueC. MaxD. Min9. 下列关于For…Next语句的说法正确的是()A. 循环变量、初值、终值和步长都必须为数值型B.step后的步长只为正数C. 初值必须小于终值D.初值必须大于终值10. 若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的属性窗口中设置()A. Text属性值为*B. Caption属性值为*C. Password属性值为空D. Passwordchar属性值为*11. 67890属于()类型数据A.整型B. 单精度浮点数C. 货币型D. 长整型12. 下列关于工具箱的说法正确的是()A. 工具箱中控件的数目是固定不变的B. 工具箱中包含了所有的VB控件C. VB的内部控件不能从工具箱中移除D. ActiveX控件不能添加到工具箱中13. Visual Basic的三种工作模式是()A. 编辑、编译与运行B. 设计、运行与中断C. 中断、打开与关闭D. 设计、编辑与编译14. 如果变量a=2、b="abc"、c="acd"、d=5,则表达式a<d OR b>c AND b<>c的值为()A.true B. false C. yes D. no15. 下列变量名中正确的是()A. 3SB. PrintC. Select My NameD. Select_116. 语句Print"ABC";Spc(4); "DEF"的输出结果是()A. ABCDEFB. ABCDEFC. ABC DEFD. ABCDEF17. 多分支结构执行哪一个分支的依据是()A. Select Case语句的“测试表达式”与Case语句的“变量值列表”同为falseB. Select Case语句的“测试表达式”与Case语句的“变量值列表”同为trueC. Select Case语句的“测试表达式”与Case语句的“变量值列表”相匹配D. Select Case语句的“测试表达式”与Case语句的“变量值列表”完全相等18. InputBox函数的返回值的类型为()A. 数值B. 数值或字符串(视输入的数据而定)C. 变体D. 字符串19. 下列赋值语句()是有效的A. sum=sum-sumB. x+2=x+2C. x+y=sumD. last=y/020. 以下关于列表框的叙述错误的是()A. 可通过属性“Item”,返回列表框中的项目B. 可通过属性“Text”,得到当前列表项中的内容C. 可通过属性“ListIndex”返回当前选中的列表项的索引D. 可通过属性“ListCount”返回列表框中项目的数目21. 下列符号常量的声明中,()是不合法的A. Const a As Single=1.1B. Const a As Interger="12"C. Const a As Double=Sin(1)D. Const a="OK"22. 以下控件或方法具有输入和输出双重功能的为()A. PrintB. TextboxC. OptionbuttonD. Checkbox23. 若要获得列表框中被选中的列表项的内容,可以通过访问()属性来实现A. NameB. LlistIndexC. ListCountD. Text24. 在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click( )b=5c=6Print a=b+cEnd Sub程序运行后,单击命令按钮,其结果为()A. a=11B. a=b+cC. a=D. False25. 以下Case语句中错误的是()。
第1章习题一、选择题1. B2. A3. B4. A二、填空题1. 事件驱动或消息驱动2. 工程资源管理器、窗体三、问答题1. 11个菜单项。
文件菜单包括新建工程、打开工程、添加工程、移除工程、保存工程、工程另存为、保存窗体文件、窗体文件另存为、打印、打印设置、生成可执行文件等命令项;编辑菜单(命令项略,以下同)、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单、帮助菜单。
2. 可以自行定义。
标准工具栏中有添加工程、添加窗体、菜单编辑器、打开工程、保存工程、剪切、复制、粘贴、查找、撤销、恢复、启动、中断、结束、工程资源管理器、属性窗口、窗体布局窗口、对象浏览器、工具箱、数据视图窗口等按钮。
四、编程题(略)第2章习题一、选择题1. A二、练习题1. S1. 把x赋值给同类型变量t;S2. 把y赋值给x;S3. 把t赋值给y。
2. S1. 输入a、b、c;S2. 如果a<b,则交换a与b的数据;S3. 如果a<c,则交换a与c的数据;S4. 如果b<c,则交换b与c的数据;S5. 输出a、b、c。
3. S1. 输入整数N;S2. 给整数K赋值2;S3. 如果K大于N-1,则转S6;S4.如果N除以K 的余数为0,则转S7;S5. K加1再赋值给K,转S3.;S6. 如果K大于N-1,则N为素数;否则N不是素数。
4. S1. 输入整数N;S2. 将N赋值给K;S3. 给整数nx赋值0;S4. 计算nx乘以10加K除以10的余数,再赋值给nx;S5. 计算K除以10的整数商,赋值给K;S6. 如果K>0,则转S4;否则,转S7;S7. 如果N=nx,则N为回文数,否则N不是回文数。
5.6.第3章习题一、选择题1. D2. C3. A4. B5. D6. A7. B8. D9. B 10. D 11. A . 12. C 13. C 14. C二、填空题1. 标题、引用2. ②④⑤3. 64. GotFocus、Resize5. AddItem、Clear6. Label,CommandButton,OptionButton,CheckBox,Frame、TextBox,ListBox,ComboBox7. PictureBox,Frame8. OptionButton,CheckBox,HScrollBar,VScrollBar、OptionButton、CheckBox,HScrollBar,VScrollBar三、问答题1. 答:对象的只读属性的属性值(如名称属性)只能在设计界面时在属性窗口进行设置;非运行属性的属性值则既可在设计界面时在属性窗口进行设置,也可通过程序代码进行设置与修改。
Visual Basic程序设计技能试题
1、设计一个程序,由用户从键盘上输入两个数,然后求这两个数的和,并将结果显示出来。
根据题目要求设计用户界面如图所示:
2、设置密码。
程序设计者事先设定(在程序中设定)一个密码为“123456”。
要求用户在
一个文本框中输入密码,然后单击“校验密码”命令按钮,程序将核对用户输入的密码与事先设定的密码是否一致。
如果一致,则继续执行其他功能,若不一致输出警告信息。
用户界面如图所示:
3、设计一个程序,窗体中有两个命令按钮和三个标签和两个文本框。
程序运行后若单击“确
定”,则分别在两个文本框中显示系统当前的日期和时间。
用户界面如图所示:
4、设计一个程序,窗体上由一个标签、一个文本框、四个选择框组成。
程序开始运行后,
用户在文本框中输入一段文字,然后按需要单击各选择框,用以改变文本的字体、字型、颜色和大小。
用户界面如图所示:
5、设计一个程序界面如图所示,程序运行后,用户单击某个单选钮,就可将它对应的内容
(星期、日期、月份或年份)显示在文本框中。
6、编写程序,计算+2+3+ (100)
7、编写程序,使能输入如图所示图形。
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.16C.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.V ariant 12.当Winsock控件处于关闭状态时,其State属性的值是()A.1 B.0 C.2D.313.执行指令”Line(200,200)-step(500,500)”后,CurrentX=( )A.500 B.200C.300D.70014.不属于VB数据库引擎的是()A.ODBC B.Jet引擎C .BDED .OLE DB15.全局变量必须在( )中定义A 、标准模块B 、窗体模块C 、类模块D 、任意模块 16.改变驱动器列表框的Drive 属性值,将激活( )事件。
A .ChangeB .ScollC .KeyDownD .KeyUp17.如果将文本框的( )属性设置为True ,则运行时不能对文本框中的内容进行编辑。
A .LockedB .MultiLineC .TabStopD .Visible 18.数学式子Sin25︒写成VB 表达式是( )。
A .Sin25B .Sin (25)C .SIN (25︒)D .Sin (25*3.14/180) 19.下列变量名中合法的是( )A .IF (与系统已定义的标示符同名了)B .7ABC .A[B]7D .AB_720. 要退出For …Next 循环,应使用的语句是( )。
A .ExitB .Exit ForC .ContinueD .Stop Loop 21.在下列选项中,不能将图像装入图片框和图像框的是( ) A .在界面设计时,通过Picture 属性装入B .在界面设计时,手工在图像框和图片框中绘制图形C .在界面设计时,利用剪贴板把图像粘贴上D .在程序运行期间,用LoadPicture 函数把图形文件装入 22.下面选项中,能绘制填充矩形的语句是( ) A .Line (200, 200)-(500, 500),B B .Line (200, 200)-(500, 500), , BFC .Line (200, 200)-(500, 500), BFD .Line (200, 200)-(500, 500)23.ADOrs 为Recordset 对象,从Tabel 中获取所有记录的语句是( ) A .ADOrs.New "Select * From Tabel" B .ADOrs.Open "Select * From Tabel"C .ADOrs.Execute "Select * From Tabel"D .ADOrs. Select "Select * From Tabel"24.当改变驱动器列表框中的驱动器时,为了使目录列表框中的内容同步跟着改变,应当( )A .在Dir1_Change()事件中加入代码Dir1.Path=Drive1.DriveB .在Dir1_Channge()事件中加入代码Drive1.Drive =Dir1.PathC .在Dirve1_Channge()事件中加入代码Dir1.Path=Drive1.DriveD .在Dirve1_Channge()事件中加入代码Drive1.Drive =Dir1.Path 25.VB 程序中通常不会产生错误提示的( )。
A .编译错误 B .实时错误 C .运行时错误 D .逻辑错误 二、填空题(每空1分)1.数学表达式050cos 10写成等价的V isual Basic 表达式为10^0.5*cos(50*3.14/180) 。
2.删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为。
3.Visual Basic程序开发有三种模式,即设计模式、运行模式和中断模式。
4.执行指令Line(200,300)-(400,500)后,CurrentX= 。
设CurrentX=50,CurrentY=100,执行指令“Line(100,20)-Step(300,500)”后,CurrentY = 。
5.ADO数据模型中一般可通过Connection对象的方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
6.已知a=3,b=4,c=5,表达式a.>b and Not c>a Or c>b And c<a+b的值是。
7.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1,所使用的语句为。
8.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从0到5,第二维下标从-2到5,则相应的数组声明语句为。
9.Visual Basic一般用4种类型的文件保存,分别是扩展名为的窗体文件,扩展名为的标准模块文件,扩展名为的类模块文件和扩展名为的工程文件。
10.将图片框PictureBox的AutoSize属性设置成时,图片框能自动调整大小,以适应其中的图片。
11.若窗体Form1左上角坐标为(0,600),右下角的坐标为(800,-200)。
则X轴的正向向,Y轴的正向向。
12.Left(“abcd”,2)函数的返回值是; Right(“abcd”,2)函数的返回值是。
13.Vb应用程序与数据库进行通信的主要机制称为。
14.Winsock控件主要用来编制或协议的通话程序。
15.假设ADOcn为一个Connection对象,那么在VB程序中声明ADOcn的语句是。
16.在VB中,将Foxpro称为,Access称为,SQL Server 称为。
17.常用的VB网络编程控件主要有、、三种。
18.以(600,600)为圆心,以800为半径,用ForeColor颜色绘制一个圆形,其实现的代码是。
19.以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。
将程序段补充完整。
Private Sub Drive1_Change()End SubPrivate Sub Dir1_Change()End Sub20. 在Visual Basic程序中实现复制文件”d:\text.doc”到e:盘根目录下的语句为。
三、阅读程序题阅读下列程序并写出程序运行结果1.Private Sub Command1_Click()x = 0Do While x < 20x = (x + 1) * (x +3)n = n + 1LoopText1.Text = Str(n)Text2.Text = Str(x)Text3.Text = Val(Text1.Text) + Val(Text2.Text)End Sub文件框Text3的结果是:2. Private Sub Command1_Click()Dim x As IntegerStatic s As Integerx = Val(InputBox("请输入一个正整数="))If x < 5 Thens = s * xElses = s + xEnd IfText1.Text = "s=" & Str(s)End Sub程序运行时连续3次单击Command1,且设输入的数据为6、5、4时,分别写出文本框Text1的值。
3.Private Sub Form_Click()Dim A(1 To 3) As StringDim c As Integer,j As IntegerA(1) = “3”A(2) = “6”A(3) = “9”c=0For j=1 to 3c = c + Val(A(j))Next jPrint cEnd Sub写出程序运行时单击窗体后,窗体Form1上的结果:4.Private Sub Command1_Click()Dim A(2 To 7) As IntegerDim b As IntegerFor b = 2 To 7A(b) = bNext bText1.Text = A(b - 2)End Sub程序运行后,单击命令按纽文本框Text1的结果是:5.Sub test(i As Integer)i = i + 2End SubPrivate Sub Form_Click()Dim x As Integerx = 6Print "x="; xCall test(x)Print "x="; xEnd Sub6.Private Sub Form_Click()a = 1:b = 1Print "A="; a; ",B="; bCall mult(a)Print "A="; a; ",B="; bEnd SubPrivate Sub mult(x)x = 3 + xb = 4 + bEnd Sub7.Private Sub Form_Click()Dim i As Integer, a As Integerk = 0For i = 1 To 6If i > 3 Thena = a + 5Elsea = a + 2End IfNext iPrint i, aEnd Sub写出程序运行时单击窗体后,Form1上的输出结果。