1、Visual+Basic 程序设计及答案解析(总分：58.00，做题时间：90 分钟)一、B选择题/B(总题数：15，分数：30.00)2.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 32*b Or a=c And bc Or cd（分数：2.00）A.1B.TrueC.FalseD.-13.下列_是合法的变量名。（分数：2.00）A.5aB.W_ABC.5nameD.Use&DASF4.下列_是日期型常量。（分数：2.00）A.“I am a Student“B.江苏南京C.#02/25/1999#D.123#5.数学式“2/3e (xy) ”的 VB 表达式是_。（分数：2.
2、00）A.2*Exp(X/3B.2*E(X/3.0C.2/3*Exp(XD.(2.0/3.0)*E*(X6.15 除以 2 余数的-3 次方的 VB 表达式为_。（分数：2.00）A.Mod(15,2)(-3)B.(15 Mod 2)(-3)C.15.0 Mod 2-3.0D.MOd(15.0,3)-3.07.以下声明语句中错误的是_。（分数：2.00）A.Const var1=123B.Dim var2=ABCC.DefInt a-zD.Static var3 As Integer9.下列_是双精度型变量。（分数：2.00）A.AAA%B.BBB$C.CCC!D.DDD#10.设有如下的记录
3、类型： Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是_。（分数：2.00）A.StUdenname=“B.Dim s As StUdent name=“张红“C.Dim s As Type Student name=“张红“D.Dim s As Type name=“张红“12.设 M=3，N=5，P=4.5，Q=2.5，表达式(M*N2)/(P-Q)的计算结果为_。（分数：2.00）A.8B.9C.8.5D.8.013.在窗体中添加一个命令按钮，并编写如下程序： Pr
4、ivate Sub Command1_CliCk() X=1Y=2Z=3 X=YY=ZZ=X Print Z End Sub 程序执行后，输出的结果是_。（分数：2.00）A.3B.0C.2D.114.下列_是字符型常量。（分数：2.00）A.“I am a student“B.江苏南京C.#02/25/1999#D.123#15. （分数：2.00）A.5*(A-/(1C/(D-) 5.0*(A-/C/(1(D-)B.5.0*(A-C./1C/(D-D.5*A-B/(1C/D-E.二、B填空题/B(总题数：14，分数：28.00)16.表示“xy 小于 10，且 x-y 要大于 0”的 VB
5、 表达式为U 【1】 /U。（分数：2.00）填空项 1:_17.表示“x 和 y 都是正数或都是负数”的 VB 表达式为U 【2】 /U。（分数：2.00）填空项 1:_18.表示“A 和 B 之一为零但不同时为零”的 VB 表达式为U 【3】 /U。（分数：2.00）填空项 1:_19.表示“ABC 大于等于 255，或 A 与 B 分别大于 90，且 C 大于 80”的 VB 表达式为U 【4】 /U。（分数：2.00）填空项 1:_20.数学表达式 3/5ex2 的 VB 表达式是U 【5】 /U。（分数：2.00）填空项 1:_21.已知 K=2，J=3，A=True，则 VB 表达
6、式(K-J=K)AND(NOT A)OR(KJ=J)的值为U 【6】 /U。（分数：2.00）填空项 1:_22.不等式 ABCD 的 VB 表达式为U 【7】 /U。（分数：2.00）填空项 1:_23.将高次方程 5x53x 4-12x3x-9 写成 VB 表达式为U 【8】 /U。（分数：2.00）填空项 1:_24.数学不等式 axb 的 VB 表达式为U 【9】 /U。条件 4|x|6 的 VB 表达式为U 【10】 /U。（分数：2.00）填空项 1:_25.请定义一个用户自定义类型，类型名为 Teacher，有三个成员：教师名(No，长整型)、姓名(name，8个字符组成的字符串
7、)、年龄(age，整型)。类型定义形式为U 【11】 /U。（分数：2.00）填空项 1:_26.下列程序运行时，单击窗体，执行结果为U 【12】 /U。 说明：在窗体上有一 Label 控件，名为 lblDate。 Dim Y As Integer,m As Integer,d As Integer,w1 As Integer Dim Rq As Date Dim W2 As String Private Sub Form_Click() Rq=Date Y=Year(Rq): m=Month(Rq)d=Day(Rq) w1=Weekday(x) Select Case w1 Case 1
8、W2=“日“ Case 2 W2=“一“ Case 3 W2=“二“ Case 4 W2=“三“ Case 5 W2=“四“ Case 6 W2=“五“ Case 7 W2=“六“ End Select bldate.Caption=“今天是“&Y&“年“&m&“月“&d&“日“&“星期“&W2 End SUb（分数：2.00）填空项 1:_27.执行以下语句后，输出的结果是U 【13】 /U、U 【14】 /U。 A$=“Good“ B$=“Morning“ Print A$B$ Print A$&B$（分数：2.00）填空项 1:_28.执行以下语句后，输出结果是U 【15】 /U、U 【
9、16】 /U。 S$=“ABCDEFGHIJK“ Print Mid$(S$，3，4) Print Len(S$)（分数：2.00）填空项 1:_29.下列语句的输出结果是U 【17】 /U。 Print Int(12345.6789*1000.5)/100（分数：2.00）填空项 1:_Visual+Basic 程序设计答案解析(总分：58.00，做题时间：90 分钟)一、B选择题/B(总题数：15，分数：30.00)解析：2.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 32*b Or a=c And bc Or cd（分数：2.00）A.1B.TrueC.False D.-1
10、解析：3.下列_是合法的变量名。（分数：2.00）A.5aB.W_AB C.5nameD.Use&DASF解析：4.下列_是日期型常量。（分数：2.00）A.“I am a Student“B.江苏南京C.#02/25/1999# D.123#解析：5.数学式“2/3e (xy) ”的 VB 表达式是_。（分数：2.00）A.2*Exp(X/3 B.2*E(X/3.0C.2/3*Exp(XD.(2.0/3.0)*E*(X解析：6.15 除以 2 余数的-3 次方的 VB 表达式为_。（分数：2.00）A.Mod(15,2)(-3)B.(15 Mod 2)(-3) C.15.0 Mod 2-3.
11、0D.MOd(15.0,3)-3.0解析：7.以下声明语句中错误的是_。（分数：2.00）A.Const var1=123B.Dim var2=ABC C.DefInt a-zD.Static var3 As Integer解析：解析：9.下列_是双精度型变量。（分数：2.00）A.AAA%B.BBB$C.CCC!D.DDD# 解析：10.设有如下的记录类型： Type Student number As String name As String age As Integer End Type 则正确引用该记录类型变量的代码是_。（分数：2.00）A.StUdenname=“B.Dim s
12、As StUdent name=“张红“ C.Dim s As Type Student name=“张红“D.Dim s As Type name=“张红“解析：解析：12.设 M=3，N=5，P=4.5，Q=2.5，表达式(M*N2)/(P-Q)的计算结果为_。（分数：2.00）A.8B.9C.8.5 D.8.0解析：13.在窗体中添加一个命令按钮，并编写如下程序： Private Sub Command1_CliCk() X=1Y=2Z=3 X=YY=ZZ=X Print Z End Sub 程序执行后，输出的结果是_。（分数：2.00）A.3B.0C.2 D.1解析：14.下列_是字符
13、型常量。（分数：2.00）A.“I am a student“ B.江苏南京C.#02/25/1999#D.123#解析：15. （分数：2.00）A.5*(A-/(1C/(D-) 5.0*(A-/C/(1(D-) B.5.0*(A-C./1C/(D-D.5*A-B/(1C/D-E.解析：二、B填空题/B(总题数：14，分数：28.00)16.表示“xy 小于 10，且 x-y 要大于 0”的 VB 表达式为U 【1】 /U。（分数：2.00）填空项 1:_ （正确答案：XY0）解析：17.表示“x 和 y 都是正数或都是负数”的 VB 表达式为U 【2】 /U。（分数：2.00）填空项 1:
14、_ （正确答案：X*Y0 或 X0 And Y0 Or X0 Or A=255 or A90 And B90 And C80）解析：20.数学表达式 3/5ex2 的 VB 表达式是U 【5】 /U。（分数：2.00）填空项 1:_ （正确答案：5 3/5*Exp(x2)）解析：21.已知 K=2，J=3，A=True，则 VB 表达式(K-J=K)AND(NOT A)OR(KJ=J)的值为U 【6】 /U。（分数：2.00）填空项 1:_ （正确答案：6 True）解析：22.不等式 ABCD 的 VB 表达式为U 【7】 /U。（分数：2.00）填空项 1:_ （正确答案：A）解析：23.
15、将高次方程 5x53x 4-12x3x-9 写成 VB 表达式为U 【8】 /U。（分数：2.00）填空项 1:_ （正确答案：5*X5+3*X4-12*X3+X-9）解析：24.数学不等式 axb 的 VB 表达式为U 【9】 /U。条件 4|x|6 的 VB 表达式为U 【10】 /U。（分数：2.00）填空项 1:_ （正确答案：9 X=A And XB 10 Abs(X)4 And Abs(x)=6）解析：25.请定义一个用户自定义类型，类型名为 Teacher，有三个成员：教师名(No，长整型)、姓名(name，8个字符组成的字符串)、年龄(age，整型)。类型定义形式为U 【11】
16、 /U。（分数：2.00）填空项 1:_ （正确答案：Type Teacher）解析：No AS Long Name As String*8 Age As Integer End Type26.下列程序运行时，单击窗体，执行结果为U 【12】 /U。 说明：在窗体上有一 Label 控件，名为 lblDate。 Dim Y As Integer,m As Integer,d As Integer,w1 As Integer Dim Rq As Date Dim W2 As String Private Sub Form_Click() Rq=Date Y=Year(Rq): m=Month(R
17、q)d=Day(Rq) w1=Weekday(x) Select Case w1 Case 1 W2=“日“ Case 2 W2=“一“ Case 3 W2=“二“ Case 4 W2=“三“ Case 5 W2=“四“ Case 6 W2=“五“ Case 7 W2=“六“ End Select bldate.Caption=“今天是“&Y&“年“&m&“月“&d&“日“&“星期“&W2 End SUb（分数：2.00）填空项 1:_ （正确答案：今天是*年*月*/日星期*）解析：例如在 2003 年元月 10 日执行该程序，界面上将显示： 今天是 2002 年 1 月 10 日星期五27.
18、执行以下语句后，输出的结果是U 【13】 /U、U 【14】 /U。 A$=“Good“ B$=“Morning“ Print A$B$ Print A$&B$（分数：2.00）填空项 1:_ （正确答案：13 Good Morning、 14 Good Morning）解析：28.执行以下语句后，输出结果是U 【15】 /U、U 【16】 /U。 S$=“ABCDEFGHIJK“ Print Mid$(S$，3，4) Print Len(S$)（分数：2.00）填空项 1:_ （正确答案：15 CDEF、 16 11）解析：29.下列语句的输出结果是U 【17】 /U。 Print Int(12345.6789*1000.5)/100（分数：2.00）填空项 1:_ （正确答案：12345.68）解析：
