vb函数与表达式练习题

一、VB常用函数二、算术类基本运算三、相关练习-选择题(一)复习巩固1.在Visual Basic 中，用code 变量存储数据“HN2012” ，下列说明语句正确的是 （ ）2.某算法的流程图及其编写中的Visual Basic 代码如下图所示分析流程图，在代码窗口中①处应填写的代码正确的是 ( ) （A ）Do While a ≥ 30 a = a * (1 - 0.2) n = n + 1 Loop（B ）Do While a >= 30 a = a * (1 - 0.2) n = n + 1 Loop（C ）Do While a >= 30 a = a (1 - 0.2) n = n + 1 Loop（D ）Do While a >= 30 a = a * (1 - 0.2) n = n + 1 Next3．某Visual Basic 工程的代码窗口如图所示：从图中可以看出，当前正在编辑的是 （ ） （A ）Command1的Click 事件过程代码 （B ）Timer1的Timer 事件过程代码 （C ）Label1的Click 事件过程代码（D ）Image1的Click 事件过程代码（A ）Dim code As Integer （B ）Dim code As Single （C ）Dim code As String（D ）Dim code As Boolean4.字符“1+1=2”的十六进制内码如下图所示：则内码“31 2B 32 3D 33”对应的字符为（）（A）1+2<3 （B）1+2>3 （C）1+2=3 （D）3=1+25．在Visual Basic中，下列能作为变量名的是（）（A）My （B）If （C）a+y （D）2nd6．Visual Basic设计环境中的部分控件工具箱如下图所示：要将某程序运行结果显示在标签上，则在窗体中必须要有的控件是 ( ) （A）①（B）②（C）③（D）④7．在Visual Basic中，与程序段:a = a + bb = a - ba = a - b功能相同的程序段是( )（A） a = b b = a （B）a = a + ba = a - bb = a - b（C） t = aa = bb = t （D）IF a > b THEN a = bELSEb = aEND IF8.“若是本店会员，所有商品打85折，否则无折扣”，用算法描述这一问题，合适的算法结构是（）（A）选择结构（B）循环结构（C）顺序结构（D）树型结构9．在Visual Basic中，表达式Abs(－3.6) * Sqr(100)的值是 ( ) （A）36 （B）360 （C）－36 （D）－36010．某同学正编写一个判断酒驾行为的Visual Basic程序，其窗体和代码窗口如下图所示。

Visual Basic练习题1、当文本框的内容发生变化时，必将触发（ C ）事件。

A、LostFocusB、KeyPressC、ChangeD、Click2、在Visual Basic中，下列（ D ）函数的值只为1，0，-1。

A、INT(X)B、ABS(X)C、SQR(X)D、SGN(X) 即“取正负号函数”3、下列Visual Basic程序段运行后，变量a、b、c的值为（）。

a = 1 :b = 1 :c = 1Do While a + b + c < = 10a = a + 1b = b * 2c = b / 2LoopA、2 2 1B、3 4 2C、4 8 4D、4 4 24、当程序在运行过程中因某种原因中断时，VB进入（ C ）模式。

A、设计B、运行C、中断D、工具5、要改变控件的高度，应改变（A）属性。

A、HeightB、WidthC、TopD、Left6、下列Visual Basic程序段运行后，变量x的值为（ C ）。

x = 3y = 77Dox = x + 2Loop Until x > Sqr (y)A、 7B、8C、9D、107、在Visual Basic中，建立一个文本编辑区域，可采用下列（ C ）。

A、命令按钮B、标签控件C、文本控件D、定时器控件8、下列（ D ）表达式的值不等于4。

A、Int (4.1)B、Int (4.9)C、Abs (int (-3.9))D、Abs (int (-4.5))9、下列Visual Basic程序段运行后，变量m 的值为（ B ）。

a = 2 :b = 1 :c = 5If a < b Then m = a Else m = bIf c < m Then m = cA、2B、1C、5D、三项答案均不是10、窗体模块文件的扩展名是（A）。

A、frmB、basC、vbpD、txt11、对象的三个要素是（A）。

一、填空题1、在Visaul Basic中的常量分为两种，一种是文字常量,一种是系统常量。

2、数学公式(X+Y)(Y*Z)的数学表达式是 yz(x+y) 。

3、在程序中使用日期型数据时，必须用_#_符号成对将日期型数据括起来。

4、VB集成发环境窗口，它包括了数个独立的窗口。

除必须的"主窗口"外，常用的还有属性窗口、代码窗口、窗体设计窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。

5、VB中每个对象都有自己的属性， visible 属性决定控件是否允许可见。

6、在VB对象的三要素中，可以把属性看作一个对象的性质，把事件看作对象的响应，把方法看作对象的动作。

7、VB有三种工作模式，它们分别是设计模式、中断模式和运行模式。

8、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal属性值应设置为 600 。

9、控件属性Height和Width决定了控件的大小。

10、在VB中，为了使一个控件在运行时不可操作，应将控件的 Enabled 属性设置为False 。

11、当要使标签框的大小随着Caption属性的值进行扩展或缩小时，应将该控件的 Autosize 属性设置为 True 。

12、VB中文本框对象响应的事件中，三个重要的事件是 Change 、 KeyPress 和LostFocus 。

13、Visual Basic中，时钟控件能有规律地以一定的时间间隔激发计时器事件而执行相应的代码程序。

14、在多窗体工程中，可用 show 方法显示一个窗体，用 hide 方法将一个窗体隐藏起来。

15、结构化程序设计方法，把程序的结构规定为三种基本结构，它们是：顺序结构、选择结构、和循环结构三种基本结构。

16、VB逻辑数据类型只有True与False两个值。

当逻辑数据转换成整型数据时，True 转换为 -1 ，False转换为 0 。

17、VB的注释语句采用‘字符开头，续行符采用空格+“_”若一行上书写多句语句则各语句间用：字符分隔。

“在一个算法的步骤序列中，执行完一个处理步骤后，顺序执行紧跟着的下一个处理步骤。

