郑州大学VB选择.doc

郑州大学VB选择、填空题(带答案、保你vb过90)一，选择题1、如果VB环境中缺少某个窗口，一般应从主菜单_C_的下拉菜单中找到相应的激活命令。（1分）A、编辑B、文件C、视图D、调试2、启动Visual Basic后，VB为用户建立的第一个窗体是_B_。（1分）A、FormB、Form1C、窗体1D、窗体3、不属于一个工程文件（*.vbp）里的文件是_A_。（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、与传统的程序设计语言相比较，Visual Basic最突出的特点是_C_。（1分）A、结构化的程序设计B、数据处理C、面向对象的可视化编程D、中文支持5、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是_B_。（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True6、能够盛放其他控件，而且是最基本的对象是_A_。（1分）A、窗体B、图像C、标签D、文本7、任何控件都具有的属性是_C_。（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗体上有一个标签Label1和一个命名按钮Command1，当程序运行时每单击一次命令按钮，标签就向右移动一定距离。在Command1_Click()中能完成这个功能的命令为_D_。（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一个Image控件对象设置成隐藏，应设置的属性是_A_。（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下_B_是正确的For Next结构。（1分）A、For x=1 To Step 10 Next xB、For x=3 To -3 Step -3 Next xC、For x=1 To x=10 Next xD、For x=3 To 10 Step 3 Next y11、能产生10，32之间随机整数的函数表达式为_B_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+1112、程序如下：k = 0: Do Until k 10: k = k + 1: Loop的循环体执行次数是_C_。（1分）A、9B、10C、11D、无数次13、若要使标签控件显示时，不覆盖其背景内容，应设置的属性是_C_。（1分）A、ForecolorB、BackColorC、BackStyleD、BorderStyle14、Print Format(1234.234, #.#); Format(1234.234, #.#)的显示结果是_A_。（1分）A、1234.234 1234.23B、123.23400 1234.234C、123.23400 1234.23D、1234.2341234.23415、运行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是_B_。（1分）不会A、26B、27C、38D、5716、Cls方法可以清除窗体或图片框中的_C_。（1分）A、在设计阶段使用Picture设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上全部内容17、如果想用Print方法将计算结果显示在窗体上，则必须保证属性值为True的属性是_C_。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable18、窗体文件的扩展名_D_。（1分）A、.basB、.vbpC、.exeD、.frm19、以下关于MsgBox的叙述中，错误的是_D_。（1分）A、MsgBox函数返回一个整数B、通过MsgBox函数可以设置信息框中图标和按钮的类型C、MsgBox过程语句没有返回值D、MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数20、能够通过标准工具栏打开的窗口是_C_。（1分）A、代码窗口B、设计器窗口C、属性窗口D、立即窗口21、在下列逻辑表达式中，逻辑值为真的是_A_。（1分）A、Not (1 2)B、Not (3 + 4 2 Or 2 3D、2 1 And 3 = 1.7 And W = 52.5B、T = 52.5C、T 1.7 And W 1.7 Or W m，在以下4个语句中，能将x赋值为一个mn之间（含m ,n）的任意整数，即满足mxn的是_B_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m30、执行语句Print Format(32548.5, #,#0.00)，输出结果是_D_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5031、下列选项中，_D_不是字符串常量。（1分）A、你好B、C、TrueD、#False#32、下列不合法的常量形式是_C_。（1分）A、1O0B、100.0C、1OE+0.5D、Const G = 23 + 1233、表达式Val(.123E2CD)的值是_B_。（1分）A、.123B、12.3C、OD、.123E2CD34、下列符号中，属于Visual Basic合法变量名的是_A_。（1分）A、x23B、8xyC、ENDD、X8B35、下列符号常量的声明中，_C_是不合法的。（1分）A、Const a As Single = 2.6B、Const a As String = abC、Const a As Double = Sin(1)D、Const a = OK36、表达式Turbo + C True + Basic的值是_A_。（1分）A、TrueB、FalseC、NullD、出错信息37、执行MsgBox 123 + 123，信息框中可以出现_C_。（1分）A、123 + 123B、123123C、246D、显示出错信息38、执行程序段：m$ = ABC: n$ = abc: k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是_D_。（1分）A、abcabcB、ABCABCC、65D、9739、Single（单精度）型数据占_B_个字节。（1分）A、2B、4C、8D、1040、变量未赋值时，数值型变量的值为_A_。（1分）A、OB、空串C、NullD、没任何值41、如果在图片框Picture1中装入一个图形，为了清除该图形（不删除图片框），应采用的方法是_C_。（1分）A、选择图片框，在属性窗口中选择Picture属性条，然后按回车键B、选择图片框，然后按Del键C、执行语句 Picture1.Picture = LoadPicture()D、执行语句 Picture1.Picture = 42、Visual Basic的编程机制是_C_。（1分）A、面向过程B、面向对象C、事件驱动D、可视化43、设n=10，执行n=IIF(n=3,n,-n)后，n 的值为_B_。（1分）A、10B、-10C、3D、-344、除了系统默认的工具箱之外，还可以通过_B_方法来增加控件。（1分）A、执行“文件”菜单中的“添加工程”命令B、执行“工程”菜单中的“部件”命令C、在工具箱处执行其快捷菜单中的“添加选项卡”命令D、执行“工程”菜单中的“添加窗体”命令45、在设计工作状态，当双击窗体上任何一个控件时，打开的窗口是_D_。（1分）A、窗体布局窗口B、窗体设计窗口C、属性窗口D、代码窗口46、有一个命令：Text1= 欢迎您！，表达方式中省略了对象的_B_。（1分）A、方法B、属性名C、对象名D、标题47、窗体设计器是用于设计_D_。（1分）A、窗体的代码B、对象的属性C、应用程序的代码D、应用程序的界面48、以下关于MsgBox的叙述中，错误的是_D_。（1分）A、MsgBox函数返回一个整数B、通过MsgBox函数可以设置信息框中图标和按钮的类型C、MsgBox过程语句没有返回值D、MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数49、在程序运行模式能够_A_。（1分）A、中断程序B、添加程序C、输入程序D、编辑程序50、下面四个语句中，正确的赋值语句是_A_。（1分）A、a = a + cB、a + c = aC、c + a = aD、a c = a51、Select Case 语句中的“表达式列表”不能是_A_。（1分）A、变量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case a ,b,cC、To 表达式，例如 Case 1 to 10D、Is关系表达式，例如 Case Is y Then max=x Else max=yB、max=IIF(xy , x, y)C、IF x y Then max=x : max=yD、max=x: If x=b And b l0B、(ab) Or (b2)C、(a0)D、(5a) And (b2)60、执行MsgBox 123 + 123，信息框中可以出现_A_。（1分）A、123 + 123B、123123C、246D、显示出错信息61、下列表达式中，表示X和Y之中有一个是奇数的表达式是_D_。（1分）A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1)D、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)62、下列符号常量的声明中，_C_是不合法的。（1分）A、Const a As Single = 1.1B、Const a As Integer = 12C、Const a As Double = Sin(1)D、Const a = OK63、以下声明语句中，错误的是_C_。（1分）A、Const varl=123B、Const var2=ABCC、Public const=计算机等级考试D、Static var3 as Integer64、下面表达式中，_D_的运算结果与其他3个不同。（1分）A、Log(Exp(-3.5)B、Int(-3.5) + 0.5C、-Abs(-3.5)D、Sin(30 * 3.14 / 180)65、Print Format(32556, #); Format(32556, #)的输出结果是_A_。（1分）A、3255632556B、3255632556C、32556-325D、-3255632566、下列数据中，_C_是日期型数据。（1分）A、01/30/2004B、Date(01/30/2004)C、#01/30/2004#D、01/30/200467、执行语句Print Format(32548.5, #,#0.00)，输出结果是_D_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5068、InputBox函数返回值的类型为_B_。（1分）A、数值B、字符串C、变体D、数值或字符串69、m、n是整数，且nm，在以下4个语句中，能将x赋值为一个mn之间（含m ,n）的任意整数，即满足mxn的是_B_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m70、在下列逻辑表达式中，逻辑值为真的是_A_。（1分）A、Not (1 2)B、Not (3 + 4 2 Or 2 3D、2 1 And 3 True + Basic的值是_A_。（1分）A、TrueB、FalseC、NullD、出错信息73、执行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，输出的结果是_B_。（1分）A、232 232032B、232 232C、232.32 232.32D、显示出错信息74、执行x = -6 2: Print Sgn(x) + Abs(x) + Int(x)的结果是_C_。（1分）A、-36B、1C、-1D、-3275、假设变量iVar是一个整型变量，则执行赋值语句iVar = 2 + 3 之后，变量 iVar 的值是_D_。（1分）A、2B、3C、5D、2376、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是_B_。（1分）A、0B、1C、随机数D、显示出错信息77、语句Print int(-23.4)= ; ; Int(-23.4)的输出结果为（1分） DA、Int(-23.4)=-23.4B、(-23.4)=23.4C、Int(-23.4)=-23D、Int(-23.4)=-2478、设a=3，b=5，则以下表达式值为假的是_A_。（1分）A、a=b And b l0B、(ab) Or (b2)C、(a0)D、(5a) And (b2)79、处于设计状态时，在窗体上双击鼠标，则系统在代码窗口显示的事件过程模板是_A_。（1分）A、LoadB、ClickC、DblClickD、MouseDown80、运行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是_A_。（1分）A、2B、26C、27D、3881、启动Visual Basic后，VB为用户新建立的第一个工程的名字是_D_。（1分）A、窗体1B、工程C、窗体D、工程182、决定窗体标题栏显示内容的属性是_C_。（1分）A、TextB、NameC、CaptionD、BackStyle83、Select Case 语句中的“表达式列表”不能是_A_。（1分）A、变量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case a ,b,cC、To 表达式，例如 Case 1 to 10D、Is关系表达式，例如 Case Is m，在以下4个语句中，能将x赋值为一个mn之间（含m ,n）的任意整数，即满足mxn的是_B_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m93、下列声明语句中，错误的是_B_。（1分）A、Const varl=123B、Dim var2=ABCC、Const y=计算机等级考试D、Static var3 as Integer94、下面关系运算中，输出结果为“True”的是_C_。（1分）A、1 + 2 = 12B、1 + 2 = 3C、1 & 2 = 12D、1 & 2 = 395、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是_B_。（1分）A、输出平均值B、将一个实数四舍五入取整并输出C、输出绝对值D、舍去一个实数的小数部分并输出96、执行程序 For n = 1 To 3: Cls: Print n=; n;: Next n 后, 输出结果是_C_。（1分）A、123B、3C、n= 3D、n= 1 n= 2 n= 397、方法Print 等级;考试，输出的结果是_A_。（1分）A、等级考试B、等级;考试C、等级考试D、等级;考试98、Single（单精度）型数据占_B_个字节。（1分）A、2B、4C、8D、1099、表达式Val(.123E2CD)的值是_B_。（1分）A、.123B、12.3C、OD、.123E2CD100、表达式4 + 5 6 * 7 / 8 Mod 9的值是_B_。（1分）A、4B、5C、6D、7101、窗体上有一个文本框和一个命名按钮，当向文本框中输入一个字符时，命令按钮的标题设置为“计算机考试”。下面正确的事件过程为_C_。（1分）A、Private Sub Command1_Click(): Command1.Caption = 计算机考试: End Sub B、Private Sub Command1_Click(): Text1 = 计算机考试: End SubC、Private Sub Text1_Change(): Command1.Caption = 计算机考试: End SubD、Private Sub Text1_Click(): Text1.Caption = 计算机考试: End Sub102、文本框中的ScrollBars属性已设置为 3-Both，但却没有水平和垂直滚动条的效果，原因可能是_B_。（1分）A、文本框中没有内容B、文本框的MultiLine属性为FalseC、文本框的MaxLength属性为0D、文本框的Locked属性是True103、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i 4，执行后s的值是_C_（1分）A、10B、11C、12D、15104、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后，显示的结果是_B_。（1分）A、0B、1C、随机数D、显示出错信息105、如果VB环境中缺少某个窗口，一般应从主菜单_C_的下拉菜单中找到相应的激活命令。（1分）A、编辑B、文件C、视图D、调试106、以下关于InputBox函数的叙述中，错误的是_C_。（1分）A、InputBox函数的“提示信息参数”不能缺省B、每执行一次InputBox函数，只能输入一个值C、InputBox 函数的返回值是数值型的D、要保存InputBox函数的返回值必须赋予一个变量107、能产生10，32之间随机整数的函数表达式为_B_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+11108、设有变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是_A_。（1分）A、TestDate = #1/1/2002#B、TestDate = #1/1/2002#C、TestDate = Date(1/1/2002)D、TestDate = Format(m/d/yy, 1/l/2002)109、已知下列程序段：a = 3: b = 4: Print b a ，输出的结果是_A_。（1分）A、TrueB、FalseC、43D、显示出错信息110、表达式Turbo + C True + Basic的值是_A_。（1分）A、TrueB、FalseC、NullD、出错信息111、语句T = MsgBox(程序执行了非法操作, vbAbortRetryIgnore, 提示信息)的执行后，可以在对话框中显示_C_个按钮。（1分）A、1B、2C、3D、4112、如果将布尔常量值True赋给一个整型变量，则整型变量的值为_B_。（1分）A、OB、-1C、TrueD、False113、执行语句age = InputBox(请输入数值, 年龄输入框, 38)，如果从键盘上输入数值20并按回车键，则下列叙述中,不正确的叙述是_A_。（1分）A、变量Age的值是数值20B、对话框标题栏中显示的是年龄输入框C、对话框的默认值是38D、对话框的提示文字为请输入数值114、执行程序段：Const c$ = Henan: c$ = Zhengzhou: c$ = Daxue: Print c$，输出的结果是_D_。（1分）A、HenanB、ZhengzhouC、DaxueD、显示出错信息115、执行程序段：a$ = Visual Basic Programing: b$ = Quick: c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 11)，变量c$的值为_D_。（1分）A、Visual BASIC ProgramingB、Quick Basic programingC、QUICK Basic ProgramingD、Quick BASIC Programing116、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是_B_。（1分）A、输出平均值B、将一个实数四舍五入取整并输出C、输出绝对值D、舍去一个实数的小数部分并输出117、执行程序段：m$ = ABC: n$ = abc: k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，输出的结果是_D_。（1分）A、abcabcB、ABCABCC、65D、97118、下列表达式中，表示X和Y之中有一个是奇数的表达式是_D_。（1分）A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1)D、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)119、下列符号中，属于Visual Basic合法变量名的是_A_。（1分）A、x23B、8xyC、END二，填空题1、* 求正整数M和N（MN）的最大公约数。 * 程序段如下： R = M Mod N Do While R 0 M = N N = R R = M Mod N Loop Print 最大公约数为: ; N2、* 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As String, b As Integer a = InputBox (请输入一个数字) b = InputBox(请输入一个数字) Print s; a; b; ok End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为：s321 456 ok。3、* 计算s = (1-1/2)*(1-1/3)*.(1-1/10) s = 1 For x = 2 To 10 s = s * (1 - 1 / x) Next x Print s4、* 求菲波那契数列（1、1、2、3、5、8.）的第3到10项的值。 * 程序段如下： A(1) = 1 A(2) = 1 I = 3 Do While I = 10 A(I) = A(I - 1) + A(I - 2) Print 第 & I & 项为: ; A(I) I = I + 1 Loop5、* 求S=1！+2！+10! * 程序段如下： s = 0 t = 1 For i = 1 To 10 t= t * i s = s + t Next i Print s6、* 下面的程序在运行结束时一共执行循环体5 次，最后打印结果为16 。 For i = 1 To 10 Step 1 i = i + 1 j = j + 1 Next Print i + j7、* 求SUM=123+456+789+282930 * 程序段如下： sum=0 I = 2 Do While I = 30 Sum = Sum + (I - 1) * I * (I + 1) I =I + 3 Loop Print 总和为：; Sum8、* 设在窗体上面有两个文本框（Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程，则程序运行结果为：123321。 Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = 123 Text2.Text = 321 Print a End Sub9、* 判断N是否为完全数（一个数等于它所有因子（不包括自身）之和，如6=1+2+3）。 * 程序段如下： I = 1 N=InputBox(请输入N的值：) Do While I = 0.000001 Print Term11、* 下面程序用于求小于和等于50的自然数的平方和，请填空。 * 程序段如下： private sub form_click()dim sum as long sum=0 for i=1 to 50 sum=sum +i2 next i print sum end sum12、* 下面程序的功能是随机产生一个三位数正整数，将该数和该数的逆序同时输出。Private Sub Form_Click() Dim a%, s As String, c As String Randomize a = Int(Rnd * (999 - 100 + 1) + 100) s = Format(a) c = Right(s, 1) & Mid(s, 2, 1) & Left(s, 1) Print 三位数是 & a Print a & 的逆序是 & cEnd Sub13、* 使用Select Case结构将一年中的12个月份，分成四个季节输出。 Private Sub Form_Click() Dim m% m = InputBox(请输入月份) Select case m Case 1, 2, 3 Print m & 月是第一季度 Case 4, 5, 6 Print m & 月是第二季度 Case 7, 8, 9 Print m & 月是第三季度 Case 10, 11, 12 Print m & 月是第四季度 End Select End Sub14、* 根据/4=1-1/3+1/5-1/7+.+(-1)n-1/(2n-1)，分别求n=1000、1500、2000、2500时的近似值。 * 程序代码如下： Private Sub Form_Click() For i = 1000 To 2500 step 500 s = 0 f = 1 For j = 1 To i t = 1 / (2 * j - 1) s = s + f * t f = -f Next j Print i=; i, pi=; s Next i End Sub15、* 使用双循环实现正三角形输出 * * * * * * * * * * * 程序代码如下： Private Sub Command1_Cick() For i = 1 To 10 Print Tab(25 - i ); For j = 1 To 2 * i - 1 Print *; Next j print Next i End Sub16、* 执行下列事件代码： Private Sub