《VB语言程序设计》习题参考答案
visual basic 程序设计课后习题参考答案

[Exit Function] End Function
(4). Function 过程的调用方法: ①直接调用 像使用 VB 内部函数一样,只需写出函数名
和相应的参数即可 ②用 Call 语句调用 与调用 Sub 过程一样来调用 Function
过程,当用这种方法调用 Function 过程时,将会放弃返回值 3、简述 VB 过程中参数传递的两种方式。
第五章 数 组
4
一、选择题
1 2 3 4 5 6 7 8 9 10 DADEBBCCC A
二、填空题
1 2、12、1、3、-1、2 0123 2222
2 2101 4444
3 name、index 4 preserve、erase 5 ubound、lbound
第六章 过 程
一、选择题
1 2 3 4 5 6 7 8 9 10 DCDCBABAB D 11 12 13 14 15 16 17 18 19 20 ACCDABCDB C
二、填空题
1 bas 2 形式、实际 3 a()、Ubound(b)、n=n-1 4 30、70 5 fedcba、static
三、简答题
6 static 7 static 8 12、7 9 visual basic 程序设计 10 -100
1、简述事件过程和通用过程的含义和联系。
5
VB 应用程序是由过程组成的,过程是完成某种特殊功能的一 组独立的程序代码。VB 中的过程有两大类:事件过程和通用过程
Visual basic 程序设计习题参考答案
第一章 Visual basic 程序设计
一、选择题
1 2 3 4 5 6 7 8 9 10
DC
CDCBAC B
《VB程序设计》课后题答案

第二章一、问答题1.叙述建立一个完整的应用程序的过程。
答:界面设计编写事件过程代码运行、调试保存文件2.当建立好一个简单的应用程序后,假定该工程仅有一个窗体模块。
问该工程涉及到几个文件要保存?若要保存该工程中的所有文件,正确的操作应先保存什么文件?再保存什么文件?若不这样做,系统会出现什么信息?答:涉及到两个文件要保存。
先保存窗体文件(.frm),再保存工程文件(.vbp)。
若先保存工程文件,系统也会先弹出“文件另存为”对话框,要求把窗体文件先保存。
3.假定在W indows环境中,要保存工程文件时,若不改变目录名,则系统默认的目录是什么?答:VB984.当标签框的大小由Caption属性的值进行扩展和缩小,应对该控件的什么属性进行何种设置?答:将标签的Autosize设置为True.5.VB6.0提供的大量图形文件在哪个目录下?若你的计算机上没有安装,则怎样安装这些图形文件?答:VB6.0提供的图形文件在Graphics目录。
6.在VB6.0中,命令按钮的显示形式可以有标准和图形两种选择,这通过什么属性来设置?若选择图形的,则通过什么属性来装入图形?若已在规定的属性里装入了某个图形文件,但该命令按钮还是不能显示该图形,而显示的是Caption属性设置的文字,怎样改正?答:按钮Style的属性设置为Graphical(或1)。
通过Picture属性来装入图形。
不能显示图形是因为Style的属性设置为Standard(或0),只要改为Graphical(或1),一般还将Caption 属性的值设置为空。
7.标签和文本框的区别是什么?答:文本是否可编辑。
8.当窗体上有三个文本框和一个命令按钮,若程序运行时,需把焦点定位在第三个文本框处,应对何控件的什么属性进行何种设置?答:应对Text3控件进行Text3.TabIndex=0的设置。
9.简述文本框的change与keypress事件的区别。
答:文本框内容变化,change与keypress事件都会发生,所不同的是Keyprees还将返回一个Keyasii参数10.当某文本框输入数据后(按了回车键),进行判断认为数据输入错,怎样删除原来数据?怎样使焦点回到该文本框重新输入?答:假定文本框的名称为Text1,则事件过程如下:Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenIf 出错条件判断成立ThenText1=””…先删除原来数据Text1.SetFocus …焦点回到Text1End If……End IfEnd Sub11.在程序运行前,对某些控件设置属性值,除了在窗体中直接设置外,还可以通过代码设置,这些代码一般放在什么事件中?例如,程序要将命令按钮定位在窗体的中央,请写出事件过程。
vb程序设计试题及答案

vb程序设计试题及答案一、选择题(每题2分,共20分)1. 在VB中,下列哪个选项是正确的数据类型?A. IntegerB. DoubleC. StringD. All of the above答案:D2. VB中用于声明变量的关键字是?A. DimB. DeclareC. SetD. All of the above答案:A3. 在VB中,下列哪个选项是正确的循环语句?A. ForB. DoC. WhileD. All of the above答案:D4. VB中用于打开文件的函数是?A. OpenB. CloseC. WriteD. Read答案:A5. 在VB中,下列哪个选项是正确的条件语句?A. If...ThenB. Select CaseC. Do WhileD. All of the above答案:A6. VB中用于创建新窗体的语句是?A. Form.ShowB. Form.NewC. Form.CreateD. Form.Open答案:A7. VB中用于声明常量的关键字是?A. ConstB. DimC. StaticD. Option答案:A8. 在VB中,下列哪个选项是正确的数组声明?A. Dim arr(5) As IntegerB. Dim arr() As IntegerC. Dim arr As IntegerD. Dim arr(5) As String答案:A9. VB中用于结束程序的语句是?A. EndB. ExitC. CloseD. All of the above答案:B10. VB中用于捕获异常的语句是?A. Try...CatchB. On ErrorC. CatchD. All of the above答案:B二、填空题(每题2分,共20分)1. 在VB中,声明一个名为myVar的变量,其类型为字符串,应该使用语句________。
答案:Dim myVar As String2. VB中,用于定义一个名为myFunction的函数,返回值为整数,应该使用语句________。
VB程序设计教程课后参考答案概要

