中南大学现代远程教育课程（专科）考试复习题及答案《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个数。