下载文档原格式
VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________,它是应用程序的基石，也是其他控件的容器.A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1。
T ext=”Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c,且变量a的值为5，变量b的值为7,变量c的值为12.以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c”C、Text1 = a & "+” ＆b & "=” & cD、Text1 = "a" & ”+" ＆"b” & ”=" ＆"c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________.A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.Text="Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题。
A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7，变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1.Text = a + b + cB、Text1.Text = "a+b=c"C、Text1 = a & "+" & b & "=" & cD、Text1 = "a" & "+" & "b" & "=" & "c"6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________。
A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。
一、选择题（每题2分，共50分）1、在VB中，语句dim A(10) 中定义了一个（）类型数组A 变体B 单精度 C、双精度 D、字符串2、在VB中，“工程资源管理器”窗口中，单击（）可打开代码窗口，显示选中文件中的代码。
A 查看代码B 查看对象C 切换文件夹D 过程查看3、在VB中，以下程序中语句I=i+2的执行次数是（）For i=1 to 25I=i+2Next iPrint iA 8B 9C 10D 114、用于VB程序设计的控件在（）A 工具箱中B 工具菜单中C 工具栏上D 工程窗口中5、退出VB的错误方法是（）A 单击窗口右上角的关闭按钮B 选择“文件”菜单中“退出”命令C 按快捷键 ALT + QD 选择“文件”菜单中“关闭”命令6、在VB中，下列程序运行后输出的结果是（）For j=2 to 15 step 3K=k+jNext jPrint k+jA 16B 40C 55D 577、在VB中，设A=“12345678”，则表达式val(left(a,4)+mid(a,4,2))的值为（）A 123456B 123445C 8D 68、语句 print 7\3*3 运行时输出的结果为（）A 7B 3C 0D 19、以下VB程序输出的结果是（）Private sub form_activate( )Dim A(20)For k=1 to 19A(k)=k^2Next kPrint A(k)End subA 400B 361C 0D 出错10、以下叙述中错误的是（）。
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.bas为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件11、以下关于函数过程的叙述中，正确的是（）。
A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型12、设有以下循环结构Do循环体Loop While <条件>则以下叙述中错误的是（）A）若"条件"是一个为0的常数，则一次也不执行循环体。
《VB程序设计》期末考试注意事项：（1）题型：选择题40道，判断题10道，每题2分，满分100分。
（2）答题时间：60分钟。
（3）请在规定时间内作答并提交。
1、VB程序设计语言是一种（）。
[单选题] *A．汇编语言B．机器语言C．高级语言(正确答案)D．数据库语言2、VisualBasic最突出的特点是（）。
[单选题] *A．结构化程序设计B．程序开发环境C．程序调试技术D．事件驱动编程机制(正确答案)3、VB中，.frm是（）文件的扩展名。
[单选题] *A．工程文件B．可执行文件C．窗体文件(正确答案)D．标准模块文件4、VB中，.vbp是（）文件的扩展名。
[单选题] *A. 工程文件(正确答案)B. 可执行文件C. 窗体文件D. 标准模块文件5、在设计窗体时，双击窗体的任何地方，可以打开的窗口是（）。
[单选题] *A. 代码窗口(正确答案)B. 属性窗口C. 工程管理窗口D. 以上3个选项都不对6、VB是一种面向对象的程序设计语言，下面（）不是面向对象包含的三要素。
[单选题] *A. 变量(正确答案)B. 事件C. 属性D. 方法7、不论任何控件，共同具有的是（）属性。
[单选题] *A. TextB. CaptionC. BackColorD. Name(正确答案)8、要使Form1窗体的标题栏显示“欢迎使用Visual Basic 6.0! ”,以下（）语句是正确的。
[单选题] *A. Form1.Caption =" 欢迎使用Visual Basic 6.0! "(正确答案)B. Form1.Caption =’欢迎使用Visual Basic 6.0! ’C. Form.Caption = " 欢迎使用Visual Basic 6.0! "D. Form.Caption = ’欢迎使用Visual Basic 6.0! ’9、有下面的程序代码：Command1.Caption ="确定"，则Command1，Caption和"确定"分别代表（）。
VB简介1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类B、不同属性可能具有不同的数据类型C、一个对象的所有属性都可在属性窗口的列表中进行设置D、属性窗口中的属性列表既可按字母排序也可按类别排序2、Visual Basic中最基本的对象是___________,它是应用程序的基石，也是其他控件的容器。
A、文本框B、命令按钮C、窗体D、标签3、有程序代码“Text1.T ext=”Visual Basic”"，其中的Text1、Text和“Visual Basic”分别代表___________。
A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值4、用窗体的___________属性来设置窗体的标题.A、CaptionB、StyleC、TextD、Name5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c，且变量a的值为5，变量b的值为7,变量c的值为12。
以下的___________语句可以使文本框内显示的内容为：5+7=12。
A、Text1。
Text = a + b + cB、Text1。
Text = ”a+b=c”C、Text1 = a ＆”+" & b ＆”=" & cD、Text1 = "a" & ”+” ＆”b" ＆"=" ＆”c”6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件,则命令按钮的名称属性和Caption属性分别为_________.A、OK、CmdB、Cmd、OKC、CmdOK、OKD、OK、CmdOK7、窗体Form1的名称属性是frm,它的Load事件过程名为___________。
A、Form_LoadB、Form1_LoadC、frm_LoadD、Me_Load8、下列有关对象属性的说法正确的是___________。
vb程序设计考试题库及答案一、单项选择题（每题2分，共40分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. RealD. All of above答案：D2. VB中，哪个函数用于计算两个数的最大值？A. MinB. MaxC. AbsD. Sgn答案：B3. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. All of above答案：D4. VB中，以下哪个是正确的循环结构？A. For EachB. For AllC. Do WhileD. All of above答案：D5. 在VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. Switch...CaseC. Select...CaseD. All of above答案：D6. VB中，哪个函数用于计算一个数的绝对值？A. AbsB. RoundC. SqrD. Int答案：A7. 在VB中，以下哪个是合法的数组声明？A. Dim arr(10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Both A and BD. None of the above答案：C8. VB中，哪个函数用于将字符串转换为大写？B. UCaseC. StrCompD. StrConv答案：B9. 在VB中，以下哪个是正确的事件处理程序的声明方式？A. Private Sub Form_Click()B. Public Sub Form_Click()C. Both A and BD. None of the above答案：A10. VB中，哪个函数用于计算一个数的平方根？A. SqrB. PowC. ExpD. Log11. 在VB中，以下哪个是正确的文件打开模式？A. Open For InputB. Open For AppendC. Open For RandomD. All of above答案：D12. VB中，哪个函数用于计算一个数的指数？A. SqrB. PowC. ExpD. Log答案：B13. 在VB中，以下哪个是正确的窗体属性？A. CaptionC. Both A and BD. None of the above答案：C14. VB中，哪个函数用于计算一个数的自然对数？A. SqrB. PowC. ExpD. Log答案：D15. 在VB中，以下哪个是正确的控件事件？A. ClickB. DoubleClickC. Both A and BD. None of the above答案：C16. VB中，哪个函数用于计算一个数的四舍五入？A. RoundB. IntC. FixD. Sgn答案：A17. 在VB中，以下哪个是正确的控件属性？A. NameB. CaptionC. Both A and BD. None of the above答案：C18. VB中，哪个函数用于计算一个数的符号？A. AbsB. SgnC. RoundD. Int答案：B19. 在VB中，以下哪个是正确的控件事件？A. KeyPressB. KeyDownC. Both A and BD. None of the above答案：C20. VB中，哪个函数用于计算一个数的固定整数部分？A. RoundB. IntC. FixD. Sgn答案：C二、填空题（每题2分，共20分）21. VB中，使用________函数可以将一个字符串转换为小写。
判断题：（共20题每题2分）1、一个对象可以响应一个或多个事件。
参考答案：正确2、一个窗体必须对应一个窗体模块，各种控件对象必须建立在窗体上。
参考答案：正确3、窗体事件和其中所有控件事件的代码都放在窗体文件（.frm）中。
参考答案：正确4、在VB中，控件的事件只能通过用户的操作触发。
参考答案：错误5、字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。
参考答案：正确6、保存工程时，窗体文件和工程文件的文件名不能相同。
正确错误参考答案：错误7、改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。
正确错误参考答案：正确8、同一过程中，数组和简单变量可以同名。
正确错误参考答案：错误9、VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。
正确错误参考答案：正确10、代码Const Number1=15：Number1=10合法。
参考答案：错误11、允许将块If-Then语句结构中的所有语句都写在一行上。
正确错误参考答案：错误12、定义数组语句Dim a(b) As Integer 是正确的。
正确错误参考答案：错误13、在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。
正确错误参考答案：正确14、case是合法的变量命名。
正确错误参考答案：错误15、按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。
正确错误参考答案：错误16、若一个工程包含多个窗体，则这些窗体之间是可以互相调用的。
参考答案：正确17、窗体间是通过窗体对象的caption来调用的。
参考答案：错误18、一个数组中的元素必须是相同的数据类型。
参考答案：错误19、用 Label1.Caption="你好" 与 Label1 ="你好" 均可以改变标签标题，且结果完全相同。
正确错误参考答案：正确20、定时器控件的时间间隔设为0 或 Enabled属性设为False，都将停止触发Timer事件。
第2题 （1.0分） 题号:129 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：该程序实现将输入的 0 - 255 之间的正整数转 ' 换成二进制数 '------------------------------------------------ Option Explicit Private Sub Form_Click() Const n = 8 Dim a(n) As Integer, s As String, m As Integer, x As Integer x = Val(InputBox("请输入一个 0 - 255 之间的正整数：")) Print x '**********FOUND********** For m = 1 To n a(m) = x Mod 2 '**********FOUND********** x = x / 2 Next m s = " " For m = n To 0 Step -1 '**********FOUND********** s = Str(a(m)) Next m Print s End Sub 答案： =======(答案1)======= For m = 0 To n =======(答案2)======= x= x \ 2 =========或========= x= int(x/2)
=======(答案3)======= s = s + Str(a(m)) 第3题 （1.0分） 题号:463 '------------------------------------------------ '【程序改错】 '------------------------------------------------
'题目：以下程序功能是输入三个数，由大到小排序。
'------------------------------------------------ Option Explicit Dim A As Integer Dim B As Integer Dim C As Integer Private Sub Form_Click() Dim nTemp As Integer A = Val(InputBox("Please input first integer", "输入正整数")) B = Val(InputBox("Please input second integer", "输入正整数")) C = Val(InputBox("Please input third integer", "输入正整数")) '**********FOUND********** If A <= C Then nTemp = A A = B B = nTemp End If '**********FOUND********** If B <= C Then nTemp = A A = C C = nTemp End If '**********FOUND********** If A <= B Then nTemp = B B = C C = nTemp End If Print "The integers in order is"; A; B; C End Sub 答案： =======(答案1)======= If A <= B Then =========或========= If B >= A Then =======(答案2)======= If A <= C Then =========或========= If C >= A Then =======(答案3)======= If B <= C Then =========或========= If C >= B Then 第4题 （1.0分） 题号:127 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：下面程序可输出如下图形： ' * ' *** ' ***** ' ******* ' ********* '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = "*" For i = 5 To 1 Step -1 '**********FOUND********** Print Spc(n) For j = 1 To 2 * m - 1 Print s; Next j Print '**********FOUND********** n = n + 1 '**********FOUND********** m = m - 1 Next i End Sub
答案： =======(答案1)======= Print Spc(n); =========或========= Print Spc(i); =========或========= ? Spc(n); =========或========= ? Spc(i);
=======(答案2)======= n = n - 1 =========或========= n = - 1+n
=======(答案3)======= m = m + 1 第5题 （1.0分） 题号:469 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：已知一个函数f(x)=1000*sin(x)，利用绘图方法 ' 在图片框中显示其图形。结果如图1 '------------------------------------------------ Option Explicit Private Const pi = 3.14159 Private Sub Command1_Click() '**********FOUND********** Dim x As Integer Picture1.Scale (-pi, -1200)-(pi, 1200) '**********FOUND********** For x = -pi To pi Step pi '**********FOUND********** Picture1.PSet (x, 1000 * pi * Sin(x)), vbRed Next x End Sub 答案： =======(答案1)======= Dim x As Single =========或========= Dim x! =======(答案2)======= For x = -pi To pi Step pi / 180 =======(答案3)======= Picture1.PSet (x, 1000 * Sin(x)), vbRed =========或========= Picture1.PSet (x, Sin(x)*1000), vbRed 第6题 （1.0分） 题号:497 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。 '------------------------------------------------ Option Explicit Private Sub Form_Click() Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0 N = InputBox("输入整数n") S1 = Str(N) '**********FOUND********** S1 = RTrim(S1) For i = 1 To Len(S1) '**********FOUND********** Ch = Mid(N, i, 1) '**********FOUND********** Sum = Val(Ch) Next i Print "该整数的各位数之和是："; Sum End Sub
答案： =======(答案1)======= S1 = Trim(S1) =========或========= S1 = lTrim(S1)
=======(答案2)======= Ch = Mid(S1, i, 1)
=======(答案3)======= Sum = Sum + Val(Ch) =========或========= Sum = Sum + Val(Ch) 第7题 （1.0分） 题号:454 '------------------------------------------------ '【程序改错】 '------------------------------------------------