VB程序设计教程课后参考答案习题一一、填空题1.对象、事件驱动2.窗体、控件3.属性4.属性窗口、编程设置5.事件过程6.对象名、下划线、事件名7.Form_click8.Print form1.print “我的VB”9.主窗口、属性、工具箱、代码、窗体、工程资源管理10.菜单、快捷键二、选择题1.C 2. A 3. B 4. B 5. D 6. B C 7. A 三、简答题(略)习题二一、选择题1. D2. C3. C4. B5. C6. B7. C8. B 9. A 10. B 11. B 12. C 13. D 14. B15. A 16. A 17. A 18. A 19. B 20. C 21. A22. B 23. B 24. A 25. C 26. A 27. B 28. B29. C 30. B 31. D 32. D 33. C二、填空题1.Controlbox、Maxbutton、Minbutton2.Multiline TRUE3.******4.单文档界面(SDI)多文档界面(MDI)5.窗体显示6.Passwordchar7._change()三、编程题(略)习题三一、基础知识题(略)二、填空题1.整型、长整型、单精度、双精度2.(x mod 10)*10+x\103.Sin(3.14*15/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)4.(a+b)/(1/(c+5)-c*d/2)5.X mod 5=0 or x mod 9=06.False7.-4、3、-3、3、-4、48.CDEF10.TRUE11.变量、属性12.‘_ :13.(略)14.“”#15.Public、通用/模块、Dim、static、private16.+ 、&、+17.Now() 、time()、日期18.Inputbox()、字符串、val()19.Msgbox()三、选择题1.B 2. C 3. A 4. B D此题有误 5. B 6. A7. D 8. B 9. B 10. C 11. D 12. B13. C 14. B 15. A 16. C 17.A 18. D19. A 20. D 21. A 22. C 23. C 24. D25. A 26. D 27. D 28. B 29. C 30. B31. C 32. B 33. C D此题有误34. C 35. A36. D 37. C 38. A 39. B 40. A 41. C42. C 43. D 44. C 45. D 46. A四、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%, delta%Dim x1#, x2#, x#a = Val(InputBox("please input data to a:", "info", 1))b = Val(InputBox("please input data to b:", "info", 1))c = Val(InputBox("please input data to c:", "info", 1))If a = 0 And b <> 0 Thenx = -c / bPrint "所构成的方程是:" & b & "x" & "+" & c & "=0"Print "该一元一次方程的根是:", xEnd IfIf a = 0 And b = 0 ThenPrint "很抱歉,不能构成合法的方程!"End IfIf a <> 0 Thendelta = b * b - 4 * a * cIf delta >= 0 Thenx1 = (-b + Sqr(delta)) / (2 * a)x2 = (-b - Sqr(delta)) / (2 * a)Print "所构成的方程是:" & a & "x2" & "+" & b & "x" & "+" & c & "=0"Print "该方程的根是:"Print "第一个根是:", x1Print "第二个根是:", x2Else2Print "该方程有两个虚根:"Print "第一个虚根是:" & -b / (2 * a) & "+" & Sqr(Abs(delta)) / (2 * a) & "i"Print "第二个虚根是:" & -b / (2 * a) & "-" & Sqr(Abs(delta)) / (2 * a) & "i" End IfEnd IfEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i%, s%s = 0For i = 1 To 99 Step 2s = s + iNextPrint sEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#s = 0For i = 1 To 100s = s + 1 / i * (-1) ^ (i + 1)NextPrint sEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim i%, n%Dim t#, s#n = Val(InputBox("please input data:", "info", 5))s = 0t = 1For i = 1 To nt = t * is = s + tNextPrint sEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim a%, b%, c%Dim p#, s#a = Val(InputBox("please input data to a:", "info", 3))b = Val(InputBox("please input data to b:", "info", 4))c = Val(InputBox("please input data to c:", "info", 5))If (a + b > c And Abs(a - b) < c) Or (a + c > b And Abs(a - c) < b) Or ((b + c) > a And Abs(b - c) < a) Thenp = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c))Print "三角形的面积是:" & sElsePrint "很抱歉,不能构成合法的△三角形!"End IfEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim ji%, tu%For ji = 1 To 27For tu = 1 To 27If ji * 2 + tu * 4 = 78 And ji + tu = 27 ThenPrint "鸡的个数是:" & jiPrint "兔的个数是:" & tuEnd IfNextNextEnd Sub7.Option ExplicitPrivate Sub Command1_Click()Dim i%Dim s#, t#s = 10t = 10For i = 1 To 7t = t * 0.4s = s + t * 2NextEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i%, fs%, max%, min%, s%Dim ave#fs = Val(InputBox("please input score:", "info", 90))s = fsmax = fsmin = fsFor i = 2 To 7fs = Val(InputBox("please input score:", "info", 90))If max < fs Thenmax = fsEnd IfIf min > fs Thenmin = fsEnd Ifs = s + fsNextave = (s - max - min) / 5Print "该运动员的平均成绩是:" & aveEnd Sub9. ‘同学们,这道题方法很多,主要考察你对选择结构的理解,我给出其中一种方法。
VB程序设计 习题及答案第4章 选择结构程序设计

