Visual+Basic程序设计

Visual Basic程序设计(总分：58.00，做题时间：90分钟)一、{{B}}选择题{{/B}}(总题数：15，分数：30.00)（分数：2.00）解析：2.设a=2，b=3，c=4，d=5，下列表达式的值是______。

3＞2*b Or a=c And b＜＞c Or c＞d （分数：2.00）A.1B.TrueC.False √D.-1解析：3.下列______是合法的变量名。

（分数：2.00）A.5aB.W_AB √C.5namee&DASF解析：4.下列______是日期型常量。

（分数：2.00）A."I am a Student"B.'江苏南京'C.#02/25/1999# √D.123#解析：5.数学式“2/3e(x＋y)”的VB表达式是______。

（分数：2.00）A.2*Exp(X＋/3 √B.2*E^(X＋/3.0C.2/3*Exp(X＋D.(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.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!D.DDD# √解析：10.设有如下的记录类型： 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*N＋2)/(P-Q)的计算结果为______。

（分数：2.00）A.8B.9C.8.5 √D.8.0解析：13.在窗体中添加一个命令按钮，并编写如下程序：Private Sub Command1_CliCk() X=1∶Y=2∶Z=3X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后，输出的结果是______。

（分数：2.00）A.3B.0C.2 √D.1解析：14.下列______是字符型常量。

（分数：2.00）A."I am a student" √B.'江苏南京'C.#02/25/1999#D.123#解析：（分数：2.00）A.5*(A-/(1＋C/(D-) 5.0*(A-/C/(1＋(D-) √B.5.0*(A-C./1＋C/(D-D.5*A-B/(1＋C/D-E.解析：二、{{B}}填空题{{/B}}(总题数：14，分数：28.00)16.表示“x＋y小于10，且x-y要大于0”的VB表达式为{{U}} 【1】 {{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：X＋Y0）解析：17.表示“x和y都是正数或都是负数”的VB表达式为{{U}} 【2】 {{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：X*Y>0 或 X>0 And Y>0 Or X<0）解析：18.表示“A和B之一为零但不同时为零”的VB表达式为{{U}} 【3】 {{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：A=0 And B<>0 Or A<>0 And B=0）解析：19.表示“A＋B＋C大于等于255，或A与B分别大于90，且C大于80”的VB表达式为{{U}} 【4】{{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：A＋B＋C>=255 or A>90 And B>90 And C>80）解析：20.数学表达式3/5e x＋2的VB表达式是{{U}} 【5】 {{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：[5] 3/5*Exp(x＋2)）解析：21.已知K=2，J=3，A=True，则VB表达式(K-J＜=K)AND(NOT A)OR(K＋J＞=J)的值为{{U}} 【6】{{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：[6] True）解析：22.不等式A＜B＜C＜D的VB表达式为{{U}} 【7】 {{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：A）解析：23.将高次方程5x5＋3x4-12x3＋x-9写成VB表达式为{{U}} 【8】 {{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：5*X^5+3*X^4-12*X^3+X-9）解析：24.数学不等式a≤x＜b的VB表达式为{{U}} 【9】 {{/U}}。

条件4＜|x|≤6的VB表达式为{{U}} 【10】{{/U}}。

（分数：2.00）填空项1:__________________ （正确答案：[9] X＞=A And X＜B [10] Abs(X)＞4 And A^bs(x)＜=6）解析：25.请定义一个用户自定义类型，类型名为Teacher，有三个成员：教师名(No，长整型)、姓名(name，8个字符组成的字符串)、年龄(age，整型)。

类型定义形式为{{U}} 【11】 {{/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(Rq)∶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.执行以下语句后，输出的结果是{{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*100＋0.5)/100（分数：2.00）填空项1:__________________ （正确答案：12345.68）解析：。