下载文档原格式
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 章程序设计及VB 概述一、选择题1、C 2、A 3、A 4、C 5、B 6、C 7、D 8、A 9、D 10、C 二、填空题1、对象Windows（不确定）事件驱动2、窗体工程3、查看对象查看代码4、CmdExam Click lbldisp 5、“启动”按钮“运行”菜单“启动”命令F5 6、Click 事件过程7、Cancel 8、Label1第 2 章Visual Basic 程序设计基础一、选择题1、A 2、C 3、D 4、B 5、C 6、A 7、B 8、A 9、B 10、D 二、写出下列表达式的值1、 6 2、0 3、8 4、False 5、False 6、T rue 7、－1 8、16.7 9、"C" 10、"Basic" 11、"VISUAL " 12、 5 三、将代数式改写成VB 表达式1、(a + b) / (c * d - Sqr(1 - a * a)) + 5 ^ (1 / 3) * Cos(3.14159 / 3) ^ 2 2、Sin(45 * 3.14159 / 180) + Abs(x - y) 3、2 * Exp(x) + Log(x * y) 4、(Log(50) / Log(10) - Log(20)) / (9 * Exp(3)) 5、Abs(x) >= Y And Abs(x) <> Z 6、m < 100 And m >= 0 7、(A Mod 3 = 0) Or (A Mod 7 = 0) 8、(N Mod 4 = 0 And N Mod 100 <> 0) Or (N Mod 400 = 0)第 3 章程序的基本控制结构一、选择题1、⑴ C ⑵ D 2、B 3、B 4、B 5、C 6、A 7、D 8、BD 9、C 10、D 11、A 12、A 13、D 14、A 15、A 16、D 二、填空题1、15 15 2、x= 3 y=103、1 2 3 4 5 6 7 8 9 0 * * * * * * * * * * * * * * *4、⑴ 12345 ⑵ 543215、ABCDE6、327、⑴ k ⑵ If x < n Then n = x : nk = i ⑶ mk ⑷ m 8、⑴ exit for ⑵ f1 And f2 Then ⑶ f1 = f2 9、⑴n ⑵ Len(CStr(nn) - 1) ⑶ c-1 ⑷ Loop Until nn = 0 ⑸ n = m Then 10、⑴ Opt1.Value = T rue ⑵Opt2.Value ⑶ Opt3.Value ⑷ CStr(k) ⑸ k-10 ⑹ Asc("A")第 4 章数组一、选择题1、B 2、A 3、D 4、C 二、填空题1、Option Base 1 2、ReDim Preserve 3、Lbound UBound 4、可变5、Index 6、4 11 7、27 8、arr(1) Fmin=1 min = arr(i) 第 5 章应用程序界面设计一、选择题1、C 2、B 3、A 4、B 5、D 6、D 7、D 8、DA 9、BC 10、A 11、A 12、B 13、A 14、A 15、A二、填空题1、通用2、Style 3、Print lstEx.List(2) 4、CmbEx.ListIndex = 4 5、“－” 6、PopupMenu 7、Enabled Interval T rue >0 8、窗体、图片框、框架9、MultiLine ScrollBars 10、AutoSize Stretch 11、Image1.Picture = LoadPicture("c:\pic1.jpg") 12、Change 13、另存为14、顶级15、⑴ListIndex T ext 或List(List1.ListIndex) ⑵List(2) ⑶x , Lst1.ListIndex +1 ⑷ListCount – 1 Selected RemoveItem i第 6 章过程一、选择题1、C 2、C 3、C 4、A 5、D 二、填空题1、内存空间或者：地址2、传值传址3、Sub T estAB(a As Single, b!, c As Boolean) 4、过程名＝<表达式> 5、局部变量6、Static 7、本过程模块整个工程8、模块级工程级9、过程调用自身递归结束递归描述10、 6 8 4 6 4 3 11、0.6 1.8 12、 2 5 8 11 13、 3 1 3 0 1 3 4 1 3 0 1 3 1 1 3 第7 章鼠标和键盘填空题1、11 2、MouseDown MouseUp MouseMove 3、Shift Ctrl Alt 4、MouseDown MouseUp MouseUp 5、A a 6、Ctrl + Alt + 单击鼠标右键7、Form-66 T ext-66第8 章文件一、选择题1、C 2、B 3、A 4、D 5、D 二、填空题1、程序文件和数据文件顺序文件和随机文件ASCII 文件和二进制文件2、顺序随机二进制3、Output Append Input Random Binary Random 4、打开（建立）读/写关闭5、Input# LineInput# Input() Get Put 6、Input As #10 Output As #20 7、Dir1.Path Drive1_Change()第9 章多窗体和多文档界面一、选择题1、C 2、C 3、D 4、C 5、C 二、填空题1、Load UnLoad 2、Show Hide 3、无效4、图片框5、图片框、计时器第10 章文本和图形选择题1、A 2、C 3、A 4、B 5、C第 3 章编程题参考答案1、Private Sub Form_Click() Dim a%, b%, c% Dim d!, x1!, x2% a = InputBox("a=") b = InputBox("b=") c = InputBox("c=") d = b * b - 4 * a * c If d < 0 Then '虚根Print "x1="; -b / (2 * a); "+"; Sqr(-d) / (2 * a); "i" Print "x2="; -b / (2 * a); "-";Sqr(-d) / (2 * a); "i" Else Print "x1="; (-b + Sqr(d)) / (2 * a) Print "x2="; (-b - Sqr(d)) / (2 *a) End If End Sub2、Private Sub Form_Click() Dim n As Integer For n = 1 T o 100 If n Mod 8 <> 0 And n Mod3 <> 0 Then Print n End If Next '实根End Sub3、Private Sub Form_Click() Dim n%, x%, n1%, n2% n = InputBox("n=") For i = 1 T o n x = InputBox("x=") If x > 0 Then s1 = s1 + x: n1 = n1 + 1 If x < 0 Then s2 = s2 + x: n2 = n2 + 1 Next i Print Print "正数之和为："; s1, "个数为："; n1 Print "负数之和为："; s2, "个数为："; n2 End Sub4、Private Sub Form_Click() x = InputBox("x=") i = 2 Print x; "="; Do While x >= i If x Mod i = 0 Then If x = i Then Print i Else Print i; "*"; x = x \ i Else i = i + 1 End If Loop End Sub5、Private Sub Form_Click() Dim x%, i%, n% For i = 1 T o 20 x = Int(100 * Rnd) If x Mod 2= 0 Then Print x; n = n + 1 End If Next Print Print "偶数个数为："; n End Sub6、Private Sub Form_Click() Dim x!, y! x = InputBox("x=") If x <= -1 Then y = Exp(-x) ElseIf x < 1 Then y = x * x + x + 1 Else y = Log(x) / Log(10) End If Print y End Sub7、Private Sub Command1_Click() If Option1.Value And Option3.Value Then p = 22 Label1.Caption = "去城市 1 的硬座票价：" & p End If If Option1.Value And Option4.Value Then p = 50 Label1.Caption = "去城市 1 的硬卧票价：" & p End If If Option2.Value And Option3.Value Then p = 88 Label1.Caption = "去城市 2 的硬座票价："& p End If If Option2.Value And Option4.Value Then p = 180 Label1.Caption = "去城市 2的硬卧票价：" & p End If End Sub8、（1）单循环For i = 1 T o 30 t = t + i Sum = Sum + t Next Print "sum="; Sum 二重循环For i = 1 T o 30 t = 0 For j = 1 T o i t = t + j Next j Sum = Sum + t Next i Print "sum="; Sum （2）i = 1 Do t = t + i Sum = Sum + t i = i + 1 Loop Until t > 200 Print "sum="; Sum9、Private Sub Form_Click() For m = 100 T o 999 tem = m gw = tem Mod 10 tem = tem \ 10sw = tem Mod 10 bw = tem \ 10 If (gw + sw) Mod 10 = bw Then '满足第一个条件flag = True '判断其是否为素数For i = 2 T o Sqr(m) If m Mod i = 0 Then flag = False: Exit For Next i If flag Then Print m; n = n + 1 '按每行 5 个输出If n Mod 5 = 0 Then Print End If End If Next m End Sub第 4 章编程题参考答案1. Option Base 1 Private Sub Form_Click() Dim A, B Dim C(10) As Integer A = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) B = Array(2, 4, 6, 8, 10, 1, 3, 5, 7, 9) For i = 1 T o 10 C(i) = A(i) * B(i) Print C(i); Next i End Sub2. Option Base 1 Private Sub Form_Click() Dim a(10) As Integer For i = 1 T o 10 a(i) = InputBox("输入整数") Print a(i); Next Print For i = 1 T o 10 \ 2 temp = a(i) a(i) = a(11 - i) a(11 - i) = temp Next i For i = 1 T o 10 Print a(i); Next End Sub3. Option Base 1 Dim a() As Integer Dim n As Integer Private Sub Form_Click() Randomize 10: n = InputBox("n=") If n < 10 Then GoT o 10 ReDim a(n) For i = 1 T o n a(i) = Int(100 * Rnd) Print a(i); Next Print For i = 1 T o n – 1 For j = i + 1 T o n If a(j) > a(i) Then temp = a(i): a(i) = a(j): a(j) = temp End If Next j Next i For i = 1 T o n Print a(i); Next Print End Sub4. Private Sub Command1_Click() Dim x As Integer, y As Integer ReDim Preserve a(n + 1) '插入操作'排序x = InputBox("输入要插入的数") For k = 1 T o n If x > a(k) Then Exit For Next k For i = n T o k Step -1 a(i + 1) = a(i) Next i a(k) = x For i = 1 T o n + 1 Print a(i); Next i Print y = InputBox("输入要删除的数") For k = 1 T o n + 1 If y = a(k) Then Exit For Next For i = k + 1 T on + 1 a(i - 1) = a(i) Next For i = 1 T o n Print a(i); Next Print End Sub '删除操作5. Option Base 1 Private Sub Form_Click() '第(1)小题Dim a(5, 5) As Integer Dim Max As Integer, timax As Integer, tjmax As Integer For i = 1 T o 5 For j = 1 T o 5 a(i, j) = Int(90 * Rnd + 10) Print a(i, j); Next j Print Next i '第(2)小题Max = a(1, 1): timax = 1: tjmax = 1 For i = 1 T o 5 For j = 1 T o 5 If a(i, j) > Max Then Max = a(i, j) timax = i tjmax = j End If Next j Next i Print "最大元素为："; Max; "其位置在第"; timax; "行"; tjmax; "列" '第(3)小题s = 0 For i = 1 T o 5 For j = 1 T o i Print a(i, j); s = s + a(i, j) Next j Print Next i Print "下三角元素和为"; s '第(4)小题For i = 1 T o 5 temp = a(i, 2): a(i, 2) = a(i, 4): a(i, 4) = temp Next i For i = 1 T o 5 For j = 1 T o 5 Print a(i, j); Next j Print Next i End Sub6. Option Base 1 Private Sub Form_Click() Dim a() As Integer n = Val(InputBox("n=")) ReDim a(n, n) For i = 1 T o n a(i, i) = 1: a(i, 1) = 1 Next For i = 3 T o n For j = 2 T o i - 1 a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i For i = 1 T o n For j = 1 T o i Print a(i, j); Next j Print Next i End Sub 第8 章编程题参考答案1、Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer Open "d:\a1.txt" For Output As #1 For i = 1 T o 5 For j = 1 T o 5 a(i, j) = Int(90 * Rnd + 10) Print #1, a(i, j); Next j Print #1, Next i Max = a(1, 1) For i = 1 T o 5 For j = 1 T o 5 If a(i, j) > Max Then Max = a(i, j) End If Next j Next i Print #1, "Max="; Max Close #1 End Sub2、Private Sub Command1_Click() Open "d:\file1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, str1 T ext1 = T ext1 + str1 + Chr(13) + Chr(10) Loop Close #1 End Sub Private Sub Command2_Click() '修改文本框内容后保存文件'读出文件内容并在文本框中显示Open "d:\file2.txt" For Output As #2 Print #2, T ext1 Close #2 End Sub3、标准模块：T ype T elBook Num As String * 5 Name As String * 4 T elNum As String * 8 Addr As String * 30 End T ype 窗体模块：Dim T el As T elBook Private Sub cmdSearch_Click() Open "d:\T elbook.txt" For Random As #1 Len = Len(T el) i = 1 flag = 0 Do While Not EOF(1) Get #1, i, T el If T el.Num = T rim(txtNum.T ext) Then txtName.T ext = T txtT elNum.T ext = T el.T elNum txtAddr.T ext = T el.Addr flag = 1 Exit Do End If i = i + 1 Loop Close #1 If flag = 0 Then MsgBox "没有找到所输入的编号！" End If End Sub。
第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. 应用程序打包后，其包文件的后缀为（ B ）。
A. .exeB. .cabC. .txtD. .ocx2. 在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（ B ）A. HelpB. F1C. F10D. Enter3. 在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（ C ）。
A. 立即窗口B. 属性窗口C. 代码窗口D. 工程资源管理器窗口4. 后缀为.frm的文件表示VB 的（ A ）。
A. 窗体文件B. 类模块文件C. 工程文件D. 标准类模块文件5. 要改变控件的高度，应该修改控件的（ D ）属性。
A. TopB. LeftC. WidthD. Height6. 能够改变标签Label控件显示标题的属性是（ A ）。
A. CapionB. NameC. ClickD. Text7. 与传统的程序设计语言相比，Visual Basic最突出的特点是（ C ）A. 结构化程序设计B. 程序开发环境C. 事件驱动编程机制D. 程序调试技术8. 下列赋值语句正确的是（ B ）A. B+C =AB. A=B+CC. -B=AD. 5=A+B9. 应用程序设计完成后，应将程序保存，保存的过程是（ D ）。
A. 只保存窗体文件即可B. 只保存工程文件即可C. 先保存工程文件，之后还要保存工程文件D. 先保存窗体文件（或标准模块文件），之后还要保存工程文件10. 在Visual Basic中，要使一个窗体不可见，但不从内存中释放，应使用的语句是（ B ）。
A. ShowB. HideC. LoadD. UnLoand11. 如果对象的名称为Mytext，而且对象有一个属性Text，那么在代码中引用该属性的正确格式是（ B ）A. Text.MytextB. Mytext.TextC. Mytext.(Text)D. Mytext*Text12. 要在窗体Form1内显示“myfrm”，使用的语句是（ C ）A. Form.caption="myfrm"B. Form1.caption="myfrm"C. Form1.print "myfrm"D. Form. print "myfrm"13. 每建立一个窗体，工程管理器窗口中就会增加一个（ B ）。
中南大学网络教育课程考试复习题及参考答案Visual Basic程序设计(专科)一、单项选择题：1.Visual Basic程序中的注释所使用的字符是 [ ]A. 'B. :C. \D. _2.若要设置定时器的定时间隔设为10秒，应将( )属性值设为10000。
[ ]A. IntervalB. ValueC. EnabledD. Text3.算法一般都可以用( )三种控制结构组合而成。
[ ]A.循环、分支、递归B.顺序、循环、嵌套C.循环、递归、选择D.顺序、选择、循环4.下列可调整图片框的大小以适合图片的属性是 [ ]A.stretchB. autosizeC. pictureD. oledropmode5.用下面的语句所定义的数组的元素个数是 [ ] Dim arr(3 to5,-2 to 2)A.20B. 12C.15D. 246.下列不属于常量的是 [ ]A. 12B. “ch”C. abcD. 1.237.InputBox函数的返回值类型为 [ ]A.数值型B.字符型C.逻辑型D.变体型8.默认情况下，语句：Dim student(10,5) 定义的数组有( )个元素。
[ ]A.50B.6C.15D.669.Abs( -3.14)的值是 [ ]A. 3B. -3C.-3.14D. 3.1410.要让菜单项无效，应将( )属性值设置为 False。
[ ]A. VisibleB. EnabledC. MoveableD. Checked11.以下代码，循环( )次 [ ]Dim nFor n = 1 To 50 Step 5sult.Text = Str(n)NextA.12B.10C.50D.1112.表达式 Mid("Beijing2008",4,4)的值是 [ ]A. BeijB. jingC. inj2D. 200813.A$="+3.14+2"，则Val（A$）的值为 [ ]A. +3.14+2B. +5.14C. 3.14D. 5.1414.语句：Dim student(10,5 to 100) 定义的是一个( )维数组。
《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 orm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。
表10-1 实例2各控件的主要属性设置过程设计如下：Private sub Form_Click()Command2.Enabled = FalseEen SubPrivate Sub Command1_Click()Label2.Visible = FalseLabel1.Caption = Text1.Text + ": 欢迎使用" + Label1.CaptionText1.Visible = FalseCommand1.Enabled = False: Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2．界面设计略，过程设计如下：Private Sub Command1_Click() '字体变大Form1.FontSize = Form1.FontSize + 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command2_Click() '字体变小Form1.FontSize = Form1.FontSize - 3Form1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command3_Click() '字体加粗Form1.FontBold = TrueForm1.Cls: Print "欢迎使用VB"End SubPrivate Sub Command4_Click() '字体不加粗Form1.FontBold = FalseForm1.Cls: Print "欢迎使用VB"End Sub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。
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中，下列合法的变量名是（）。
"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，才能承受焦点。
一、填空题（每题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 )。
A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Right(a,5,5) D) b=Left(a,8,5)3．设X为整型变量,不能正确表达1< X < 5的逻辑表达式是( A )。
A) 1< X <5 B) X=2 or X=3 or X=4C) 1<X And X <5 D) Not (X<=1) And Not (X>=5)4．InputBox函数返回值的类型为( B )。
A) 数值型 B) 字符串型 C) 逻辑型 D) 货币型5．执行语句：Print 4+5\6*8/8 Mod 9 输出的值是( A )。
A) 4 B) 5 C) 6 D) 76.下列循环语句能正常结束循环的是（ C）。
A)i=5 B) i=1Do Doi=i+1 i=i+2Loop Until i< 0 Loop Until i=10C)i=10 D) i=6Do Doi=i+1 i=i-2Loop Until i> 0 Loop Until i=17．以下叙述中正确的是（ A ）。
A) 窗体的Name属性指定窗体的名称，用来标识一个窗体B) 窗体的Name属性的值是显示在窗体标题栏中的文本C) 可以在运行期间改变窗体的Name属性的值D) 窗体的Name属性值可以为空8．VB为命令按钮提供的Cancel属性（ A ）。
A) 用来指定命令按钮是否为窗体的“取消”按钮B) 用来指定命令按钮的功能是停止一个程序的运行C) 用来指定命令按钮的功能是关闭一个运行程序D) 用来指定命令按钮的功能是中断一个程序的运行9．若使命令按钮失效，要对（ A ）属性设置为False。
A) Enabled B) Visible C) BackColor D)Caption10．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Command1_Click()a = UCase(Text1.Text) + Left(Text2.Text, 3)Print aEnd SubPrivate Sub Form_Load()Text1.Text = "abcDEF"Text2.Text = "123456"End Sub程序启动后，单击命令按钮，输出结果为（C）A）abcDEF123456 B）abcDEF123C）ABCDEF123 D）ab12345611．在运行程序时，要使文本框获得焦点，则需使用（B）方法。
A) Change B) SetFocus C) GotFocus D) Move12．下列语句中不能把图片框Picture1中的图形清除的是（ A ）。
A) Picture1.Del B) Picture1.Picture=LoadPicture("")C) Picture1. Picture= LoadPicture( ) D) Picture1. Picture=Nothing13．要删除列表框中的某一个项目，需要使用（ D ）方法。
A) Clear B) ReMove C) Move D) ReMoveItem14．在组合框中选择某一项目内容，在程序中可以通过（D）属性获得。
A) List B) ListIndex C) ListCount D) Text15．若有数组说明语句：Dim a()AS Integer，则a被定义为（B）。
A) 定长数组 B) 可调数组 C) 静态数组 D) 可变类型数组16．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu.Name = "李强".Age = 21.Sex = "男"End With执行语句Print Stu.Age后在窗体上显示的结果是（ B ）。
A)李强 B)21 C)“男” D)Age17.要使子过程f1调用后能用形式参数返回两个结果，下面子过程定义正确的是( C )。
A）Sub f1(ByVal n%,ByVal m%) B）Sub f1(n%,ByVal m%)<子过程体> <子过程体>End Sub End SubC）Sub f1(n%,m%) D）Sub f1(ByVal n%,m%)<子过程体> <子过程体>End Sub End Sub18.以下叙述中错误的是( D )。
A) 一个工程中可以包含多个窗体文件B) 在一个窗体文件中用Private定义的子过程或函数过程不能被其他窗体文件调用C) 在设计VB程序时，窗体模块和标准模块需要分别保存为不同类型的文件D) 全局变量必须在标准模块中定义19．从磁盘上打开顺序文件"c:\t1.txt"为读入数据做好准备，如下语句（A）是正确的。
A） F="c:\t1.txt" B）F="c:\t1.txt"Open F For Input As #1 Open "F" For Input As #2 C）Open "c:\t1.txt" For Output As #1 D）Open c:\t1.txt For Input As #220.以下叙述中正确的是( B )。
A) 一个记录中所包含的各个元素的数据类型必须相同B) 随机文件中每个记录的长度是固定的C) Open命令的作用是打开一个已经存在的文件D) 使用Input#语句可以从随机文件中读取数据三、程序阅读题(第1题3分，第2题5分，其余题各4分，共24分)1．当x的输入值分别为4、8和12时，写出执行下列事件过程的输出结果。
Private Sub Command1_Click()Dim x%, y%x = InputBox("请输入x的值：")Select Case xCase 1, 3, 5 ,7y = x + 10Case 8 To 10y = x + 2Case 2, 4, 6y = 5 * xCase Is > 10y = x * x + 1End SelectPrint "x="; x, "y="; yEnd Subx=4 y=20x=8 y=10x=12 y=1452. 写出执行下列事件过程的输出结果。
Private Sub Command1_Click()Const n = 3Dim i As Integer, k As IntegerFor i = 1 To nPrint Tab((n - i) * 2 + 1);For k = 1 To iPrint Str(k);Next kFor k = i - 1 To 1 Step -1Print Str(k);Next kPrintNext iEnd Sub11 2 11 2 3 2 13.设在一个窗体（如图所示）中已设置了一个组合框Combo1和文本框Text 1，且有下列程序，试写出事件过程Combo1_Click的功能。
Dim str As StringPrivate Sub Form_Load()str = " "Combo1.AddItem "北京"Combo1.AddItem "天津"Combo1.AddItem "西安"Combo1.AddItem "上海"Combo1.AddItem "武汉"Combo1.AddItem "广州"Combo1.AddItem "海口"Combo1.Text = "北京"End SubPrivate Sub Combo1_Click()str = str & Combo1.Text & "，"Text1.Text = strEnd Sub在文本框中显示单击组合框列表项目时该项目的内容，而且以后来添加的方式在文本框中显示所有选择项目的内容。
