南京工业大学VB期末考试复习VB题库2
vb期末考试和答案
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期末试题及答案
vb期末试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个关键字用于声明变量？A. DimB. CallC. SubD. Function答案：A2. 下列哪个控件不是Visual Basic的标准控件？A. TextBoxB. ComboBoxC. ListBoxD. Chart答案：D3. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. RealC. DoubleD. All of the above答案：D4. Visual Basic中的事件处理程序通常使用什么关键字开始？A. SubB. FunctionC. EventD. Procedure5. 在Visual Basic中，以下哪个选项不是窗体的属性？A. NameB. CaptionC. TextD. Height答案：C6. 在Visual Basic中，以下哪个选项是正确的循环结构？A. ForB. WhileC. DoD. All of the above答案：D7. Visual Basic中，以下哪个关键字用于定义一个过程？A. FunctionB. SubC. ProcedureD. Method答案：B8. 在Visual Basic中，以下哪个选项是正确的数组声明方式？A. Dim myArray(5) As IntegerB. Dim myArray() As IntegerC. Dim myArray As Integer(5)D. Dim myArray As Integer()答案：A9. 在Visual Basic中，以下哪个选项是正确的条件语句？B. ElseC. ElseIfD. All of the above答案：D10. Visual Basic中，以下哪个选项不是文件访问模式？A. OpenB. BinaryC. AppendD. Close答案：D二、填空题（每题2分，共20分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
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期末考试题库及答案
vb期末考试题库及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个选项是正确的数据类型？A. IntegerB. StringC. Both A and BD. None of the above答案：C2. VB中，用于声明变量的关键字是？A. DimB. DeclareC. VarD. Let答案：A3. 在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C4. 如果要声明一个整型变量并初始化为5，正确的语句是？A. Integer x = 5B. Dim x As Integer = 5C. Dim x = 5D. x = 5答案：B5. VB中，哪个控件用于显示文本，并且用户不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B6. 在VB中，以下哪个选项是正确的循环结构？A. For EachB. WhileC. Both A and BD. None of the above答案：C7. VB中，以下哪个语句用于结束当前程序的执行？A. EndB. ExitC. StopD. All of the above答案：D8. 在VB中，以下哪个选项是正确的条件判断语句？A. If...Then...ElseB. Switch...CaseC. Both A and BD. None of the above答案：C9. VB中，以下哪个函数用于获取当前系统日期？A. NowB. DateC. TodayD. Time答案：C10. 在VB中，以下哪个属性用于设置窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个字符型变量可以使用关键字________。
答案：Dim2. VB中，数组的声明格式为________。
南京工业大学vb期末题库
09vb复习满分：70分姓名：________1、单项选择题(本题共计40分)1、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。
( )A、List1.AddItem“ABC”，List1.ListIndexB、List1.Text=“ABC”C、List1.List(List1.ListIndex)=“ABC”D、前三项均可2、单选按钮（OptionButton）用于一组互斥的选项中。
若一个应用程序包含多组互斥条件，可在不同的________中安排适当的单选按钮，即可实现。
( )A、框架控件(Frame)或图象控件(Image)B、组合框(ComboBox)或图象控件(Image)C、组合框(ComboBox)或图片框(PictureBox)D、框架控件(Frame)或图片框(PictureBox)3、VisualBasic程序设计时常用的Print、Cls属于________。
( )A、属性B、打印字库C、方法D、事件4、能被对象所识别的动作与可执行的活动分别称为对象的________。
( )A、方法、事件B、事件、方法C、事件、属性D、过程、方法5、VisualBasic是用于开发________环境下的应用程序的工具。
( )A、DOSB、WindowsC、DOS和WindowsD、UNIX6、VisualBasic中的窗体文件的扩展名是____________。
( )A、.regB、.frmC、.basD、.vbp7、要使文本框能显示多行文字，则需设定它的____________属性为True。
( )A、CaptionB、PasswordCharC、MultiLineD、Seleted8、对于某对象的SetFocus与GotFocus描述正确的是________。
( )A、SetFocus是方法，GotFocus是事件B、SetFocus是事件，GotFocus是事件C、SetFocus是方法，GotFocus是方法D、SetFocus是事件，GotFocus是方法9、对正实数X的第四位小数四舍五入的VB表达式是________。
南京工业大学vb题库
第一套单项选择==================================================以下说法正确的是_____。
A、A、B都正确B、属性是对象的一部分C、事件是对象的一部分D、方法是对象的一部分答案：A工程资源管理器用来显示和管理工程所包含的_____等全部项目。
A、变量和数组B、变量和常数C、过程和事件D、窗体和模块答案：D以下四个说法中不正确的是_____。
A、可以通过双击工具箱中的控件，将控件加入窗体上B、在窗体上选中控件，按【Del】键可删除该控件C、VB中所有基本控件都可以改变大小D、控件工具箱中可以添加新的控件答案：CVisualBasic集成的主窗口中包括_____。
A、标题栏B、工具栏C、菜单栏D、以上三者均有答案：D以下说法错误的是_____。
A、通常情况下，集成环境中只显示标准工具栏，其他工具栏可通过视图菜单中的“工具栏”命令打开B、SDI是指多文档界面，MDI是指单文档界面。
在默认情况下，Visual Basic集成开发环境是单文档界面方式，可在“工具”菜单下的选项命令中的“高级”选项卡下进行MDI与SDI 的互换C、单击标准工具栏中的属性按钮可以打开属性窗口，相当于执行“视图”菜单下的“属性窗口”命令D、当一个程序包括两个以上的工程时，这些工程构成一个工程组，其扩展名为.vbg答案：B_____的改变可以在设计时和运行时表现出来，而_____只有在运行时执行。
A、事件过程、函数B、控件属性、子程序C、控件属性、事件过程D、控件属性、函数答案：C只有当一个对象的_____和_____属性为True时，它才能获得焦点。
A、Enabled; CaptionB、Enabled; VisibleC、Visible; NameD、Visible; Caption答案：B假如列表框(List1)有4个数据项，那么把数据项"China"添加到列表框的最后，应使用_____语句。
vb期末测试题及答案
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期末考试试题和答案**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基础期末考试题库及答案
vb基础期末考试题库及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个是正确的数据类型？A. IntegerB. intC. StringD. str答案：A、C2. 下列哪个选项不是VB的控件？A. TextBoxB. ButtonC. LabelD. ComboBox答案：B3. VB中，用于声明一个变量的关键字是：A. DimB. DeclareC. FunctionD. Sub答案：A4. 在VB中，以下哪个是正确的函数用于将字符串转换为整数？A. StrToIntB. CIntC. ValD. Convert.ToInt32答案：B5. Visual Basic中，哪个属性用于设置文本框的文本？A. TextB. CaptionC. ValueD. Label答案：A6. 下列哪个是VB中用于循环的语句？A. IfB. ForC. WhileD. Select答案：B、C7. VB中，下列哪个关键字用于定义一个过程？A. FunctionB. SubC. ClassD. Module答案：B8. 在VB中，以下哪个是正确的事件处理程序？A. OnClickB. OnClickC. ClickD. OnClick答案：A、C9. VB中，下列哪个选项用于声明一个常量？A. ConstB. DimC. StaticD. Public答案：A10. 在VB中，以下哪个关键字用于定义一个类？A. ClassB. ModuleC. StructureD. Interface答案：A二、填空题（每题2分，共20分）1. 在VB中，使用________关键字来结束一个程序。
答案：End2. VB中，________关键字用于声明一个数组。
答案：Dim3. 使用________函数可以将一个数字转换为字符串。
答案：Str4. 在VB中，________关键字用于定义一个全局变量。
南工大vb期末考试操作题
南京工业大学非计算机专业学生
2010~2011学年第二学期
Visual Basic程序设计期末上机考试
(本试卷完成时间 50分钟)
[考试须知]
1.题目中的参考界面,则仅作参考;
2.考试结束后,文件须存放在指定位置,否则不予评分;
3.程序代码书写应成锯齿形。
编程题一（15分）
[题目]编一程序，显示所有的水仙花数，所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。
例如，153是水仙花数，因为153=13+53+33
【编程要求】
1、单击“计算”按钮，则将计算结果显示在多行文本框中Text1中；单击“结束”按钮，
程序停止运行。
2、界面应与给出的参考界面相似，不得增加或减少控件。
[要求]
将窗体文件以学号+B1.frm命名,并上传到服务器。
图1 编程题一参考界面
编程题二（25分）
[题目]输入两个数，求最大公约数和最小公倍数。
[编程要求]
1、输入数值后，按“计算”按钮，计算出最大公约数和最小公倍数按“清除”按钮，则将
所有文本框中的内容清空，并将光标焦点指向text1。
按“结束“按钮，结束程序的执行。
2、程序中至少要有一个函数过程，过程名为GCD，该过程的功能是求两个数的最大公约数。
[要求]
将窗体文件以学号+B2.frm命名,并上传到服务器。
图2编程题二参考界面
补充：1+1/3+1/5+1/7。
南京工业大学VB期末考试模拟题.doc
安全土木化工化学vb 练习题 4满分： 111 分姓名： ________1、单项选择题 (本题共计 60 分 )1、在过程调用中，参数的传递可以分为________________ 和 ________________ 两种方式。
( )A 、按值传递按地址传递B 、按地址传递按参数传递C、按参数传递按值传递D、按位置传递按参数传递2、下面的过程定义语句中合法的是________________________ 。
( )A 、 Sub Procl (ByVal n () )B 、Sub Procl ( n ) As IntegerC、 Function Procl (Procl )D、 Function Procl (ByVal n )3、在参数传递过程中，使用关键字________________ 来修饰参数，可以使之按值传递。
( )A 、 ByValB 、ByRefC、 ValueD、 Reference4、要想在过程调用后返回两个结果，下面的过程定义语句合法的是________________ 。
( )A 、 Sub Procl ( ByVal n , ByVal m)B 、Sub Procl ( n , ByVal m)C、 Sub Procl ( n , m)D、 Sub Procl ( ByVal n , m)5、通用过程可以通过执行“工具”菜单中的____________ 命令来建立。
( )A、添加过程B、通用过程C、添加窗体D、添加模块6、可以在窗体模块的通用声明段中声明的是________________ 。
( )A、全局变量B、全局常量C、全局数组D、全局用户自定义类型7、当运行程序时，系统自动执行启动窗体的____________ 事件过程。
( )A 、 LoadB、ClickC、UnLoad D、GotFocus8、在语句Public Sub Sort(i As Integer) 中 i 是一个按 ________ 传递的参数。
vb期末考试试题推荐2024
vb期末考试试题推荐2024 ### VB期末考试试题推荐2024#### 一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？ - A. Integer- B. String- C. Object- D. Array2. 下列哪个语句用于定义一个变量？- A. `Dim`- B. `Sub`- C. `Function`- D. `End`3. 以下哪个是Visual Basic中的循环结构？- A. `If...Then...Else`- B. `For...Next`- C. `Select...Case`- D. `While...Wend`4. 在Visual Basic中，以下哪个是数组的声明方式？ - A. `Dim myArray()`- B. `Dim myArray As Integer`- C. `Dim myArray(10)`- D. 以上都是5. 以下哪个函数用于获取当前日期？- A. `Now()`- B. `Date()`- C. `Today()`- D. `GetDate()`6. 在Visual Basic中，以下哪个是事件处理程序的关键字？- A. `Event`- B. `Handles`- C. `Sub`- D. `Function`7. 下列哪个是Visual Basic中的条件语句？- A. `Do...Loop`- B. `If...Then...Else`- C. `While...Wend`- D. `For...Next`8. 在Visual Basic中，以下哪个是调用函数的方式？- A. `Call functionName()`- B. `functionName()`- C. `Invoke functionName()`- D. 以上都是9. 以下哪个是Visual Basic中的类的定义方式？- A. `Class`- B. `Structure`- C. `Module`- D. `Enum`10. 在Visual Basic中，以下哪个属性用于设置控件的可见性？- A. `Visible`- B. `Enabled`- C. `Caption`- D. `BackColor`#### 二、简答题（每题10分，共30分）1. 解释Visual Basic中的“事件”和“事件处理程序”的概念，并给出一个简单的例子。
大学vb期末考试题库及答案
大学vb期末考试题库及答案一、单项选择题（每题2分，共20分）1. VB中，以下哪个关键字用于声明变量？A. DimB. SubC. FunctionD. End答案：A2. 在VB中，以下哪个函数用于计算两个数的和？A. SumB. AddC. TotalD. +答案：D3. VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. CheckBox答案：A4. 在VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Height答案：A5. VB中，以下哪个事件用于响应鼠标单击事件？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A6. 在VB中，以下哪个关键字用于循环结构？A. ForB. IfC. WhileD. Select答案：A7. VB中，以下哪个函数用于获取当前日期？A. NowB. DateC. TimeD. Today答案：D8. 在VB中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A9. VB中，以下哪个控件用于选择单个项目？A. ListBoxB. ComboBoxC. CheckBoxD. OptionButton答案：B10. 在VB中，以下哪个事件用于响应文本框内容改变事件？A. ChangeB. ClickC. KeyPressD. TextChanged答案：A二、填空题（每题2分，共20分）1. VB中，声明变量的关键字是________。
答案：Dim2. VB中，用于计算两个数的乘积的运算符是________。
答案：*3. VB中，用于显示消息框的函数是________。
答案：MsgBox4. VB中，用于设置控件的标题的属性是________。
vb考试试题及答案二级
vb考试试题及答案二级一、单选题（每题2分，共20分）1. 在VB中，以下哪个关键字用于定义一个类？A. FunctionB. SubC. ClassD. Module答案：C2. 下列哪个选项不是VB中的控制结构？A. 顺序结构B. 选择结构C. 循环结构D. 递归结构答案：D3. VB中，用于定义变量的数据类型关键字是：A. DimB. ConstC. FunctionD. Sub答案：A4. 在VB中，以下哪个函数用于计算一个数的绝对值？A. AbsB. SqrC. IntD. Round5. VB中，以下哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. NameD. Title答案：A6. 在VB中，以下哪个控件用于显示文本信息？A. LabelB. TextBoxC. ComboBoxD. ListBox答案：A7. VB中，以下哪个事件用于响应鼠标单击操作？A. ClickB. DoubleClickC. MouseDownD. MouseUp答案：A8. 在VB中，以下哪个关键字用于退出当前的Sub过程？A. ExitB. EndC. ReturnD. Stop答案：A9. VB中，以下哪个函数用于将字符串转换为数值？B. ValC. CStrD. Chr答案：B10. 在VB中，以下哪个属性用于设置文本框的只读状态？A. ReadOnlyB. EnabledC. VisibleD. MultiLine答案：A二、填空题（每空2分，共20分）1. VB中，使用________关键字可以声明一个变量。
答案：Dim2. VB中，使用________函数可以连接两个或多个字符串。
答案：Concatenate 或 &3. VB中，使用________函数可以将数值转换为字符串。
答案：Str4. VB中，使用________事件可以响应文本框内容的改变。
答案：Change5. VB中，使用________方法可以清空一个列表框的所有项目。
南京工业大学VB题库2
单项选择题号：7491执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是_____。
A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体B、启动窗体和其他窗体一样可以隐藏和关闭C、启动窗体一般作为用户工作的界面，不可更改D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性”答案：C题号：7473在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是____________。
A、立即窗口B、代码窗口C、窗体布局窗口D、监视窗口答案：B题号：7479VisualBasic集成的主窗口中包括_____。
A、标题栏B、工具栏C、菜单栏D、以上三者均有答案：D题号：8027当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。
A、文本框的MultiLine属性为FalseB、文本框中没有内容C、文本框的MultiLine属性为TrueD、文本框的Locked属性为True答案：A题号：8003使用_____方法，可以将列表框List1中的所有项删除掉。
A、AddItemB、RemoveItemC、List1.Txt=""D、Clear答案：题号：8021某过程有语句Frm1.Caption="Hello",在界面设计时，该窗体的标题属性取缺省值，则执行该语句前后，标题、属性值分别为_____。
A、Form,HelloB、Form1,HelloC、Frm1,HelloD、Form1,Frm1答案：B题号：8008复选框的Value属性为1时，表示_____。
A、复选框未被选中B、复选框内有灰色的勾C、复选框被选中D、复选框操作有误答案：C题号：8047如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。
A、不显示B、选中C、禁止D、不选中答案：B题号：8546MsgBox函数返回值的类型为____________。
vb期末考试题库及答案
vb期末考试题库及答案一、选择题（每题2分，共20分）1. 在VB中，用于声明变量的关键字是：A. DimB. ConstC. FunctionD. Sub答案：A2. 下列哪个选项是VB中合法的变量名？A. 123abcB. _abc123C. 2abcD. abc-def答案：B3. VB中，用于循环结构的关键字是：A. IfB. ForC. WhileD. Select答案：B4. VB中，用于条件判断的关键字是：A. IfB. ElseC. CaseD. Do答案：A5. 在VB中，哪个函数用于计算字符串的长度？A. LenB. UCaseC. LCaseD. Trim答案：A6. VB中，用于定义过程的关键字是：A. FunctionB. SubC. DimD. Const答案：B7. 在VB中，用于数组声明的关键字是：A. DimB. ArrayC. ReDimD. Option答案：A8. VB中，用于退出循环的关键字是：A. ExitB. ReturnC. BreakD. Continue答案：A9. 在VB中，哪个函数用于将字符串转换为大写？A. UCaseB. LCaseC. StrCompD. Trim答案：A10. VB中，用于定义类模块的关键字是：A. ClassB. ModuleC. InterfaceD. Function答案：A二、填空题（每题2分，共20分）1. 在VB中，声明一个整型变量并赋值为10，可以使用语句：Dim num As Integer; num = _______。
答案：102. VB中，使用________函数可以将一个数字转换为字符串。
答案：CStr3. 在VB中，使用________关键字可以定义一个常量。
答案：Const4. VB中，使用________函数可以获取当前系统时间。
答案：Now5. 在VB中，使用________函数可以连接两个字符串。
南京工业大学vb期末题库
南京工业大学vb期末题库09复材高材vb综合练习题第二套满分：100分姓名：________1、单项选择题(本题共计49分)1、执行下面的程序，单击窗体后在窗体上显示的结果是________。
Private Sub Form_Click()Dim Strl As String, Str2 As String,I As IntegerStr1=”ab”For I=Len(Str1)To 1 Step-1Str1=Str1&Chr(Asc(Mid(Str1,I,1))+I)Next IPrint Str1End Sub ( )A、abceB、abcdC、abdbD、abfd2、下列语句中的语句可以用来正确地声明一个动态数组。
( )A、Private A(n) As IntegerB、Dim A() As IntegerC、Dim A(,) As IntegerD、Dim A(1 to n)3、在窗体上画一个命令按钮，名称为Command1，然后编写如下程序：Private Sub Command1_Click( )Dim a As Integer,b As IntegerDo While b <100b=b+5If b>20 Then Exit DoLoopPrint a,bEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_________。
( )A、50 20B、75 25C、50 25D、75 204、有如下程序：Private Sub Command1_Click( )score=65select Case scoreCase Is<60a$="F"Case 60 To 69a$="D"Case 70 To 79a$="C"Case 80 To 89a$="B"Case elsea$="A"End SelectMsgBox a$End Sub程序运行后，消息对话框中显示的内容为_______。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
A、②③ B、③④ C、①②④ D、①③④ 答案：
B 以下程序输出的结果是____________。 Dim a a=Array(1,2,3,4,5,6,7) For i=Lbound(a)To Ubound(a) a(i)= a(i)*a(i) Next i Print a(i) A、49 B、程序出错 C、不确定 D、0 答案：
a=Val(InputBox("请输入")) b=Val(InputBox("请输入")) x=a+b If a>b Then
x=a-b endif Print x End Sub 运行后，从 InputBox 对话框中连续输入 3 和 4，输出结果为_____。 A、3 B、34 C、0 D、7 答案： D 下列程序： Private Sub Form_Click( ) For j=1 To 15
item = LCase(Mid(entry, k, 1)) & k List1.AddItem item Next k End Sub 运行此程序，单击窗体,列表框第 4 行为_____。 A、d2 B、b2 C、b4 D、d3 答案：
A 以下程序段运行后，消息框的输出结果是
a=sqr(5) b=sqr(3) c=a>b Msgbox c+2 A、2 B、-1 C、1 D、出错 答案：
C 在窗体中添加一个命令按钮，并编写如下程序代码：
Private Sub Command1_Click( ) Dim y As Integer y=0 Do While y<7 y=y+3 Loop MsgBox y
End Sub 程序运行后，消息对话框中显示_____。 A、8 B、9 C、7 D、6 答案：
D 在窗体 Form1 上，有一个列表框控件 List1，在窗体的 Click 事件中有如下代码: Private Sub Form_Click()
Dim k As Integer Dim entry As String, item As String entry = "EDCBA" For k = Len(entry) To 1 Step -1
B 在窗体上面一个文本框（其中 Name 属性为 Text1），然后编写如下事件过程： Private Sub Command1_Click ( )
Text1.Text="" For i=1 To 10
Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是_____。 A、在文本框中 Text1 中输出 0 B、出错 C、在文本框中 Text1 中输出不定值 D、在文本框中 Text1 中输出 55 答案：
第四套
VisualBasic 是一种面向_____的程序设计语言。 A、过程 B、用户 C、工程 D、对象 答案： D 一个应用程序_____窗体。 A、可包括多个 B、应该有两个 C、只许有一个 D、可以没有 答案： A VisualBasic 中文版的菜单栏包括：文件、编辑、视图、工程、格式、调试、_____、查询、 图表、 工具、外接程序、窗口和帮助。 A、浏览 B、运行 C、属性 D、查看 答案： B 一只白色的足球踢进球门，则白色、足球、踢、进球门是________。
D、0 答案： D 如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_____状态。 A、不显示 B、选中 C、禁止 D、不选中 答案： B 复选框的 Value 属性为 1 时，表示_____。
A、复选框未被选中 B、复选框内有灰色的勾 C、复选框被选中 D、复选框操作有误 答案： C 在 VisualBasic 中最基本的对象是_____，它是应用程序基石，也是其它控件的容器。 A、窗体 B、文本框 C、命令按钮 D、标签 答案： A 以下四个说法中不正确的是_____。 A、控件工具箱中可以添加新的控件 B、可以通过双击工具箱中的控件，将控件加入窗体上 C、VB 中所有基本控件都可以改变大小 D、在窗体上选中控件，按【Del】键可删除该控件 答案： C 使用_____方法可将新的列表项添加到一个列表框中。 A、Clear B、Print C、AddItem D、RemoveItem 答案： C 如果要使文本框同时具有水平滚动条和垂直滚动条，应将 ScrollBars 设置为_____。 A、0 B、3 C、1 D、2
C 某过程的说明语句中，正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer
Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer
D
用"冒泡"法将数组 a 中的 10 个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相 邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数
全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段
________。 n=1O For i= 1 to n-1 For j= 1 to n-i If ____________ Then ……'互换语句 End If Next j Next i A、a(i)<a(i+1) B、a(j)>a(j+1) C、a(i)>a(j) D、a(i)<a(j) 答案：
窗体上将输出_____个字母"a"。 Private Sub Timer1_Timer()
For i = 1 To 10 Print "a"
Next i End Sub A、10 次 B、10000 次 C、以上都不对 D、1 000 次 答案：
A Dim y As Integer m=1 Do While m <= 3
B 下列语句可以用来正确地声明一个动态数组的是_____。 A、Private A(n) As Integer B、Dim A() As Integer C、Dim A(1 to n) D、Dim A(,) As Integer 答案：
B 在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案：
பைடு நூலகம்
答案： B 窗体 Form1 的名称属性为 frm，它的 Load 事件过程名为_____。 A、Me_Load B、Frm_Load C、Form_Load D、Form1_Load 答案： C 若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的_____属性。
A、BackColor B、BorderStyle C、BackStyle D、ForeColor 答案： C 有应用代码：Text1.Text="VisualBasic"，其中的 Text1、Text 和"VisualBasic"分别代表_____。 A、对象、方法、属性 B、属性、对象、值 C、对象、属性、值 D、对象、值、属性 答案： C 存在如下程序： Private Sub Command1_Click( )
B 以下程序的输出结果是_________。 Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer, p(3) As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub A、28 B、35 C、33 D、37 答案：
C 下列循环能正常结束循环的是_____。
A、i=5 Do i=i+1 Loop Until i<0 B、i=6 Do i=i-2 Loop Until i=1 C、i=1 Do i=i+2 Loop Until i=10 D、i=10 Do i=i+1 Loop Until i>0 答案：
D 假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程，则 1 秒钟的时候
A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法 D、属性、对象、事件、方法 答案： D _____在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
A、事件 B、工程 C、属性 D、方法 答案： A 引用列表框(List1)最后一个数据项应使用_____。 A、List1.List(List1.ListCount) B、List1.Lis(ListCount)
C、List1.List(ListCount-1) D、List1.List(List1.ListCount-1) 答案： D 当文本框的 ScrollBars 属性设置了非零值，却没有效果，原因可能是_____。 A、文本框的 MultiLine 属性为 False B、文本框中没有内容 C、文本框的 MultiLine 属性为 True D、文本框的 Locked 属性为 True 答案： A 将数据项"China"添加到列表框(List1)中成为第一项应使用_____语句。 A、List1.Addltem 1,"China" B、List1.Addltem "China",1 C、List1.Addltem "China",0 D、List1.Addltem 0,"China" 答案： C 下列控件中，_____控件不能改变大小。