vb函数与表达式练习题
高中会考——Visual Basic常用函数
一、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程序，其窗体和代码窗口如下图所示。
VB试题1（4）1
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）。
VB复习题
一、填空题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的注释语句采用‘字符开头，续行符采用空格+“_”若一行上书写多句语句则各语句间用：字符分隔。
历年浙江信息技术选择题整理之VB基本表达式及常用函数DOC
“在一个算法的步骤序列中，执行完一个处理步骤后，顺序执行紧跟着的下一个处理步骤。
”这种算法模式称为（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函数与表达式练习题
四、程序读程题 1、若整型变量 a 的值为 2、b 的值为 3，则下列程序段执行后整型变量 c 的值为 ______。 If a>5 then if b<4 then c=a-b else c=b-a End if elseif b>3 then c=a*b else c=a mod b End if 2.下列程序的执行结果为_____。 A=100:b=50 If a>b Then a=a-b Else b=b+a End if Print a 3.下面程序执行的结果是____。 Private Sub Form_Click() A$="123":B$="456" C=Val(A$)+Val(B$) Print C\100 End Sub
函数与表达式练习题
一、选择题 1、X=-9.8，表达式 INT(X)+FIX(－X)的值是( ) A.1 B.17 C.0 D.－1 2. 执行 A＝9\4 后，A 的值为( 2 ) A.9/4 B.3 C.2 D.2.25 3.表达式 Int(8*sqr(36)*10^(-2)*10+0.5)/10 的值是（ ）. (A) .48 (B) .048 (C) .5 (D) .05 4.表达式 Val(".123E2CD")的值是（）. (A).123 (B) 12.3 (C) 0 (D) .123E2CD 5. 表达式 SQR(2^3^2) MOD 7 的值为( ) A.0 B.1 C.2 D.3 6.表达式(7\3+1)*(18\5-1)的值是（ ）. (A)8.67 (B)7.8 (C) 6 (D)6.67 7.表达式 5^2 Mod 25\2^2 的值是（ ）. (A)1 (B)0 (C)6 (D)4 8.表达式 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.5 10.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)+11 12.表达式 Int(Rnd(0)+1)+Int(Rnd(1)-1)的值是（ ）. (A) 1 (B) 0 (C) 01 (D) 2 13.表达式 Int( - 17.8) +Sgn(17.8)的值是（ ）. (A) 18 (B)-17 (C) -18 (D) -16 14.表达式 Int( - 17.8) +Abs(17.8)的值是（ ）. (A) 0 (B) 0.8 (C) - 0.2 (D) 0 34.8 15.表达式 Left("how are you",3)的值是（ ）.
VB 第二章 练习三 运算符及表达式
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表示的是（）中的整数。
vb函数练习题
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常用内部函数练习题加答案
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、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
函数与表达式练习题一、选择题1、X=，表达式INT(X)+FIX(－X)的值是( )D.－12. 执行A＝9\4后，A的值为( 2 )4 表达式Int(8*sqr(36)*10^(-2)*10+/10的值是（）.(A) .48 (B) .048 (C) .5 (D) .054.表达式Val(".123E2CD")的值是（）.(A).123 (B) (C) 0 (D) .123E2CD5. 表达式SQR(2^3^2) MOD 7的值为( )6.表达式(7\3+1)*(18\5-1)的值是（）.(A) (B) (C) 6 (D)7.表达式5^2 Mod 25\2^2的值是（）.(A)1 (B)0 (C)6 (D)48.表达式 Mod 的值是（）.(A)1 (B)5 (C)4 (D)出错9.下面表达式中,（）的运算结果与其他三个不同.(A) Exp (B) Int+(C) -Abs (D) Sgn(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( - +Sgn的值是（）.(A) 18 (B)-17 (C) -18 (D) -1614.表达式Int( - +Abs的值是（）.(A) 0 (B) (C) - (D) 015.表达式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("")))的值为（）.(A) 11 (B) 5 (C) 6 (D) 820.设A="",则表达式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的值为（）.(A) (B) 3 (C) (D)25.表达式( - 1)*Sgn( - 100 +Int(Rnd*100))的值是（）.(A) 0 (B) 1 (C) - 1 (D) 随机函数26. \2的结果是__ ___。
(A) 1 (B) (C) 7 (D) 827. 下列选项中，为字符串常量的是______。
(A) 6/12/2001 (B) "6/12/2001"(C) #6,12,2001# (D) 6,12,2001#28. 设有如下声明：Dim X As Integer如果Sgn(X) 的值为-1，则X的值是( )A) 整数B) 大于0的整数C) 等于0的整数D) 小于0的数29.在一个语句行内写多条语句时,语句之间应该用（）分隔.(A) 逗号(B) 分号(C) 顿号(D) 冒号30．删除字符串前导和尾随空格的函数是____。
A) Ltrim() B) Rtrim() C) Trim() D) Lcase()31．设a=“Visual Basic”，下面使b=“Basic”的语句是( )A) b=Left(a,8,12) B) b=Mid(a,8,5)C) b=Rigth(a,5,5) D) b=Left(a,8,5)32. 函数int(abs(99-100)/2)的值为______。
A) 1 B) 0 C) “0” D) “1”33.?以下合法的Visual?Basic标识符是( )A)?ForLoop? B)?Const? C)?9abc? D)?a#x34.?表达式?5?Mod?3+3\5*2的值是( )A)?0? B)?2? C)4? D)?635.?用于获取字符串长度的函数是_______。
A) Len() B) Length() C) Strlen() D) Lofo()36. +8写成普通的十进制数是_______。
A) B) 0C) 8678700 D) 0037.设a?=?"MicrosoftVisualBasic"?，则以下使变量b的值为“VisualBasic”的语句是( )。
A)?b?=?Left(a,?10) ? B)?b?=?Mid(a,?10)C)?b?=?Right(a,?10) ? D)?b?=?Mid(a,?10,?11)38. 下列运算结果中，值最大的是 ___ ___。
A) 3\4 B) 3/4 C) 4 mod 3 D) 3 mod 441.二、填空题1.写出下列函数的值(1)INT+INT (2)SIN(0)(3)Sqr(ABS(-10)+15) (4)LOG(EXP(12))(5)10\5/3=，下列函数表达式的值各是什么(1)ABS(X)+INT(X) (2)SGN(X)+SGN(-X)(3)INT(SQR(-X)) (4)FIX(X)+INT(X)(5)FIX(2*X)*103.写出下列数学表达式的VB表达式(1))2(cos2π (2) 2ln8x e(3)322)lg(xba+ (4)033sinlg+x(5)||sin2xxe x-+4.把VB表达式写成数学表达式(1)(SIN(X)+COS(X)+ABS(X))*(LOG(9)/LOG(10)+TAN(X))(2)(EXP(X)+EXP(Y))/(A+B)三、运算表达式1.已知A=，B=2，C= - ，写出下列布尔表达式的值.A >B AndC > A Or A =B2.设A=2,B=3,C=4,D=5，写出下列布尔表达式的值。
（1）A>B And C<= D Or 2*A>C ___________ （2）3>2*B Or A=C And B<>C Or C>D ____________ （3）Not A<=C Or 4*C=B ^ 2 And B<>A+C ________ 3．设 C= “A”，写出下列布尔表达式的值。
（1）C>= “0” And C <= “9” Or C >= “A” And C <= “Z” __________ （2）C<= “0” And C >= “9” Or C>= “A” And C <= “Z” __________ （3）C>= “0” And C <= “9” And C>= “A” And C <= “Z” __________ （4）C>= “0” Or C <= “9” And C>= “A” Or C <= “Z” __________ 4.若A=20,B=80 ,C=70, D=30 ,则表达式 A +B >160 Or (B*C>200 And Not D>60)的值是 . 5.设A=2 , B= - 2 ,则表达式A / 2 + 1 > B + 5 Or B * (-2)=6的值是 . 6.设A=2,B= -4 ,则表达式3*A> 5 Or B + 8<0的值是 . 7.关系式X ≤ -5或X ≥5所对应的布尔表达式是: 8.关系式-5≤X ≤5所应的布尔表达式是: 的绝对值大于等于B 同时不等于C 的布尔表达式是: 是小于100的非负数,对应的布尔表达式是: 11.闰年的条件是:年号(Y)能被4整除,但不能被100整除;或者年号能被400整除.表示该条件的布尔表达式是: 12.一元二次方程ax2+bx+c=0有实根的条件是a ≠0,并且b2-4ac ≥0,表示该条件的布尔表达式是: 13.表示条件"变量X 为能被5整除的偶数"的布尔表达式是: 四、程序读程题 1、若整型变量a 的值为2、b 的值为3，则下列程序段执行后整型变量c 的值为______。
If a>5 then if b<4 thenc=a-b elsec=b-a End ifelseif b>3 then c=a*b elsec=a mod b End if 2.下列程序的执行结果为_____。
A=100:b=50 If a>b Then a=a-b Else b=b+a End if Print a 3.下面程序执行的结果是____。
Private Sub Form_Click() A$="123":B$="456" C=Val(A$)+Val(B$) Print C\100End Sub 4.以下程序段的执行结果是__ __。
X=2:y=1 If x*y<1 Theny=y-1 Else y=-1Print y-x>0End If5.以下程序段的输出结果是___ ___。
A=Sqr(3)b=Sqr(2)c=a>bPrint c6.执行下面的程序段后，b的值为_____。