VisualBasic程序设计作业题解
VisualBasic程序设计形成性考核册作业答案四
Visual Basic程序设计形成性考核册作业答案四一、选择题1、WinsockServer.LocalPort=10001语句的含义是（ A ）。
A、设置侦听端口B、设置计算机IP地址C、设置中断地址D、设置通讯协议2、当Winsock控件处于关闭状态时，其State属性的值是（ B ）。
A、1B、0C、2D、63、相对于UDP协议而言，TCP协议是一种（ A ）。
A、面向连接的协议B、无连接协议C、计算机间不建立连接D、适用于传送少量数据4、VB程序中通常不会产生错误提示的（ D ）。
A、编译错误B、实时错误C、运行时错误D、逻辑错误5、VB程序的编译错误一般可通过VB集成环境的何种设置，自动检测（ B ）。
A、要求变量声明B、自动语法检测C、自动显示快速信息量D、根本无法自动检测6、VB程序中设置断点的按键是（ C ）。
A、F5键B、F6键C、F9键D、F10键7、On Error Go To ErrLB语句中，ErrLB的含义是（ A ）。
A、行标识号B、SUB过程名C、FUNCTION过程名D、错误号8、Err对象中，用来表示错误描述的属性是（ B ）。
A、ErrNoB、DescriptionC、NumberD、Source二、填空题。
1、使用Winsock控件时，一旦有数据到达，将首先触发该控件的DataArrival事件。
而如果要发送数据，则通常使用该控件的senddata方法。
2、Winsock控件主要用来编制或基于TCP/IP经UDP协议的通话程序。
3、ActiveXEX文件的后缀是exe。
4、COM对象有两种类型接口，即标准接口和用户接口。
5、如果希望得到本地计算机的IP地址，可以使用Winsock控件的localIP属性。
6、Winsock控件的BytesReceived属性返回接受到的数据，通常使用getdata方法来获取这些数据了。
7、Winsock1.Listen语句的含义是使服务程序处于侦听状态等待客户访问。
《Visual Basic程序设计基础》教材习题参考答案第六章
第6章图形控件和图形方法一、判断题1．√2．×3．√4．×5．√6．×7．×8．×9．√10．√二、选择题1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B 11．A 12．B 13．B 14．C 15．C三、填空题1．Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002．LoadPicture 3．AutoSize、Stretch、False、False 4．选中、属性5．形状、矩形6．Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")7．图片框、其他控件8．缇、SclaeMode 9．颜色10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序1. 转动一条红色直线，其轨迹形成一个圆程序2. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。
程序3. 在图片框内绘制多个黄色边框矩形，填充样式在“实心”、“透明”间交替变换。
五、程序填空题1．（1）Combo1.ListIndex （2）Shape1.BorderStyle （3）Combo2.AddItem Str(i) 2．（1）Call pic （2）False （3）n = n + 1 （4）LoadPicture("c:\windows\1.bmp") （4）LoadPicture(fn)六、程序设计题程序1．界面设计略，过程设计如下：Private Sub Form_Load()Picture1.ScaleMode = 3End SubPrivate Sub Command1_Click()Dim x1 As Single, y1 As Single, x2 As Single, y2 As Singlex1 = InputBox("x1="): y1 = InputBox("y1=")x2 = InputBox("x2="): y2 = InputBox("y2=")Picture1.Line (x1, y1)-(x2, y2), , BEnd Sub程序2．界面设计略，过程设计如下：Private Sub Form_click()Dim r As Single, xo As Single, yo As SingleIf Form1.ScaleHeight < Form1.ScaleWidth Thenr = Form1.ScaleHeight / 3Elser = Form1.ScaleWidth / 3End Ifxo = Form1.ScaleLeft + Form1.ScaleWidth / 2yo = Form1.ScaleTop + Form1.ScaleHeight / 2Form1.FillStyle = 0: Form1.FillColor = vbBlueForm1.DrawWidth = 2: Form1.ScaleMode = 6Form1.Circle (xo, yo), r, vbYellowEnd Sub程序3．界面设计略，过程设计如下：Private Sub Form_Load()Dim i As IntegerFor i = 1 To 7: List1.AddItem i: Next iForm1.ScaleMode = 1End SubPrivate Sub List1_Click()Form1.Cls: Form1.ScaleMode = List1.TextForm1.Circle (Form1.ScaleLeft + Form1.ScaleWidth / 2, _ Form1.ScaleTop + Form1.ScaleHeight / 2), 50End Sub。
Visual Basic程序设计综合练习题一及答案
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中，下列合法的变量名是（）。
《Visual_Basic程序设计》试题及其答案
页脚内容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)。
Visual Basic程序设计作业参考答案
窗体
作业2
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
C
B
D
A
B
D
A
A
D
A
二、填空题:
题号
参考答案
1
对象列表框，属性显示排列方式，属性列表框，属性说明框
2
Text1.text=”Hello”
3
标准控件ActiveX控件
4
Top Left Width Height
5
Shift
6
Shift＋ctrl
7
《Visual Basic程序设计》作业参考答案
作业1
一、选择题:
1
2
3
4
5
6
7
8
9
10
11
12
B
C
D
A
C
B
A
D
C
B
二、填空题:
题号
参考答案
1
学习版专业版企业版
2
通过“开始菜单”中的“程序”命令
通过“开始”菜单中的“运行”命令
3
文件 退出
4
ALT＋Q
5
13
6
7
8
.vbp,.frm
9
标准菜单 功能菜单
3
Path。
三、实训：（略）
作业12
一、选择题：
1
2
C
D
二、实训：（略）
作业13、作业14、作业15、作业16（略）
5
运行（执行）
6
1
作业5答案
Visual Basic程序设计期末综合练习题一_百度文库解析
Visual Basic程序设计期末综合练习题一一、单项选择题1.Visual Basic是一种面向对象的可视化编程语言,采取了(的编程机制。
A.从主程序开始执行B.按过程顺序执行C.事件驱动D.按模块顺序执行2.在Visual Basic中,窗体文件的扩展名为(。
A..vbpB..frmC..clsD..bas3.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是(。
A.设计模式B.编写代码模式C.中断模式D.执行模式4.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是(。
A.Text.MytextB.Mytext*TextC.Mytext.(TextD.Mytext.Text5.下列关于变量的说法不正确的是(。
A.局部变量在声明它的过程执行完毕后就被释放了B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量6.关于对象的属性不正确的是(。
A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值C.可通过程序代码设置属性的值D.对象的所有属性值均可在设计时设计7.在设计阶段,双击窗体上的某个控件时,打开的窗体是(。
A.工程资源管理器窗口B.工具箱窗口C.代码编辑器窗口D.属性窗口8.要在窗体的标题内显示“myfrm”,使用的语句是(。
A.Form.caption="myfrm"B.Form1.caption="myfrm"C.Form1.Print"myfrm"D.Form.Print"myfrm"9.在VB中,下列变量名不合法的是(。
A.file_1B.fileC.file-1D.file_1_210.在设计动画时,用时钟控件来控制动画速度的属性是(。
国开作业VisualBasic程序设计34练习题（含答案）
题目：如下数组声明语句，正确的是（）。
选项A：Dim a(3 4) As Integer选项B：Dim a(n,n) As Integer选项C：Dim a(3,4) As Integer选项D：Dim a[3,4] As Integer答案：Dim a(3,4) As Integer题目：用下面语句定义的数组的元素个数是（）。
Dim A(-3 To 5) as Integer选项A：6选项B：9选项C：7选项D：8答案：9题目：Sub过程与 Function过程最根本的区别是（）。
选项A：Function过程可以有参数，Sub过程不可以。
选项B：两种过程参数的传递方式不同。
选项C：Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
选项D：Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。
答案：Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。
题目：在Sub过程定义的“参数列表”中设置参数是按值传送的选项是（）。
选项A：ParamArray选项B：Optional选项C：ByRef选项D：ByVal答案：ByVal题目：过程调用时，下列关于形参与实参之间数据传递的原则说法正确的是（）。
选项A：按实参和形参同名的原则选项B：按实参和形参不仅位置对应，而且类型也对应的原则选项C：按实参和形参位置对应的原则选项D：按实参和形参个数相同并且类型也对应的原则答案：按实参和形参不仅位置对应，而且类型也对应的原则题目：在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（）关键字在过程中定义局部变量。
选项A：Dim选项B：Private选项C：Private选项D：Static答案：Static题目：下列关于过程叙述不正确的是（）。
选项A：过程的传值调用是将实参的具体值传递给形参选项B：过程的传址调用是将实参在内存的地址传递给形参选项C：无论过程的传值调用还是过程传址调用，参数传递都是双向的选项D：过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的答案：无论过程的传值调用还是过程传址调用，参数传递都是双向的题目：下列关于SUB过程的叙述正确的是（）选项A：可以用GoTo语句强制退出SUB过程选项B：一个SUB过程必须有一个Exit Sub语句选项C：一个SUB过程必须有一个End Sub语句选项D：在SUB过程中可以定义一个Function过程答案：一个SUB过程必须有一个End Sub语句题目：Visual Basic提供的焦点处理方法有两种，一种是通过鼠标选择操作或控件的Setfocus 方法实现；另一种是预先设置控件的 Tabindex 属性，然后在运行期通过按（）键，实现控件焦点的移动。
《Visual Basic程序设计基础》习题参考答案
《Visual Basic程序设计基础》教材习题参考答案第1章 Visual Basic 6.0程序设计概述一、判断题1．√2．√3．×说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。
4．√5．×6．√7．×8．√9．√10．×11．√12．√13．×14．√15．×16．√17．√18．√19．√20．√二、选择题1. C2. B 3．D 4．C 5．B 6．A 7．D 8．A 9．B 10．A 11．C 12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top 6．属性、<对象名>.<属性名>=<表达式> 7．网格8．F o rm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate第2章程序设计基础一、判断题1．√2．×3．×4．×5．√6．×7．√8．√9．√10．×二、选择题1．B 2．D 3．A 4．C 5．C 6．B 7．A 8．D 9. C 10．A 三、填空题1．String 2．4 3．"aaa" 4．145 5．6 6．3 7．18 8．False 9．(x Mod 10) * 10 + x \ 10 10．10 + Int( Rnd * 90 ) 11．a * b Mod c12．Log(x)+Sin(3.141593/6) 13．Const PI=3.1415926 14．日期15．Int(x)+1第3章结构化程序设计与数组一、判断题1．√2．×3．√4．×5．√6．×7．×8．√9．×10．√二、选择题1．A 2．D 3．C 4．C 5．D 6．B三、填空题1．If x>y Then t=y: y=x: x=t 2．IS3．For i = 0 to 9: B(i) = InputBox("B(" & i & ")="): Next i4．Dim 5．String 6．8四、程序阅读题（写出下列程序的运行结果）程序1. 0 5 程序2. 20 程序3. 2 4 7 11 16程序4. 1 4 9 16 25程序5. 程序6.五、程序填空题1．（1）q * i （2）s + p * i / q （3）Next i2．（1）r = 0 （2）m Mod n3．（1）i + j - 1 （2）7 - i （3）Print4．（1）10 + Int(Rnd * 90) （2）i + 1 To 30 （3）a(i)=a(j) （4）a(i) Mod 2 = 1第4章函数与过程一、判断题1．×2．√3．×4．×5．√6．×7．×8．√二、填空题1．按地址传送2．b() As Long 3．6 4．按值传递5．按地址传递6．Public x As Single 7．Static x As Integer 8．Form2.y三、程序阅读题（写出下列程序的运行结果）程序1. s = 2 程序2. 1 程序3. 1 1 2 1 1 2 1 2 2 2 2 3 s = 5 1 1s = 9 1 2 11 3 3 11 4 6 4 1四、程序填空题1．（1）ByeVal （2）k Mod i （3）k = k \ i （4）Call pp(i) 2．（1）a() Aa Double （2）n-1 （3）a(j) < a(k)3．（1）a() As Double, n As Integer （2）t = t * x （3）f = s第5章常用控件一、判断题1．×2．×3．×4．√5．×6．√7．×8．√9．√10．√11．×12．×13．√14．√15．×16．×17．×18．√19．√20．×21．√22．×23．√24．×25．√二、选择题1．C 2．D 3．B 4．B 5．B 6．C 7．B 8．B 9．B 10．A 11．D 12．C 13．B 14．B 15．A 16．D 17．B 18．B 19．B 20．A三、填空题1．上、下、左、左2．缇、无关3．&、<Alt>+<Y> 4．Enabled 5．MaxLength 6．Text1.SetFocus 7．MultiLine 8．Visible 9．Alignment 10．AutoSize 11．ForeColor 12．0或1 13．True 14．1 15．AddItem 16．1 17．List1.Clear 18．文本框、列表框19．下拉式组合框、简单组合框、下拉式列表框20．Scroll 21．Value 22．Change 23．定时器不起作用24．Timer 25．65535四、程序阅读题程序1. 116 程序2. 8程序3. 23451 程序4. 小，你好！程序5. 您好34512 小李，你好！欢迎使用Visual Basic!程序6. 李子程序7. y = 6 程序8. n = 1苹果y = 14 n = 3橘子n = 5葡萄柚子香蕉五、程序填空题1．（1）a(i) = Mid(str1, i, 1) 或a(i) = Mid(Text1.Text, i, 1)（2）p = j （3）a(i) = a(p) （4）Command2.Enabled = True 2．（1）1 To 2*i–1 （2）Command2.Enabled = True （3）Command2.Enabled = False 3．（1）Text2.Enabled = False （2）p = 2 （3）Print i（4）Val(Text1.Text) < 2 或Val(Text1.Text) <= 1 （5）KeyAscii = 134．（1）List1.ListCount （2）List1.RemoveItem I （3）i = i + 1 5．（1）Timer1.Enabled = True （2）x \ 3600（3）(x Mod 3600) \ 60 或(x - 3600 * h) \ 60 （4）x = x + 16．（1）Label1.Left （2）Label1.Left = -Label1.Width第6章图形控件和图形方法一、判断题1．√2．×3．√4．×5．√6．×7．×8．×9．√10．√二、选择题1．C 2．B 3．C 4．A 5．A 6．C 7．A 8．C 9．C 10．B 11．A 12．B 13．B 14．C 15．C三、填空题1．Circle (ScaleLeft + ScaleWidth / 2, ScaleTop + ScaleHeight / 2), 8002．LoadPicture 3．AutoSize、Stretch、False、False 4．选中、属性5．形状、矩形6．Picture1.Picture=LodePicture("C:\Windows\Cloud.bmp")7．图片框、其他控件8．缇、SclaeMode 9．颜色10．颜色、圆弧起点处转角、圆弧终点处转角、椭圆纵轴与横轴长度之比四、程序阅读题程序1. 转动一条红色直线，其轨迹形成一个圆程序2. 在窗体上随机的位置、用随机的颜色、半径绘制1000个空心的圆。
visual_Basic程序设计教程_课后习题答案及练习
"VB程序设计"综合复习资料第一章 Visual Basic程序设计概述一、填空题1、VisualBasic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。
2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
3、执行“工程〞菜单下的__________命令，可选择并添加Active*控件。
4、Visual Basic 6.0用于开发__________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是〔〕A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是〔〕A．具有标准工具箱B．一个工程文件由假设干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、以下不能翻开属性窗口的操作是〔〕A．执行“视图〞菜单中的“属性窗口〞命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口〞按钮4、以下可以翻开立即窗口的操作是〔〕A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是〔〕A．可视化 B．面向对象 C．面向图形 D．事件驱动三、简答题1、代码窗口主要包括哪几局部？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的根本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能承受焦点。
07759Visual Basic程序设计201701真题及答案
2017年1月广东省高等教育自学考试Visual Basic程序设计试题（课程代码07759）一、单项选择题（本大题共16小题,每小题1分，共16分）在每小题列出的四个备选项中只有一个是符合题目要求的，请将其选出并将“答题卡”的相应代码涂黑。
错涂、多涂或未涂均无分。
1. 变量定义语句Dim A%，说明A是A. 整型B. 长整型C. 单精度浮点数D. 双精度浮点数2. Len("12345678")+ Len("1234")的结果是A. 4B. 8C. 12D. 163. 为了给变量x, y赋初值1，下列正确的赋值语句是A. x=1,y=1B. x=y=1C. x=1=y=1D. x=1；y=14. MsgBox函数的返回类型是A. 整型B. 单精度C. 双精度D. 字符串5. 当在文本框内输入新的内容，会发生_________事件。
A. ClickB. DblClickC. ChangeD. TextChange6. 要判断复选框Check是否选中，需要用_________属性A. TextB. EnabledC. ValueD. Checked7. 要把当前列表框List1选中要内容增加到列表框List2，可适用下列________语句。
A. List1. Add List2.TextB. List2. Add List1.TextC. List1. AddItem List2.TextD. List2. AddItem List1.Text8. 滚动条的当前位置，可通过________属性获得。
A. TextB. ValueC. MaxD. Min9. 下列数组定义中，_________的元素个数最少。
A. Dim A(3,2)B. Dim A(2,3)C. Dim A(-1 To 2,3)D. Dim A(1 To 2,3)10. Sub过程的定义：Sub PrintOut(x As Integer)，下列调用正确的是A. PrintOut3B. CallPrintOut3C. PrintOut"A3"D. CallPrintOut"A3"11.________属性决定组合框Combo的类型。
Visual_Basic程序设计教程习题答案
Private Sub Command3_Click()
If Text1.Font.Underline Then '判断当前状态，然后改变
Text1.Font.Underline = False
Else
Text1.Font.Underline = True
End If
End Sub
A. 123_a B. Integer C. False D. sinx
3. 骰子是一个正六面体，用1～6这6个数分别代表这6面，掷一次骰子可能出现的数应表示为( d)。
A. INT(RND(6)＋1) B. INT(RND*6)
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-"
Form1.WindowState = 2
Form1.BackColor = vbBlue
End Sub
2. 设计一个窗体，其中包含3个标签，如图2.18所示。当用鼠标单击任何一个标签时，其他两个标签的标题文本互换。
代码如下：
Private Sub Label1_Click()
Dim t As String
t = Label2.Caption
Label2.Caption = Label3.Caption
Label3.Caption = t
End Sub
Private Sub Label2_Click()
VisualBasic程序设计-国家开放大学电大学习网形考作业题目答案
VisualBasic程序设计【实操题】按要求将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
一、形考任务1.请同学选择【第1章】-【实战演练】“实验1 欢迎程序”或【第2章】-【实战演练】“实验2 计时秒表程序”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
2.请同学选择课程【第3章】-【实战演练】“实验3 冒泡排序程序”，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
3.请同学选择课程【第4章】-【实战演练】“实验4 菜单设计”或【第5章】-【实战演练】“实验5鼠标MouseMove事件应用”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
4.请同学选择课程【第6章】-【实战演练】“实验6 word文件显示程序”或【第7章】-【实战演练】“实验7 绘制图形程序”或【第8章】-【实战演练】“实验8 网络下载程序”的其中之一，在VB集成开发环境中认真完成实验。
实验完成后，将调试好的程序保存在以“姓名+实验名称”命名的文件夹下，并将该文件夹压缩成.rar或者.zip格式进行提交。
本次实验满分100分，形考占比15%，提交后需要辅导教师批阅打分。
5.请同学选择课程【第9章】-【实战演练】“实验9 进销存管理信息系统”，在VB集成开发环境中认真完成实验。
visual basic 程序设计课后习题参考答案
Visual basic 程序设计习题参考答案第一章Visual basic 程序设计一、选择题二、填空题三、简答题1、简述visual basic 的特点。
（1）具有可视化的设计平台（2）面向对象的设计方法（3）事件驱动的编程机制（4）结构化程序设计语言（5）开放的数据库功能与网络支持2、什么是对象、类、属性、事件和方法？在可视化编程语言中，对象是代码和数据的集合，它可以是窗体和控件，也可以是菜单和数据库等。
描述一个对象有三个基本要素：属性、方法和事件。
类是一组用来定义对象的相关过程和数据的集合，即同类对象的集合和抽象。
属性是描述对象的一组特性。
方法是对象能够执行的动作，它是对象本身内含的函数或过程，用于完成某种特定的功能。
事件是发生在对象上并且能够被对象识别的动作，即由系统预先设置好的、能被对象识别的动作，如Click(单击)、DblClick(双击)、Load(窗体的装载)、KeyPress(按键)、Change(改变)、MouseMove (鼠标的移动)等，每一种对象能识别的事件是不同的5、什么是事件驱动的编程机制？当某个事件(一般由用户操作来触发) 发生时，系统就会自动执行此事件的事件过程。
由事件控制整个程序的执行流程。
事件过程要经过事件的触发才能被执行，这种工作模式称为事件驱动方式。
第二章Visual basic 程序设计基础一、选择题二、填空题第三章数据输入输出一、选择题二、填空题3第四章选择结构和循环结构程序设计一、选择题二、填空题第五章数组一、选择题二、填空题第六章过程一、选择题二、填空题三、简答题1、简述事件过程和通用过程的含义和联系。
5VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。
VB中的过程有两大类：事件过程和通用过程事件过程是当发生某个事件时，对该事件作出响应的程序段。
事件过程由VB自行声明，用户不能增加或删除。
事件过程是VB 应用程序的主体。
《Visual Basic程序设计基础》教材习题参考答案第九章
第9章数据库与数据访问技术一、判断题1. √2. √3. ×4. √5. ×6. ×7. √8. √9. ×10.×11.√12.√13.√14.√15.√16.×17.×18.×19.√20.√21.√22.×二、选择题1.A2.D3.C4.B5.C6.A7.C8.D9.D 10.C 11.A 12.D 13.A 14.B 15.B 16.C三、程序设计题程序1.（1）数据访问控件以及数据绑定控件的相关属性设置如下Data1：Connect("Access")、DatabaseName("d:\学籍.mdb")、RecordSource("学生)" Text1：DataSource("Data1")、DataField("学号")Text2：DataSource("Data1")、DataField("姓名")Check1：DataSource("Data1")、DataField("性别")Text3：DataSource("Data1")、DataField("出生日期)Text4：DataSource("Data1")、DataField("奖学金")Text5：DataSource("Data1")、DataField("简历")OLE1：DataSource("Data1")、DataField("照片")Adodc1：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False") CommandType("1-adCmdText")、RecordSource("select * from 成绩") DataGrid1：DataSource("Adodc1")（2）主要事件过程代码Option ExplicitPrivate Sub Form_Load()Caption = "学籍信息编辑浏览"Label1.Caption = "学号:" : Label2.Caption = "姓名:"Label3.Caption = "出生年月:" : Label4.Caption = "奖学金:"Label5.Caption = "简历:" : Label6.Caption = "照片:"Check1.Caption = "性别(选中表示男,否则为女)"Label7.Caption = "成绩信息查询显示": Adodc1.Visible = FalseEnd SubPrivate Sub Data1_Reposition()Adodc1.RecordSource = "select 成绩.课程号,课程名,成绩from 学生,课程,成绩" _ & "where 学生.学号= 成绩.学号and " & "成绩.课程号= 课程.课程号and " & _ "成绩.学号='" & Data1.Recordset("学号") & "'" & " order by 成绩.课程号" Label7.Caption = Trim(Data1.Recordset("姓名")) & "成绩信息查询显示" Adodc1.RefreshEnd Sub程序2.（1）数据访问控件以及数据绑定控件的相关属性设置如下：Adodc1：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False"CommandType("1-adCmdText")、RecordSource("select * from 学生)DataGrid1：DataSource("Adodc1")（2）主要事件过程代码Option ExplicitPrivate Sub Form_Load()Dim i As IntegerCaption = "学籍信息查询浏览": Adodc1.Visible = FalseLabel1.Caption = "选择查询方式：": Combo1.Text = "全部都显示"Label2.Caption = "全部表文件数据浏览表格：" : Label3.Visible = False Text1.Visible = False: Text1.Text = ""For i = 0 To 2Combo1.AddItem Mid("全部都显示按学号查询按姓名查询", 5 * i + 1, 5) Next iEnd SubPrivate Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.Visible = False: Label3.Visible = FalseAdodc1.RecordSource = "select * from 学生"Label2.Caption = "全部表文件数据浏览表格：": Adodc1.Refresh Case 1Label3.Caption = "输入查询条件(学号):" : Text1.Visible = True Label3.Visible = True: Text1.SetFocusCase 2Label3.Caption = "输入查询条件(姓名):" : Text1.Visible = True Label3.Visible = True: Text1.SetFocusEnd SelectEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn ThenIf Combo1.ListIndex = 1 ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "学号='" & Text1.Text & "'"If Adodc1.Recordset.EOF ThenAdodc1.RecordSource = "select * from 学生"Label2.Caption = "全部表文件数据浏览表格："Adodc1.Refresh: MsgBox "查无此人!"ElseAdodc1.RecordSource = "select * from 学生 " & "where _学号='" & Text1.Text & "'"Label2.Caption = "学生" + Text1.Text + "的数据浏览表格："End IfElseAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "姓名='" & Text1.Text & "'"If Adodc1.Recordset.EOF ThenAdodc1.RecordSource = "select * from 学生"Label2.Caption = "全部表文件数据浏览表格："Adodc1.Refresh: MsgBox "查无此人!"ElseAdodc1.RecordSource = "select * from 学生 " & _"where 姓名='" & Text1.Text & "'"End IfEnd IfAdodc1.RefreshEnd IfEnd Sub程序3.（1）数据访问控件以及数据绑定控件的相关属性设置如下：Adodc1(xs)：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("2-adCmdTable")、RecordSource("学生")Adodc2(kc)：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("2-adCmdTable")、RecordSource("课程")Adodc3(cjcx)：ConnectionString("Provider=Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("1-adCmdText")RecordSource（" select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, _ 成绩.成绩 from 学生,课程,成绩 where 成绩.课程号 = 课程.课程号 _and 成绩.学号 = 学生.学号 "DataGrid1：DataSource("cjcx")DataList1：RowSource("xs")、ListField ("姓名"）、BoundColumn("学号") DataList2：RowSource("kc")、ListField("课程名")、BoundColumn("课程号")（2）主要事件过程代码Option ExplicitDim p As BytePrivate Sub Form_Load()Dim i As IntegerFor i = 0 To 4Label1(i).Caption = Mid("优秀良好中等及格差等", 2 * i + 1, 2)Text1(i).Text = "": Text1(i).BackColor = RGB(205, 205, 192)Text1(i).Locked = TrueNext icjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号,课程.课程名, " _ & "成绩.成绩from 学生,课程,成绩 " & _"where 成绩.课程号=课程.课程号 and 成绩.学号=学生.学号"cjcx.Refresh: Label2.Caption = "成绩信息列表"Label3.Caption = "选择学生姓名:" : Label4.Caption = "选择课程名:" xs.Visible = False: kc.Visible = False: cjcx.Visible = False Caption = "学籍信息查询": p = 0End SubPrivate Sub DataList1_Click()p = 0: Call cjdctjEnd SubPrivate Sub DataList2_Click()p = 1: Call cjdctjEnd SubPrivate Sub cjdctj()Dim cjdcjs(5) As Integer, dcase As Byte, i As ByteIf p = 0 Thencjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号, " _ & "课程.课程名,成绩.成绩 from 学生,课程,成绩 " _& "where 成绩.学号='" & DataList1.BoundText & "' " _& "and (成绩.课程号=课程.课程号 and " _& "成绩.学号=学生.学号) order by 成绩.课程号"Frame1.Caption = "单位：门"Label2.Caption = Trim(DataList1.Text) & "成绩信息列表"Elsecjcx.RecordSource = "select 成绩.学号,学生.姓名,成绩.课程号, " _ & "课程.课程名,成绩.成绩 from 学生,课程,成绩 " _& "where成绩.课程号='" & DataList2.BoundText & "' " _& "and (成绩.课程号=课程.课程号 and " _& "成绩.学号=学生.学号) order by 成绩.学号"Frame1.Caption = "单位：人"Label2.Caption = Trim(DataList2.Text) & "成绩信息列表"End Ifcjcx.RefreshIf Not cjcx.Recordset.EOF Then cjcx.Recordset.MoveFirstWhile Not cjcx.Recordset.EOFIf cjcx.Recordset("成绩") < 60 Thendcase = 0Elsdcase = (cjcx.Recordset("成绩") \ 10) – 5End IfSelect Case dcaseCase 4, 5: cjdcjs(0) = cjdcjs(0) + 1Case 3: cjdcjs(1) = cjdcjs(1) + 1Case 2: cjdcjs(2) = cjdcjs(2) + 1Case 1: cjdcjs(3) = cjdcjs(3) + 1Case 0: cjdcjs(4) = cjdcjs(4) + 1End Selectcjcx.Recordset.MoveNextWendFor i = 0 To 4: Text1(i).Text = cjdcjs(i): Next iEnd Sub程序4.（1）数据访问控件以及数据绑定控件的相关属性设置如下：Adodc1：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False")CommandType("2-adCmdTable")、RecordSource("学生")LockType("4-adBatchOptimistic)Adodc2：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info=False")CommandType("2-adCmdTable")、RecordSource("课程")LockType("4-adBatchOptimistic")Adodc3：ConnectionString("Provider = Microsoft.Jet.OLEDB.4.0; _ Data Source = E:\GYH\VB\学籍1b.mdb; Persist Security Info = False")CommandType("2-adCmdTable")、RecordSource("成绩")LockType("4-adBatchOptimistic")Text1：用于显示编辑"学号"，但是本字段不设置数据绑定属性，输入或修改后的"学号"数据通过代码方式写入数据源中。
《Visual_Basic程序设计》试题及其答案
《Visual_Basic程序设计》试题及其答案Visual_Basic程序设计试题及其答案Visual_Basic程序设计是一门与Windows操作系统密切相关的编程语言，广泛应用于图形用户界面(GUI)的开发。
下面是一套Visual_Basic程序设计的试题，以及详细的答案解析。
一、概念题（共10题，每题2分，共20分）1. 什么是Visual_Basic程序设计？答案：Visual_Basic程序设计是一种基于BASIC语言的集成开发环境(IDE)，用于Windows平台的程序开发和编程。
2. Visual_Basic程序设计的特点是什么？答案：Visual_Basic具有简单易学、图形化编程界面、可视化设计、事件驱动等特点。
3. 什么是控件？答案：控件是Visual_Basic程序设计中用于构建用户界面的基本元素，如按钮、文本框、标签等。
4. Visual_Basic程序中的数据类型有哪些？答案：Visual_Basic支持多种数据类型，包括整数、浮点数、字符串、布尔值等。
5. 什么是条件结构？答案：条件结构是一种根据不同条件执行不同操作的程序结构，如If语句和Select Case语句。
6. 什么是循环结构？答案：循环结构是一种重复执行特定操作的程序结构，如For循环和While循环。
7. 什么是函数？答案：函数是一段可重复调用的代码，通常用于实现特定功能，并可以返回结果。
8. 如何定义和调用函数？答案：在Visual_Basic中，可以使用Function关键字定义函数，并使用函数名调用函数。
9. 什么是异常处理？答案：异常处理是一种处理程序运行过程中可能出现的错误或异常情况的机制，以保证程序的稳定性。
10. Visual_Basic程序如何进行调试？答案：Visual_Basic提供了丰富的调试工具，包括断点调试、单步调试等，以帮助程序员发现和解决问题。
二、编程题（共2题，每题40分，共80分）题目一：设计一个Visual_Basic程序，实现计算器的基本功能。
全国计算机等级考试二级Visual+Basic语言程序设计真题精选2(含答案)
全国计算机等级考试二级Visual+Basic语言程序设计真题精选2一、单项选择题1.软件设计中模块划分应遵循的准则是（）。
A.低内聚低耦合B.高内聚低耦合√C.低内聚高耦合D.高内聚高耦合解析：软件设计中，模块划分应遵循的准则是高内聚低耦合、模块大小规模适当、模块的依赖关系适当等。
模块的划分应遵循一定的准则，以保证模块划分合理，并进一步保证以此为依据开发出的软件系统可靠性高，易于理解和维护。
模块之间的耦合应尽可能地低，模块的内聚应尽可能地高。
2.栈和队列的共同点是（）。
A.都是先进后出B.都是先进先出C.只允许在端点处插入和删除元素√D.没有共同点解析：栈和队列都是一种特殊的操作受限的线性表，只允许在端点处进行插入和删除。
二者的区别是：栈只允许在表的一端进行插入或删除操作，是一种“后进先出”的线性表；而队列只允许在表的一端进行插入操作，在另一端进行删除操作，是一种“先进先出”的线性表。
3.设窗体上有2个直线控件Line1和Line2，若使两条直线相连接，需满足的条件是（）。
A.Line1.X1=Line2.X2且Line1.YI=Line2.Y2 √B.Line1.X1=Line2.Y1且Line1.Y1=Line2.X1C.Line1.X2=Line2.X1且Line1.Y1=Line2.Y2D.Line1.X2=Line2.X1且Line1.Y2=Line2.Y2解析：直线控件的X1、Y1和X2、Y2属性分别表示直线两个端点的坐标，即（X1，Y1）和（X2，Y2）。
如果要使两条直线相连，显然这两条直线的某一端点的坐标相同才行。
因此本题需要Line1.X1=Line2.X1且Line1.Y1=Line2.Y1，或Line1．X1=Line2.X2且Line1.Y1=Line2.Y2，或Line1.X2=Line2.X1且Line1.Y2=Line2.Y1，或Line1.X2=Line2.X2且Line1.Y2=Line2.Y2。
VisualBasic6.0程序设计试题一与答案
VisualBasic6.0程序设计试题一与答案一、判断题：1、移动框架时框架内控件也跟随移动，所以框架内各控件的Left、Top属性值也将随之改变。
（错）2、VB提供的几种标准坐标系的原点都是在绘图区域的左上角，如果要把坐标原点放在其它位置，则需要使用自定义坐标系统。
（对）3、若窗体的坐标刻度为“缇”、窗体上的图片框控件的坐标刻度为“磅”，则图片框的Left属性值的单位为“缇”。
（对）4、用Scale方法改变了窗体坐标系后，窗体的Left、Top属性值不变。
（对）5、将容器的FillStyle属性设置为0后，容器中已绘制的图形的填充样式都为实心。
（错）6、语句“Shape1.FillStyle = vbSolid”和“Shape1.FillStyle = 0”作用相同。
（对）7、用Cls方法能够清除窗体或图片框中用Picture属性设置的图形。
（错）8、用Cls方法可以清除组合框中的所有表项。
（错）9、Picture图片框既可用来显示图片和绘制图形，也可以用Print方法来显示文字。
（对）10、在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。
（错）11、框架控件和形状控件都不能响应用户的鼠标的单击事件。
（错）12、图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框控件的有关属性值。
（错）13、执行语句Pic1.Picture = ”c:\temp\a.bmp”，可以为图片框控件Pic1加载文件名为c:\temp\a.bmp的图形文件。
（错）14、Picture对象的AutoSize属性值为True时，表示该对象不管原来图片的大小，一律都自动调整为控件的大小尺寸，以便能够完整地显示该图片。
（错）15、图片框控件与影像框控件加载图形文件的方法相同。
（对）二、选择题：1、改变控件在窗体中的左右位置应该修改控件的（）属性？（B）A. TopB. LeftC. WidthD. Right2、要改变控件的宽度，应该修改控件的（）属性？（C）A. TopB. LeftC. WidthD. Right3、重新定义图片框控件的坐标系统，可采用该图片框的（）方法？（A）A. ScaleB. ScaleXC. ScaleYD. SetFocus4、容器的ScaleMode属性值为（）时，容器坐标系的每一个单位为一磅？（A）A. 2B. 1C. 4D. 65、改变了容器的坐标系后，该容器的（）属性值不会改变？（A）A. LeftB. ScaleLeftC. ScaleTopD. ScaleWidth6、无论怎样改变图片框控件P1的坐标系，其中心点的x，y坐标分别为（）？（B）A.(P1.ScaleLeft+P1.ScaleWidth)/2、(P1.ScaleTop+P1.ScaleHeight)/2B.P1.ScaleLeft+P1.ScaleWidth/2、P1.ScaleTop+P1.ScaleHeight/2C.P1.Left+P1.Width/2、P1.Top+P1.Height/2D.P1.Width/2、P1.Height/27、设置图片框控件PIC1的背景色为红色，可以执行语句（）？（B）A.PIC1.BackColor = QBcolor(1)B.PIC1.BackColor = 255C.PIC1.BackColor = RGB(0,0,255)PIC1.BackColor = RGB(0,255,0)8、要使Shape控件以实心方式填充，应该设置其（）属性？（B）A. FillColorB. FillStyleC. BackStyleD. Shape9、下列表达式中，（）不是蓝颜色的值？（C）A.vbBlueB. Rgb(0,0,255)C. QBColor(12)D. &HFF000010、下列表达式中，（）不是红颜色的值？（C）A.vbRedB. Rgb(255,0,0)C. QBColor(1)D. &HFF11、（）对象不能作为控件的容器？（C）A. FormB. PictureBoxC. ShapeD. Frame12、若在图片框上用绘图方法绘制一个圆，则图片框的（）属性不会对该圆的外观产生影响。
VB程序设计题型示例答案
Visual Basic6.0程序设计题型示例参考答案一、选择题（每小题中只有一个选项是正确的）1．A2．C3．C4．C5．D6．B7．D8．B 9．A10．A11．C12．B13．D14．D15．A16．C 17．B18．A19．A20．D21．A22．A23．C24．C 25．A26．C27．D28．D29．C30．C31．C32．B 33．B34．C35．B36．C37．D38．D39．C40．C 41．C42．D43．B44．A45．C46．C47．B48．D 49．D50．D51．B52．C53．B54．D55．D56．C 57．A58．D59．A60．A61．D62．C63．A64．C 65．A66．D67．D68．A69．C70．A71．A72．D 73．C74．A75．D76．B77．D78．B79．A80．B 81．C82．A83．B84．D85．B86．B87．B88．B 89．B90．C91．C92．A93．A94．D95．C96．C 97．D98．C99．D100．D101．A102．D103．D104．C 105．C106．C107．A108．A109．D110．A111．A112．D 113．B114．B115．C116．B117．B118．B119．B120．D 121．C122．B123．D124．C125．C126．D127．D128．D 129．D130．C131．D132．B133．C134．A135．D136．C 137．A138．A139．C140．A141．B142．B143．C144．B 145．A146．A147．B148．D149．D150．B151．D152．C 153．D154．A155．B156．D157．B158．D159．C160．A 161．B162．A163．A164．C165．A166．D167．D168．A 169．D170．A171．B172．D173．A174．C175．D176．B 177．B178．B179．C180．A181．B182．B183．D184．D 185．B186．A187．A188．A189．D190．D191．B192．B 193．B194．A195．B196．D197．C198．B199．C200．D第四部分参考答案201．B202．D203．D204．A205．B206．C207．A208．C 209．B210．B211．B212．C213．D214．D215．B216．D 217．B218．A219．D220．D221．B222．C223．D224．D 225．C226．D227．C228．B229．C230．B231．A232．C 233．A234．B235．D236．C237．A238．B239．C240．B 241．C242．B243．C244．B245．D246．B247．C248．B 249．C250．C251．D252．D253．D254．C255．D256．B 257．B258．A259．B260．B261．C262．A263．B264．B 265．B266．C267．D268．B269．A270．A271．A272．B 273．D274．B275．A276．A277．C278．C279．D280．D 281．B282．A283．C284．A285．D286．B287．C288．A 289．A290．B291．D292．A293．C294．B295．D296．D 297．B298．D299．D300．D301．B302．C303．B304．B 305．D306．B307．C308．B309．A310．A311．B312．D 313．D314．C315．D316．D317．B318．C319．B320．A 321．B322．D323．D324．A325．B326．A327．A328．C 329．C330．B331．A332．C333．B334．D335．B336．D 337．A338．B339．C340．A341．C342．A343．B344．A 345．D346．C347．D348．B349．C350．C351．D352．D 353．B354．C355．A356．D357．A358．D359．D360．C二、判断题1．√2．×3．√4．√5．√6．√7．×8．×9．√10．√11．√12．√13．√14．×15．√16．√17．√18．×19．×20．√21．×22．√23．×24．√25．√26．√27．√28．×29．√30．√31．√32．√33．√34．√35．√36．×37．×38．×39．×40．√41．√42．×43．√44．√45．×46．√47．×48．×49．×50．√51．√52．√53．√54．×55．√56．√57．√58．×59．×60．×61．√62．√63．×64．×65．√66．×67．√68．×69．√70．√71．√72．×73．×74．×75．×76．×77．×78．×79．√80．×81．×82．√83．×84．√85．√86．×87．√88．√89．×90．√91．√92．√93．×94．√95．×96．×97．√98．×99．×100．√三、名词解释题1．对象是系统中的基本运行实体。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VisualBasic程序设计作业题解Visual Basic程序设计作业题解作业 3一、选择题1．Visual Basic根据计算机访问文件的方式将文件分成三类，其中不包括（）。
A．顺序文件B．Unix文件C．二进制文件D．随机文件答案：B2．随机文件进行文件读写的单位是（）。
A．字节B．记录C．整个文件D．字符答案：B3．为了使目录路径列表Dir1的内容符合驱动器列表框Drive1的选择，应当（）。
A．在Dir1_Click事件中加入２Dir1.Path=Drive1.DriveB．在Drive1_Click事件中加入Dir1.Path=Drive1.DriveC．在Dir1_Click事件中加入Drive1.Path=.Drive.PathD．在Dir1_Click事件中加入Drive1.Path=.Dir1.Path答案：A4．为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框能同步协调工作，需要在（）。
A．Drive1的Change事件过程中加入Drive1.Drive=Dir1.Path,在Dir1的Change事件过程中加入Dir1.Path=File1.Path代码。
B．Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive,在Dir1的Change事件过程中加入File1.Path=Dir1.Path代码。
C．Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive,在File1的Click事件过程中加入File1.Path=File1.FileName代码。
３D．Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive,在File1的Click事件过程中加入File1.Path=Dir1.FileName代码。
答案：C5．下面关于顺序文件的描述正确的是（）。
A．每条记录的长度必须相同B．可通过编程对文件中的某条记录方便地修改C．数据只能以ASCII码形式存放在文件中，所以可通过文本编辑软件显示D．文件的组织结构复杂答案：C6．KILL语句在VB语言中的功能是（）。
A．清内存B．清病毒C．删除在磁盘上的文件D．清屏幕答案：C４7．可用来改变坐标度量单位的是（）。
A．Drawstyle属性B．DrawWidth属性C．Scale属性D．ScaleMode属性答案：D8．以下的属性和方法中，可重定义坐标系的是（）。
A．Drawstyle属性B．DrawWidth属性C．Scale属性D．ScaleMode属答案：B9当使用Line方法画直线后，当前坐标在（）。
A．（0，0）B．直线起点C．直线终点D．容器的中心答案：A５10．Line（200，200）—Step（500，500）将在窗体（）画一直线。
A．（200，200）到（500，500）B．（200，200）到（300，300）C．（200，200）到（700，700）D．（300，300）到（500，500）答案：C11．设置对象的边框类型的属性是（）。
A．DrawstyleB．BorderstyleC．DrawWidthD．ScaleMode答案：B12．为了清除图片框Picture1中的图形，应采用的正确方法是（）。
A．选择图片框，然后按Del键B．执行语句Picture1.Pictyre=LoadPicture (“”)C．执行语句Picture1.Pictyre=””D．选择图片框，在窗口属性中选择Picture６属性条，然后按回车键答案：B13．要绘制多种形状的图形，需要设置Shape 控件的（）属性。
A．ShapeB．BordrestyleC．FillStyleD．Style答案：A14．要绘制多种式样的直线，需要设置Linee 控件的（）属性。
A．ShapeB．BordrestyleC．FillStyleD．Style答案：B15．如果准备读文件，打开顺序文件“text.dat”的正确语句是（）。
A．open ”text.dat” For write As # 1B．open ”text.dat” For Binary As # 1７C．open ”text.dat” For Input As # 1D．open ”text.dat” For Random As # 1答案：C16．如果准备向随机文件写入数据，正确的语句是（）。
A．Print # 1,recB．Write # 1,recC．Put # 1,recD．Get # 1,rec答案：C17．下列“CommonDialog1”控件程序代码，Commondialog1.Action=1 ,代表（）。
A．文件另存为B．打开文件C．色彩D．打印答案：B18．FileFiles.Pattern=”*.bat”程序代码执行后，会显示（）。
A．只包含扩展文件名为“*.bat”的文件８B．第一个bat文件C．包含所有文件D．会显示磁盘的路径答案：A19．下列数据对象数据模型中采用OLE DB 访问数据库的是（）。
A．DAOB．RDOC．ADOD．RDO 或ADO答案：C20．设ADOrs为Recordset对象，从“学生基本情况表”中获取所有记录的语句是（）。
A．ADOrs.Open “select * From 学生基本情况表”B．ADOrs.Execute “select * From 学生基本情况表”C．ADOrs.New “select * From 学生基本情况表”D．ADOrs.Select “select * From 学生基本情９况表”答案：A21．VB中将变量x1声明为Excel应用程序对象的方法是（）。
A．Dim x1 As Excel.ApplicationB．Dim x1 As Excel.WorkbookC．Dim x1 As Excel.WorksheetD．Dim x1 As Excel.Worksheets答案：A二、填空题1．如果要新建一个顺序文件，用Open语句时，操作方式关键词是。
答案：Output2．在Visual Basic程序中实现复制文件”c:\”到d:盘根目录下的语句为。
答案：Filecopy c:\,d:3．在Visual Basic程序中实现删除文件”d:\tem.tmp”的语句为。
１０答案：Kill “d:\tem.tmp4．按文件号为1打开顺序文件SQLNEW.DAT，用于写入数据，语句为。
答案：Open “SQLNEW.DAT” For Output As #15．按文件号为2打开顺序文件SQLOLD.DAT，用于从该文件读出数据，语句为。
答案：Open “SQLOLD.DAT” For Inputt As #2 6．若窗体的左上角坐标为（-200，250），右下角坐标为（300，-150），则x轴的整方向向，y轴的整方向向。
答案：右上7．Stretch属性设置为时，图像框可以改变大小移适应其中的图像。
答案：True8．在图片框Picture1中画一个左上角在（500，500），边长为500的红色实心正方形的语句为。
答案：Picture1.Line (500, 500)-(1000, 1000), vbRed, BF9．设CurrentX=50,CurrentY=100,执行指令”Lint(100,20)-Step(300,500”后，Current=。
答案：(400,520)10．使用ADO模型时，可通过属性建立Recordset和Connection对象的连接。
答案：ActiveConnection11．VB将数据库分为本地数据库、和三种类型。
答案：外部数据库远程数据库12．采用ADO模型时，当使用Open方法打开一个记录集后，与ADOrs.Fields（”学号”）等效的语句是。
答案：ADOrs(“学号”)13．ADO模型中一般可通过Connection对象的Execute方法执行、、等三种不返回结果集的SQL语句。
答案：增加删除修改14．设StrSQL、Str1为字符串变量，其中Str1的值为”001”，那么执行赋值语句StrSQL=”Sele ct * from Table1 Where 学号=’”+Str1+”’”后，StrSQL的值等于。
答案：Select * from Tabel1 Where 学号=’001’15．在VB中，将Foxpro称为外部数据库，Access称为，SQL Server称为。
答案：本地数据库远程数据库三、程序设计题1．Private Sub Form_Click()Static Sum As IntegerFor I = 1 To 100Sum = Sum + INext IPrint SumEnd Sub答案：5050A = 10: b = 15: c = 20: d = 25Print A; Spc(5); b; Spc(7); cPrint A; Spc(8); b; Space$(5); cPrint c; Spc(3); "+"; Spc(3); d;Print Spc(3); "="; Spc(3); c + dEnd Sub答案：说明：一行中有多个语句时各语句之间需要插入冒号“：”；Spc(n) 用来在输出中插入空白字符，n为空白字符数；逗号“，”分界符分隔要显示的多个项目，每个项目之间距离一个制表符（TAB）；分号“；”表示所有的项目并列显示（尽管下一个Print语句已经换行），中间没有空格For i% = 1 To 3For j% = 1 To iPrint LTrim(Str(i%)) + "*" + LTrim(Str(j%)) + "="; i% * j%;Next j%PrintNext i%End Sub答案：4．Private Sub Command1_Click()Dim a, b As Integera = 3.4b = 3.4Text1.Text = aText2.Text = bEnd Sub答案：Text1显示3.4，Text2显示3。
如下图所示。
5．Private Sub Form_Click()For i = 1 To 5Print Tab(11 - i);For J = 1 To i * 2 - 1Print "*";NextNext iEnd Sub答案：四、程序设计题1．在窗体上建立一个驱动器列表、目录列表框、文件列表框、图片框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为C盘，选择File1中所列的图片文件（*.bmp和*.jgp），则相应的图片显示在图片框Picture1中。