2022-2023学年度第一学期《VB》期末考试题(后附答案)

VB期末考试试题一、填空题1、VB程序设计的主要特点是（1) 和(2） .2、在VB中，最主要的两种对象是（3）和(4） .“““”””3、工程是构成应用程序文件的(5) 。

4、方法是VB提供的一种（6），用来完成一定的操作。

5、浮点类型数据包括单精度型和___（7）__数据。

6、事件是窗体或控件对象识别的___(8）____。

7、可用窗体的___（9）_ 方法在窗体中显示文字。

8、复选框控件Value属性指示复选框处于____(10）___或禁止状态（暗淡的）中的某一种。

9、在VB中,修改窗体的（11）和（12）属性值，可改变窗体的大小.10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。

11、在MsgBox函数中，如果缺省title参数，则使用（14) 作为消息框的标题。

12、设x＝34。

58，语句Print Format(x,“000。

0”）的输出结果是(15) .13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17）,布尔型变量的初值为（18）。

14、设置窗体的（19）属性,可在窗体上显示图片。

15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。

二、选择题1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。

A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件(如图所示）的Max属性所设置的是(2） .A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句Select ＊Form student 中的*表示（3）。

A、所有记录B、所有字段C、所有表D、都不对4、以下选项中，不属于标签的属性是(4）。

vb期末考试和答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim a$B. Dim a IntegerC. Dim a As StringD. Dim a 123答案：C2. VB中，以下哪个是正确的条件语句？A. If x > 0 Then Print "Positive"B. If x > 0 ThenPrint "Positive"End IfC. If x > 0 ThenPrint "Positive"End IfD. If x > 0 ThenPrint "Positive"ElsePrint "Negative"End If答案：D3. 在VB中，以下哪个是正确的循环结构？A. For i = 1 To 10Print iNext iB. For i = 1 To 10Print iEnd ForC. For i = 1 To 10Print iLoopD. For i = 1 To 10Print iEnd Loop答案：A4. VB中，以下哪个是正确的数组声明方式？A. Dim arr(10)B. Dim arr(10) As IntegerC. Dim arr As Integer(10)D. Dim arr(10) Integer答案：B5. 在VB中，以下哪个是正确的函数声明方式？A. Function Add(x As Integer, y As Integer) As IntegerB. Function Add(x, y) As IntegerC. Function Add(x As Integer, y As Integer)D. Function Add(x, y)答案：A6. VB中，以下哪个是正确的事件处理程序？A. Private Sub Form_Click()B. Private Sub Form_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.ClickC. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.ClickD. Private Sub Form_Click(ByVal sender As Object, ByVal e As MouseEventArgs)答案：B7. 在VB中，以下哪个是正确的窗体属性？A. Me.Width = 800B. Me.Height = 600C. Me.Caption = "My Form"D. All of the above答案：D8. VB中，以下哪个是正确的控件属性？A. Label1.Text = "Hello"B. Label1.Caption = "Hello"C. Label1.Value = "Hello"D. = "Hello"答案：A9. 在VB中，以下哪个是正确的文件操作语句？A. Open "C:\test.txt" For Input As #1B. Open "C:\test.txt" For Output As #1C. Open "C:\test.txt" For Append As #1D. All of the above答案：D10. VB中，以下哪个是正确的错误处理语句？A. On Error Resume NextB. On Error GoTo 0C. On Error GoTo -1D. All of the above答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量的关键字是______。

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的值是___________;10．日期表达式 2/24/02 - 2/12/02 的值为___________;11．数学表达式sin2x+ 写成等价的Visual Basic表达式为_________________;12．设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到5,第二维下标从-2到6,则相应的数组声明语句为___________________________;13．事件就是在对象上所发生的事情,Visual Basic中的事件如___________、___________、______________等;一个对象响应的事件可以有_____个,用户不能建立新的事件;事件过程是指_____________________________________________;假设某一事件过程如下：Private Sub cmd1_Click="VB示例"End Sub则响应该过程的对象名是______________,事件名是_____________;14．对象的方法用于__________________;当方法不需要任何参数并且也没有返回值时,调用对象的方法的格式为________________,例如,对窗体Form1使用Show方法,应写成_________________;15．PictureBox控件可通过设置其__________属性为True使之可自动调整大小；而Image控件可通过设置其___________属性为True,使其加载的图片能自动调整大小以适应Image;16．在Visual Basic程序中实现复制文件“c:\”到d:盘根目录下的语句为_______________________________________;二、单项选择题1．下列控件中没有Caption属性的是A、标签B、文本框C、框架D、命令按纽2．除框架外,能对单选按纽分组的控件是 ;A、窗体B、标签C、图片框D、图像3．下列符号不能作为VB中变量名的是 ;A 、 ABCDEFG B、 P00000 C、 89YWDDF D、xyz4．下列不属于Visual Basic数据文件的是 ;A、顺序文件B、随机文件C、二进制文件D、数据库文件5．若要求从文本框中输入密码时在文本框中只显示号,则应用在此文本框的属性窗口中设置 ;A、Text属性值为B、Caption属性值为C、Password属性值为空D、PasswordChar属性值为6．表达式23^2+28/4+3^2的值为 ;A、64B、31C、49D、427．表达式mid"abcdefg",3,2的值是A、abcB、cdC、bcdD、abcde8．数学表达式Sin25°写成VB表达式是 ;A、Sin25B、Sin25C、Sin25°D、Sin251809．Sub过程与 Function过程最根本的区别是 ;A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以;B、Function过程可以有参数,Sub过程不可以;C、两种过程参数的传递方式不同;D、Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值;10．选拔身高T超过1.7米且体重W小于公斤的人,表示该条件的布尔表达式为A、T>= And W<=B、T<= Or W>=62.5C、T> And W<D、T>= Or W<11.下列对象不能响应 Click事件的是A、列表框B、图片框C、窗体D、计时器12．在Visual Basic中,按文件的访问方式不同,可以将文件分为A、顺序文件、随机文件和二进制文件B、文本文件和数据文件C、数据文件和可执行文件D、ASCⅡ文件和二进制文件13．将通用对话框CommonDialog的类型设置成“颜色”对话框,可调用该对话框的方法;A、ShowOpenB、ShowSaveC、ShowColorD、ShowFont三、指出下列句中的错误,修改或者说明原因;1．sum和都可以作为VB的变量名;2．变量名的长度最长可达1024个字符;3．下列程序运行结果：3,3Option ExplicitPrivate Sub Command1_ClickDim a,b As Integera =b == a= bEnd Sub4．程序可以改变定长字符串的内容和长度;5．Variant是一种特殊的数据类型,可以包含任何种类型的数据;6．下列程序运行结果为TruePrivate Sub Command1_Clicka = 1b = 2c = 3= c > a + b Or b - 1 > c - 1 And c + a > a Xor b < c - 2End Sub7．12/31/1999 - 12/20/1999的运算结果是12/11/19998．可以在窗体的通用部分声明静态变量;9．使用声明语句建立一个变量后,Visual Basic会自动对数值类型的变量赋初值0,变长的字符串被初始化为一个零长度的字符串"",定长字符串用空格填充,Variant变量被初始化为 Empty,布尔型的变量被初始化为False;10．事件过程通常由事件驱动执行,而Sub过程通过过程调用执行;11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法;12．当图像控件Image的Stretch属性为True时,Image控件能自动调整自己的尺寸与显示的图片匹配;四、读程序题,写出程序运行结果;1．Private Sub Form_ClickFor I = 1 To 9For j = 1 To 30 - 3 IPrint " ";Next jFor k = 1 To IPrint k;Next kFor k = I - 1 To 1 Step -1Print k;Next kPrintNext I2．Option ExplicitPrivate Sub Command1_Click Static S As IntegerDim i As IntegerS = 1For i = 1 To 5S = S iNext iPrint SEnd Sub3．For X = 5 To 1 Step -1For Y = 1 To 6 - XPrint TabY + 5; "";Next YNext X4．Private Sub Form_ActivatePrint "aa" & "bb",-5 6,Not 2 <= 3 Print "aa" & "bb"; -5 6; Not 2 <= 3 PrintPrint "30+60",Print 30 + 60"30+60"; 30 + 60End Sub5．X=1Do While X<=10If X Mod 7 =0 ThenY = X + 6Z = XEnd IfX = X + 2LoopPrint X,Y,Z五、编程题1．设计一个计算程序;该程序用户界面如图所示,由四个文本框：文本框1text1、文本框2text2、文本框3text3、文本框4text4,和三个按钮：命令按钮1command1、命令按钮2command2、命令按钮3command4组成;程序运行后,用户单击清除按钮,则清除文本框中显示的内容;单击计算按钮,如果成绩填写不完全,则给出提示信息,否则计算三科平均成绩;单击退出按钮则退出;2．设计程序;要求：从文本框Text1中接收输入的数据,当单击确定按钮command1时,如果该数据满足条件：除以3余2,除以5余3,除以7余4,则输出；否则将焦点定位在文本框Text1中,选中其中的文本;3．设计一个欢迎程序;该程序用户界面如图所示;要求程序运行后,用户选中粗体复选框时,标签Label1中的文字欢迎您的字体变成粗体,用户选中斜体复选框时,标签的字体变成斜体;若取消选中,则恢复原字体;单击结束,则退出;4．任意输入3个数,求大小排第二的那个数,写出程序代码;VB期末复习参考答案一、填空题1．创建应用程序界面设置属性编写代码2．属性、text3．Label TextBox4．Load方法 Show方法 Hide方法 Unload方法5．="GOOD WORK"6．Click、7．算术表达式字符串表达式关系表达式布尔表达式日期表达式对象表达式运算符8．19．True False10．1211．Sinx ^ 2 + Sqrx ^ 2 - y ^ 2 / 2 x12．Dim A1 To 5,-2 To 6 As String13．单击双击装载多响应某个事件后所执行的程序代码 cmd1 Click14．完成某种特定的功能对象名.方法名15．AutoSize Stretch16．FileCopy "c:\","d:\"二、单项选择题1．B 2．C 3．C 4．D 5．D 6．B 7．B8．D 9．D 10．C 11．D 12．A 13．C三、指出下列句中的错误,修改或者说明原因;1．不正确;变量名中不能包括小数点;2．变量名的长度最长可达255个字符;3． , 4因为a 不是整型变量;4．不正确;程序不可以改变字符的长度,这是VB规定;5．不完全正确;Variant是一种特殊的数据类型,除了定长字符串数据及用户定义类型外,可以包含任何种类型的数据,这是VB规定;6．False ;逻辑表达式计算结果;7．不正确;两个日期型数据相减,其结果是一个数值型数据;8．不正确;静态变量为局部变量,只能在过程中声明;9．正确;10．正确;11．正确;12．不正确;该属性设为Ture时,Image控件不能自动调整自己的尺寸与显示的图片匹配,而可以使图片自动扩展以适应控件的尺寸;四、读程序题,写出程序运行结果;1．程序运行后,单击窗体,输出结果为：11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 11 2 3 4 5 6 7 6 5 4 3 2 11 2 3 4 5 6 7 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 12．程序运行后,单击按钮Command1,输出结果为：120;3.4.aabb -30 Falseaabb-30 False30+60 9030+60 905.11 13 9五、编程题1．Private Sub Command1_Click= ""= ""= ""= ""End SubPrivate Sub Command2_Clicka = Trimb = Trimc = TrimIf a = "" Or b = "" Or c = "" Then MsgBox "成绩填写不完全", vbCriticalElse= Vala + Valb + Valc / 3End IfEnd SubPrivate Sub Command3_ClickUnload MeEnd Sub2．Private Sub Command1_Clickx = ValIf x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 ThenPrint xElse= 0= LenEnd IfEnd Sub3．Private Sub Check1_ClickIf = 1 ThenElseEnd IfEnd SubPrivate Sub Check2_ClickIf = 1 ThenElseEnd IfEnd SubPrivate Sub Command1_ClickUnload MeEnd Sub4．a = ValInputBox"输入第一个数："b = ValInputBox"输入第二个数："c = ValInputBox"输入第三个数："If a < b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tMsgBox "求大小排第二的数是：" & bVB期末考试试题 A卷一、填空题1、VB程序设计的主要特点是 1 和 2 ;2、在VB中,最主要的两种对象是 3 和 4 ;3、工程是构成应用程序文件的 5 ;4、方法是VB提供的一种 6 ,用来完成一定的操作;5、浮点类型数据包括单精度型和___7__数据;6、事件是窗体或控件对象识别的___8____;7、可用窗体的___9_ 方法在窗体中显示文字;8、复选框控件Value属性指示复选框处于____10___或禁止状态暗淡的中的某一种;9、在VB中,修改窗体的 11和 12 属性值,可改变窗体的大小;10、双击工具箱中的控件图标,可在窗体的 13 出现一个尺寸为缺省值的控件;11、在MsgBox函数中,如果缺省title参数,则使用 14 作为消息框的标题;12、设x＝,语句Print Formatx,“000.0”的输出结果是 15 ;13、在VB 中,数值型变量的初值为 16 ,Varant型变量的初值为 17 ,布尔型变量的初值为18 ;14、设置窗体的 19 属性,可在窗体上显示图片;15、程序运行工程中,清除MP图片框中的图片应使用语句 20 ;二、选择题1、菜单控件只包括一个事件,即 1 ,当用鼠标单击或键盘选中后按“回车”键时触发该事件,除分隔条以外的所有菜单控件都能识别该事件;A、GotFocusB、LoadC、ClickD、KeyDown2、滚动条控件如图所示的Max属性所设置的是 2 ;A、滚动框处于最右位置时,一个滚动条位置的Value属性最大设置值B、单击滚动条和滚动箭头之间的区域时,滚动条中滚动块的最大移动量C、单击滚动条的箭头区域时,滚动条中滚动块的最大移动量D、滚动条控件无该属性3、SQL 语句 Select Form student 中的表示 3 ;A、所有记录B、所有字段C、所有表D、都不对4、以下选项中,不属于标签的属性是 4 ;A、EnabledB、CaptionC、DefaultD、Font5、要求改命令按钮显示的文本,应当在属性窗口中改变的属性是 5 ;A、CaptionB、NameC、TextD、Label6、设置一个单选按钮OptionButton所代表选项的选中状态,应当在属性窗口中改变的属性是6 ;A、CaptionB、NameC、TextD、Value7、允许在菜单项的左边设置打勾标记,下面哪种论述是正确的 7 ;A、在标题项中输入&,然后打勾B、在索引项中打勾C、在有效项中打勾D、在复选项中打勾8、当执行以下过程时,在窗体上将显示 8 ;Private Sub Command1_ClickPrint "VB";Print "Hello ";Print "VB"End SubA、 VBHelloVBB、 VBHelloVBC、 VBD、 VBHello VB HelloVB9、语句Print "The answer is:";20/4-2的结果为 9 ;A、The answer is 20/4-2B、The answer is 3C、The answer is "20/4-2"D、非法语句10、下列哪个控件是容器控件 10 ;A、ImageB、PictureC、ComboBoxD、FileListBox11、若要将窗体从内存中卸载出去,其实现的方法是 11 ;12、以下选项中,不是 Visual Basic控件的是 12 ;A.窗体B.定时器C.单选框D.命令按钮13、双击窗体中的对象后,Visual Basic将显示的窗口是 13 ;A.代码窗口 B．工具箱 C．项目工程窗口 D．属性窗口14、可决定窗体的左上角是否有控制菜单的属性是 14 ;15、设有如下语句：Strl＝InputBox"输人","","练习"从键盘上输人字符“示例”后,Strl的值是 15 ;A．“输入” B．“” C．“练习” D．“示例”16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 16 ;A. Form1_Click C. Frm1_Click D. Me_Click17、窗体的hide属性的含义是 17 ;A.隐藏B.展现C.装入D.卸载18、若要设置定时器控件的定时时间,需设置的属性是 18 ;A．Enabled B．Value C．Interval D．Text19、能够改变复选框中背景颜色的属性是 19 ;A．Value B．FontColor C．BackColor D．Font20、窗体能响应的事件是 20 ;A．ActiveForm B．Load C．Drive D．Change三、判断题判断下列正确与否,正确的打√,错误的打ⅹ;1、三种方式的组合框都允许用户输入哪些不在列表框中的选项;2、图象框中的Stretch属性为true时,其作用是图形自动调整大小以适应图象控件;3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”;4、通过改变属性窗口中的Name属性,来改变窗体的标题;5、创建VB应用程序的三个主要步骤是：1创建应用程序界面2设置控件3编写代码;6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量;7、已知P＝MsgBox“Howareyou",VbYesNo+VbQuestion,“Hello”,变量P是Integer数据类型;8、工程文件的扩展名是 .vbg ;9、VB允许设计和使用用户自己设计的控件;10、OptionButton控件没有DblCliek事件;11、同一条记录中的各数据具有相同的类型;12、使用Data控件可以直接显示数据库中的数据;13、ImageList 是一个图像容器控件,可用作工具栏的图像库;14、当用户单击工具栏按钮时,将触发工具栏按钮的ButtonClick事件;15、在VB的工程资源管理器中,如果从工程中移除已经保存过的文件,该文件仍然被物理删除真正删除;16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex值为10;17、要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False;18、使用数组定义语句：Dim D$10,则数组D中各元素的值为空;19、如果在一行中输入多条语句,各语句之间用使用；分隔;20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误;四、读程序题,写出程序运行结果1、 Private Sub Form_ClickStatic SUM As IntegerI = 1Do While I<=10SUM = SUM + II = I + 1LoopPrint SUMEnd Sub运行程序,第一次单击窗体：第二次单击窗体：2、 Private Sub Form_ClickPrint ""; Tab6; 2, Tab15; 5PrintFor I = 15 To 16Print I;For j = 2 To 6 Step 3Print Tab3 j; j I;Next jPrintNext IEnd Sub程序运行结果：五、编程题一窗体中有图片框Picture1和计时器Timer1两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下脚移动,每次向左、向右移动100twip20分之一像素;请填空：Private Sub Form_load1 =loadPicture“c:\pic\”2 .Interval=200End SubPrivate Sub Timer1_TimerStatic x , y As Integerx=x+100y=y+1003End Sub二有一个单击按钮过程,其作用是产生50个60～100的随机数,统计其中被6整除余2的个数,并将这些数输出;请填空：Private Sub Command1_ClickDim x As Integer, N%Dim Counter As Integer1 TimerFor N=1 To 50X=Rnd 2If 3 =2 ThenPrint xCounter= 45Next NPrint CounterEnd Sub一 10分1 、 552、 110二、 10分2 515 30 7516 32 80五、编程题 20分一1、2、 Timer13、 x ,y二 1、 Randomize2、 Rnd41+603、 x Mod 64、 Counter＋15 End If一、单项选择题共10分1．在代码中引用一个控件时,应使用控件的B属性;A．Caption B．Name C．Text D．Index2．设变量x = 4,y = -1,a = 7,b = -8,下面表达式A的值为“假”;A．x+a <= b-y B． x > 0 AND y < 0C．a = b OR x>y D． x+y > a+b AND NOT y < b3．表达式IntRnd71+10产生的随机整数范围是C ;A．10,80 B．10,81 C．10,80 D．10,814．函数Sgn的返回值是C ;A．-1 B．0 C．1 D．以上都不对5．67890属于 D 类型数据;A．整型 B．单精度浮点数 C．货币型 D．长整型6．下列变量名中正确的是D;A．3S B．Print C．Select My Name D．Select_17．下列赋值语句 A 是有效的;A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 08．以下的控件或方法具有输入和输出双重功能的为B;A．Print B．Textbox C．Optionbutton D．Checkbox9．若要获得列表框中被选中的列表项的内容,可以通过访问D属性来实现;A．Name B．ListIndex C．ListCount D．Text10．下列代码的运行结果为B ;Private Sub command1_clickDim m10For k = 1 To 10mk = 11 - kNext kx = 5Print m2 + mxEnd SubA．2 B．3 C．4 D．5二、填空题10分1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式 ;2．代码窗口中有两个下拉列表框：左侧是对象列表框,右侧是过程列表框;3．写出在字符串”Visual Basic 6.0” 中截取”Visual” 的Basic表达式LEFT“Visual Basic 6.0”,6;4．函数Len“abcdef”的返回值是6 ;5．设a = 2,b = 5,c = -2,d = 100,则a > b >= c AND a < b >= d 的值为False ; 三、将下列数学表达式转换为VB 表达式;6分 1．a2+2ab+b2 ： a^2+2ab+b^2 2．8exln10 ：8expxlog10 3．2sin450cos450 ：2sin4cos46．在VB 中,用户定义常量使用 Const 语句,声明变量使用 Dim 语句; 1．在VB 中,扩展名为.vbp 的文件称为 A ; A 工程文件 B 窗体文件C 类模块文件D 标准模块文件2．在VB 集成开发环境的设计模式下,用鼠标双击窗体上的某个对象后,打开的窗口是 A ;A 代码窗口B 窗体设计窗口C 属性窗口D 工程资源管理器窗口 3．设有变量定义语句Dim a%,则变量a 的数据类型是 A ; A 整型 B 单精度类型 C 双精度类型D 字符串类型4．下列表达式中,值为False 的是 D ;A "AB"<"abc"B "ABC" = UCase"abc"C "ABCD"<"abc"D Mid"ABCD",3,1=Left"ABCD",35．函数InStr"ABCDEF", "CD"的值是 B ; A 2B 3C TrueD CDEF6．下列程序运行后,单击窗体,输出结果是 C ; Private Sub Form_ClickDim a As Integer, b As Integer a = 3 b = 5Print a + b; a & b End Sub A 8 8 B 35 35C 8 35D 35 87．下列程序运行后,单击窗体,输出结果是 B ; Private Sub Form_Click a = 3: b = 7a = a +b : b = a – b : a = a - b Print a; b End Sub A 4 3 B 7 3 C 3 7 D 10 78．下面程序段所表示的数学关系式是 C ; If a < b ThenIf d = c Then x = 1 Elsex = 2 End If A ⎩⎨⎧≠≥=<=)(2)c (1d c b a d b a x 且且B ⎩⎨⎧≠<=<=)(2)c (1d c b a d b a x 且且C ⎩⎨⎧≥=<=)(2)c (1b ad b a x 且D ⎩⎨⎧≠=<=)(2)c (1d c d b a x 且9．下列程序运行后,单击窗体,输出结果是 C ; Private Sub Form_Click s = 0: k = 1 Dos = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A 15 B 10 C 1 D 010．下列程序段的输出结果是 B ; For k = 4 To 2 Step -2 m = k Next kPrint m; k; A 2 2 B 2 0 C 2 1 D 0 011．用下面的语句定义数组,则数组中的元素个数是 D 个;Option Base 1Dim A-1 To 2,5 As IntegerA 5B 10C 15D 2012．下面程序段的输出结果是 C ; Dim a4 As Integer, s As Integer For k = 1 To 4 ak = 2 k Next kFor k = 1 To 4 Step 2 s = s + ak Print s; Next k A 8 B 20 C 2 8 D 2 6 12 2013．设有如下的用户自定义类型Private Type Stuname As String 10 age As Integer End Type则以下正确引用该类型成员的代码是 B ; A ="zhang" B Dim s As Stu= "zhang"C Dim s As Type Stu = "zhang"D Dim s As Type = "zhang" 14．用“ B ”关键字声明的变量称为全局变量; A PrivateB PublicC DimD Static15．在窗体上放置一个文本框,程序运行后,在文本框中输入abc,但显示的却是,可能的原因是该文本框的 D 属性值已经被设置为""; A FontB TextC NameD PasswordChar16．在VB 中,Print是对象的 B ;A 属性B 方法C 事件D 名称17．在VB 中,要判断复选框是否为选中状态,使用的属性是 D ;A CaptionB CheckedC SelectedD Value18．设列表框List1中共有3个列表项,如右图所示;则下列语句中,能够删除最后一个列表项的是 A ;A 2B "项目C"C List1. ListcountD List1. ListIndex19．组合框分为下拉式组合框、简单组合框和下拉式列表框,在“属性”窗口中这三种类型是由 A 属性设置的;A StyleB FillStyleC BackStyleD BorderStyle20．用户单击滚动条的空白处滑块与两端滚动箭头之间的区域时,Value属性所增加或减少的值,是由 D 属性决定的;A MinB MaxC SmallChangeD LargeChange21．将图片文件“”作为背景图片,装入当前窗体,正确的语句是 D ;A =B = LoadPictureC =""D = LoadPicture""22．要将两个单选按钮放置在同一个框架内,使它们成为一组,正确的操作是 A ;A 先放置一个框架,然后在框架中放置两个单选按钮B 先放置两个单选按钮,再放置一个框架,放置框架时覆盖在单选按钮上C 先放置两个单选按钮,再放置一个框架,然后将两个单选按钮拖动到框架内D 以上三种方法都正确23．计时器控件能够响应的事件是 D ;A LoadB ClickC ChangeD Timer24．要使命令按钮处于无效状态,可以设置按钮的 B 属性值为False;A CaptionB EnabledC StyleD Visible25．如果在一个工程中有多个窗体和模块,则VB默认的启动对象是 C ;A 第一个标准模块B 最后一个被添加的窗体C 设计时的第一个窗体D 最后一个被添加的标准模块26．在窗体上放置一个图像框,名称为Image1;程序运行时,要保持图像框大小不变,使框中的图片能够自动适应图像框的大小,可以执行语句 B ;A =TrueB =TrueC =FalseD =False27．使用“菜单编辑器”建立菜单项之间的分隔线时,在菜单项的“标题”中输入的符号是 A ;A 减号-B 下划线_C & D28．要将窗体Form1从内存中卸载,正确的语句是 D ;A B Load Form1C D UnLoad Form129．在窗体上单击时,会触发鼠标事件MouseDown,其事件过程的一般格式如下：Private Sub Form_MouseDownButton As Integer, Shift As Integer, X As Single, Y AsSingle …… End Sub此时,如果单击的是鼠标右键,则Button 参数的值是 B ; A 1 B 2 C 3 D 4 30．获取文件的长度字节数,可以使用的函数是 B ;A LENB LOFC EOFD LOG1．数学表达式yx y3改写为VB 表达式,形式是 1 ;答案 sqr3y /x+y 2．在VB 中,InputBox 函数返回值的数据类型是 2 ;答案：字符串类型或String 3．语句 Print Tab5;"ABC" 的功能是 3 ;答案：从第5列开始输出字符串“ABC ”4．下面程序段的功能是：在文本框Text1中输入一个数值x,如果满足5<x<10,那么输出“Yes ”,否则输出“No ”;请填空; x =Val 答案5 < x And x <10If 4 Then Print "Yes" Else Print "No"5．设a=1,b=2,c=3,语句 Print a < b Or b < c And c < a 的输出结果是 5 ;答案：True6．在窗体上放置一个标签,名称为Label1,使用语句 6 可以把标签的前景色设置为蓝色; = vbBlue 或 RGB0,0,255 或QBColor9 7．在窗体上放置一个图像框,名称为Image1,要使该图像框向下移动10个默认单位twip,正确的语句是 = 7 答案： + 10 8．使用“菜单编辑器”建立了一个主菜单,名称为menu1;要把它作为窗体Form1的快捷菜单也称为弹出式菜单弹出,使用的语句是： 答案：PopupmenuForm1. 8 menu19．在窗体上放置一个通用对话框控件,名称为CommonDialog1;使用该控件建立“打开”文件对话框时,要求只能显示文本文件即扩展名为“.txt ”的文件,则正确的设置语句是CommonDialog1. 9 ="文本文件.txt|.txt"; 答案：Filter 10．设磁盘上已存在顺序文件“”,为了从文件中顺序读取数据而打开该文件,正确的语句是 Open "" For 10 As 1; 答案：Input 1．下列面程序运行后,单击窗体,输出结果是 1 ;答案：1 3 9Private Sub Form_Click s = 0For n=1 To 3 p = 1For k = 1 To n p = p k Next k s = s + p Print s; Next n End Sub2．下列程序运行后,单击窗体,输出结果是 2 ;答案：7Private Sub Form_Click m = 0For k = 1 To 4Select Case kCase 1, 2m = m + 1Case Is > 3m = m + 2Case 1 To 4m = m + 3End SelectNext kPrint mEnd Sub3．在窗体上放置一个文本框,名称为Text1;下列程序运行后,单击窗体,Text1中显示的内容是3 ; 答案：adePrivate Sub Form_Click= ""s = "aBd12Re"For k = 1 To Lensch = Mids, k, 1If ch >= "a" And ch <= "z" Then= + chEnd IfNext kEnd Sub4．下列程序运行后,单击窗体,输出结果是 4 ; 答案：11 24Option Base 1Private Sub Form_Clickx = Array3, 5, 4, 8, 2, 6, 11, 9, 7, 4p = x1: s=0For k = 2 To UBoundxIf xk > p Thenp = xks = s + pEnd IfNext kPrint p; sEnd Sub5．下列程序运行后,单击窗体,输出结果是 5 ; 答案：1 5 1Private Sub Form_ClickDim a1 To 3, 1 To 3For i = 1 To 3For k = 1 To 3If k = 1 Or i = k Thenai, k = 1Elseai, k = i + kEnd IfNext kNext iPrint a1, 1; a2, 3; a3, 3End Sub6．在窗体上放置一个命令按钮,名称为Command2,并编写如下代码;Private Sub Command2_ClickDim m As Integer, n As Integer, g As Integerm = 18: n = 12: g = 0Call sub1m, n, gPrint m; n; gEnd SubPublic Sub sub1ByVal a As Integer, ByVal b As Integer, c As IntegerIf a < b Then t = a: a = b: b = tDo While b <> 0r = a Mod ba = bb = rLoopc = aEnd Sub程序运行后,单击命令按钮,则输出结果是 6 ;答案：18 12 67．在窗体上放置一个命令按钮,名称为Command3,并编写如下代码;Private Sub Command3_ClickDim k As Integerk = 1Print fun1k;Print fun1k;Print fun1k;End SubFunction fun1a As Integer As IntegerStatic c As IntegerDim b As Integera = a + 2:b = b + 2:c = c + 2fun1 = a + b + cEnd Function程序运行后,单击命令按钮,则输出结果是 7 ;答案：7 11 158．在窗体上放置一个文本框,其名称为Text1,并编写如下代码;Dim s As StringPrivate Sub Text1_KeyPressKeyAscii As Integers = s + ChrKeyAsciiPrint s;End Sub程序运行后,在文本框中输入abc,则窗体上输出的内容是 8 ;答案：aababc1．在窗体上放置一个计时器和一个标签,计时器名称为Timer1,标签名称为Label1;下列程序的功能是：1在窗体加载事件中设置计时器每秒钟能够触发5次Timer事件；2每触发一次Timer事件能够将标签上的字号加大2,当字号超过当前窗体的宽度时,将字号恢复为8;程序中有一处．．错误,请更正;说明错误时可以使用每条语句前的编号;1 Private Sub Form_Load2 = 5 答案：2003 = True4 End Sub5 Private Sub Timer1_Timer6 = + 27 If > Then8 = 89 End If 10 End Sub2．下列程序的功能是计算1+3+5+…+99的和s;程序中有一处．．错误;请更正;说明错误时可以使用每条语句前的编号;1s = 0 2 k = 13 Do While k <= 994 k = k + 2 答案：将4、5调换顺序5 s = s + k6 Loop 7Print s1．在窗体上放置一个列表框,名称为List1；放置一个文本框,名称为Text1；放置一个命令按钮,名称为Command1,Caption 属性值为“统计3的倍数”;如右图所示;下列程序的功能是：（1） 在窗体的Load 事件中,产生10个20~30含20和30之间的随机整数,并作为列表项逐个添加到列表框List1中;（2） 单击命令按钮Command1时,能够统计列表框中是3的倍数的列表项的个数,并将统计结果显示在文本框Text1中; 请填空完善程序;Private Sub Form_ LoadDim x As Integere RandomizeFor k = 1 To 10 答案：IntRnd 11 + 20 或 Rnd10+20 x = 1 '产生一个20,30之间的随机整数 2 '将x 作为列表项添加到List1中 Next k 答案： x 或 strx End SubPrivate Sub Command1_ClickDim n As Integer ' n:存放是3的倍数的列表项的个数 For k = 3 答案：0 To – 1 或 0 To 9 If Valk 4 = 0 Then 答案： Mod 3 n = n + 1 End If Next k = n End Sub2．下列程序的功能是用近似公式 !1!31!21!111n e +++++≈ 求自然对数的底 e 的值,直到最后一项小于10-4时停止计算;请填空完善程序;Private Sub Form_ClickDim e As Single, n As Integer, p As Single'e: 累加和 p: 参加求和的当前项e = 1: n = 1: p = 1Do While 5 答案：p >= 1e-4e = e + pn = n + 1p = 6 答案：p / nLoopPrint "e的近似值="; eEnd Sub3．在下图所示的窗体上放置的主要控件及其主要的属性设置如下：下列程序的功能是单击命令按钮后,根据单选按钮的选中状态,将标签中的“示例文字”设置为相应的字体;请填空完善程序;Private Sub Command1_ClickDim fn As String ' fn:存放选中的字体If 7 Then 答案： = Truefn = "宋体"Elsefn = "隶书"End If8 = fn 答案：End Sub4．下列程序中用户自定义函数ave的功能是求一维数组中所有元素的平均值,并返回;单击窗体时,能够输入数组a的10个元素,并调用函数ave,求数组a中所有元素的平均值,并显示输出;请填空完善程序;Option Base 1Private Sub Form_ClickDim a10 As SingleFor i = 1 To 10ai = ValInputBox"输入一个数值"Next iPrint "平均值="; 9 '调用函数ave 答案：aveaEnd SubPublic Function aveb As Single As SingleDim s As SingleDim n As Integern = UBoundbFor k = 1 To ns = s + bkNext k10 答案：ave = s / nEnd FunctionVB期末范围题总汇1．求随机10个整数的最大值、最小值、平均值以及和；Dim a1 To 10Private Sub Command1_ClickRandomize"产生的随机数为："For i = 1 To 10ai = IntRnd 99 + 1ai;Next iEnd SubPrivate Sub Command2_ClickDim max, min, avemax = a1min = a1ave = a1For i = 2 To 10If ai > max Then max = aiIf ai < min Then min = aiave = ave + aiNext i"最大数为："; max"最小数为："; min"平均数为："; aveEnd Sub2.求水仙花数Private Sub Form_ClickDim a, b, c As Integer 'a个b十c百For a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 b + 100 c Then MsgBox 100 c + 10 b + aNext bNext aEnd Sub3.百元买百鸡问题；Option ExplicitConst a = 5, b = 3, c = 1Private Sub Form_ActivateDim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100For j = 1 To 100For k = 1 To 100If i a + j b + k c = 100 Thenn = n + 1" 公鸡：" & i & " 母鸡：" & j & " 小鸡：" & kEnd IfNext: Next: NextMsgBox "共有组合：" & nEnd Sub求1000以内的所有完数一个按钮里调用的过程Private Sub Command1_ClickOutputWanNumber 1000End Sub4.'求完数的过程Private Sub Form_ClickDim i, j As IntegerFor i = 4 To 100temp = 1For j = 2 To i / 2If i Mod j = 0 Thentemp = temp + jEnd IfNext jIf temp = i ThenPrint iEnd If5.求各位数字之和input a:'输入任意数dob=a mod 10:'取a的末位数sum=sum+b:'求和a=a \ 10:'去掉末位数loop until a=0print "sum=";sum:'输出enddim n as stringinput nfor i = 1 to lennsum=sum+valmidn,i,1next iprint sum6.求最小公倍数Private Sub Form_Load= TrueDim n1%, m1%, m%, n%, r%n1 = InputBox"输入n1"m1 = InputBox"输入m1"If m1 > n1 Then '为了求最小公倍数,增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ","; m1; "的最大公约数为"; nPrint "最小公倍数=", m1 n1 / nEnd Sub7.求逆序数感觉题目类型太多8. 级数有限项求和问题题目类型太多9. 求质因子问题Private Sub Command1_ClickDim N As Integer, I As IntegerN = ValInputBox"请输入2的整数:"I = 2DoIf N Mod I = 0 ThenPrint I;N = N \ IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_ClickDim i as integer,A26 as integer,n as integer Dim S as string1,Strl as stringStrl=Text1n=LenStrlFor i=1 To nS=MidStrl,i,1If UCaseS>=”A” And UCaseS<=”Z” Then AAscUCaseS-64+1End IfNext iFor i=1 To 26Chr64+i & “:” & AiNetx iEnd SubPrivate Sub Command_ClickEndEnd Sub第二大题1. 判定素数过程Function isprimeNum As Long As BooleanIf Num < 2 Then isprime = False: Exit FunctionDim i As LongFor i = 2 To SqrNumIf Num Mod i = 0 Thenisprime = FalseExit FunctionEnd IfNext iisprime = TrueEnd FunctionPrivate Sub Command1_ClickDim i As LongFor i = 1 To 1000If isprimei ThenPrint iEnd IfNext iEnd Sub2.求最大公约数过程；Function Max公约数A As Long, B As Long '求出两个数的最大公约数Dim X As Long, Y As Long, K As LongX = IIfA >= B, A, B 'x存入最大值Y = IIfA <= B, A, B 'y 存入最小值Do '辗转相除法K = X Mod Y: If K = 0 Then Exit DoX = Y: Y = KLoopMax公约数 = YEnd Function3.冒泡排序过程Private Sub Command1_ClickDim a9 As Integer。

vb期末考试试题及详细答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是合法的变量名？A. MyVariable123B. 123MyVariableC. VariableNameD. Variable_Name2. 下列哪个语句可以正确地将字符串"Hello"赋值给变量str？A. str = "Hello"B. Dim str As String = "Hello"C. str = 'HelloD. str = "Hello"3. 在Visual Basic中，以下哪个是正确的条件语句？A. If x > 10 ThenB. If x > 10C. If x > 10 ElseD. If x > 10 End If4. 下列哪个是Visual Basic中的数组声明？A. Dim myArray(1 To 10) As IntegerB. Dim myArray(10) As IntegerC. Dim myArray As Integer(1 To 10)D. Dim myArray As Integer = New Integer(10)5. 在Visual Basic中，以下哪个是正确的循环结构？A. For i = 1 To 10B. For i = 10 To 1 Step -1C. For i = 10 To 1D. All of the above6. 在Visual Basic中，以下哪个是正确的函数调用？A. Call PrintName("John")B. PrintName("John")C. Function PrintName("John")D. PrintName Call "John"7. 在Visual Basic中，以下哪个是正确的事件处理程序的声明？A. Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)B. Sub Button1_Click()C. Function Button1_Click()D. Sub Button1_Click(sender, e)8. 在Visual Basic中，以下哪个是正确的类定义？A. Class MyClassPrivate x As IntegerEnd ClassB. Class MyClassDim x As IntegerEnd ClassC. Class MyClassPublic x As IntegerEnd ClassD. All of the above9. 在Visual Basic中，以下哪个是正确的继承声明？A. Inherits MyBaseClassB. Inherits MyBaseClass()C. Inherits MyBaseClass MyBase()D. Inherits MyBaseClass MyBase10. 在Visual Basic中，以下哪个是正确的异常处理结构？A. TryCatch ex As ExceptionEnd TryB. TryCatch ex As ExceptionFinallyEnd TryC. TryCatch ex As ExceptionD. All of the above二、简答题（每题5分，共10分）1. 解释Visual Basic中的事件和委托的区别。

VB期末试题（含答案）一、单选题（每题1.5分，共30分）1.在VB中，假定有以下程序段, 则执行结束后k的值是：（ A ）For i =1 To 3k = i+2Next iA． 5 B．4 C． 3 D．62. 以下控件中可以作为容器控件的是（ B ）A．Image图像框控件 B．PictureBox图片框控件C．TextBox文本框控件 D．ListBox列表框控件3.关于Image控件和PictureBox控件的说明，其中错误的是（ B ）A．Image控件和PictureBox控件都有Picture属性B．Image控件和PictureBox控件都支持Print方法C．Image控件和PietureBox控件都可以用LoadPicture函数把图形文件装入控件中D．Image控件和PictureBox控件都能在属性窗口装入图形文件，也都能在运行期间装入图形文件4.为使计时器控件每隔5秒钟产生一个计时器事件(Timer事件)，则应将其Interval属性值设置为( D )A．5 B．500 C．10 D．5000 5.能显示窗体的方法是（ B ）。

A．Visible B．Show C．New D．Open6.MsgBox函数中有4个参数，其中必须写明的参数是（ C ）A．指定显示按钮的个数 B．对话框的标题 C. 提示信息 D. 所有参数都是可选的7.你若在代码窗口中编写：msgbox(“AAAA”,vbokonly,”BBBB”)语句后，所产生的信息框的标题是（ C ）A．AAAA B．空 C．BBBB D．出错，不能产生信息8.要使文本框获得输入焦点，则应采用文本框控件的（D ）方法。

A．GotFocus B．LostFocus C．KeyPress D．SetFocus9.为了把焦点移到某个指定的控件，所使用的方法是（ A ）A．SetFoeus B．Visible C．Refresh D．GetFocus10.语句if 3*4>=10 thena=1elsea=2end if执行后，a的值为（ D ）。

vb期末测试题及答案一、单选题（每题2分，共20分）1. VB中，以下哪个是合法的变量名？A. 2variableB. Variable2C. Variable-2D. Variable 2答案：B2. 在VB中，以下哪个是正确的字符串连接运算符？A. +B. &&C. &D. ||答案：C3. VB中，以下哪个函数用于计算字符串的长度？A. LenB. LengthC. SizeD. Count答案：A4. 在VB中，以下哪个循环结构用于重复执行代码块，直到满足某个条件？A. For...NextB. Do...LoopC. While...WendD. If...Then答案：B5. VB中，以下哪个关键字用于声明常量？A. DimB. ConstC. StaticD. Public答案：B6. 在VB中，以下哪个是正确的数据类型用于存储日期？A. DateB. DateTimeC. StringD. Integer答案：B7. VB中，以下哪个是正确的子程序声明？A. Sub MySub()B. Function MySub()C. Procedure MySub()D. Method MySub()答案：A8. 在VB中，以下哪个是正确的数组声明？A. Dim arr(10)B. Dim arr() As IntegerC. Dim arr(10) As IntegerD. Dim arr As Integer(10)答案：C9. VB中，以下哪个是正确的条件语句？A. If...Then...ElseB. When...Then...ElseC. If...Then...End IfD. If...Then...Else...End答案：C10. 在VB中，以下哪个是正确的事件处理程序声明？A. Private Sub Form_Load()B. Public Sub Form_Load()C. Private Function Form_Load()D. Public Function Form_Load()答案：A二、填空题（每题2分，共20分）1. VB中，用于声明变量的关键字是________。

vb期末考试试题和答案**VB期末考试试题和答案**一、单选题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. DoubleC. StringD. Object答案：D2. 下列哪个选项是Visual Basic的事件驱动编程模型？A. 用户操作B. 程序流程C. 函数调用D. 循环执行答案：A3. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. Const答案：A4. 如果要声明一个变量用于存储字符串，应该使用以下哪个数据类型？A. IntegerB. StringC. DoubleD. Boolean答案：B5. 在Visual Basic中，哪个函数用于将字符串转换为小写？A. UCaseB. LCaseC. StrCompD. Trim答案：B6. Visual Basic中，以下哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B7. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Return答案：A8. Visual Basic中，以下哪个控件用于创建下拉选择列表？A. ListBoxB. ComboBoxC. CheckBoxD. RadioButton答案：B9. 在Visual Basic中，以下哪个关键字用于声明一个过程？A. SubB. FunctionC. PropertyD. Event答案：A10. Visual Basic中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TimeD. Timer答案：B二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个数组。

大一 VB语言程序设计期末考试题一、选择题1 下列常量中，是 Integer 类型常量的是（ C ）。

A、 123&B、 -38844C、 123%D、 327682 下面选项中 ()是字符连接运算符.（ A ）A、 &B、 AndC、 %D、 Mod3 下面关于 VB的集成开发环境（IDE）的叙述中，不正确的是（ B ）。

A、 IDE是设计、调试、运行VB程序的工具。

B、用户不能随意关闭IDE中的窗口。

C、 " 窗体设计 " 窗口是用来设计应用程序界面（窗体）的。

D、打开 / 关闭各窗口的命令主要在 IDE的 "视图 " 菜单中。

4 len( “程vb序设计” )=( C ) 。

A、 5B、2C、 6D、 105 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 DA、 7B、0C、 2D、 46 赋值语句 A=123 + Mid$( “ 123456 ”执,3,2)行后， A=（A、 157B、12334C、 123D、 "12334"7 在一个语句内写多条语句时,用来分隔每条语句的符号是A、 ,B、 ;C、 :D、、D 8 将逻辑型数据转换成整型数据时，转换规则是（A、将 True转换为 1 ，将 False转换为 0B、将 True转换为 1 ，将 False转换为 -1C、将 True转换为0 ，将 False转换为 -1D、将 True转换为-1 ，将 False转换为 09 表达式 2+3*4^5-SIN(X+1)/2 中最先进行的运算是(D).A）。

(C).）。

B、4^5C、 3*4D、 x+110 如果 x=2，则表达式 x+1>2 Or sin(x)> And 3>x+3的值（B ）。

A、不能计算B、 TrueC、 5D、 False11 随机产生[10， 50] 之间整数的正确表达式是（D）。

vb考试期末试题及答案[正文]第一部分：选择题1. VB的全称是什么？A. Visual BasisB. Visual BasicC. Viewer BasicD. Virtual Basic答案：B2. VB是哪个公司开发的？A. MicrosoftB. AppleC. GoogleD. IBM答案：A3. VB是一种什么类型的语言？A. 编译型语言B. 解释型语言C. 面向对象语言D. 脚本语言答案：A4. 下面哪个不是VB的数据类型？A. IntegerB. StringC. BooleanD. Float答案：D5. VB中，用于显示消息框的函数是什么？A. MsgBoxB. AlertC. PrintD. Display答案：A6. VB中，用于定义变量的关键字是什么？A. VarB. DimD. Define答案：B7. VB中，用于循环执行一段代码的结构是什么？A. For LoopB. While LoopC. Do While LoopD. If-Else答案：C8. VB中的事件是指什么？A. 用户的操作或系统的消息B. 变量的赋值C. 函数的调用D. 数据的排序答案：A9. VB中，用于创建函数的关键字是什么？A. FunctionB. SubD. Define答案：A10. VB中，用于调试代码的工具是什么？A. DebuggerB. CompilerC. InterpreterD. Editor答案：A第二部分：编程题（请在空白处编写代码）1. 编写一个VB程序，实现输入两个数字并将它们相加的功能。

Dim num1 As IntegerDim num2 As IntegerDim sum As Integernum1 = InputBox("请输入第一个数字:")num2 = InputBox("请输入第二个数字:")sum = num1 + num2MsgBox "两个数字的和是:" & sum2. 编写一个VB程序，实现计算一个数组中所有元素之和的功能。

一、单项选择题1、下列____不是Visual Basic程序旳基本构造。

A) 层次构造 B) 分支构造 C) 循环构造 D) 次序构造2、当文本框旳内容发生变化时，必将触发____事件。

A) LostFocus B) KeyPress C) Change D) Click3、在Visual Basic中，建立一种文本编辑区域，可采用下列____。

