[整理]VB程序设计复习题及答案.
vb程序设计试题(含答案)
第一套试题一、选择题（每题2分，共30分）1.在VB环境中，工程文件的扩展名是( C )（A）.frm （B）.bas （C）.vbp （D）.frx2.下面4项中不属于面向对象系统三要素的是( A )（A）变量（B）事件（C）属性（D）方法3. \、/、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）1579.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D )（A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）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=“副教授” Then n=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=012.引用列表框(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 （B）Dim a(3,4)As Integer（C）Dim a(n,n) As Integer （D）Dim a(3,4)As Integer14.下面子过程语句说明合法的是(A、D )（A）Sub f1(ByVal n%) （B）Sub f1(n%)As Integer（C）Function f1%(f1%) （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程序设计书习题和参考答案
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+F35．改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right6.窗体模块的⽂件扩展名是A、.exeB、.basC、.frxD、frm7．设置窗体的字体⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic8.设置窗体的字号⽤属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic9．下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp10．VB编制的程序保存在磁盘上，⾄少会产⽣何种⽂件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm三、程序设计题1．新建⼀个⼯程，单击窗体时，在窗体上显⽰“欢迎使⽤Visual Basic程序”。
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程序设计试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A2. 下列哪个选项是Visual Basic中的单行注释符号？A. //B. /* */C. 'D. ' '答案：C3. 在Visual Basic中，下列哪个函数用于计算数组中元素的个数？A. UBoundB. LBoundC. CountD. Len答案：A4. 如果要创建一个名为“Form1”的窗体，应该使用哪个关键字？A. FormB. SubC. FunctionD. Class5. 在Visual Basic中，下列哪个选项是正确的事件处理程序的声明方式？A. Sub Form1_Click()B. Sub Form1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Function Form1_Click()D. Function Form1_Click(ByVal sender As Object, ByVal e As EventArgs)答案：B6. 下列哪个选项是Visual Basic中的逻辑运算符？A. AndB. OrC. NotD. All of the above答案：D7. 在Visual Basic中，哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A8. 在Visual Basic中，下列哪个选项是正确的条件语句？A. If...ThenB. Do...LoopC. For...NextD. Switch...Case9. 在Visual Basic中，下列哪个选项用于创建一个标签控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：A10. 在Visual Basic中，下列哪个选项用于创建一个文本框控件？A. LabelB. TextBoxC. ButtonD. ComboBox答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个常量。
vb程序设计题及答案
vb 程序设计题及答案篇一：vb 程序设计试题及答案】txt> 一、单选题1. visual basic 是一种面向对象的可视化程序设计语言，采取了a 的编程机制。
(a) 事件驱动(b) 按过程顺序执行(c) 从主程序开始执行(d) 按模块顺序执行2. 若要使标签控件显示时不覆盖其背景内容，要对d 属性进行设置。
(a) backcolor (b) borderstyle(c) forecolor (d) backstyle3. 在visual basic 中最基本的对象是c ，它是应用程序的基石，是其他控件的容器。
(a) 文本框(b) 命令按钮(c) 窗体(d) 标签4. 要判断在文本框是否按下enter 键，应在文本框的d 事件中判断。
(a) change (b)keydown(c) click (d)keypress5. 数学表达式3W xIO在vb中的逻辑表达式为d 。
(a) 3=x10(b) 3=x and x10(c) x=3 or x1O (d) x=3 and x1O6. rnd 函数不可能为下列b 值。
(a) O (b) 1(c) O.1234 (d) O.OOO57. 赋值语句:a=123+mid(123456 ，3，2)执行后，a 变量中的值是d(a) 12334(b) 123 (c) 12334 (d) 1578. 对于语句if x=I then y=I ，下列说法正确的是c 。
(a) x=I 和y=I 均为赋值语句(b) x=I 和y=I 均为关系表达式(c) x=I 为关系表达式，y=I 为赋值语句(d) x=I 为赋值语句，y=I 为关系表达式9. 下面程序段表示求两个数中的大数，d 不正确。
(a) max=iif(xy ，x，y) (b) if xy then max=x eIse max=y(c) max=x (d) ify=x then max=yif y=x then max=y max=x10. 当在文本框中输入“ a bcd ”4个字符时，窗体上显示的是c。
VB复习题(含答案)
VB复习题允许上机调试一、选择题1 设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是： BA)text1.maxlength=0 B)text1.enabled=falseC)text1.visible=false D)text1.width=02 以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是 CA) ="VisualBasic窗体"B) Form1.Title="VisualBasic窗体"C) Form1.Caption="VisualBasic窗体"D) Form1.Text="VisualBasic窗体”3 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：CPrivate Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支1"Case Is >4Print "分支2"Case ElsePrint "Else 分支"End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A）分支1 B）分支2 C）Else分支D) 程序出错4 以下关于MsgBox的叙述中，错误的是 D （见书P88-92）A）MsgBox函数返回一个整数B) 通过MsgBox函数可以设置信息框中图标和按钮的类型C) MsgBox语句没有返回值D) MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量5 在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 DA）Timer1.InterV al=0.5 B) Timer1.Interval=5C) Timer1.Interval=50 D) Timer1.Interval=5006 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BPrivate Sub Command1_Click()Static x As IntegerClsFor i=1 To 2y=y+xx=x+2NextPrint x,yEnd Sub程序运行后，连续三次单击Command1按钮后，窗体上显示的是A) 4 2 B) 12 18 C) 12 30 D) 4 67 以下叙述中错误的是DA）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定8 以下合法的V isual Basic标识符是AA) ForLoop B) Const C) 9abc D) a#x9 当一个复选框被选中时，它的V alue属性的值是 CA) 3 B) 2 C) 1（复选框被选中显示1，不选中显示0）D) 010 表达式5 Mod 3+3\5*2的值是BA) 0 B) 2 C)4 D) 611 设x=4,y=8,z=7，以下表达式的值是Dx<y And (Not y>z) Or z<xA) 1 B) -1 C) True D) False12 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： A Private Sub Command1_Click()a$="VisualBasic"Print String(3,a$)End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）VVV B) Vis C) sic D) 1113设有如下程序段：x=2For i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是 BA) 26 B) 27 C) 38 D) 5714 以下叙述中错误的是BA) 在KeyPress事件过程中不能识别键盘的按下与释放B) 在KeyPress事件过程中不能识别回车键C) 在KeyDown和KeyUp事件过程中，将键盘输入的"A"和"a"视作相同的字母D) 在KeyDown和KeyUp事件过程中，从大键盘上输入的"1"和从右侧小键盘上输入的"1"被视作不同的字符15 执行如下两条语句，窗体上显示的是Da=9.8596Print Format(a,"$00,00.00")A) 0,009.86 B) $9.86 C) 9.86 D) $0,009.8617 在窗体上画一个名称为Command1的命令按钮，并编写如下程序：DPrivate Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A) 10 5 B) 12 5 C) 10 7 D) 12 718 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：BOption Base 1Private Sub Command1_Click()Dim aa= Array(1,2,3,4,5)For i=1 To UBound(a)a(i) = a(i)+i-1NextPrint a(3)End Sub程序运行后，单击命令按钮，则在窗体上显示的内容是A) 4 B) 5 C) 6 D)719 阅读程序Option Base 1Private Sub Form_Click()Dim arr,SumSum = 0arr = Array(1,3,5,7,9,11,13,15,17,19)For i=1 To 10If arr(i)/3 = arr(i)\3 ThenSum =Sum+arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输入结果为 CA）13 B）14 C）27 D）1520 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：D Option Base 1Private Sub Command1_Click()Dim a As V arianta=Array(1,2,3,4,5)Sum=0For i=1 To 5Sum = sum+a(i)Next ix=Sum/5For i =1 To 5If a(i)>x Then Print a(i);Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是A）1 2 B） 1 2 3 C) 3 4 5 D）4 521.在V isual Basic设计界面中不能隐藏的窗口是( A)。
VB程序设计练习题附加答案
《VB程序设计》综合复习资料第一章Visual Basic程序设计概述一、填空题1、Visual Basic是一种面向__对象________的可视化程序设计语言，采取了事件驱动________的编程机制。
2、在VB中工程文件的扩展名是vbp__________，窗体文件的扩展名是___frm_________，标准模块文件的扩展名是__bas_________。
3、执行“工程”菜单下的_部件_________命令，可选择并添加ActiveX控件。
4、Visual Basic 6.0用于开发__ WINDOWS ________环境下的应用程序。
二、选择题1、下面不是VB工作模式的是（C）A．设计模式B．运行模式C．汇编模式D．中断模式2、可视化编程的最大优点是（C）A．具有标准工具箱B．一个工程文件由若干个窗体文件组成C．不需要编写大量代码来描述图形对象D．所见即所得3、下列不能打开属性窗口的操作是（C ）A．执行“视图”菜单中的“属性窗口”命令B．按F4键C．按Ctrl+TD．单击工具栏上的“属性窗口”按钮4、下列可以打开立即窗口的操作是（D）A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G5、Visual Basic的编程机制是（D）A．可视化B．面向对象C．面向图形D．事件驱动三、简答题1、代码窗口主要包括哪几部分？2、在工程资源管理器窗口中，主要列出了哪三类文件？3、窗体布局窗口的主要用途是什么？4、VB的基本特点是什么？5、怎样理解可视化设计？6、怎要理解事件驱动编程？第二章简单的VB程序设计一、填空题1、设置是否可以用Tab键来选取命令按钮，应该用__ Tabstop ____________属性。
2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。
3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。
VB复习题(带答案)(1)
VB复习题(带答案)(1) LtD程序填空1、'功能：要求输入假设干学生的成绩，计算平均分和高于平均分的人数，并将这两个数据放入数组的最后。
Private Sub Form_Click()Dim mark() As Integer, i%, n%, avern = InputBox("输入学生的人数")ReDim mark(1 To n)aver = 0For i = 1 To nmark(i) = Int(Rnd * 101)aver = aver + mark(i)Next i'**********SPACE********** preserveReDim 【?】mark(1 To n + 2) '增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保存mark(n + 1) = aver / nmark(n + 2) = 0For i = 1 To n'**********SPACE**********If mark(i) > mark(【?】) Then mark(n + 2) = mark(n + 2) + 1 n+1Next iFor i = 1 To nPrint "mark("; i; ")="; mark(i)Next iPrint "平均分="; mark(n + 1), "高于平均分人数="; mark(n + 2)End Sub2、功能：以下程序的功能如(图1)。
Private Sub Form_Click()Dim a%, b%, c%, d!, x1, x2, p, q, ra = InputBox("请输入a的值")b = InputBox("请输入b的值")c = InputBox("请输入c的值")d = b * b - 4 * a * cp = -b / (2 * a)If d >= 0 Then'**********SPACE**********If 【?】Then d>0r = Sqr(d) / (2 * a)x1 = p + rx2 = p - rElsex1 = px2 = p'**********SPACE**********【?】end ifPrint "x1="; x1, "x2="; x2'**********SPACE**********【?】elseq = Sqr(-d) / (2 * a)Print "x1="; p; "+"; q; "i", "x2="; p; "-"; q; "i"End IfEnd Sub3、功能：以下程序用于判断一个正整数〔≥3〕是否为素数。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
中南大学现代远程教育课程（专科）考试复习题及答案《VB程序设计与应用》一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。
1. Visual Basic程序中分隔一行中各语句的字符是（）。
[ ]A)‘B):C)\D)_2. 下列可作为Visual Basic的变量名的是（）。
[ ]A: Filename B: A（A＋B）C: A%D D : Print3. 要让菜单项无效，应将（）属性值设置为False。
[ ]A. VisibleB. EnabledC. MoveableD. Checked4. 以下过程是（）事件。
Prviate Sub Form_Load( )……End Sub [ ]A: 命令按钮的单击B: 命令按钮的装载C; 窗体的装载D: 窗体的单击5. Vb中描述文件扩展名的是（）属性。
[ ]A: Drive B: PatternC: FileName D: Path6. 关于Visual Basic中事件的说法中，不正确的为（）。
[ ]A)事件是由Visual Basic预先定义好的，能够被对象识别的动作B)DblClick（双击）是Visual Basic中的一种事件C)一个对象可以识别一个或多个事件D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义7. 下列控件中可设置滚动条是（）。
[ ]A. 检查框（复选框）B. 框架C. 文本框D. 标签框8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。
[ ]A. Form1B. Form2C. FormxD. Form109. Const One&=1，则One为（）类型的常数。
[ ]A)整型B)字节型C)长整型D)单精度型10. 关于逻辑型数据，下列说法错误的是（）。
[ ]A. 逻辑型数据只有两种可能值：True或者FalseB. 当把逻辑值转换为数值时False转为0，True转为1C. 当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为FalseD. 逻辑型数据以2个字节存储11. 以下（）不是Visual Basic的特点。
[ ]A: 结构化程序设计B: 集成可视化程序开发环境C: 事件驱动编程机制D: 可将用户的编程思想自动转换成程序代码12. 窗体的load事件可以被用来实现的功能为（）。
[ ]A: 确定窗体的位置 B: 从内存中清楚一个窗体C: 在程序启动时对属性和变量初始化 D: 重画窗体13. 单复选框的控件名称为（）。
[ ]A. OptionBottonB. CheckBoxC. PictureBoxD. Image14. 若要禁止窗体被移动，可设置窗体的（）属性为False。
A．Moveable B: Move C: MinButton D: ControlBox15. 若要设置定时器的定时间隔设为10秒，应将（）属性值设为10000。
[ ]A. IntervalB. ValueC. EnabledD. Text16. 以下（）是文件夹列表框。
A. DirListBoxB. DriveListBoxC. FileListBoxD. ComboBox17. 以下（）可从通用对话框的“字体”对话框中返回用户选择的字体名。
A. FileNameB. PathC. FontNameD. Color18. 下列哪个操作可以清除文本框对象Text1的内容（）。
A. Text1.Text=""B. Text1.clsC. Text＝""D. cls19. 要想通过单击Command1弹出Form2窗体，则可在Command1的单击事件中，使用（）命令。
A. Load Form2B. Form2.ShowC. Form2.SetFocusD. Form2.PopupMenu20. 以下属性中只在运行时起作用的为（）。
A. Caption属性B. Visible属性C. BorderStyle属性D. Picture属性21. 在运行时，若要使文本框获得输入焦点，可调用文本框对象的（）方法来实现。
A. RefreshB. GetFocusC. SetFocusD. Tab22. 在窗体中利用Print方法输出文本信息时，信息的输出位置由（）属性设置。
A. LeftB. TopC. x,yD. CurrentX,CurrentY23. 语句：Dim student(10,5 to 100) 定义的是一个（）维数组。
A. 2B.3C. 5D.1024. 默认情况下，语句：Dim student(10 to 11 ,4) 定义的数组有（）个元素。
A. 20B.22C. 10D.1125. 已知Eng(1)=90，Math(1)=80，Comp(1)=95 Total(1)= Eng(1)+Math(1)+Comp(1)，则Total(1)=（）。
A. 265B.90C. 80D.9526. 已知在“通用”代码有以下语句：Dim A( ) As Integer则，在某一事件代码中使用（）是正确的。
A. ReDim A(30,4)B. ReDim A(4) AsC. ReDim A(100)D. ReDim A( )27. Int（-23.512）的值为（）。
A.-23B.-24C. 24D.2328. 将ASCII码转换成字符串的函数是（）。
A. Chr$B. Str$C. AscD. Val29. 表达式 Mid("Beijing2008",4,4)的值是（）。
A. BeijB. jingC. inj2D. 200830. A$="+3.14+2"，则Val（A$）的值为（）。
A. +3.14+2B. +5.14C. 3.14D. 5.14二、填空题：请把答案填在题中横线上。
1.Visual Basic中有一种控件组合了文本框和列表框的特性,这种控件是_______。
2.Visual Basic提供的对数据文件的三种访问方式为随机访问方式,__________和二进制访问方式。
3.为了能在运行时把d:\pic文件夹下的图形a.jpg装入图片框Picture1,所使用的语句为___________。
4.计时器控件能有规律的以一定时间间隔触发_______事件,并执行该事件过程中的程序代码。
5.Visual Basic应用程序中标准模块文件的扩展名是____________。
6.与数学表达式cos2(a+b)÷(3+x)+5对应的Visual Basic表达式是_____________.7.要同时选定窗体上的多个控件,可以按住______或_______键,然后依次单击窗体上的各控件.8.在Visual Basic中最基本的对象是__________.9.要在Visual Basic工程中添加一个新的窗体,可以在主窗口的工具栏中选择_______按钮.10.在代码窗口中,输入某行代码并按回车键之后,如果代码变成______颜色,说明该行代码有语法错误.三、程序改错：1.程序功能：已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。
问[100,300]之间有多少个这样的数。
程序中有两行有错误。
改正错误，使它能输出正确的结果。
Private Sub Command1_Click()Dim n1 As Integer, n2 As IntegerDim x As IntegerDim i As Integern2 = 0For x = 100 To 300n2 = 0For i = 1 To 100If x Mod i = 0 Thenn1 = n1 + 1End IfNext iIf x Mod n1 = 0 Thenn2 = n2 + 1End IfNext xPrint n2End sub2.程序功能：利用函数pd计算1~5000之间能被17和37整除的数的个数。
程序中有错误，改正错误，使程序能输出正确的结果。
Private Sub Command1_Click()Dim i As IntegerDim s As Integers = 0For i = 1 To 5000If pd(i) Then s = s + 1Next iPrint sEnd SubPrivate Function pd(x As Integer) As BooleanIf x Mod 17 = 0 Or x Mod 37 = 0 Thenpd = TrueElsepd = FalseEnd IfEnd Fuction3. 程序功能：根据整型参数m，计算100-999的平方根的倒数之和。
程序的函数fun()中有一行有错误，改正错误，使它能输出正确的结果。
Private Sub Command1_Click()Print Format(fun(100, 999), "#.######")End SubPrivate Function fun(m As Integer, n As Integer) As Singley = 0For i = m To nt = 1 / Sqr(i)y = y + tNext ifun = tEnd Function四、程序填空题。
1.士兵在演练过程中，队伍变换成10、21、35、60行时，队形都能成为矩形。
问参加演练的士兵最少有多少人？Private Sub Form_Click()Dim a%, b%, c%, d%, n%a = 10b = 21c = 35d = 60n = 60Do While ________________________________n = n + 1LoopPrint nEnd Sub2. 用cos(x)≈1－x^2/2!+x^4/4!-……+(-1)^(n)*(x^(2n))/(2n)!的公式求近似值，直到最后一项绝对值小于0.00001为止。
设x＝7。
Private Sub Form_click()Dim x As Integer, i As IntegerDim xpower As SingleDim y As Singlex = Val(InputBox("请输入x："))i = 0z = 1y = 1Do While Abs(z) > 0.00001factor = 1i = i + 1For j = 1 To 2 * ifactor = factor * jNext jxpower = x ^ (2 * i)________________________________y = y + zLoopPrint format(y, "0.######")End Sub3. 已知一个数列的前3项为0，0，1，从第4项开始，每项为前3项的和，编程求此数列的第39个数。