33.设s1、s2为字符串型变量，s1=“how do you do”，s2=“O”，则以下关系表达式的结果为True的是（A.len（s1）=instr（s1，“d”）+8） 35.下面表达式的值为真的是（A.Mid（“VB”，1,12）=Right（“Programing Lanuage Visual Basic”,12））
37.已知A$=“A12B3456”，L=Len（A$）+Val（Mid（A$，2,2）），则L=(B.20) 39.算术表达式In丨e^π+sin^3x/x+y丨的VB表达式是（A.Log（abs（（3.14159）＋（x）^3）/（x+y））） 41.执行语句：Print Format（5459.478，”##,##0.00”）,正确的输出结果是B.5,459.48。 43.下列表达式中不能判断x是否为偶数的是D.x\\2=0。
45.下列所列四组数据中，全部正确的visualbasic的常数是A.32768,1.34D2,”ABCDE”,&O1767
47.设a=4,b=3,c=2,d=1,下列表达式的值是D. 0。A>b=1 Or c 二、填空题 1.写出下面Val函数表达式的值 （1）Val(“1.23E2CD”)的值为123 3.关系式-5<=X<=5所对应的布尔表达式是（x<=-5 or x>=5 ）。 5.一元二次方程axx+bx+c=0有实数的条件是a不等于0并且bb-4AC大于等于0表示布尔表达式是（a<>0 and b^2-4*a*c>=0 ） 7.x+y小于等于8且x-y大于8的逻辑表达式为（(x+y) < 12 and (x-y) > 2） 9.关系式X<=-5或X>=5所对应的布尔表达式为（x<=-5 Or x>=5 ） 13.假定有如下的命令按钮（名称为Command1)事件过程： PrivateSubCommand1_Click() x=InputBox(\输入：\，\输入整数\ MsgBox\输入的数据是：”，，”输入数据：\ EndSub 程序运行后，单击命令按钮，如果从键盘上输入整数10，则 x的值是数值（10） 输入对话框的标题是（输入整数） 信息框的标题是（输入数据：10） 信息框中显示的是（输入的数据是：） 三．数据类型 数据类型 整型 长整型 单精度型 双精度型 关键字 说明符 Integer % Long & Single ! Double # 取值范围 -32768~+32767 2147483648~2147483647 负数：-3.402823E38~-1.401298E-45 正数：1.401298E-45~3.402823E38 负数：-4.94065645841247E-324~-1.79769313486232E308 字符变长 String 串型 定长 字节性 Byte 货币型 Currency 逻辑型 Boolean 日期型 Date（time） 对象型 Object 变体型 Variant $ 无 @ 无 无 无 无 正数：1.79769313486232E308~4.94065645841247E-324 0~2^31约20亿个字符 1~2^16约65535个字符 0~255 -922337203685477.580.8~922337203685477.580.8 Ture和False 01,01,100~12,31,9999 (00:00:00~23:59:59) 任何对象引用 上述有效范围之一 4.3同步练习题 一．选择题 2、设有如下变量声明： Dim TestDate As Date 为变量TestDate正确赋值的表达方式是（A、TestDate=#1/1/2002#） 4、表达式Int（8*Sqr(36)*10^(-1)*10+0.5）/10的值是（C、0.5） 6、下列符号常量的声明中，（C、Const a As Double=Sin(1)）是不合法的。 8、设A=”12345678”，则表达式Val(Left(A,4) + Mid(A ,4 ,2))的值为（B、123445） 10、窗体上放置了3个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3.Text=Text1.Text+Text2.Text后，则在Text3中显示（B、45678） 12、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句（B、Option Explicit） 14、假设变量Lng为长整型变量，下面不能正常执行的语句是（A、Lng=16384*2） 16、代数表达式对应的Visual Basic表达式为 （A、Sqr((x+Log(x))/(a+b))+Exp(-1)+Sin((x+y)/2)） 18、在Form_Click事件中执行下列语句后错误的结果是（D、Print Format(12345.6,”0.00E+00”)的输出结果是0.12E+05） 20、Sgn(1-Int(Sin(5)-3))的值是（B、1） 22、如果A=True，则式子43>44And Not A Or A的结果是（A、True） 24、设a=”Visual Basic”,下面使b=”Basic”的语句是 （B、b=Mid(a,8,5)） 26、设a=3，b=2，c=1，运行Print a>b>c得结果是（C、False） 28、设a=3，b=5，则以下表达式值为真的是B、（a>b) Or (b>0) 30、代数式 对应的Visual Basic表达式是（D、a/(b+c/d)） 32、已知X 34、代数式x1-a+ln10+sin(x2+2π)/cos(57)对应的Visual Basic表达式是（A、X1-Abs(A)+Log(10)+sin(X2+2*3.14)/cos(57*3.14/180)） 36、语句Print Sgn（-3^2）+ Int(-3^2)运行时输出的结果为（D、-10） 38、表达式X+1>X是（D、关系表达式） 40、在一个语句行内书写多条语句时，语句之间应该用（D、冒号）分隔。 42、产生[10,37]之间随机整数的Visual Basic表达式为（B、Int（28*Rnd）+10） 44、下列（C、28wed）符号不能作为Visual Basic中的变量名。 46、下面（D、#False#）不是字符串常量。 48、用Msgbox”你好”，Vbokonly，“Hello”显示的消息对话框窗口的标题是（D、Hello） 二、填空题 2、一般情况下，Visual Basic的编码规则是：一行上书写一条语句，一行上最多可以书写（255）个字符。若需要再同一行上书写多条语句，语句间用（冒号“：”）隔开；若需要将一条语句分多行写，则必须在行末加（续行符“_”（空格和下划线）） 4、将下面的条件用Visual Basic的布尔表达式表示 （1）X+Y小于10，且X-Y要大于0 （X+Y）<10 And (X-Y)>0 （2）X、Y都为正整数或都是负整数 X*Y>0 And X=Int(X) And Int(Y)=Y （3）X、Y之一为0但不得同时为0 X*Y=0 And X+Y<>0 6、写出下面Format的函数值 （1）Format(8888.3,”##,##0.00”)的值为（8888.30） （2）Format(627.9,”####”)的值为（628） （3）Format（0.6677,”0.00”）的值为（0.67） （4）Format（0.5678,”#.00”）的值为（0.57） （5）Format（“HELLO”,”<”）的值为（hello） （6）Format（“This is a good idea”,”>”）的值为（THIS IS A GOOD IDEA） 8、X是小于100的非负数，对应的布尔表达式为（x<100 And x>=0） 10、设a=5，b=10，则执行c=Int（（b-a*Rnd+a）+1）后，c值得范围为（6~10） 12、设A=2，B=3，C=4，D=5，写出下列布达尔表达式的值 （1）A>B And C<=D Or 2*A>C False （2）3>2*B Or A=C And B<>C Or C>D False （3）Not A<=C Or 4*C=B^2 And B<>A+C False 5.3同步练习题 一、 选择题 1.下列程序段的执行结果为——— A.1 2 3 5 a=0:b=1 a=a+b:b=b+a:Printa;b a=a+b:b=b+a:Printa;b 3.假设变量Bool是一个布尔型变量，则下列赋值语句中，正确的是（D Bool=3＜4） 5.下列程序段的执行结果为（C2 3 False） x=2:y=3 z=x=y Print x;y;z 7.设有一个文本框控件text1，假设已存在三个整形变量a,b和c,且变量a的值为5，b的值为7，c的值为12.以下的 C text1.text=a&\语句可以使文本框内显示的内容为5+7=12. 9.下面所列控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是——D Label1.Visible 11.设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能真确执行的是---B Text1=a*b/b 13. 执行赋值语句a=746+Mid（‘’74697‘’,3,2）后a变量中的值为___C_.815__ 15.下列语句中正确的是。C Label1.Caption=1234 17.设a=10,b=5,c=1,执行语句Printa>b>c后，窗体上显示的是。B False 19.以下程序段在立即窗口中输出。B.our a=＂your＂ b=＂sname＂ c=＂iscr＂ Print Right(a,3) Picture1.Print Mid(b,2,4) Debug.Print Left(c,2) 21.在窗体上画一个文本框，其名称为Text1，然后编写如下事件过程：B BBB Private Sub Text1_KeyPress(KeyAscii As Integer) Dim Str As String Str=Chr(KeyAscii) KeyAscii=Asc(UCase(str)) Text1.Text=String(2,KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“b”，则在文本框Text1中显示的内容为。 23.下列事件过程 Private sub command1-click() Dim sum as integer Sum%=19 Sum=2.32 Print sum%;sum End sub 运行后输出结果是（D.2 2） 25.在窗体上画2个滚动条，名称分别为hscroll1,hscroll2.6个标签，名称分别为label123456,其中456分别显示A B A*B等文字信息，标签12分别显示其右侧的滚动条的数值，3显示A*B的计算结果。当移动滚动框时，以下不能显示上述功能的事件过程是Dabel3.caption=hscroll1.text*hscroll2.text.End sub 27、下列程序的执行结果为----B Score=2 a=75 If a>60 Then Score=1 If a>70 Then Score=2 If a>80 Then Score=3 If a>90 Then Score=4 Print \ 29.执行以下语句后，显示结果为---C-1 Dim x If x Then Print x Else Print x-1 31.下列( C x=val(text1.text) …… End if Print if )程序段能实现以下分段函数 33.下列(a)程序段的执行结果为（AA.-9） A=”1” B=”2” A=val(a)+val(b) B=val”12”B.9 C.12-12 D.0 If a <>b then print a – b else pring b-a 35.设x是整型变量，与函数IIf(x＞0，-x，x)有相同结果的代数式是( D.-x ) 37.在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1,然后编写如下程序： Private sub command1_click() Dim a as integer,t as string a=inputbox(“请输入日期(1~31)”) t=”旅游景点:”&Iif(a>0 and a<=0,”长城”,””)&Iif(a>10 and a<=20,”故宫”,””)_ &Iif(a>20 and a<=31,”颐和园”.””) Text1.text=t End sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是___D_旅游景点：故宫_____. 39.在窗体上画一个名称为Text1的文本框。要求文本框只能接收大写字母的输入。以下能实现该操作的事件过程是__ A.Private Sub Text1_KeyPress ( KeyAscii As Integer ) If KeyAscii<65 OrKeyAscii>90 Then MsgBox “请输入大写字母” KeyAscii=0 End If End Sub 41.计算分段函数：