下载文档原格式
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。
第一套试题一、选择题（每题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程序设计试题及答案一、选择题（每题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程序设计》期末复习题及答案一、填空题1．创建一个VB应用程序三个主要的步骤是__________________、________________和_____________________。
2．当程序运行时，要求窗体中的文本框呈现空白,则在设计时，应当在此文本框的__________窗口中，把此文本框的_____________属性设置成空白.3．Label和TextBox控件用来显示和输入文本,如果仅需要让应用程序在窗体中显示文本信息，可使用___________控件；若允许用户输入文本，则应使用_____________控件。
4．窗体的常用方法有__________、___________、___________和___________.5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK ，应当编写的语句是____________________________________。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时,打开一个窗口frm1，请对以下事件过程填空。
Private Sub Cmdopen_ ________________________________End Sub7．Visual Basic 6种类型的表达式是______________、______________、______________、________________、_________________、____________________。
Visual Basic根据表达式的___________来确定表达式的类型.8．表达式93 \ 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a〉b and Not c>a Or c〉b And c〈a+b的值是_________。
表达式c>a And Not b〈c的值是___________。
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 程序设计期末复习题一、填空题1.在VB 6.0中,变量名最长可达个字符.答案：255解析：规定2.男性(sex)，年龄(age)在18—20岁之间，身高(size)在 1.65米以上，列出逻辑表达式。
答案：sex and age>=18 and age<=20 and size>=1.65解析：规定3.要使一个按钮设为默认按钮,应把此按钮的属性的值设为True.答案：Default解析：规定4.一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示文件. 答案：工程解析：规定5.VB表达式9^2 MOD 45 \2 *3 的值 .答案：4解析：表达式的计算，优先级6.如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为 .答案：退出(&X)解析：规定7.拖动滚动条中的滚动块将会产生Scroll和事件.答案：Change解析：规定8.在利用Visual Basic设计应用程序时，一般会遇到三类错误：语法错误、执行错误和。
答案：逻辑错误解析：规定9.Option Base 1的作用是确定数组的下界为 .答案：1解析：规定10.在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的属性的值设置为True.答案：MultiLine解析：规定11.表达式81\7 MOD 2^2 的值是 .答案：3解析：规定12.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .答案：0解析：规定13.把条件1<=X<12写成VB关系表达式为 .答案： x>=1 and x<12 或 x<12 and x>=1解析：规定15.如果要在单击按钮时执行一段代码,则应将这段代码写在事件过程中.答案：click解析：规定16.写出清除标签Label1的显示信息的语句为 .答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""解析：规定17.如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义 .答案： public mystring as string*15解析：规定18.将焦点定位于命令按钮Command1之上的语句为 .答案：Command1.SetFocus 或 SetFocus解析：规定19.滚动条控件有水平滚动条和滚动条.答案：1). 垂直解析：规定20.把整型数1赋给一个逻辑型变量,则逻辑变量的值为 .答案：True解析：规定21.写出清除标签Label1的显示信息的语句为 .答案：Label1.caption="" 或 Label1="" 或 Label1.Caption=""解析：规定22.设置计时器对象触发事件的时间间隔用属性.答案：interval解析：规定23.VB中,变量的声明可分为两种方法: 数组和动态数组.答案：静态解析：规定24.大于X 的最小整数的VB表示形式为 .答案：Int(x)+1 或 Int(x) + 1解析：规定25.文本框中所显示的内容是它的属性的值.答案：Text解析：规定26.设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为 . 答案：False解析：规定27.设置计时器控件只能触发事件.答案：timer解析：规定28.文件按照存取方式及其组成结构可以分为顺序文件和 .答案：随机文件解析：规定28.声明单精度常量g(重力加速度)代表9.8可写成 .答案：const g=9.8 或 const g as single =9.8解析：规定29.在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer,则strVar、intVar与sngVar的数据类型分别是Variant、Variant和 .答案：Integer解析：规定30.如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有个元素.答案：21解析：规定31.由For k=35 to 0 step 3:next k循环语句控制的循环次数是 .答案：0解析：初值超过终值32.表达式 1 and 0的值 .答案：False解析：规定33.一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式 .答案：a<>0 and b^2-4*a*c>=0解析：逻辑表达式的书写34.变量min@表示类型的变量.答案：货币型解析：数据类型35.想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上 .答案：&解析：规定二、程序填空1.以下程序段利用随机函数生成15个10-100之间的整数，然后用选择法将其从小到大排序。
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程序设计试题及答案（一）一、单选题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 。
《VB程序设计》综合复习资料一、填空题1.在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。
2.一个控件在窗体的位置由______和________属性决定，其大小由__________和_________属性决定。
3.变量的声明分为两种方法:__________和____________。
4.使用____________方法可在窗体中进行文本的输出,用____________方法可画圆，用____________方法可画直线。
5.类是具有相同性质的对象的_________.6.利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点.7.文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。
8.在VB中,用___________________语句设定数组的下界，用_____________和__________________语句分别返回数组的上、下界。
9.在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组；名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”.运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中。
单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2中。
请填空。
Private Sub Command1_Click（）Sum = 0For i=0 To 4Sum=Sum+____Next i_____=SumEnd Sub10.在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。
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程序设计与应用》一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。
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个数。