第4章选择结构程序设计4.1 写出数学式|x|<2.5×10-2对应的Visual Basic表达式。
【答案】x<2.5e-2 and x>-2.5e-24.2 逻辑运算符And、Or和Not的优先级最高的是哪一个。
【答案】Not4.3 已知 W=10 X=9 Y=8 Z=7 ,求下列表达式的结果。
(1) W>X And Y<=Z OR X>Y(2) X>Z Or W=Y AND Y<X(3) Not (W>Y And X=Z)(4) Not (Y<>X Or W*3>Z)【答案】(1) True(2) True(3) True(4) False4.4 写出下列十进制整数逻辑运算的结果:(1) X = 23 And 14(2) X = 23 Or 14(3) X = -1 And 19(4) X = -1 Or 10(5) X = Not -1【答案】(1) 6(2) 31(3) 19(4) -1(5) 04.5 已知变量X和Y的值分别为5、6,编写程序,交换变量X和Y的值。
【参考答案】程序代码设计Private Sub Form_Click()x = 5: y = 6t = x: x = y: y = tForm1.Print "x="; x, "y="; yEnd SubPrivate Sub Form_Load()Form1.AutoRedraw = TrueForm1.Print "x = 5", "y = 6"Form1.Print "单击窗体交换x,y的值"图4-1 程序运行结果End Sub程序运行结果如图4-1所示:4.6 从键盘输入一个学生的三科成绩,计算总分,并找出最高分。
【参考答案】(1)用户界面设计(2)控件属性设置(略)(3)程序代码设计Private Sub Command1_Click()g1 = Val(Text1.Text)g2 = Val(Text2.Text)g3 = Val(Text3.Text)Var = (g1 + g2 + g3) / 3g = g1If g < g2 Then g = g2If g < g3 Then g = g3Text4.Text = VarText5.Text = gEnd Sub图4-2 程序运行结果程序运行结果如图4-2所示。
VB程序设计教程 第四版 课后答案

vb课后习题答案第一章习题参考答案一、填空题1、对象事件驱动2、编译运行模式解释运行模式二、简答题1、简述VB的特点。
答:①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入2、简述VB的安装过程。
答:①向光驱中放入VB安装光盘;②计算机将运行自动安装程序,若没有,执行VB 目录下的Setup.exe;③根据提示逐一回答问题,并点击“下一步”;④点击“完成”;2、如何启动VB。
答:三种方法:①单击“开始”按钮,选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击;②双击桌面上的VB6.0快捷图标;③在“开始”菜单的运行对话框中输入命令来启动VB;第二章习题参考答案一、选择题:1-10、 DCACD BCBBC11-20、BADCA BBAAB21-29、AACBB CDDC二、填空题1.窗体、控件2.属性值3.属性窗口设置、代码窗口设置4.事件过程5.对象名、下划线、事件名6. Form_Click第三章习题参考答案一、选择题1、B2、C3、A4、B5、A6、C7、C二、填空题1、 11字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。
String、Byte、Integer、Long、Single、Double、Currency、Boolean、Date、Object、Variant2、双引号(英文)、#3、 ASCII、1、24、 public、通用、Dim、Static、Private、Static5、 &、+、+6、 Now()、Time、日期型三、解答题1、(3)2、(1 )3、(1)常量(关键字)(2)字符型常量(3)逻辑型常量(4)变量(5)字符串常量(6)变量(7)字符串常量(8)变量(9)日期型常量(题目应是#11/16/1999#)(10)数值型常量(单精度)4、315、(1)(1+y/x)/(1-y/x) (2)x^3+3*x*y/(2-y)(3)sqr(abs(a*b-c^3)) (4)sqr(s*(s-a)*(s-b)*(s-c))6、7、(1)13 (2)17(3)#1999-11-12# (4)zxy123ABC(3)5.25 (4)27)16 (8)“-459.65” (9)510、(4)11、(2)12、(4)第四章习题参考答案一、选择题:1—7: DAABBCD二、填空题1. 500.00%2.将字号扩大为原来的二倍3. B三、编程题(略)1.文本框、标签和命令按钮的名称分别为text1、label1、command1Private Sub Command1_Click()Label1.caption=text1.textCommand1.caption=text1.textEnd Sub2.单价、数量、折扣和应付款对应的文本框的名称分别为:text1、text2、text3和text4,计算和清除命令按钮的名称分别为:command1和command2。
VB语言程序设计习题2