”这种算法模式称为（A）顺序模式（B）选择模式（C）循环模式（D）树型模一、变量或数组变量的定义考点：1.变量名命名规则：必须以字母、汉字、数字或下划线组成，但不能以数字开头不能使用VB中的关键字，如IF、Then、Loop，不与函数名同名，如Int、Len等2.变量类型：整数型、长整型、单精度、双精度、字符串、布尔型、日期型、字符型3.数组变量定义及类型在Visual Basic中，下列能作为变量名的是A. MyB. IfC. a+yD. 2nd在Visual Basic中，以下可作为合法变量名的是（）A. Count_2sB. Text@123C. ChrD. 2ab在Visual Basic中，用变量code存储数据“HN2012”，下列说明语句正确的是A. Dim code As IntegerB. Dim code As SingleC. Dim code As StringD. Dim code As Boolea在Visual Basic程序中要用到存储范围为-150000～150000的某一整数变量，则该变量的类型应该定义为（A）Integer （B）Long（C）Single （D）Boolea在Visual Basic中，定义字符串常量a的正确语句是（A）Const a As Integer（B）Const a= "hello" As String（C）Dim a As String（D）Const a = "hello”在Visual Basic中，语句Dim a(1 To 10) As String所定义的数组元素个数是（A） 1 （B） 9 （C） 10（D）11在Visual Basic中，要定义一个由50个元素构成的一维整型数组cp，下列语句正确的是（A）Const cp(1 to 50) As Integer（B）Dim cp(1 To 50) As Integer（C）Const cp(1 To 5) As Integer（D）Dim cp As Intege二、赋值语句和表达式（学会将代数表达式改写成VB代码中的表达式）在Visual Basic中，如果要在标签Lab上显示文字“注意事项”，则下列语句正确的是（A）Label.Caption = "注意事项" （B）Lab.Text = "注意事项"（C）Lab.Caption = "注意事项" （D）Label.Width = "注意事项在VB中，将窗体标题“Form1”改为“中华美食”需设置的属性是（）A．Name B．Caption C．Font D．Visible在Visual Basic 中，语句Command1.Font="隶体"中的“Command1”是（ ）A. 对象名B. 属性名C. 属性值D. 窗体名在Visual Basic 中，语句List_11.AddItem "hello"中的“AddItem ”是（A ）对象名 （B ）方法名 （C ）属性值 （D ）事件在VB 中，x=1，y=－1,则表达式x=y 的值为A ．1B ．-1C ．TrueD ．False下列Visual Basic 表达式中，值最大的是（A ）3 Mod 7 （B ）3 / 7 （C ）3 \ 7 （D ）7 Mod 3在Visual Basic 中，表达式13 \ 5 Mod 4的值是（A ） 1 （B ） 2 （C ） 3 （D ）4下列VB 表达式的值最大的是（ ）A ．10 Mod 5B ．5 Mod 10C ．10 / 5D ．5 / 10设X=5678,能得到其百位上数字“6”的正确表达式是( ）A ．X Mod 100B ．X\100 Mod 10C ．X\100 Mod 100D ．X\10 Mod 10将数学表达式写成Visual Basic 表达式，正确的是A. Int(Abs(ab – c * c)B. Sqr(Abs(ab – c * 2)C. Int(Abs(a * b – c * c)D. Sqr(Abs(a * b – c * c)将数学表达式152++y y 写成Visual Basic 表达式，正确的是（A ）y * y + 5 y + 1 （B ）y ^ 2 + 5 * y + 1（C ）y * y + 5 * y （D ）Abs(y ^ 2 + 5 * y + 1)三、逻辑表达式（条件表达式）下列能表示“x 与y 都小于10”的Visual Basic 逻辑表达式是A. (x < 10) And (y < 10)B. x < 10 , y < 10C. (x < 10) Or (y < 10)D. X < 10 : y < 10下列能表示“x>100或者y>80”的visual Basic 逻辑表达式是A. (x>100) and (y>80)B. x > 100, y < 80C. (x > 100) or (y > 80)D. x > 100: y > 80下列Visual Basic表达式的值为True的是（）A．1=2 B．"78"〉"79"C．Len("78")＝Len("中国") D．Mid("abcdef", 2, 3) = "abc"四、标准函数使用在Visual Basic中，有整型变量a = 5，b＝13,要在标签控件中显示结果为18，则执行下列语句能正确显示结果的是（）A．Label1.caption = Str（a+b）B．Text1.text=Len（a）+Val(b)Ｃ.Text1.text= Sqr(a+b) D．Label1.caption = Str（a）+Str（b）计算表达式Val("10") + Len("2AB")的值是（）A.12B.13C. 102D. 102AB在Visual Basic中，表达式Abs(－3.6) * Sqr(100)的值是A. 36B. 360C. －36D. －360下列Visual Basic表达式的值等于56的是（A）Mid("1234567", 5, 3) （B）Len("55") + 1（C）Sqr(56) （D）Abs(-55) +1字符串变量st的值为“ZheJiangTongXiang”，下列VB表达式的值为“TongXiang”的是( ) A．Mid(st,9,8) B．Mid(st,9,4)+ "Xiang"C．Mid(st,13,5) D. "Tong" +Mid(st,13,5)产生[1，40] 范围内某一随机整数的表达式是（A）Rnd * 40（B）Int(Rnd * 40)（C）Int(Rnd * 40) + 1（D）Int(Rnd * 39) +1在VB中，下列函数返回值最大的是A．Sqr(9) B．Abs(-3.2) C．int(3.2) D．Len("3.2")已知字符A～Z的ASCII码值分别对应65～90。

VB 第二章练习三运算符及表达式一：把下面有关运算符的表格补充完整：VB算术运算符（共8个） VB关系运算符（共8个）VB布尔运算符（共6个）二：历年高考题1、符号Visual Basic 6.0规范的表达式是（）A．(a+b)(a-b) B．a2-b2C．a^2-b^2 D．[a+b]*[a-b]2、表达式14 Mod 3的值是（）A．2 B．-2 C．1 D．-13．下列各种运算符，运算级别最高的是（）（课后原题）A．关系运算符B．布尔运算符C．算术运算符D．字符串连接运算符4．假设变量a=1234，执行t=(a\100) Mod 10语句以后，t的值是（）A．1 B．2 C．3 D．45．符合Visual Basic 6.0规范的表达式是（）A．a2+ab B．a(a+b) C．a*[a+b] D．a*(a+b)6．表示x位于闭区间[-3，3] 的Visual Basic表达式是（）A．-3<=x<=3 B．x>= - 3 Or x<=3 C．x>= - 3 And x<=3 D．x>= - 3 Xor x<=37、Visual Basic 6.0的表达式分为哪几类？（5分）（课后原题）、将数学表达式sin430+e x转化成符合VB 6.0规范的表达式是（）A、(sin(43*3.1415926/180)+Exp(x))/(c+d)B、(sin(43) +Exp(x)) /(c+d)C、sin(43*3.1415926/180)+Exp(x)/(c+d)D、(sin430+e x)/(c+d)9、算术运算符、关系运算符和布尔运算符的运算优先级由高到低依次是（）A、算术运算符、布尔运算符、关系运算符B、算术运算符、关系运算符、布尔运算符C、布尔运算符、关系运算符、布尔运算符D、关系运算符、算术运算符、布尔运算符、VisualBasic6.0表达式x>=-3 And x<8表示x位于（）、[-3,8] B、（-3,8） C、[-3,8] D、（-3,8]2、表达式Int(400*Rnd())+200表示的是（）中的整数。

1. Rnd函数不可能为下列（）值（A） 0 (B) 1 (C) 0.1234 (D)0.00052. Int(198.555*100+0.5)/100的值为（）(A) 198 (B) 199.6 (C)198.56 (D)2003. Print DateAdd(“m”,1,#1/30/2000#)语句显示的结果是（）（A）00-2-29 (B)00-2-28 (C)00-2-30 (D)00-1-314. 表达式DateDiff(“y”,#12/30/1999#,#1/13/2000#)的结果是（）（A）1 (B) 11 (C)14 (D) 995. 表达式Len(“123程序设计ABC”)的值为（）（A）10 (B)14 (C)20 (D)176. 表达式LenB(“123程序设计ABC”)的值为（）（A）10 (B)14 (C)20 (D)177.赋值语句：A＝123＋MID(“1234356”,3,2) 执行后，A变量的值为（）（A）”12334” (B)123 (C) 12334 (D)1578.赋值语句：A＝123 & MID(“1234356”,3,2) 执行后，A变量的值为（）（A）”12334” (B)123 (C) 12334 (D)1579. int(-3.5),int(3.5),fix(-3.5),fix(3.5),的值分别为多少（）（）（）（）10. 表达式Ucase(Mid(“abcdefgh”,3,4))的值为（）11．在下列函数中，哪个函数的执行结果与其他三个不一样 D 。

A．String(3,”5”) B．Str(555) C．Right(“55555”,3) D．Left(“55555”,3) 12．设变量A的值为2，则哪一个函数的执行结果与其他三个不一样 A 。

A．Val(“A”) B．Int(A) C．Fix(A) D．Abs(A)13．表达式Int(-20.9)+ Int(20.9+0.5)-Fix(-17.9)的值是 C 。

Vb常用内部函数练习题加答案1、编写一个计算器，在text1和text2中输入数字，text3中输出结果。

实现的功能为“加、减、乘、除、绝对值、符号函数、平方根函数、取余、乘方、负号、整除”2、编写一个程序，在text1中输入，text2中输出结果。

实现的功能为“int（x）、asc（x）、chr（x）、val（s）、str（s）”3、编写一个程序，在text1中输入一个身份证号码，先去除该数字前的空格（ltrim（s））从该身份证号码中截取此身份证号码的出生年月日4、编写以一下程序，实现如下的效果5、编写一个程序，在text1和text2中输入一串字符开始查找，如果text2中找到text1中的字符，text3返回位置，如果找不到text3则返回06、编写一个程序，在text1中输入一段英文语句，text2中返回其大写或小写7、编写一个程序，获取当前系统时间8、编写一个随机函数，产生1-20之间的5组随机函数，且第二次初始化时不能重复出现答案1、Private Sub Command1_Click()Dim a As SingleDim b As Singlea = Text1.Textb = Text2.TextText3.Text = a + bPrivate Sub Command10_Click()Text3.Text = Sgn(Text3.Text)End SubPrivate Sub Command11_Click()Text3.Text = Sqr(Text3.Text)End SubPrivate Sub Command2_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a - bEnd SubPrivate Sub Command3_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a * bEnd SubPrivate Sub Command4_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a / bEnd SubPrivate Sub Command5_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a Mod bPrivate Sub Command6_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a \\ bEnd SubPrivate Sub Command7_Click() Dim a As Single Dim b As Singlea = Text1.Textb = Text2.TextText3.Text = a ^ bEnd SubPrivate Sub Command9_Click() Dim a As Single Text3.Text = Abs(Text3.Text)End Sub2、Private Sub Command1_Click() Dim a As Singlea = Text1.TextText2.Text = Int(a)End SubPrivate Sub Command2_Click() Dim a As Stringa = Text1.TextText2.Text = Asc(a)End SubPrivate Sub Command3_Click() Dim a As Stringa = Text1.TextText2.Text = Chr(a)End SubPrivate Sub Command4_Click() Dim a As Singlea = Text1.TextText2.Text = Str(a)End SubPrivate Sub Command5_Click() Dim a As Stringa = Text1.TextText2.Text = Val(a)End Sub3、Private Sub Command1_Click() Dim a As String Dim b As Stringa = Text1.Textb = LTrim(a)Text2.Text = Mid(b, 7, 6)End Sub4、Private Sub Form_Click()Print String(1, "*")Print String(2, "*")Print String(3, "*")Print String(4, "*")Print String(5, "*")Print String(6, "*")Print String(6, "*")Print String(5, "*")Print String(4, "*")Print String(3, "*")Print String(2, "*")Print String(1, "*")End Sub5、Private Sub Command1_Click()Dim a As StringDim b As Stringa = Text1.Textb = Text2.TextText3.Text = InStr(a, b)End Sub6、Private Sub Command1_Click()Dim a As Stringa = Text1.TextText2.Text = LCase(a)End SubPrivate Sub Command2_Click()Dim a As Stringa = Text1.TextText2.Text = UCase(a)End Sub7、Private Sub Command1_Click()Dim a As StringText1.Text = Now()End Sub8、Private Sub Form_Click()Dim a As IntegerDim b As Integera = 1b = 20RandomizePrint Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a); Int((b - a) * Rnd + a)End Sub。

函数与表达式练习题一、选择题1、X=-9.8，表达式INT(X)+FIX(－X)的值是( )A.1B.17C.0D.－12. 执行A＝9\4后，A的值为( 2 )A.9/4B.3C.2D.2.253.表达式Int(8*sqr(36)*10^(-2)*10+0.5)/10的值是（）.(A) .48 (B) .048 (C) .5 (D) .054.表达式Val(".123E2CD")的值是（）.(A).123 (B) 12.3 (C) 0 (D) .123E2CD5. 表达式SQR(2^3^2) MOD 7的值为( )A.0B.1C.2D.36.表达式(7\3+1)*(18\5-1)的值是（）.(A)8.67 (B)7.8 (C) 6 (D)6.677.表达式5^2 Mod 25\2^2的值是（）.(A)1 (B)0 (C)6 (D)48.表达式25.28 Mod 6.99的值是（）.(A)1 (B)5 (C)4 (D)出错9.下面表达式中,（）的运算结果与其他三个不同.(A) Exp(-3.5) (B) Int(-3.5)+0.5(C) -Abs(-3.5) (D) Sgn(-3.5)-2.510.Int(100*Rnd(1))产生的随机整数的闭区间是（）.(A) [0,99] (B) [1,100] (C) [0,100] (D) [1,99]11.产生[10,37]之间的随机整数的Visual Basic表达式是（）.(A) Int(Rne(1)*27)+10 (B) Int(Rnd(1)*28)+10(C) Int(Rnd(1)*27)+11 (D) Int(Rnd(1)*28)+1112.表达式Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（）.(A) 1 (B) 0 (C) 01 (D) 213.表达式Int( - 17.8) +Sgn(17.8)的值是（）.(A) 18 (B)-17 (C) -18 (D) -1614.表达式Int( - 17.8) +Abs(17.8)的值是（）.(A) 0 (B) 0.8 (C) - 0.2 (D) 0 34.815.表达式Left("how are you",3)的值是（）.(A) how (B) are (C) you (D) how are you16.表达式Right("Biejing",4)的值是（）.(A) Bei (B) jing (C) eiji (D) ijin17.表达式Abs( - 5) +Len("ABCDE")的值是（）.(A) 5ABCDE (B) 0 5ABCDE (C) 10 (D) 018.表达式Mid("SHANGHAI",6,3)的值是（）.(A) SHANGH (B) SHA (C) ANGH (D) HAI19.函数Len(Str(Val("123.4")))的值为（）.(A) 11 (B) 5 (C) 6 (D) 820.设A="12345678",则表达式Val(Left(A,4) + Mid(A,4,2))的值为（）.(A) 123456 (B) 123445 (C) 8 (D) 621.设A="abcdefghijklm",下面（）的函数值为"jklm".(多选)(A) Mid(A,10,14) (B) Right(A,4)(C) Mid(A,10,4) (D) Left(A,10,4)22.函数InStr("VB程序设计教程","程序")的值为（）.(A) 1 (B) 2 (C) 3 (D) 423.函数Ucase(Mid("Visual basic",8,5))的值为（）.(A) Visual (B) basic (C) VISUAL (D) BASIC24.表达式Str(Len("123")) + Str(77.7)的值为（）.(A) 377.7 (B) 3 77.7 (C) 80.7 (D) 12377.725.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是（）.(A) 0 (B) 1 (C) - 1 (D) 随机函数26. 15.5\2的结果是__ ___。

1.表达式6+10MOD4*2+1的值是（）A. 11B. 10C. 8D. 92.表达式Abs(-5)+Len(“ABCDE”)的值为( )A. -5ABCDEB. 0C. 5ABCDED. 103.关于语句行，下列说法正确的是（）A. 一行只能写一条语句B. 一条语句可以分多行书写C. 长度不能超过去了255个字符D. 每行的首字符必须大写4.在编码器中，如果一条语句太长，无法在一行内写下（不包括注释），折行书写，可以在行末使用续行字符（），表示下一行是当前行的继续A. 一个空格加一个连字符（—）B. 一个空格加一个下划字符（_）C. 一个下划字符（_）D. 直接回车5. 有如下程序段：Dim str1 As String*5Str1=“Visual Basic”当该段程序被执行完时，变量str1的值为( )A. “Visual Basic”B. “V”C. “Visual”D. “Visua”6.把数值型转换为字符型需要使用的函数是（）A. StrB. ValC. ChrD. Asc7.下列关于变量的说法不正确的是( )A. 局部变量在声明它的过程执行完毕后就被释放了B. 局部变量的作用域仅限于声明它的过程C. 静态局部变量是在过程中用Static语句声明的D. 局部变量是指那些在过程中用Dim语句或Static语句声明的变量8.如果希望以模态方式显示窗体Form1，下列正确的语句是（）A. Form1.Show 0B. Form1.ShowC. Form1.Show 1D. 以下都不正确9."x"是小于80的非负数，用VB表达式表示正确的是（)A. 0<=x<80B. 0<=x Or x<80C. 0<=x And x<80D. 0≤x<8010.在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置为()A. 星号（*）B. 减号（-）C. 加号（+）D. 感叹号（！）11.可获取字符的ASCII码的函数是（）A. FixB. ChrC. valD. Asc12.以下右以作为Visual Basic变量名的是（）A. SINB. COS(X)C. X(-1)D. COL13.按照变量的作用域可将变量划分为（）A. Public、Private、ProtectedB. 全局变量、模块级变量、过程级变量C. 公有、私有、系统D. 动态、常量、静态14.要退出Do….Loop循环，可使用的语句是（）语句A. ExitB. Exit DoC. End DoD. Exit For15.Sub过程与Function过程最根本的区别是()A. Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B. Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。

本卷共有4道大题:一、单项选择题（20道小题，共20分）1、假定焦点已经位于TextBox1中，则能够触发KeyPress事件的操作是（）。

（1分）A、单击鼠标B、双击文本框C、鼠标滑过文本框D、按下键盘上的某个键2、在中每个对象都有三个基本要素，它们是 ( )。

（1分）A、对象的名称，值和所属类。

B、对象的属性，事件和方法。

C、对象的大小，存储方式和内容。

D、对象的访问方法、存储方式和名称。

3、表达式 Int(Rnd*55)+15 产生的随机数范围是( )。

（1分）A、[15，55]B、[15，69]C、(15，55)D、(15，69)4、以下表达式的结果( )不是字符串类型。

（1分）A、"45" + "123"B、"45" & "123"C、45 + "123"D、全部5、在窗体上有一文本框，名称为Textbox1，程序运行后，要求该文本框不能接收键盘输入，但能输出信息，以下设置正确的是( )。

（1分）A、TextBox1.MaxLength=0B、TextBox1.Enabled=FalseC、TextBox1.Visible=FalseD、TextBox1.Size.Width=06、设有 x，y 两个数值型变量，今欲将其以坐标的样式“(x，y)”显示在标签(Label1)上(注：x,y显示具体的数值），下面语句中正确的是( )。

（1分）A、Label1.text="(" & x & "," & y & ")"B、Label1.text="(x,y)"C、Label1.text=("x","y")D、Label1.text=(x,y)7、关于For...Next 循环，以下说法错误的是( )。

一、选择题（每题1分共20分）1、关于窗体，以下叙述中正确的是(1) 。

A．仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点B．一个VB工程只能从某个指定的窗体开始启动C．只有窗体可以作为控件的容器D．Unload Me和End语句的效果总是等同的2、若a为长整型变量，则执行a=12：Print Len(a)；Len(Str(a))；Len(CStr(a))后，在窗体上看到的是(2) 。

A．4 2 3B．2 3 2C．4 3 2D．2 2 33、表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是(3) 。

A．-8 B．-7 C．-6 D．-54、下列叙述中错误的是(4) 。

A）列表框与组合框都有List属性B）列表框有Selected属性，而组合框没有C）组合框有Style属性，而列表框没有D）组合框有Text属性、而列表框没有5、若要获得组合框中输入的数据，可使用的属性是(5) 。

A）ListIndex B）Caption C）Text D）List6、设a=5, b=6, c=7, d=8，执行语句X=IIf（（a＞b）And （c＞d）, 10, 20）后，x的值是 (6) 。

A）10 B）20 C）30 D）2007、以下关系表达式中，其值为True的是（7）。

A．"XYZ">"XYz" B．"VisualBasic"<>"visualbasic"C．"the"="there" D．"Integer"<"Int"8、以下字符运算表达式中,其功能与函数Mid(s,i,i)相同的是(8) 。

A．Left(s,i) & Right(s,Len(s)-i) B．Left(Right(s,Len(s)-i+1),i) C．Left(Right(s,i),Len(s)-i+1)D．Left(s,Len(s)-i) & Right(s,i)9、以下有关Function过程的说法中,正确的是(9) 。

Vb专题习题一、选择题1. 将数学表达式写成Visual Basic表达式，正确的是（）（A）Sqr(abs(b*b-4ac)) （B）Sqr(abs[b*2-4*a*c])（C）Sqr(abs(b*b-4*a*c))（D）Sqr[abs(b*b-4*a*c)]2. 在Visual Basic中，若要将窗体中某个命令按钮设置成无效状态，应对该按钮的（）属性值进行修改。

（A）Value （B）Visible （C）Enabled （D）Caption3. 执行如下Visual Basic程序段时，出现了如下图所示的错误：Private Sub Command1_Click()Dim a As Integer, b As Integera = 5:b = 8b = a + blabel1.Caption = Str(b)End Sub引发此错误的语句可能为（）（A）Dim a As Integer, b As Integer（B）a = 5: b = 8（C）b = a + b（D）label1.Caption = Str(b)4. 已知a=5，b=9，c=11，则下列Visual Basic表达式的值为False的是（）（A）a > b And a > c（B）a < b Or a > c（C）a < b + c （D）a > c – b5. 有下列Visual Basic程序段：某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print若程序要实现“求100内能被3整数的自然数个数”的功能，则方框中正确的语句是（）（A）i / 3 = 0（B）i mod 3 = 0（C）i \ 3 = 0（D）int(i/3) = 06. 有如下Visual Basic程序段：Private Sub Command1_Click()Dim a As Integera = Int(5 * Rnd + 1) * Int(5 * Rnd - 1)Print aEnd Sub执行程序后，a的值范围是（）（A）[0，15] （B）[－1，15] （C）[－4，15] （D）[－5，15]7.在Visual Basic中，表达式3 ^ 2 Mod 14 \ 2 ^ 3的值是（）（A）1 （B）0 （C）2 （D）38. 某同学正编写一个判断两数大小的程序，其窗体和代码窗口如下图所示：根据代码窗口中的程序，要在程序运行时判断两数的大小，窗体上必须增加的对象是（）（A）标签Text1（B）文本框Text2（C）命令按钮Command1（D）文本框Print9. 下列Visual Basic程序段中，能实现输出变量a、b、c三个数中最大数的是（）10、有如下Visual Basic程序段：x = 3y =5Text1.Text = "x+y"该程序运行后，要文本框Text1中显示的是（）（A）3+5（B）x+y（C）8（D）3+5=811.在Visual Basic中，下列表达式的值为5的是（）（A）Int(Sqr(9) + 1.28)（B）(19 \ 2) Mod 5（C）Abs(-7) + Sqr(4)（D）Len("x+y+2")12.在Visual Basic中，下列语句定义的数组元素为10个的是（）（A）Dim a(0 To 10) As Integer（B）Dim b(1 To 9) As String（C）Dim c(2 To 10) As Boolean（D）Dim d(0 To 9) As Date13.某Visual Basic工程的代码窗口如图所示：从图中可以看出，当前正在编辑的是（）A. Command1的Click事件过程代码B. Timer1的Timer事件过程代码C. Label1的Click事件过程代码D. Image1的Click事件过程代码14. 在Visual Basic中，下列能作为变量名的是（）A. MyB. IfC. a+yD. 2nd15. 已知字符A～Z的ASCII码值分别对应65～90。

VB 程序设计基础练习题（常量及变量、内部函数、表达式及运算）1．下面表达式的值是False 的有：(A) "n"& "969"<"n97"(B) InStr("visualbasic","b")<>Len("basic")(C) Str(2000)< "1997"(D) UCase("aBC")>"aBC"2．设s1和s2都是字符串型变量，s1="Visual Basic" : s2="b"，则下列表达式中结果为True 的是：(A) Mid(s1,8,1)> s2(B) Len(s1)<>2*Instr(s1, "l")(C) Chr(66) & Right(s1,4) = "Basic"(D) Instr(Left(s1,6), "a")+60 > Asc(UCase(s2))3、下列为单精度变量的是（A ）x$ （B ）x& （C ）x! （D ）x#4、Dim a,c As Integer ，a 和c 的数据类型分别为(A) 都是整型 (B) a 是变体，b 是整型 (C) a 是整型，b 是变体5．下列函数中，返回值是字符串的有：(A) Chr (B) InStr (C) Val (D) Asc6．下列函数中，返回值不是字符串的是：(A) Trim (B) Left (C) Rnd (D) Str7．下列7个表达式中，表达式的值不是数值5或5.0的是：① Sqr(25)； ② 25 ^ 0.5； ③ 55 Mod 10； ④ 5.5 \ 1.2；⑤ 5 * 3 / 15 * 5； ⑥ Abs(5 - 10)； ⑦ (3 * 3 + 4 * 4) ^ (1 / 2)。

1.输入3个数,输出最大的数2.有一元二次方程：aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根3.输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示“恭喜成绩通过”,若小于60,则弹出消息框,显示“抱歉成绩没有通过”4.输入一年份,判断它是否为闰年,并显示有关信息;判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除5.输入学生的百分制成绩,转换输出为五级制成绩,90～100分转换为优秀,80～89转换为良好,70～79转换为中等,60～69转换为及格,0～60转换为不及格;6.随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示;例如,产生246,输出是642;7.输入两个整数,求它们的最大公约数;8.编程求200--400范围内5的倍数或7的倍数之和;一个数如果同时是7和5的倍数,则只能加一次;;9.计算100~300之间所有能被3和7整除的数之和10.分别统计1-100中,满足3的倍数、7的倍数的数各有多少;11.某次歌曲大奖赛,有7个评委;如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分;12.输入一串字符,统计其中字母A不区分大小写出现的次数;13.我国目前有13亿人口,按人口年增长率%计算,多少年后我国人口将超过26亿;14.小猴有桃若干,第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少15.16.求100以内的素数17.百元买百鸡问题;假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案;18.编程求斐波那契数列前11项;斐波那契数列：F0=f1=1, Fn=Fn-1+Fn-2 n>=219.将输入的字符串以反序显示;例如：输入“ASDFGT”,显示“TGFDSA”20.随机产生10个30,100内的整数,求最大值及所对应的下标21.随机产生10个30,100内的整数,求最大值、最小值和平均值;22.随机产生10个30,100内的整数,求最小值及所对应的下标;23.随机生成一个整型的二维数组,范围在10,20之间,以下三角形式输出该数组;24.随机产生10个1~100的正整数放入数组,显示产生的数,求最大值、最小值、平均值;25.利用随机函数生成一个4×4的矩阵即二维矩阵,范围是20,50内的整数,输出该矩阵所有数据之和26.已知有序数组a,编程插入xx的值为14;数组a中的元素分别为{12,6,4,89,75,63,100,20,31};27.编写一函数,计算Double类型一维数组所有元素的平均值;28.用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.29.编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定;30.编一个函数,求一维数组a中的最大值,函数的形参自己确定;31.编写一个过程计算并输出区间100,1000内所有素数的和要求判断素数使用过程函数或子过程来实现;调用该过程;提示：只能被1和自身整除的自然数称为素数;注：本答案第一行代码应在题目之后,自行调整Private Sub Command11_Click'1. 输入3个数,输出最大的数Dim max%X1 = ValInputBox"input"X2 = ValInputBox"input"x3 = ValInputBox"input"max = X1If max <= X2 Thenmax = X2End IfIf max <= x3 Thenmax = x3End IfMsgBox "3个数之中的最大数max=" & maxEnd SubPrivate Sub Command12_Click'2. '有一元二次方程：aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根a = ValInputBox"input"B = ValInputBox"input"c = ValInputBox"input"s = B ^ 2 - 4 a cIf a <> 0 ThenIf s = 0 ThenMsgBox "两个相等实根"ElseIf s > 0 ThenMsgBox "两个不相等实根"ElseIf s < 0 ThenMsgBox "两个不相等虚根"End IfElseMsgBox " 无解"End IfEnd SubPrivate Sub Command13_Click'3. 输入一个百分制的成绩,若大于等于60,则用消息框弹出,显示"恭喜成绩通过",若小于60,则弹出消息框,显示"抱歉成绩没有通过"X = ValInputBox"input"If X >= 60 ThenMsgBox "恭喜成绩通过"ElseMsgBox "抱歉成绩没有通过"End IfEnd SubPrivate Sub Command14_Click'4. 输入一年份,判断它是否为闰年,并显示有关信息;判断闰年的条件是：年份能被4整除但不能被100整除,或者能被400整除yes = ValInputBox"year"If yes Mod 4 = 0 And yes Mod 100 <> 0 Or yes Mod 400 = 0 ThenMsgBox yes & "是闰年"ElseMsgBox yes & "不是闰年"End IfEnd SubPrivate Sub Command15_Click'5. 输入学生的百分制成绩,转换输出为五级制成绩,90～100分转换为优秀,80～89转换为良好,70～79转换为中等,60～69转换为及格,0～60转换为不及格;score = ValInputBox"input"Select Case scoreCase Is >= 90MsgBox "优秀"Case Is >= 80MsgBox "良好"Case Is >= 70MsgBox "中"Case Is >= 60MsgBox "及格"Case ElseMsgBox "不及格"End SelectEnd SubPrivate Sub Command16_Click'6. 随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示;例如,产生246,输出是642;a = "645"n = LenaFor i = 1 To Intn / 2c = Mida, i, 1Mida, i, 1 = Mida, n - i + 1, 1Mida, n - i + 1, 1 = cNext iMsgBox aEnd SubPrivate Sub Command1_Click'7. 输入两个整数,求它们的最大公约数m = ValInputBox"input m值"n = ValInputBox"input n值"If n > m Thent = nn = mm = tEnd Ifr = m Mod nDo While r <> 0m = nn = rr = m Mod nLoopMsgBox "最大公约数=" & nEnd SubPrivate Sub Command2_Click'8. 编程求200--400范围内5的倍数或7的倍数之和;一个数如果同时是7和5的倍数,则只能加一次; Dim sum1%, sum2%sum1 = 0: sum2 = 0For i = 200 To 400If i Mod 5 = 0 Thensum1 = sum1 + iElseIf i Mod 7 = 0 Thensum2 = sun2 + iEnd Ifi, sum1, sum2Next iMsgBox "5 的倍数之和sum=" & sum1MsgBox "7 的倍数之和sum=" & sum2End SubPrivate Sub Command3_Click'9. 计算100~300之间所有能被3和7整除的数之和Dim sum%sum = 0For i = 100 To 300If i Mod 3 = 0 And i Mod 7 = 0 Thensum = sum + iEnd IfNext iMsgBox "sum=" & sumEnd SubPrivate Sub Command4_Click'10. 分别统计1-100中,满足3的倍数、7的倍数的数各有多少m = 0: n = 0For i = 1 To 100If i Mod 3 = 0 Thenn = n + 1ElseIf i Mod 7 = 0 Thenm = m + 1End IfNext iMsgBox "3的倍数个数=" & nMsgBox "7的倍数个数=" & mEnd SubPrivate Sub Command5_Click'11. 某次歌曲大奖赛,有7个评委;如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分Dim sum%, max%, min%sum = 0: max = 0: min = 999For i = 1 To 7X = ValInputBox"input"If max <= X Thenmax = XEnd IfIf min >= X Thenmin = XEnd Ifsum = sum + XNext iAvg = sum - max - min / 5MsgBox "最高分=" & maxMsgBox "最低分= " & minMsgBox "总和=" & sumMsgBox "平均分=" & AvgEnd SubPrivate Sub Command10_Click'12. 输入一串字符,统计其中字母A不区分大小写出现的次数;Dim ch As Stringch = "ASDEAS"n = 0For i = 1 To Lenchst = Midch, i, 1If UCasest = "A" Thenn = n + 1End IfNext iMsgBox "字符串中出现A字符的系数" & nEnd SubPrivate Sub Command6_Click'13. 我国目前有13亿人口,按人口年增长率%计算,多少年后我国人口将超过26亿;n = 0X = 13Do While X <= 26X = Xn = n + 1LoopMsgBox nEnd SubPrivate Sub Command7_Click'14. 小猴有桃若干,第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第7天只剩一个,问小猴原有桃多少X = 1For i = 6 To 1 Step -1X = X + 1 2Next iMsgBox XEnd SubPrivate Sub Command8_Click'15. 求100以内的素数For i = 1 To 100flag = 1For j = 2 To i - 1If i Mod j = 0 Thenflag = 0End IfNext jIf flag = 1 ThenMsgBox i & "是素数"End IfNext iEnd SubPrivate Sub Command9_Click'16. 百元买百鸡问题;假定小鸡每只5角,公鸡每只2元,母鸡每只3元,编程求解购鸡方案; n = 0For X = 0 To 33For y = 0 To 50z = 100 - X - yIf 3 X + 2 y + z = 100 ThenPrint X, y, zEnd IfNext yNext XEnd SubPrivate Sub Command20_Click'17. 编程求斐波那契数列前11项;斐波那契数列：F0=f1=1, Fn=Fn-1+Fn-2 n>=2Dim f11 As Integerf0 = 1f1 = 1For i = 2 To 10fi = fi - 1 + fi - 2Next iFor i = 0 To 10Print fi;Next iEnd SubPrivate Sub Command21_Click'18. 将输入的字符串以反序显示;例如：输入"ASDFGT",显示"TGFDSA" Dim s10 As StringFor i = 0 To 9si = InputBox"input"Next iFor i = 9 To 0 Step -1Print siNext iEnd SubPrivate Sub Command22_Click'19. 随机产生10个30,100内的整数,求最大值及所对应的下标Dim a10 As Integer, max%For i = 0 To 9ai = IntRnd 71 + 30Next imax = a0maxi = 0For i = 1 To 9If ai >= max Thenmax = aimaxi = iEnd IfNext iMsgBox "max=" & maxMsgBox "maxi=" & maxiEnd SubPrivate Sub Command23_Click'20. 随机产生10个30,100内的整数,求最大值、最小值和平均值;Dim a10 As Integer, max%, min%For i = 0 To 9ai = IntRnd 71 + 30Next imax = a0min = a0For i = 1 To 9If ai >= max Thenmax = aiElsemin = aiEnd Ifsum = sum + aiNext iMsgBox "max=" & maxMsgBox "min=" & minMsgBox "avg=" & sum / 10End SubPrivate Sub Command17_Click'21. 随机产生10个30,100内的整数,求最小值及所对应的下标;Dim a10 As IntegerFor i = 0 To 9ai = IntRnd 71 + 30Next imin = a0Mini = 0For i = 1 To 9If ai <= min Thenmin = aiMini = iEnd IfNext iMsgBox "min=" & minMsgBox "mini=" & MiniEnd SubPrivate Sub Command18_Click'22. 随机生成一个整型的二维数组,范围在10,20之间,以下三角形式输出该数组;Dim a10, 10 As IntegerFor i = 0 To 9For j = 0 To 9ai, j = IntRnd 11 + 10Next jNext iFor i = 0 To 9For j = 0 To iPrint ai, j,Next jPrintNext iEnd SubPrivate Sub Command19_Click'23. 随机产生10个1~100的正整数放入数组,显示产生的数,求最大值、最小值、平均值;Dim a10 As Integer, max%, min%For i = 0 To 9ai = IntRnd 100 + 1Print aiNext imax = a0min = a0For i = 1 To 9If ai >= max Thenmax = aiElsemin = aiEnd Ifsum = sum + aiNext iMsgBox "max=" & maxMsgBox "min=" & minMsgBox "avg=" & sum / 10End SubPrivate Sub Command24_Click'24. 利用随机函数生成一个4×4的矩阵即二维矩阵,范围是20,50内的整数,输出该矩阵所有数据之和Dim a4, 4 As IntegerDim sum%, i%, j%For i = 0 To 3For j = 0 To 3ai, j = IntRnd 31 + 20sum = sum + ai, jNext jNext iFor i = 0 To 3For j = 0 To 3Print ai, j,Next jPrintNext iMsgBox "sum=" & sumEnd SubPrivate Sub Command25_Click'25. 已知有序数组a,编程插入xx的值为14;数组a中的元素分别为{12,6,4,89,75,63,100,20,31};Dim a, iMin%, n%, i%, j%, t%a = Array2, 6, 4, 89, 75, 63, 100, 20, 31X = 14n = UBounda ' 获得数组的下标上界For i = 0 To n - 1 ' 进行n-1轮比较iMin = i ' 对第i轮比较时,初始假定第i个元素最小For j = i + 1 To n ' 在数组i+1～n个元素中选最小元素的下标If aj < aiMin Then iMin = jNext jt = ai ' i+1～n个元素中选出的最小元素与第i个元素交换ai = aiMinaiMin = tNext iFor k = 0 To n ' 查找欲插入数x在数组中的位置If X < ak Then Exit ForNext kReDim Preserve an + 1 ' 数组增加一个元素For i = n To k Step -1 ' 数组元素后移一位,腾出位置ai + 1 = aiNext iak = XFor i = 0 To n + 1Print ai;NextEnd SubPrivate Sub Command26_Click'26. 编写一函数,计算Double类型一维数组所有元素的平均值;Dim a, n%, sa = Array1, 4, 7, 9, 12, 23, 56n = UBoundas = sum1aMsgBox "sum=" & sMsgBox "avg=" & s / nEnd SubPrivate Sub Command27_Click'27. 用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和.n = InputBox"INPUT"s = sum2nMsgBox "SUM2=" & sEnd SubPrivate Sub Command28_Click'28. 编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定Dim a, n%, min%a = Array1, 4, 7, 9, 12, -23, 56n = UBoundaCall procmina, minMsgBox "min=" & minEnd Sub'28. 编一子过程ProcMin,求一维数组a中的最小值,子过程的形参自己确定Private Sub Command1_ClickDim a, n%, min%a = Array1, 4, 7, 9, 12, -23, 56n = UBoundaCall procmina, minMsgBox "min=" & minEnd SubPrivate Sub Command29_Click'29. 编一个函数,求一维数组a中的最大值,函数的形参自己确定;Dim a, n%, sa = Array1, 4, 7, 9, 12, 23, 56n = UBoundas = maxaMsgBox "max=" & sEnd SubPrivate Sub Command30_Click'30. 编写一个过程计算并输出区间100,1000内所有素数的和要求判断素数使用过程函数或子过程来实现;调用该过程;提示：只能被1和自身整除的自然数称为素数;Dim i%, sum, f%sum = 0For i = 100 To 1000Call procsi, fIf f = 1 Thensum = sum + iEnd IfNext iMsgBox "sum=" & sumEnd Sub。

1.数学式子sin30°写成VB表达式是___A___。

A. Sin(30*3.14/180)B. Sin(30)C. Sin (30°)D. Sin302. 下面表达式中，___C___的运算结果与其他三个不同。

A. - Abs(-3.5)B. Int（-3.5）+0.5C. Exp（-3.5）D. Sgn(-3.5)-2.53. 已知X<Y ，A>B,正确表示它们关系的式子是___C___。

A. Sgn(X-Y)-Sgn(A-B）=-1B. Sgn(Y-X)-Sgn(A-B）=-2C. Sgn(Y-X)-Sgn(A-B）=0D. Sgn(Y-X)-Sgn(A-B）<04. 如果要改变窗体的标题，则需要设置的属性是__C_____。

A. BackcolorB. NameC. CaptionD. Borderstyle5. 如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入_D______。

A.#B.+C.&D.-6. 在程序中可以通过复选框和单选按钮的____A___属性值来判断它们的当前状态它。

AValue B. Caption C. Checked D. Selected7. 设有如下程序：Option Base 1Private Sub Form_Click()Dim ADim i As IntegerA=Array(1,2,3,4,5,6,7,8,9)For i=1 To 4Print A(4+i);Next iEnd Sub程序运行后，单击窗体，则在窗体上显示的是____A____。

A.5 6 7 8B.2 3 4 5C.1 2 3 4D.6 7 8 98. 下列程序段的执行结果为____D____。

Dim a(10) As Integer, b() As IntegerDim i As IntegerReDim b(5)For i = 1 To 10a(i) = iIf i Mod 2 = 0 Thenb(i/2) = a(i)End IfNext iPrint a(4); b(3)A.3 4B.4 3C.6 4D.4 69. 下列程序段的执行结果为 _____A___。

单项选择==================================================表达式（-1）*sgn(-100+int(rnd*100))的值是__________.A、0B、1C、随机数D、-1答案：B赋值语句：a=123+MID("123456",3,2)执行后，a变量中的值是____________。

A、123B、"12334"C、157D、12334答案：C下面____________是不合法的整常数。

A、100B、&O100C、&H100D、%100答案：D表达式（7\3+1）*(18\5-1)的值是___________.A、8.67B、7.8C、6.67D、6答案：D以下不合法的常量是_____________.A、10^2B、100C、10E+01D、100.0答案：A下列字符串中________________是合法变量。

A、x \ y ,x>yB、exp,123,x * yC、char_1,student,No,a1234D、end ,1bcx答案：C要判断月收入在2000元以上（含2000元）且5000元以下（不含5000元的职工，应该使用的逻辑表达式是____________。

A、M>2000 Or M<=5000B、M>=2000 Or M<5000C、M>2000 AND M<=5000D、M>=2000 AND M<5000答案：D下面正确的赋值语句是____________。

A、x+y=30B、3y=xC、y=π*r*rD、y=x+30答案：DVB表达式Sqr(a+b)^3*2中优先进行运算的是________。

A、*B、Sqr函数C、+D、^答案：C语句Print “Int(-13.2)=”;Int(-13.2)的输出结果为__________.A、Int(-13.2)=13.2B、Int(-13.2)=-14C、Int(-13.2)=-13.2D、Int(-13.2)=-13答案：B执行语句"Print format(5459.478,"##,##0.00")"，正确的输出结果是________。

试卷编号：8016所属语言：Visual Basic试卷方案：VB模拟试卷总分：100分共有题型：5种一、填空共10题（共计10分）第1题（1.0分）题号:66VB 6.0的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：=======(答案1)=======逻辑第2题（1.0分）题号:234当x=2时,语句if x=2 then Print x=2 的结果值是【1】.答案：=======(答案1)=======True第3题（1.0分）题号:1286使用Dim CJ(1 To 3, 1 To 4, 2 To 3),声明数组CJ有【1】个数组元素.答案：=======(答案1)=======24第4题（1.0分）题号:1460执行下面的程序段后,a 的值为【1】, b 的值为【2】.a=300b=20a=a+b b=a-ba=a-b答案：=======(答案1)=======20=======(答案2)=======300第5题（1.0分）题号:389Visual Basic中保存工程文件时,若不改变目录名,则系统默认的目录是【1】.答案：=======(答案1)=======VB98第6题（1.0分）题号:57在控件之中,【1】不能从工具箱中被删除.答案：=======(答案1)=======内部控件=========或=========标准控件第7题（1.0分）题号:270将焦点定位于命令按钮Command1之上的语句为【1】.答案：=======(答案1)=======Command1.SetFocus=========或=========SetFocus第8题（1.0分）题号:232表达式93\7 MOD 2^3的值是【1】.答案：=======(答案1)=======5第9题（1.0分）题号:1410两质数的差为2,称此两质数为质数对,下列程序是找出100以内的质数对,并成对显示结果.其中,函数IsP判断参数m是否为质数.请在程序中下划线处填入相应的内容.Public Function IsP(m)As BooleanDim I%【1】For I=2 To Int(Sqr(m))If 【2】Then IsP=FalseNext IEnd FunctionPrivate Sub Command1_Click()Dim I%P1=IsP(3)For I=5 To 100 Step 2P2=IsP(I)If 【3】Then Print I-2,IP1 【4】Next IEnd Sub答案：=======(答案1)=======IsP=True=======(答案2)=======m Mod I=0=======(答案3)=======p1 And p2 =======(答案4)=======p2第10题（1.0分）题号:44一个工程可以包括多种类型的文件,其中,扩展名为.vbp的文件表示【1】文件.答案：=======(答案1)=======工程二、判断共10题（共计10分）第1题（1.0分）题号:300如果一个列表框一共有5个选项,而当选中第三项时,这时列表框的ListIndex属性为2.答案：Y第2题（1.0分）题号:1122对象的三要素包括:属性、事件、方法.答案：Y第3题（1.0分）题号:250Image 控件不能用作容器使用.答案：Y第4题（1.0分）题号:228Dim i, j as integer 表明i和j都是整型变量.答案：N第5题（1.0分）题号:1134ActiveX部件是可以重复使用的编程代码和数据.答案：Y第6题（1.0分）题号:312通用对话框只能用SHOW方法进行调用.答案：N第7题（1.0分）题号:346在Visual Basic 中Dim a ,b,c as integer 和Dim a as integer, b as integer,c as integer 相同.答案：Y第8题（1.0分）题号:349在程序中Name属性是作为对象的标识而引用,不会显示在窗体上,而控件上显示的内容由Caption属性决定.答案：N第9题（1.0分）题号:341在VB中,可通过函数 Now返回计算机系统的日期和时间.答案：N第10题（1.0分）题号:362属性是用来描述和反映对象特征的参数,不同的对象具有各自不同的属性,对象的所有属性都可以在属性窗口中设置.答案：N三、单项选择共20题（共计20分）第1题（1.0分）题号:855在逐行运行程序的语句时,可用调试窗口监视表达式和变量的值,其中()窗口是用来显示代码中正在调试的语句所产生的信息,或显示直接在该窗口中键入的命令所请求的信息.A:立即B:监视C:本地D:中断答案：A第2题（1.0分）题号:374下列可缩放图片的属性是().A:autosizeB:pictureC:stretchD:OleDrawMode答案：C第3题（1.0分）题号:860组合框的三种不同风格:下拉组合框、简单组合框和下拉列表框由()属性决定.A:StyleB:BoderStyleC:FillStyleD:DrawStyle答案：A第4题（1.0分）题号:2257在用菜单编辑器设计菜单时,必须输入的项有().A:快捷键B:标题C:索引D:名称答案：D第5题（1.0分）题号:358下列()是日期型常量.A:"2/1/02"B:37258C:#2/1/02#D:|2/1/02|答案：C第6题（1.0分）题号:349为了防止用户随意将光标置于控件上,应(). A:将控件的TABINDEX属性设置为0B:将控件的TABSTOP属性设置为TRUEC:将控件的TABSTOP属性设置为FALSED:将控件的ENABLED属性设置为FALSE答案：D第7题（1.0分）题号:3243属性窗口只能在使用.A:设计时B:编译时C:运行时D:以上都不对答案：A第8题（1.0分）题号:3412下面关于对象的描述中,错误的是().A:对象就是自定义结构变量B:对象代表正在创建的系统中的一个实体C:对象是一个状态和操作(或方法)的封装体D:对象之间的信息传递是通过消息进行的答案：A第9题（1.0分）题号:3442一句语句要在下一行继续写,续行符是(). A:+B:-C:_D:…答案：C第10题（1.0分）题号:3207设a="Visual Basic",下面使b="Basic"的语句是 .A:b=Left(a,8,12)B:b=Left(a,8,5)C:b=Mid(a,8,5)D:b=Right(a,5,5)答案：C第11题（1.0分）题号:2245结构化程序由三种基本结构组成,下面不属于三种基本结构之一的是().A:顺序结构B:选择结构C:过程结构D:循环结构答案：C第12题（1.0分）题号:377下列哪个变量的取法是不正确的().A:TNameB:T_TempC:T32D:T32#答案：D第13题（1.0分）题号:294改变控件在窗体中的左右位置应修改该控件的()属性.A:TopB:LeftC:WidthD:Right答案：B第14题（1.0分）题号:3538关于键盘事件的说法中,正确的是A:按下键盘任意键都会引发KeyPress事件B:大键盘的"1"键,和数字键盘的"1"键的KeyCode编码相同C:KeyDown 和 KeyUp事件过程中有KeyAscii参数D:大键盘的4的上档符号是$,当同时按下Shift 键和大键盘的4时,KeyPress事件过程KeyAscii参数值是$的Ascii值.答案：D第15题（1.0分）题号:3193下列程序段的运行结果.Private Sub Form_Click()Dim MsgHideMsg="选择'确定'按钮"MsgBox MsgShowEnd SubA:隐藏窗体,按'确定'按钮使窗体重现B:隐藏窗体C:显示窗体,按'确定'按钮使窗体隐藏D:显示窗体答案：A第16题（1.0分）题号:3233执行下面程序段后,变量c$的值为___ ___. a$= "Visual Basic Programming"b$= "Quick"c$=b$ & Ucase(Mid$(a$,7,6)) &Right$(a$,12)A:Visual BASIC ProgrammingB:Quick Basic ProgrammingC:QUICK Basic Programming D:Quick BASIC Programming答案：D第17题（1.0分）题号:2179当在滚动条内拖动滚块时触发()事件. A:KeyUpB:KeyPressC:ChangeD:Scroll答案：D第18题（1.0分）题号:3185函数Int(Rnd*11)+10产生的数值的范围是______.A:(0,10)B:[10,10]C:[10,20]D:(0,20)答案：C第19题（1.0分）题号:3254下面程序段输出的结果是Private Sub Command1_Click()x = 8For i = 0 To 20 Step 5x = x + iNextPrint "X="; xEnd SubA:X=210B:X=218C:X=50D:X=58答案：D第20题（1.0分）题号:3534执行指令"Line(1200,1200)-Step(1000,500),,B"后,CurrentX=A:2200B:1200C:1000D:1700答案：A四、程序设计共5题（共计50分）第1题（10.0分）题号:131'-------------------------------------------------'【程序设计】'-------------------------------------------------'题目：(事件)单击窗体。

VB第四章练习（二）VB第四章练习（二）（有正确答案的）一、填空题1设 a=2,b=3，表达式 a>b 的值是_______。

FALSE|0|零|假|假值|零值 2．在VB中声明静态变量的关键字是_______。

static 3．在VB中声明符号常量的关键字是_______。

const 4．表达式10 MOD 16\\4的值是_______。

25．设A=5，B=6，C=7，D=8，表达式3>2*B OR A=C AND B<>C OR C>D的值是_______。

False|0|零|假|假值|零值6．设a=6，b=3，c=5，则表达式Not a>c And c=b Or b<>a+c 的值为_______。

True|真|真值|-18．设a=1,b=2,c=3,则VB6.0表达式：a9．x是小于120的非负数，描述该条件的布尔（逻辑）表达式是_。

x<100 and x>=0|x>=0 and x<100|（x<100）and (x>=0)|(x<100) and x>=0|x<100 and (x>=0)|(x>=0) and(x<100)|(x>=0) and x<100| x>=0 and (x<100)10．在VB中，用 Dim X As Integer 语句定义的变量X，系统默认其值为_______。

0|零 11．表示x是5的倍数VB表达式为_______。

X MOD 5=0|x/5=int(x/5)|int(x/5)=x/5 12．已知 a=3.5,b=5.0,c=2.5,d=True 则表达式：a>=0 AND a+c>b+3 OR NOT d 的值是____。

False|0|零|假|假值|零值13．用于声明全局变量的关键字是_______。