C．(Exp(2*∏*x—5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)—Cos(x^2))
D．e^(2*3.14159*x一5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sing(x)—Cos(x^2)) 24．以下关于数组的说法中，错误的是 24 。
A．使用了Preserve予句的ReDim语句，只允许改变数组最后一维的上界 B．对于动态数组，ReDim语句可以改变其维界但不可以改变其数据类型 C．Erase语句的功能只是对固定大小的数组进行初始化 D．LBound函数返回值是指定数组某一维的下界
25．下列有关过程的说法中，错误的是 25 。 ‘
． A．在Sub或Function过程内部不能再定义其它Sub或Function过程
B．对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合 C．递归过程既可以是递归Function过程，也可以是递归Sub过程 D．可以像调用Sub过程一样使用Call语句调用Function过程 26．以下有关对象属性的说法中，错误的是 26 。 A．工具箱中的控件并不是VB中所有的控件
B．若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C．对象的Name属性在运行时不能改变
D．对象的所有属性都可以在属性窗口中设置
27．以下关于变量作用域的叙述中，正确的是： 2Z 。
A．窗体中凡用Private声明的变量只能在某个指定的过程中使用 B．模块级变量只能用Dim语句声明
C.凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量
28.表达式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是 28 A.1 B.-1 C.-2 D.-3
29.若要使逻辑表达式x>y Xor Y结果为True，则x、Y、z的取值应为下列选项中的 22 。 A.X=3、Y=3、Z=4 B.X=2、Y=1、Z=2 C.x=1、Y=3、Z=2 D.x=2、Y=2、Z=2
30.在一个多窗体程序中，可以仅将窗体Form2从内存中卸载的语句是 30 A.Form2.Unload B．Unload Form2 C．Form2.End D．Form2.Hide 二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)
1.执行下面程序,单击Commandl,则图片框中显示的第一行是(1)，显示的第二行是(2) ，最后一行显示的是 (3) 。
Private Sub Command1_Click() Dim a(3，3)As Integer
Dim i As Integer,j As Integer For i=1 To 3
For j=3 To 1 Step -1 If i>=j Then a(i,j)=i-j Else
a(i，j)=j-i End If Next j Next i
For i=1 to 3
For j=3 To 1 Step -1 Picture1.Print a(i,j); Next j Picturel．Print Next i EndSub
2.运行下面程序,如果连续三次单击命令按钮之后，A数组共有(4) 个元素；数组元素A(2)的值是(5)，A(5)的值是(6) Option Explicit Option Base l
Private Sub Command1_Click() Static A() As Integer,N As Integer Dim I As Integer,K As Integer K=N N=N+2
ReDim Preserve A(N) For I=K+1 To N A(I)=I*N+1 Next I
ForI=1 To N Print A(I)； Next I Print EndSub
3．运行下面的程序，单击commandl，在窗体上显示的变量A的值为( 7 ),变量B的值为( 8 ) Option Explicit
Dim A As Integer
Private Sub Command1_Click() Dim B As Integer B=3 A=4
B=Fun(Fun(A,B+2),A)+B Print A,B EndSub
Private Function Fun(N As Integer,K As Integer) N=N+A K=N-K
Fun=N+K+A End Function
4．执行下面的程序，单击command1,窗体上显示的第一行是( 9 )，第二行是( 10 ),第四行是( 11 ),最后一行是( 12 ) Option Explicit
Private Sub Command1_Click()
Dim n As Integer n=5
Call test(n) Print n
End Sub
Private Sub test(ByVal n As Integer) Dim i As Integer,S As String If n>0 Then For i=l To n S=S & CStr(i) Next i
Print S
Call test(n-2) Else
Print \ EndIf EndSub
5.运行下列程序，单击Command1，在窗体上显示的第一行内容是 ( 12 ),第二行的内容是( 14 )，第三行的内容是( 15 )(\的ASCII码是65,\是90) Option Explicit
Private Sub Commandl_Click()
Dim i As Integer,st As String，n As Integer,p As String*1 P=\
For i=3 To 1 Step -1 n=Asc(p)-i
If n<65 Then n=n+26 st=Chr(n) st=st & F(i) Print st Next i EndSub
Private Function F(n As Integer) Dim i As Integer Static S As Integer For i=1 To n s=s+i Nexti F=S
End Function
6?用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。 f(x)=a1x1-a2x2+a3x3-…+(-1)n+1anxn+… |X| 1
其中 a1=1，a2=2，an= ,n=3,4,5? Option Explicit
Private Sub Commandl_Click()、 Dim x As Single，fx As Single
Dim a As Single，a1 As Single,a2 As Single Dim t As Single a1=l：a2=2 x=text1
If ( 16 ) Then
MsgBox(\必须在-1---1之间\ ExitSub End If
fx=a1*x-a2*x*x t=(-1)*x*x DO
a=1/(al+a2) t=(-1)*x*x fx=( 17 ) al=a2 ( 18 )
Loop Until Abs(a*t)<0.0000001 Text2=fx End Sub
7.学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框list1中，标准答案存放在变量Exact中。 Option Explicit
Private Sub Command1_click()
Dim Anw as string , StudId as string Dim Scor as Integer, Exact as string Dim I as Integer, J as integer
Exact=”ABCCBAACBBDCCDA” For I=( 19 ) Anw=（ 20 ） StudId=Left(Anw,6)
Anw=Right(Anw,Len(Anw)-8) ( 21 )
For J=1 to Len(Anw) If （ 22 ） Then Scor=Scor+1 End If Next J
List2.AddItem StudId & “ “ & Scor Next I End Sub
8．下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变
相关推荐：
loading