A) 命令按钮 B) 标签控件C) 文本控件 D) 定期器控件4、在Visual Basic中，下列____体现式旳值不等于4。

A) int(4.1) B) int(4.9) C) Abs(int(-3.9)) D) Abs(int(-4.5))5、代数体现式中旳一元二次方和求根公式中旳一种改成VB体现式是____。

A) (-b+sqr(b*b-4*a*c))/(2*a) B) -b+sqr(b*b-4*a*c)/(2*a)C) (-b+sqr(b*b-4*a*c))/2*a D) (-b+ (b*b-4*a*c))/(2*a)6、在Visual Basic中，下列____程序行是符合语法旳。

A) X=Y=5 B) A+B=C^3 C) Y=1:Y=Y+1 D) I=10X7、假定X是一种数值型变量，那么由函数构成旳体现式INT（X/2）=X/2，作用是____。

A) 用于测试X与否偶数 B) 返回一种整数C) 返回一种奇数 D) 用于测试X与否整数8、体现式Abs(-3.6)*sqr(100)旳值是____。

A) -360 B) 360 C) -36 D) 369、为了使一种窗体从屏幕消失但仍在内存中，所使用旳措施或语句为_______。

A)Show B)Hide C)Load D)Unload10、要变化新建对象旳缺省名称，应使用属性____。

A) Font B) ForeColor C) Name D) Height11、要使一种命令按钮显示文字“确定”，对旳旳设置是把它旳属性____设置为“确定”。