下载文档原格式
页脚内容1一、填空题（每题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)。
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考试试题和答案2022**VB考试试题和答案2022**一、单项选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个选项是正确的数据类型？A. IntegerB. IntC. LongD. All of the above答案：D2. Visual Basic中，哪个函数用于计算两个数的和？A. SumB. AddC. +D. Concatenate答案：C3. 下列哪个选项是Visual Basic中的流程控制语句？A. If...Then...ElseB. For...NextC. While...WendD. All of the above答案：D4. 在Visual Basic中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. All of the above答案：B5. Visual Basic中，哪个属性用于设置控件的可见性？A. VisibleB. ShowC. DisplayD. Shown答案：A6. Visual Basic中，哪个事件用于响应按钮点击？A. ClickB. PressC. ActivateD. Select答案：A7. 在Visual Basic中，以下哪个是数组的正确声明方式？A. Dim myArray(10) As IntegerB. Dim myArray As Integer(10)C. Dim myArray(10) IntegerD. Dim myArray Integer(10)答案：A8. Visual Basic中，哪个函数用于获取当前日期？A. NowB. DateC. TodayD. GetCurrentDate答案：C9. 在Visual Basic中，以下哪个是合法的子程序声明？A. Sub MySubroutine()B. Function MySubroutine()C. Sub MySubroutine(ByVal x As Integer)D. All of the above答案：D10. Visual Basic中，哪个属性用于设置文本框的只读状态？A. ReadOnlyB. ReadC. WriteOnlyD. None of the above答案：A二、填空题（每题2分，共20分）1. Visual Basic中，声明一个整型变量myVar，其语法为：Dim ________ As Integer。
二、填空题：（每空1分，共20分） 程序代码基础部分：1．Visual Basic 中的变量按其作用分为__ 、__ 、__ 。
全局变量、模块变量（或窗体级变量）、局部变量（过程级变量）2．声明单精度常量PI 代表3.14159的语句为__ __ __ _。
Const PI!=3.14159或Const PI As Single = 3.14159 3．声明定长为10个字符变量Str v 的语句为： 。
Dim Strv as String*10 4．把条件为1≤X ≤5 写成Visual Basic 表达式为： 。
x>=1 and x<=5 5．把条件1≤X<12写成Visual Basic 关系表达式为__ 。
x>=1 and x<126．数学表达式（2 π r+e -5）lnx 对应的Visual Basic 表达式是：__ 。
（2*3.14*r+exp(-5))*Log （x ） 7．数学表达式c)-b)(s -a)(s -s(s 对应的VisualBasic 表达式是： __ 。
sqr （s*（s-a ）*（s-b ）*（s-c ）） 8．数学表达式ba x e r++-ln )2(8π对应的Visual Basic 表达式是： 。
（2*3.14*r+exp(-8)）*log(x)/(a+b)9．数学表达式5+(a+b)2对应的Visual Basic 表达式是 。
5+(a+b)^210．数学表达式2a （7+b ）对应的Visual Basic 表达式是 。
2*a*（7+b ）11．数学表达式C ×A B对应的Visual Basic 表达式是 。
C*A^B12．写出 Visual Basic 表达式 (Abs(a*b-c^3))^3 对应的数学表达式的形式 。
│ab-c 3│313．写出 Visual Basic 表达式 x^2+3*x*y/(2-y) 对应的数学表达式的形式 。
Visual Basic程序设计期末综合练习题一一、单项选择题1.Visual Basic是一种面向对象的可视化编程语言,采取了(的编程机制。
A.从主程序开始执行B.按过程顺序执行C.事件驱动D.按模块顺序执行2.在Visual Basic中,窗体文件的扩展名为(。
A..vbpB..frmC..clsD..bas3.Visual Basic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是(。
A.设计模式B.编写代码模式C.中断模式D.执行模式4.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是(。
A.Text.MytextB.Mytext*TextC.Mytext.(TextD.Mytext.Text5.下列关于变量的说法不正确的是(。
A.局部变量在声明它的过程执行完毕后就被释放了B.局部变量的作用域仅限于声明它的过程C.静态局部变量是在过程中用Static语句声明的D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量6.关于对象的属性不正确的是(。
A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值C.可通过程序代码设置属性的值D.对象的所有属性值均可在设计时设计7.在设计阶段,双击窗体上的某个控件时,打开的窗体是(。
A.工程资源管理器窗口B.工具箱窗口C.代码编辑器窗口D.属性窗口8.要在窗体的标题内显示“myfrm”,使用的语句是(。
A.Form.caption="myfrm"B.Form1.caption="myfrm"C.Form1.Print"myfrm"D.Form.Print"myfrm"9.在VB中,下列变量名不合法的是(。
A.file_1B.fileC.file-1D.file_1_210.在设计动画时,用时钟控件来控制动画速度的属性是(。
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中，使用________关键字可以声明一个数组。
《Visual Basic程序设计》复习题一、单选题（每小题2分）1.VB工程文件的扩展名是。
[A] .vbp[B] .frm[C] .frx[D] .bas2.控件________没有Caption属性。
[A] Label[B] OptionButton[C] Frame[D] TextBox3.当设置了定时器的有关属性后，使窗体自动向下移动的语句是哪条？[A] Move Left, Top + 100[B] Move Top + 100[C] Move , Top + 100 [D] Move Top = Top + 1004.将通用对话框控件Commondialog1显示为颜色对话框，可以改变该控件的________属性。
[A] Color[B] FileName[C] Action[D] Filter5.下列函数中, 返回值是字符串的是:[A] Chr[B] InStr[C] Val[D] Asc6.表达式6.5 Mod 5 \ 2+ Fix(-8.5) *3的值是__________。
[A]-27[B]-24[C]-23[D]-267.将当前窗体中显示的文字及绘制的图形全部清除，可以用________方法。
[A] Me.Clear[B] Me.Cls[C] Me=””[D] Me.Delete8.某顶级菜单项的热键字母为F，操作________等同于单击该菜单项。
[A] 同时按下[Ctrl]和[F]键[B] 按下[F]键[C] 同时按下[Alt]和[F]键[D] 同时按下[Shift]和[F]键9.一个对象可以执行的动作和可以被对象识别的动作分别称为________。
[A] 方法和事件[B] 事件和方法[C] 属性和方法[D] 事件和过程10.在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是______。
[A] 属性窗口[B] 代码窗口[C] 工具箱[D] 项目（工程）窗口11.在以下________中的这些对象都不响应Click事件。
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期末复习题库Visual Basic（填空题）1 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。
122 语句a%=3.14156:Print a%的输出结果是______。
33 "以下循环的执行次数是_____。
K=0Do While k<=10k=k+1Loop" 114 Fix(5.8)的值是_______。
55 "下列程序段的执行后输出的结果为_____。
I=4:A=5DoI=I+1:A=A+2Loop Until I>=7Print ""A="";A" A=116 表达式3/6*5的值是_______。
2.57 "下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。
If a<b Thend=a:a=b:b=dEndIfIf a<c Thend=a:a=c:c=dEndIfIf_____Thend=b:b=c:c=dEndIfPrint a,b,c" b<c8 在Select case 结构中应至少包含一个______子句。
CASE9 窗体的属性可在属性窗口中设置，也可在程序中用______语句动态设置。
赋值10 "有如下Sub过程:Sub ind(a As Integer)Static x As Integerx = x+aPrint x;End Sub以下是调用它的事件过程，程序运行后，单击命令按钮Command1，输出结果为______。
Private Sub Command1_Click()Ind(2)End Sub" 211 逻辑常量值为TRUE或_______。
FALSE12 货币类型的数据小数点的位置是固定的，精确到小数点后_____位。
413 表达式（2+8*3）/2的值是______。
1314 "以下程序用来判断一个整数X是否为偶数，并将其中的偶数在窗体上显示，请补充完该程序。
If X___2=____ Then Print X" MOD#015 当对窗体中的对象进行_____操作时，Visual Basic 就会显示该对象的代码窗口。
双击16 "下列程序的执行结果是____。
T = O : m = 1 : Sum = 0Dot = t + m : Sum = Sum + t : m = m + 2Loop While m <= 9Print Sum" 5517 一组具有相同名称，不同下标的下标变量称为______。
数组18 "给定年份，下列程序用来判断该年是否闰年，请补充完该程序。
提示：闰年的条件是年号可以被4整除但不能被100整除，或者能被400整除。
Private Sub Command6_Click()Dim y As Integery=InputBox(""请输入年号"")If(y Mod 4=0______y Mod 100<>0) or (y Mod 400=0) ThenPrint ""是闰年""Else Print ""是普通年份""End IfEnd Sub" AND19 设a=2,b=3,c=4,d=5下列a>b and c<>d or c=a表达式的值是_____。
FALSE20 表达式："1" & "2" = "12"的值是_______。
TRUE21 为了能自动放大或缩小图象框中的图形以与图象框的大小相适应,必须把该图象框的Stretch属性设置为______。
TRUE22 根据变量的定义位置和所使用的变量定义语句的不同，VB中的变量可以分为3类，即_____、模块变量和全局变量。
局部变量23 表达式3>4 and 7=5的值是______。
FALSE24 "以下的程序用来输出100到2000间不能被3整除的数字，请补充完该程序。
Private Sub Commmand1_Click()Dim x As Integerx = 100Do Until x > _____If x Mod 3 <> 0 ThenPrint xEnd Ifx = x + 1LoopEnd Sub" 200025 "下列程序段的执行时，共循环____次。
For a=0 To 1For b=1 To 2For c=1 To 3I=I+1Next cNext bnext a" 1226 "以下程序计算2到50间所有偶数的和，请补充完该程序Sub mult()Dim Sum As IntegerSum=0Dim I as integerFor___to 50If I MOD 2=___Then___Next IPrint sumEnd Sub" I=2#0#SUM=SUM+I27 A=7,B=3,C=4,则表达式 A MOD 3+B^3/C\5的值为____。
228 "下列循环语句，要求和数达到10既停止累加，退出循环，请补充完程序。
For j=1 to 10s=s+jIf s>=10 then Exit ____。
Next j" FOR29 "下列程序段的运行结果是：Sub Form1_Click()Dim n as IntegerI=21:n=3Do While I>nI=I-nLoopPrint IEnd Sub打印结果_____。
" 330 Visual Basic中的常量分为两种，一种是直接常量，一种是____常量。
符号31 Visual Basic 提供了列表框控件，当列表框中的项目较多、超过了列表框的长度时，系统会自动在列表框边上加一个______。
滚动条32 一个程序最多可以有________窗体。
25533 将一般窗体转换为MDI窗体的子窗体时要把MDIChild属性的值设置为_______。
TRUE34 要选择多个不相邻的控件，按住_______或SHIFT键不放，再单击要选择的控件。
CTRL35 表达式："1"+"2"="3"的值是_______。
FALSE36 ______属性用来设置窗体的标题。
它确定和改变显示在窗体的标题栏中的文本。
CAPTION37 假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。
TEXT1.SETFOCUS38 "执行下面的程序段后，s的值为____。
S=5For I=2.6 To 4.9 Step 2s=s+1Next I" 739 表达式“12345”<>“12345”&“ABC”的值是_____。
TRUE40 "下列程序用来计算1+2+3……+10的值，请补充完程序。
Dim t,k as singleK=0DO While k<10K=k+1:______loopprint t" T=T+K41 "下列程序段的执行后输出的结果为_______。
K = 1For I = 1 To 3A = I ^ I ^ KNext IPrint A" 2742 "下列程序是用来计算1＋2＋3……＋10的程序段，请补充完该程序。
Dim I, s, k As Integers = 0: k = 0For____To -1k = k+1:s = s+kNext IPrint s" I=-1043 执行inputbox函数后，会产生一个对话框，对话框上通常有两个按纽，它们是_____按纽和取消按钮。
确定44 "下列程序的执行结果是_____。
M1 = 1:m2 = 1Do While m2<>6m1 = m1*m2 : m2 = m2+1LoopPrint m1" 12045 "下列程序的执行结果是_____。
Private Function P(N As Integer)For I = 1 To NSUM = SUM + 1Next IP = SUMEnd FunctionPrivate Sub Command1_Click()S = P(1) + P(2) + P(3) + P(4)Print S;End Sub" 1046 货币型数据的类型标识符为______。
@47 "以下程序用来输出1到100所有奇数的和，请补充完该程序。
Private Sub Command3_Click()Dim s As LongDim x As Integers = 0For x=1 to 100 step____s = s + xNext xPrint sEnd Sub" 248 假设有一复选框控件，名为Check1，在程序中，我们用“check1.value=1”语句设置Value属性的值，则该程序执行后，复选框处于____状态。
选中49 激活属性窗口的快捷键是______。
F450 "下列程序的执行结果是_______。
A = 75If a>60 ThenI = 1ElseIf a>70 ThenI = 2ElseIf a>80 ThenI = 3ElseIf a>90 ThenI = 4End IfPrint I" 151 "下列程序段的运行后t的值为______。
Dim t,k as singlek=5 : t=1do While k>=-1t=t*k : K=K-1loop" 052 执行语句“a=6=5”后，变量a的值为______。
FALSE53 "下面程序段的输出结果是_____。
P=0:s=0Dop = p+2s = s+pLoop While p<11Print ""s=""&s" s=4254 "下面程序段的输出结果是______。
For X=1.5 To 5 Step 5Print X;Next X" 1.555 "执行下面的程序段后，s的值为______。
