1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。
2、下列过程不能在标准模块中定义的是( A )。
A、事件过程B、子过程C、函数过程D、公共过程3、以下叙述中错误的是DA、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B、Sub过程中不能嵌套定义Sub过程C、Sub过程中可以嵌套调用Sub过程D、事件过程可以像通用过程一样由用户定义过程名2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。
2、自定义的过程有两种形式：＿Sub＿和＿Function＿。
3、用于退出过程的语句是( D )。
A、ExitB、Exit ForC、Exit DoD、Exit Sub4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。
5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。
1、在窗体代码中有以下事件过程的声明，其中Private表示( B )Private Sub lblAbc_Change()……End SubA、此过程可以被任何其它过程调用B、此过程只可以被本窗体模块中的其它过程调用C、此过程不可以被其它过程调用D、此过程只可以被本工程中的其它过程调用9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。
A、Add 12,5B、Call(2*x,Add(1.57))C、Call Add x,yD、Call Add(12,12,x)10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。
A、Sub Procl(ByVal,n,ByVal m)B、Sub Procl(n,ByVal m)C、Sub Procl(n,m)D、Sub Procl(ByVal n,m)6、写出单击命令按钮Command1时的窗体显示结果。
Public Sub Proc(ByRef n As Integer,ByVal m As Integer)n=n Mod 10m=m\10End SubPrivate Sub Command1_Click()Dim x as Integer,y As Integerx=15:y=30Call Proc(x,y)Print x;yEnd Sub 显示结果：5 307、下列程序代码的功能是计算!8!7!5+=s的值，在横线上填上适当内容。
Private Sub Command1_Click()Dim f1 As Long,f2 As Long,f3 As Long,s As singleCall fact(5,f1)Call fact(7, f2)Call fact(8,f3)s= (f1+f2)/f3Print “s=”;sEnd SubSub fact(Byval n As Integer,Byref f As Long)Dim t As Long,i As Integert=1For i=1 To nt=t*iNext if=tEnd Sub11、单击命令按钮，在输入对话框中输入234，窗体输出结果为__24__。
Function Fun(num As Integer) As IntegerDim k As Integerk = 1num = Abs(num)Do While numk = k * (num Mod 10)num = num \ 10LoopFun = kEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerDim r As Integern = InputBox("请输入一个数")n = Val(n)r = Fun(n)Print rEnd Sub12、编程实现显示以下图形：******************Private Sub p(ByVal i As Integer)Dim j%, k%For j = 0 To 7 - iPrint " ";Next jFor k = 0 To 2 * i - 1Print "*";Next kPrintEnd SubPrivate Sub Command1_Click()Dim i%For i = 1 To 2p iNext iFor i = 3 To 1 Step -1p iNext iEnd Sub20、补全程序题：以下过程实现求2到50以内奇数的和，请在划线处将过程补充完整：Sub mult()Dim sum as Integersum=0Dim I as IntegerFor I=2to 50if I MOD2=___0___Then __ Loop_____ sum=sum+I______ Next I ______Print sumEnd Sub16、补全程序题：以下Prime过程，用于判断一个数是否为素数。
请在划线处将过程补充完整：Sub Prime(inputvar As Integer)For i = __2 To inputvar - 1If inputvar Mod i = _ 0___ ThenGoTo comfinishEnd IfNext iPrint "素数"GoTo __ finish __comfinish:Print "不是素数"finish:End Sub9、在窗体上有一个名称为Command1的命令按钮，程序的功能：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换，请填空补全程序。
Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = iNextCall swap(a)For i = 1 To 10Print a(i);NextEnd SubSub swap(b() As Integer)n = 10For i = 1 To n / 2t = b(i)b(i) = b(n)b(n) = tn=n-1NextEnd Sub3.5 常用内部函数简介5、表达式Sgn(-25)+Sqr(625) 的值为＿24＿。
1、要返回不大于X最大整数的函数是( A )。
A、Int(x)B、Fix(x)C、Cint(x)D、Clng(x)2、求COS35°可以使用的函数是( D )。
a) Cos 35 B、Cos(35) C、Cos(35º) D、Cos(35*3.14159/180)1、通过调用函数实现从字符串“Visual Basic 6.0”中截取子串“Basic”，调用形式为( Mid(“Visual Basic 6.0”,8,5) )。
6、产生[a , b] 区间的随机整数，可使用表达式_ a+Int(Rnd*(b-a+1))_。
1、以下哪种形式能够得到[1，6] 之间的随机整数( D )。
A、Rnd*5+1B、Int(Rnd*5+1)C、Rnd*6+1D、Int(Rnd*6+1)2、可以同时删除字符串前导和尾部空白的函数是( C )。
A、LtrimB、RtrimC、TrimD、Mid3、执行以下程序段后，变量c$的值为( D )。
a$=“Visual Basic Programing”b$=“Quick”c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)A、Visual BASIC ProgramingB、Quick Basic ProgramingC、QUICK Basic ProgramingD、Quick BASIC Programing7、若S = Left ("Database",4)，则S的值是_ Data _。
4、设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为( D )。
A、5B、6C、0D、-18、下列程序段的结果为( B )。
A="abcdefghijk"For I=6 To 2 Step -2X=Mid(A,I,I)Y=Left(A,I)Z=Right(A,I)Z=X & Y & ZNext IPrint ZA、bcB、bcabjkC、abD、bcdabjk9、编写语句段：利用Rnd产生100个1~4之间的随机整数，并统计产生的1、2、3、4的个数。
参考答案：Dim S(4) As IntegerRandomizeFor I=1 To 4S(i)=0Next iFor i=1 To 100x=Int(Rnd * 4+1)S(x)=S(x)+1Next iFor i=1 To 4Print "S (";i; ") =" ;S(i )Next I3.6 自定义类型与枚举类型9、下面叙述中不正确的是( C )。
A、自定义类型的数据就是若干变量组成的一个集合B、自定义类型中的元素类型可以是系统提供的基本数据类型或已声明的自定义类型C、自定义类型只能在窗体模块的通用声明段进行声明D、在窗体模块中定义自定义类型时必须使用Private关键字2、设有以下语句Type Stuname As String*10Score As SingleEnd TypeDim Stul As Stu,Stu2 As Stu则下面叙述中错误的是( C )。
A、Type是保留字B、Stu是用户定义的记录类型C、name 和score表示记录变量Stu1的成员D、Stu1 和Stu2是属于记录类型Stu的变量2、有如下程序段TYPE goodsNum AS INTEGERNam AS STRING *13END TYPEDIM cloth AS goods该程序段定义了两个程序成分,它们分别是_A_。
A、记录类型和记录变量B、记录类型和数组C、显示类型和数组D、记录变量和数组3、若有以下说明语句Type employeenum As Integersalary As SingleEnd TypeDim programmer As employee则下面表示记录变量programmer的成员Salary正确的是( D )。
A、programmer->salaryB、.salaryC、salary.programmerD、programmer.salary4、下面事件过程的功能是：输入若干个学生的姓名和年龄存放到一维数组S中，然后输入一个姓名，查询该学生的年龄并输出，在横线上填上适当内容。