27.能够从字符串A="VisualBasic"中取出子串"Basic"的函数表达式是(B)
A.Left(A,5)B.Right(A,5)C.Mid(A,7,5)D.Instr(A,"Basic")
28.函数表达式String(2,"ChongQing")的返回值是(C)
A.CQB.ChongQingC.CCD.ChongQingChongQing
29.下列表达式中数值最大的是(A)
A.10/3B.10\3C.Int(10/3)D.Fix(10/3)
二.多项选择题
1.能够产生一个三位随机整数的函数表达式是(AB)
A.Int(Rnd*900+100)B.Int(Rnd*900)+100C.Int(Rnd*1000)
D.Int(Rnd*1100-100)E.Int(Rnd*1100)-100
2.能产生一个大于等于1且小于等于10的随机整数的表达式有(ACD)
A.Int(Rnd*10+1)B.Int((10-1)*Rnd)C.1+Int((10-1)*Rnd+1)
D.1+Int(10*Rnd)E.Int((10+1)*Rnd+1)
3.下列表达式中具有相同结果的是(AD)
A.19Mod5B.19/5C.19\5D.Round(19/5)E.Sqr(19\5)
4.在下列标识符中,可以作为合法变量名的有(CDE)
A.MichaelJordanB.Su-30C.BeckhamD.class_01E.B52
5.以下函数表达式中,返回值为数值类型的有(ABCDE)
A.Year(Now)B.Month(Now)C.Day(Now)
D.Weekday(Now)E.Hour(Now)
6.已知字符串变量S1的值为一个小写字母,以下表达式能将小写字母变成大写字母的有(ABD)
A.Chr(Asc(S1)+Asc("A")-Asc("a"))B.Chr(Asc(S1)–32)
C.LCase(S1)D.UCase(S1)E.Val(S1)
7.已知字符串变量A="computerdatatransmit",能得到子字符串“data”的表达式有(ABCDE)
A.Mid(A,10,4)B.Mid(Left(A,13),4)C.Left(Mid(A,10),4)
D.Left(Right(A,13),4)E.Right(Left(A,13),4)
8.下列函数表达式中,返回值相等的是(BC)
A.Abs(15.6256)B.Fix(15.625)C.Int(15.625)
D.Round(15.625)E.Sqr(15.625)
9.在以下不同进制的数中,数值相等的有(ADE)
A.十进制数143B.十六进制数&H143C.十进制数142
D.十六进制数&H8FE.二进制数10001111
10.设变量x的值是一个小数,下列函数表达式能将其四舍五入处理的是(BDE)
A.Int(x)B.Int(x+0.5)C.Fix(x)D.Fix(x+0.5)E.Round(x)
11.下列VB函数表达式中,返回值为数值型数据的有(ADE)
A.Len(“BASIC”)B.Str(-26.3)C.Left(“1234”,2)
D.Val(“16Year”)E.Val(Mid(“34565”,2,2)
12.将变量X中的计算结果精确到小数点后面2位数的函数表达式有(ABC)
(A)Round(x,2)(B)Int(100*x+0.5)/100(C)Fix(100*x+0.5)/100
(D)Int(x+0.5)(E)Fix(x+0.5)
13.能从字符串A=”THISISBOOK”中得到子字符串”IS”的函数有(ABDE)
A.Right(Left(A,7),2)B.Mid(A,6,2)C.Mid(A,6)
D.Left(Right(A,7),2)E.Mid(Left(A,7),6)
14.从字符串变量S中取出最后(右边)2个字符,可以采用的函数是(BD)
A.Instr(1,S,2)B.Mid(S,Len(S)-1)C.Mid(S,2,2)
D.Right(S,2)E.Right(S,Len(S)-2)
15.已知A=Space
(1),要产生3个空格,可以采用的函数是(CD)
A.Right(A,3)B.Space(3*A)C.String(3,A)
D.A&A&AE.3*A
16.已知a>b,c>d,下列表达式中值为0的有(AC)
A.Sgn(b-a)+Sgn(c-d)B.Sgn(a-b)-Sgn(d-c)C.Sgn(b-a)-Sgn(d-c)
D.Sgn(a-b)+Sgn(c-d)E.Sgn(b-a)+Sgn(d-c)
17.为了求一个正整数n除以8所得的余数,可以采用的表达式是(AD)
A.nMod8B.n-Int(n/8)C.n\8
D.n-Int(n/8)*8E.n-Int(n\8)
三.填空题
1.把下列数学式写成等价的VisualBasic表达式。
(1)sin50°写成Sin(3.14525*50/180)。
(2)
写成(2+x*y)/(2-y*y)。
(3)
写成a*a-3*a*b/(3+a)。
(4)
写成(x^3)^(1/8)+Sqr(y*y+4*a^2/(x+y^3))。
2.要产生50~55范围内(含50及55)的随机整数,采用的VisualBasic表达式是Int(Rnd*5+0.1)+50。
3.写出下列表达式的值。
(1)Val("153")-Val("15-1a3")的值是138。
(2)7Mod3+8Mod5*1.2-Int(Rnd)的值是3。
(3)Val("120")+Asc("abc")-Instr("JKLHG","LH")的值是214。
(4)Mid("China",3,2)+Lcase("China")的值是inchina。
(5)Len(Chr(70)+Str(0))+Asc(Chr(67))的值是70。
(6)Mid(Trim(Str(345)),2)的值是45。
(7)Year(Now)-Year(Date)的值是0。
注:
可以编程序来验证上述结果:
PrivateSubForm_Load()
Show
PrintVal("153")-Val("15-1a3")
Print7Mod3+8Mod5*1.2-Int(Rnd)
PrintVal("120")+Asc("abc")-InStr("JKLHG","LH")
PrintMid("China",3,2)+LCase("China")
PrintLen(Chr(70)+Str(0))+Asc(Chr(67))
PrintMid(Trim(Str(345)),2)
PrintYear(Now)-Year(Date)
EndSub
习题3
一.单项选择题
1.语句s=s+1的正确含义是(C)
A.变量s的值与s+1的值相等B.将变量s的值存到s+1中去
C.将变量s的值加1后赋给变量sD.变量s的值为1
2.假设已使用变量声明语句:
Dimdate_1AsDate,则为变量date_1正确赋值的语句是(B)
A.date_1=date("1/1/2005")B.date_1=#1/1/2005#
C.date_1=1/1/2005D.date_1="#1/1/2000#"
注:
表示日期的字符串转换为日期类型的数据用函数CDate("1/1/2005")
3.下列叙述中正确的是(D)
A.一个程序代码行只能写入一个语句。
B.当用Print输出多个输出项时,可以使用冒号“:
”作为输出项间的分隔符
C.赋值语句结束时,可以使用分号或逗号作为结束符
D.在字符型数据中,起止界限符必须使用英文的双撇号,而不能使用中文双引号
4.下列程序段执行后,输出结果是(D)
a=0:
b=1
a=a+b:
b=a+b
Printa;b
a=a+b:
b=a+b
Printa;b
a=b-a:
b=b-a
Printa;b
A.12B.35C.12D.12
34233435
34122323
5.语句Print"Sqr(16)=";Sqr(16)的输出结果为(B)
A.Sqr(16)=Sqr(16)B.Sqr(16)=4
C."4="4D.4=Sqr(16)
6.设a="12",b="34",下列语句能显示"34-12"的是(C)
A.PrintVal(b)-Val(a)
B.Printb-a
C.Printb;Chr(45);a
D.PrintAsc(a)&"-"&Asc(b)
7.以下程序段的输出结果是(B)
x="ABC":
y="abc"
m=LCase(x):
n=UCase(y)
PrintMid(m+n,3,2)
A.CaB.cAC.ceaD.ca
8.下列程序段执行后,输出结果是(D)
DimaAsString*4
a="Computer"
a$="Internet"
Printa
Printa$
A.ComputerB.CompC.CompD.Inte
InternetInternetInteInte
9.以下程序段的运行结果是(D)
ConststAsString="ABCD"
st="1234"
st=st+"6"
A.ABCDB.1234C.ABCDl234D.显示出错信息
10.以下(A)控件不支持DblClick。
A.CommandButtonB.PictureBoxC.LabelD.TextBox
11.要使某控件在程序运行时不起作用,应对其(A)属性进行设置。
A.EnabledB.CaptionC.FontD.Visible
12.要在Form_Load事件过程中用Print方法在窗体上输出结果,应先调用窗体的(C)方法。
A.MoveB.ClsC.ShowD.Circle
13.若将文本框的(C)属性设置为True,则运行时用户不能修改文本框中的内容。
A.EnabledB.VisibleC.LockedD.MuhiLine
14.为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的(B)属性值设置为True。
A.ValueB.DefaultC.CancelD.Enable
15.假设Text1是某一个文本框的名称,下列语句中正确的是(A)
A.Text1.Height=600B.Text1.Print123 C.Text1.Caption="新标题"D.Text1.Name="文本框"
16.在Command1_Click()事件过程中用Dim语句定义一个变