《VB语言程序设计》习题2一、单项选择题1.在Visual Bsaic代码中,将多个语句合并写在一行上的并行符是()。
A、撇号(')B、冒号(:)C、感叹号(!)D、星号(*)2.通过()可以在设计时直观地调整窗体在屏幕上的位置。
A、代码窗口B、窗体布局窗口C、窗体设计窗口D、属性窗口3.通过改变选项按钮(OptionButton)控件的()属性值,可以改变按钮的选取状态。
A、ValueB、StyleC、AppearanceD、Caption4.为了清除列表框中的所有内容,应使用的方法是()。
A、ClsB、ClearC、RemoveD、RemoveItem5.文本框能输入()。
A、控制字符B、ASCII字符C、回车D、文本和数字6.下列控件中,没有Caption属性的是()。
A、框架B、列表框C、复选框D、单选按钮7.文本框控件最多能处理()字节。
A、32KB、64KC、128KD、16K8.以下能够触发文本框Change事件的操作是()。
A、文本框失去焦点B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容9.要将一个组合框设置为简单组合框(Simple Combo),则应将其Style属性设置为()。
A、0B、1C、2D、310.要使标签所在处透明显示背景,应把BackStyle属性设置为()。
A、0B、1C、TureD、False11.用()属性可唯一标志控件阵列中的某一个控件。
A、NameB、IndexC、CaptionuD、TabIndex12.组合框控件是将()组合成一个控件。
A、列表框控件和文本框控件B、标签控件和列表框控件C、标签控件和文本框控件D、复选框控件和选项按钮控件13.()使图象(Image)控件中的图象自动适宜控件的大小。
A、将控件的AutoSize属性设为TrueB、将控件的AutoSize属性设为FalseC、将控件的Stretch属性设为TrueD、将控件的Stretch属性设为false14.如果要在命令按钮上显示图形文件,应设置命令按钮的()。
VB程序设计试题 及 参考答案

VB程序设计及参考答案一、单选题(共20分,每小题1分)1、要改变控件的宽度,应修改该控件的()属性。
(A)TOP (B)width (C)Left (D)Height2、将命令按钮Command1设置为不可见,应修改该命令按钮的()属性。
(A)Visible (B)Value (C)Caption (D)Enabled3、()对象具有clear方法。
(A)图片框(B)窗体(C)复选框(D)列表框4、启动VB后,就意味着要建立一个新()。
(A)窗体(B)文件(C)工程(D)程序5、下列()对象不具有Clear方法。
(A)列表框(B)组合框(C)剪贴框(D)图片框6、组合框有三种风格,它们由Style属性所决定,其中为简单组合框时,Style 属性值应为()(A)0 (B)1 (C)2 (D)37、下列可调整图片框的大小以适合图片的属性是()(A)Stretch (B)autosize (C)picture (D)oledropmode 8、要想清除文本框中的内容则可利用()进行。
(A)Caption (B)Text (C)Clear (D)Cls9、在文本框控件中将Text的内容全部显示为所定义的字符的属性是()。
(A)Password (B)PasswordChar(C)需要编程来实现(D)以上都不是10、Visual Basic是一种面向对象的程序设计语言,所采用的编程机制是()。
(A)从主程序开始执行(B)按过程顺序执行(C)事件驱动(D)按模块顺序执行11、下列四项中合法的变量名是()。
(A)a-bc (B)a_bc (C)4abc (D)integer12、无论何种控件,共同具有的属性是()(A)Text (B)Name (C)Caption (D)ForeColor13、有程序代码如下:Text1.Text = "Visual Basic程序设计"则Text1、Text ,和"Visual Basic程序设计"分别代表()。
vb程序设计书习题和参考答案

vb程序设计书习题和参考答案练习题习题一一、判断题1.Visual Basic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2.面向对象的程序设计是一种以对象为基础,由事件驱动对象的编程技术。
3.事件是由Visual Basic预先定义的对象能够识别的动作。
4.新建工程时系统会自动将窗体标题设置为Form1。
5.控件的属性值不能够在程序运行时动态地修改。
6.决定对象是否可见的属性为Visible属性,决定对象可用性的属性是Enabled属性。
7.保存Visual Basic文件时,若一个工程包含多个窗体或模块,则系统先保存工程文件,再分别保存窗体或模块文件。
8.单击“启动”菜单项将窗体装入内存时,一定触发窗体的Load事件。
9.“事件过程”是用来完成事件发生后所要执行的程序代码。
10.在打开某窗体时,初始化该窗体中的各控件,应选用Load事件。
二、选择题1.工程文件的扩展名为。
A、.frxB、.basC、.vbpD、.frm2.下列不属于对象的基本特征是。
A、属性B、方法C、事件D、函数3.在设计模式双击窗体将显示的窗口是A、工程窗口B、工具箱C、代码窗口D、属性窗口4.VB中运行程序的快捷键是A、F2B、F5C、Alt+F3D、F85.改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的文件扩展名是A、.exeB、.basC、.frxD、frm7.设置窗体的字体用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic 9.下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10.VB编制的程序保存在磁盘上,至少会产生何种文件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1.新建一个工程,单击窗体时,在窗体上显示“欢迎使用Visual Basic程序”。
(完整word版)VB程序设计试题题库及答案.doc

VB程序设计笔试题题库一、选择题1 下列常量中,是 Integer类型常量的是(C )。
A、123&B、-38844C、123%D、327682 下面选项中 () 是字符连接运算符 . ( A )A、&B、AndC、%D、Mod3下面关于 VB 的集成开发环境( IDE )的叙述中,不正确的是(B )。
A、IDE是设计、调试、运行 VB程序的工具。
B、用户不能随意关闭 IDE中的窗口。
C、" 窗体设计 " 窗口是用来设计应用程序界面(窗体)的。
D、打开 / 关闭各窗口的命令主要在 IDE的" 视图 " 菜单中。
4 len( “程vb序设计”)=( C ) 。
A、 5B、2C、 6D、105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、7B、0C、2D、46 赋值语句 A=123 + Mid$( “123456”,3,2)执行后, A= ( A )。
A、157B、12334C、123D、"12334"7 在一个语句内写多条语句时 , 用来分隔每条语句的符号是 ( C ).A、,B、;C、:D、、8 将逻辑型数据转换成整型数据时,转换规则是( D )。
A、将 True 转换为 1 ,将 False 转换为 0B、将 True 转换为 1 ,将 False 转换为 -1C、将 True 转换为 0 ,将 False 转换为 -1D、将 True 转换为 -1 ,将 False 转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是 ( D ).A、SINB、4^5C、3*4D、x+110 如果 x=2 ,则表达式 x+1>2 Or sin(x)>0.9 And 3>x+3 的值( B )。
A、不能计算B、 TrueC、5D、False11 随机产生 [10,50] 之间整数的正确表达式是( D )。
VB程序设计练习题及参考答案

VB程序设计练习题及参考答案visualbasic程序设计练习题一、填空1.当进入vb集成环境,发现没有显示“工具箱”窗口时,应选择菜单的选项,使“工具箱”窗口显示。
2.在BMP图形文件之后加载命令按钮的图片属性时,所需的图形不会显示在选项按钮上,因为该属性未设置为1(图形)。
3.在文本框中,通过属性能获得当前插入点所在的位置。
4.要编辑文本框中的现有内容,请按键盘上的键,但该键不起作用,因为该属性已设置为true。
6.在vb中,1234、123456&、1.2346e+5、1.2346d+5四个常数分别表示、、、。
7.整数变量x存储两位数。
要交换两个数字的位置,例如,13变为31,表达式为。
8.表示x是5的倍数或是9的倍数的逻辑表达式为。
9.如果a=3.5、B=5.0、C=2.5和d=true,则表达式a>=0anda+C>B+3ornotd的值为。
10.int(-3.5)、int(3.5)值分别是、。
11.表达式ucase(mid(\的值是。
12.要将以下语句循环20次,循环变量的初始值应为:fork=to-5step-213.下面程序段显示个“*”。
fori=1到5 Forj=1打印\nextjnexti14.复选框属性设置为2-grayed时,变成灰色,禁止用户选择。
15.属性设置为1,单选按钮和复选框的标题显示在左边。
16.属性设置为1,单选按钮和复选框以图形方式显示。
17.程序运行时,如果框架属性设置为false,框架标题为灰色,表示框架内的所有对象均被屏蔽,不允许用户对其进行操作。
18.列表框中项目的序号是从开始的。
19.指示列表框中最后一项的序列号。
20.方法可以清除列表框中的所有内容。
21.组合框是组合了文本框和列表框的特性而形成的一种控件。
风格的组合框不允许用户输入列表框中没有的项。
22.VB程序存储在模块中,模块分为______________三种类型。
123.如果希望每15秒生成一次计时器事件,interval属性应设置为。
VB程序设计练习题及参考答案

Visual Basic程序设计练习题1.Visual Basic是一种面向对象的可视化程序设计语言,采取了A的编程机制。
A.事件驱动B.按过程顺序执行C.从主程序开始执行D.按模块顺序执行2.在Visual Basic中最基本的对象是C,它是应用程序的基石,是其他控件的容器。
A.文本框B.命令按钮C.窗体D.标签3.多窗体程序是由多个窗体组成。
在缺省情况下,VB在应用程序执行时,总是把B 指定为启动窗体。
A.不包含任何控件的窗体B.设计时的第一个窗体C.包含控件最多的D.命名为Frm1的窗体4.若有程序代码如下:text1.text="Visual Basic"则:text1,text和"Visual Basic" 分别代表C。
A.对象,值,属性B.对象,方法,属性C.对象,属性,值D.属性,对象,值5.Visual Basic是一种面向对象的程序设计语言,A不是面向对象系统所包含的三要素。
A.变量B.事件C.属性D.方法6.在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体中的窗口、属性窗口外,必不可少的窗口是C。
A.窗体布局窗口B.立即窗口C.代码窗口D.监视窗口7.保存新建的工程时,默认存放的位置是B。
A.My Documents B.VB98 C.\ D.Windows 8.若要使标签控件显示时不覆盖其背景内容,要对D属性进行设置。
A.BackColor B.BorderStyle C.ForeColor D.BackStyle 9.若要使命令按钮不可操作,要对A属性设置。
A.Enabled B.Visible C.BackColor D.Caption 10.文本框没有D属性。
A.Enabled B.Visible C.BackColor D.Caption 11.不论何控件,共同具有的是B属性。
A.Text B.Name C.ForeColor D.Caption 12.要使Form1窗体的标题栏显示“欢迎使用VB”,以下D语句是正确的。
vb程序设计课后习题答案

vb程序设计课后习题答案VB程序设计课后习题答案在学习VB程序设计过程中,课后习题是巩固知识、提高编程能力的重要环节。
本文将为大家提供一些VB程序设计课后习题的答案,希望能够帮助大家更好地理解和掌握相关知识。
1. 编写一个VB程序,实现计算两个数的和、差、积、商的功能。
答案:```vbPrivate Sub btnCalculate_Click()Dim num1 As DoubleDim num2 As Doublenum1 = CDbl(txtNum1.Text)num2 = CDbl(txtNum2.Text)lblSum.Caption = "和:" & num1 + num2lblDifference.Caption = "差:" & num1 - num2lblProduct.Caption = "积:" & num1 * num2If num2 <> 0 ThenlblQuotient.Caption = "商:" & num1 / num2ElselblQuotient.Caption = "除数不能为0"End IfEnd Sub```2. 编写一个VB程序,实现判断一个数是否为素数的功能。
答案:```vbPrivate Sub btnCheckPrime_Click()Dim num As IntegerDim i As IntegerDim isPrime As Booleannum = CInt(txtNum.Text)isPrime = TrueIf num < 2 ThenlblResult.Caption = "不是素数"Exit SubEnd IfFor i = 2 To Int(Sqr(num))If num Mod i = 0 ThenisPrime = FalseExit ForEnd IfNext iIf isPrime ThenlblResult.Caption = "是素数"ElselblResult.Caption = "不是素数"End IfEnd Sub```3. 编写一个VB程序,实现将一个字符串中的大写字母转换为小写字母,小写字母转换为大写字母的功能。
vb程序设计试题(含答案)

第一套试题一、选择题〔每题 2 分,共 30 分〕1.在 VB环境中,工程文件的扩展名是 ( C )〔 A〕 .frm〔B〕.bas〔C〕.vbp〔D〕.frx2.下面 4 项中不属于面向对象系统三要素的是 ( A )〔 A〕变量〔B〕事件〔C〕属性〔D〕方法、/ 、Mod、 * 这 4 个算述运算符中,优先级别最低的是( C )〔 A〕 \〔B〕/〔C〕Mod〔D〕*4.要使 Print 方法在 Form_Load事件中起作用,要对窗体的 ( C ) 属性进行设置〔 A〕 BackColor〔B〕ForeColor〔 C〕 AutoRedraw〔D〕Caption5.不管何控件,共同具有的属性是 ( B )〔 A〕 Text〔B〕Name〔 C〕 ForeColor〔D〕Caption6.要使 Form1窗体的标题栏显示“欢送使用 VB〞,以下语句正确的选项是 ( D )A〕 Form1.Caption= “欢送使用 VB〞〔B〕Form1.Caption= ˊ欢送使用 VBˊ〔 C〕 Form1.Caption= 欢送使用 VB〔D〕Form1.Caption=〞欢送使用VB〞7.VB 提供了结构化程序设计的 3 种根本结构,这 3 种根本结构是 ( D )〔 A〕递归结构,选择结构,循环结构〔B〕选择结构,过程结构,顺序结构(C〕过程结构,输入、输出结构,转向结构〔D〕选择结构,循环结构,顺序结构8. 给变量赋值 a=123+MID(“123456〞 ,3,2) ,a 变量中的值是 ( D )〔 A〕“ 12334〞〔B〕123〔C〕12334〔D〕157 下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于 40 岁条件的人数,不正确的语句是 ( D )〔 A〕 If sex= “男〞 And age<40 And InStr(duty,“教授〞)>0 Then n=n+1B〕 If sex= “男〞 And age<40 And (duty= “教授〞 Or duty= “副教授〞 ) Then n=n+1〔 C〕 If sex= “男〞 And age<40 And Right(duty,2)=“教授〞Then n=n+1〔 D〕 If sex=“男〞 And age< 40 And duty= “教授〞 And duty= “副教授〞 Thenn=n+110. 假设要去除列表框的所有内容,可用来实现的方法是( C )〔 A〕 RemoveItem〔B〕Cls〔 C〕 Clear〔D〕以上均不可以11.要使时钟控件 Timer1 的 Timer 事件不起作用,以下正确的语句是 ( B ) 〔 A〕 Timer1.Visible=False〔B〕Timer1.Enabled=False〔 A〕 Timer1.Interval=1000〔D〕Timer1.Index=0引用列表框 (List1) 最后一个数据项应使用的语 ( B )(A)List1.List(List1.ListCount) (B)List1.List(List1.ListCount-1)(C)List1.List(ListCount)(D)List1.List(ListCount-1)13.如下数组声明语句,正确的选项是 ( B )〔 A〕 Dim a[3,4]As Integer 〔 C〕 Dim a(n,n) As Integer 〔B〕Dim a(3,4)As Integer 〔D〕Dim a(3,4)As Integer14.下面子过程语句说明合法的是 (A 、D )〔 A〕 Sub f1(ByVal n%) 〔 C〕 Function f1%(f1%) 〔B〕Sub f1(n%)As Integer 〔D〕Function f1(ByVal n%)15.假定有如下的命令按钮 ( 名称为 Command1)事件过程:Private Sub Command1_Click()x=InputBox(" 输入: " , " 输入整数 ")MsgBox"输入的数据是:〞,,〞输入数据:"+xEnd Sub16. 程序运行后,单击命令按钮,如果从键盘上输入整数10,那么以下表达中错误的是(A)〔 A〕x 的值是数值 10〔B〕输入对话框的标题是“输入整数〞(C〕信息框的标题是“输入数据: 10〞〔 D〕信息框中显示的是“输入的数据是:〞二、填空题〔每题 2 分,共 20 分〕1、当进入 VB集成环境后,发现没有显示“工具箱〞窗口,应选择视图菜单的工具箱选项,使“工具箱〞窗口显示。
VB程序设计练习册参考答案

参考答案第1章Visual Basic 简介一、选择题1、B2、C3、A4、D5、C6、A7、D8、C9、D 10、B11、C 12、B二、填空题1 过程对象事件驱动2 学习版专业版企业版企业版3 Alt+F4 Alt+Q4 设计运行中断5 设置在应用程序运行时,各窗体在屏幕上的显示位置6 内部(标准)7 资源管理器8 编译方式解释方式9 选择“视图/工具箱”命令10 print 或?“大家都来学用Visual Basic”11按字母序按分类序12编辑代码三、思考题略第2章Visual Basic程序设计概述一、选择题1、A2、A3、D4、D5、D6、C7、A 8、C 9、A 10、C 11、B 12、D13、C 14、C 15、B 16、B 17、D 18、B三、编程题1、(1)建立应用程序用户界面。
选择”新建”工程,进入窗体设汁器,在窗体中增加一个标签控件Labe11和两个命令按钮 Commandl 、 Comlnand2。
(2)设置对象属性,见表。
(可自由设置)3编写代码private sub command1_clicklabel1.visible=false1 窗体 控件2 Left Top Width Height3 Ctrl 或shift4 Scrollbars Multiline True Passwordchar5 事件过程6 在属性窗口设置 在代码窗口设置7 对象名 下划线 事件名8 Form_Click9 Form1.Hide10 界面设计 属性设置 代码编写 保存运行11 窗体文件 工程文件12 部件13 窗体文件 模块文件 类模块文件private sub command2_clicklabel1.visible=trueend sub2、Private Sub Command1_ClickIf Text1.Text<>””And Text2.Text<>””Then ′组合条件判断文本框是否为空Form1.Caption=Text1.Text & ″,″& Label2.Caption & ″″& Text2.Text End IfEnd Sub第3章Visual Basic程序设计基础一选择题1.B2.C3.D4.B5.B6.B7.D8.D9.C10.C11.D 12.C 13.D 14.D 15.A 16.D 17.D 18.D 19.C 20.C21.A22.D23.B24.A 25.B 26.A二、填空题1 our name is2 13 True4 字母数字下划线2555 56 07 Logx/log10/0.5+x^2或者Logx/log10/0.5+x*x8 0,1,2,3,49 x>=0 and x<10010 511 false12 6三、编程题1.提示:Ucase、Lcase的使用2.提示:属性设置中,“计算”按钮的default属性设为True.“清除”按钮的Cancel属性设为True.第4章数据输入输出一、选择题1、D2、A3、A4、B5、D6、B7、C 8、C 9、D 10、D二、填空题1. 1+1= 22+2=42. 500.00%3.将当前字体放大两倍4. 20-11-025. 11 1三、编程题1.提示:(1)流程图。
VB程序设计试题及答案(一)-vb程序设计答案

VB程序设计试题及答案(一)一、单选题1。
VB6.0是一种面向B 的编程环境。
(A)机器(B) 对象(C)过程(D)应用2。
要使FormI窗体的标题栏显示”欢迎使用VB",以下D 语句是正确的。
(A) Forml.Caption=“欢迎使用VB”(B)Forml。
Caption='欢迎使用VB’(C) Forml。
Caption=欢迎使用VB(D)Forml.Caption="欢迎使用VB"3。
若要使命令按钮不可操作,要对A 属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI,可以通过C 事件获得输入键值的ASCII码。
(A) Change (B)LostFocus(C)KeyPress (D) GotFocus5。
下面A 是合法的变量名.(A)X_yz (B) 123ab。
(C) integer (D) X—Y6。
以下关系表达式中,其值为False的是A 。
(A)"ABC”>"AbC" (B) ”女”>”男"(C)"BASIC”=UCase("basic) (D) ”123”〈"23”7. 为了给x、y、z三个变量赋初值1,下面正确的赋值语句是A 。
(A) x=1:y=1:z=1 (B)x=1,y=1,z=1(C)x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构,三种基本结构是D 。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9。
下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是 D .(A) If sex="男" And age=4O And InStr(duty,”教授")〉O Then n=n+l(B) If sex=”男” And age=4O And (duty=”教授” Or duty="副教授”)Then n=n+l(C) If sex="男" And age=4O And Right(duty,2)=”教授” Then n=n+l(D) If sex="男” And age=4O And duty="教授" And duty="副教授" Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D .(A) Do While…Loop循环和Do…Loop Until循环至少都执行一次(B)Do While…Loop循环和Do…Loop Until循环可能都不执行(C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行(D)Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次11.以下B 是正确的For…Next结构。
VB语言程序设计-4套作业参考答案

第1套您已经通过该套作业,请参看正确答案1、与传统的程序设计语言相比,Visual Basic语言最突出的特点是()。
A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术参考答案:C您的答案:C2、Visual Basic集成环境的主窗口中不包括()。
A.标题栏B.菜单栏C.状态栏D.工具栏参考答案:C您的答案:C3、Visual Basic窗体设计器的主要功能是()。
A.建立用户界面B.编写源程序代码C.画图D.显示文字参考答案:A您的答案:A4、下列叙述中正确的是()。
A.只有窗体才是VB中的对象B.只有控件才是VB中的对象C.控件和窗体都是VB中的对象D.控件和窗体都不是VB中的对象参考答案:C您的答案:C5、为了把窗体上的某个控件变为活动的,应执行的操作是()。
A.单击窗体的边框B.单击该控件的内部C.双击该控件D.双击窗体参考答案:B您的答案:B6、确定一个控件在窗体上的位置的属性是()。
A.Width或HeightB.Width和HeightC.Top或LeftD.Top和Left参考答案:D您的答案:D7、在窗体上面画一个名称为Text1的文本框,然后编写如下的事件过程:Private Sub Text1_KeyPress(KeyAscii As Integer)......End Sub若焦点位于文本框中,则能够触发KeyPress事件的操作是()。
A.单击鼠标B.双击文本框C.鼠标滑过文本框D.按下键盘上的某个键参考答案:D您的答案:D8、为了装入一个VB应用程序,应当()。
A.只装入窗体文件(.frm)B.只装入工程文件(.vbp)C.分别装入工程文件和标准模块文件(.bas) D.分别装入工程文件、窗体文件和标准模块文件9、当窗体最小化时缩小为一个图标,设置这个图标的属性是()。
A.MouseIconB.IconC.PictureD.MousePoint参考答案:B您的答案:B10、为了取消窗体的最大化功能,需要把它的一个属性设置为False,这个属性是()。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
《VB语言程序设计》习题参考答案第1章习题一、单选题1.D 2.B 3.C 4.A 5.C 6. A 7.A 8.B 9.C 10.(1)A (2)B二、多选题1.ACDE 2.BCDE 3.CD 4. CE三、填空题1.事件驱动 2.解释,编译 3.设计,运行,中断4. 属性,方法,事件5. Command2_Click6. 中央,代码7.MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计"编程及上机调试1. 按要求设置窗体属性2.在窗体上建立一个标签Label1。
程序代码如下:Private Sub Form_Click()Label1.Caption = "你单击了窗体"End SubPrivate Sub Form_DblClick()Label1.Caption = "你双击了窗体"End Sub3.在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。
两个文本框的Text属性均为空。
Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)Text2.Text = 15 * xEnd Sub第2章习题一、单选题1.①D,②D 2.①A,②C 3.A 4.B 5.B 6.B 7.C 8.D 9.B 10.B 11.A 12.A 13.B 14.A 15.B 16.A 17.B二、多选题1.BD 2.CD 3.AC 4. AD三、填空题1.(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)(3) a*a–3*a*b/(3+a) (4) x^(3/8)+Sqr(y*y+4*a*a/(x+y^3))2.Int(50+6*Rnd)3.(1)138 (2)3 (3)214 (4) "inchina" (5)70 (6) "45"(7)04. "系统管理数据库"编程及上机调试1~3题:按要求完成操作练习。
4. Private Sub Command1_Click() '"最大化"按钮Form1.WindowState = 2 '最大化End SubPrivate Sub Command2_Click() '"还原"按钮Form1.WindowState = 0 '还原End SubPrivate Sub Command3_Click() '"最小化"按钮Form1.WindowState = 1 '最小化End Sub5.在窗体上建立三个文本框Text1(第一个数)、Text2(第二个数)、Text3(计算结果)和一个命令按钮Command1(“计算”)。
Private Sub Command1_Click()Dim x As SingleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Text3.Text = x * x + y * yEnd Sub6. 在窗体上建立两个文本框Text1(输入一串字符)、Text2(输出结果)和一个命令按钮Command1。
Private Sub Command1_Click()Dim x As Stringx = Left(Text1.Text, 1) + Right(Text1.Text, 1)Text2.Text = xEnd Sub第3章习题一、单选题1.C 2.B 3.D 4.D 5.B 6.C 7.B 8.D 9.D 10.A 11.A 12.C 13.C 14.B 15.(1)A (2)C 16.A 17.B 18.(1)D (2)B (3)C 19.D二、多选题1.AC 2.AC 3.ABCF三、填空题1. $000,124 2.Label1.Caption="a*b=" 3.Height,Width4.2 5.Text1.SetFocus6.Multiline, ScrollBars, 2 7.编程技术,程序设计8.Private Sub Text2_Change()´当文本框Text2中的文本内容发生变动时,执行该事件过程Label1.Caption=Text1.Text ´把文本框Text1中的文本内容作为标签Label1的标题End SubPrivate Sub Text1_GotFocus() ´当文本框Text1获得焦点时,执行该事件过程Text1.SelStart = 0 ´选定文本框Text1中的所有文本内容Text1.SelLength=Len(Text1.Text)End Sub编程及上机调试1.在窗体上建立一个文本框Text1(输入n值)、三个标签Label1(第一个随机数)、Label2(第二个随机数)和Label3(第三个随机数),以及一个命令按钮Command1。
Private Sub Command1_Click()n = Val(Text1.Text)Randomizex = Int(1 + n * Rnd)Label1.Caption = "第一个随机数" + Str(x)x = Int(1 + n * Rnd)Label2.Caption = "第二个随机数" + Str(x)x = Int(1 + n * Rnd)Label3.Caption = "第三个随机数" + Str(x)End Sub2.在窗体上建立了四个文本框Text1、Text2、Text3和Text4,以及一个命令按钮Command1(“交换”)和Command2(“合并”)。
Private Sub Command1_Click() '“交换”t = Text1.TextText1.Text = Text2.TextText2.Text = Text3.TextText3.Text = tEnd SubPrivate Sub Command2_Click() '“合并”t = Text1.Text + Text2.Text + Text3.TextText4.Text = tEnd Sub3. (1)Rnd * 9000 + 1000 (2)Str(x) (3)Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1)4. Private Sub Command1_Click() '往左Text1.Left = 0End SubPrivate Sub Command2_Click() '往右Text1.Left = Form1.Width - Text1.WidthEnd SubPrivate Sub Command3_Click() '居中Text1.Left = (Form1.Width - Text1.Width) / 2End Sub5. Private Sub Cmd1_Click()Lab1.Visible = TrueLab1.Caption = "您已下达显示命令"End SubPrivate Sub Form_Click()Cmd1.Visible = TrueEnd Sub6. Private Sub Form_KeyPress(KeyAscii As Integer)ShowPrint "输入字符:"; Chr(KeyAscii), "ASCII码为;"; KeyAsciiEnd SubPrivate Sub Form_DblClick()ClsEnd Sub7. 产生这三个消息框的相应语句是:产生第1个消息框:x = MsgBox("在这里显示提示信息", 4 + 0, "请确认")产生第2个消息框:x = MsgBox("在这里显示" + Chr(13) + "提示信息",3 + 0,"请确认")产生第3个消息框:x = MsgBox("在这里显示"+Chr(13)+"提示信息",2 + 16 + 0,"请确认")第4章习题一、单选题1.C 2.A 3.C 4.C 5. B 6. A7.D 8.B 9.B 10.(1)D (2)A (3)B二、多选题1.ABCFGHJ 2.BE 3.CD 4. CDE 5. AE三、填空题1.(S And (A>=18 And A <=20) And H>=1.65) Or (Not S And (A>=16 And Age<=18) And H>=1.60)2. 600003. (1) "0" To "9" (2) "a" To "z","A" To "Z" (3) Else4.(1)6 (2)-2 (3)25. Select Case x Case Is < 20Case Is <= 0 y = 2 y = 4 Case Is <= 30Case Is < 10 y = 3y = 0 Case ElseCase Is < 15 y = 4y = 1 End Select6.(1) (x>100) And (x Mod 5=0) (2) 0(3) Len(Text1.Text) (4) Text1.SelText编程及上机调试1. 在窗体上建立两个文本框Text1(输入数)及Text2(显示结果),一个命令按钮Command1(“判断”)。
Private Sub Command1_Click() '“判断”x = Val(Text1.Text)If x Mod 2 = 0 ThenText2.Text = "偶数"Else消息Text2.Text = "奇数"End IfEnd Sub2.窗体上建立了一个文本框Text1,用于显示结果。