VB语言程序设计题库含答案.docx

一、单项选择题（50道小题，共50分）1、VB是一种面向对象的程序设计语言，构成对象的三要素是（A） ° （1分）错误!未找到引用源。A、属性、事件、方法错误!未找到引用源。B、控件、属性、事件错误!未找到引用源。C、窗体、控件、过程错误!未找到引用源。D、窗体、控件、事件2、有程序代码如下：Text 1. Text ="欢迎学习VB程序设计”，那么Textl、Text、”欢迎学习；B程序 设计”分别代表（B）。（1分）错误!未找到引用源。A、对象、值、属性错误!未找到引用源。B、对象、属性、值错误味找到引用源。C、对象、方法、屈性错误!未找到引用源。D、属性、对象、值3、以下关于VB编码规那么的表达中，正确的选项是（A）。（1分）错误!未找到引用源。t、条语句可以分为多行错误!未找到引用源。儿”釜语句不能书写在同书写一行上错误!未找到引用源。C、每条语句以分号;结尾错误!未找到引用源。C、每条语句以分号;结尾错误!未找到引用源。D、应用程序代码字母是区 分大小写的4、不属于面向对象系统的三要素）。（1分）错误!未找到引用源。,、"件错误!未找到引用源。C、方法错误!未找到引用源。,、"件错误!未找到引用源。C、方法错误!未找到引用源。B、属性 错误!未找到引用源。D、变量5、以下表达中，正确的选项是（D）。（1分）错误味找到引用源。A、VB的事件由用户定义£误!未找到引用源。B、VB程序以顺序方式执 1J错误!未找到引用源。C、每一个VB程序都是从错误!未找到引用源。I）、VB运行时，系统等待Main。函数开始执行事件的发生，事件的执行顺序与书写顺序无关6, VB中，窗体可视化局部的数据存放在窗体模块中。假设针对该窗体中的某一命令按钮对象编写代心* 那么该程序代码应存放在（A ）中。（1分）错误!未找到引用源。A、窗体模块错误!未找到引用源。B、标准代码模块错误!未找到引用源。C、类模块错误!未找到引用源。D、命令按钮模块7 有程序代码如下：Label 1. Caption =*Label 1. Caption*,那么 Labell、Caption ”Label 1. Caption” 分别代表（B）。（1分）错误!未找到引用源。A、对象、值、属性错误!未找到引用源。B、对象、属性、值错误!未找到引用源。C、对象、方法、属性错误!未找到引用源。D、对象、事件、值8、以下不能翻开代码窗口的操作是（D）。（18、以下不能翻开代码窗口的操作是（D）。（1分）B、双击窗体D、单击窗体或控件错误!未找到引用源。A、双小窗体上的某个捽件错误!未找到引用源。里粤本找到引用源。单击视图菜单中的“代错误味找到引用源。 码留口9、在工具箱窗口关闭的情况下，如果要翻开只需选择（A）菜单的“工具箱命令”即可。（1分）错误!未找到引用源。A、视图错误!未找到引用源。B、运行错误!未找到引用源。C、编辑错误!未找到引用源。D、文件10、在VB的工程资源管理器窗口中不可能存在的文件类型是（C ）. （1分）错误!未找到引用源。A、*.frm错误!未找到引用源。B、*. vbp错误!未找到引用源。C、*.gif错误!未找到引用源。D、*.ba$11、双击窗体中的对象后，VB将显示的窗口是（D ）0 （1分）错误!未找到引用源。A、工程窗口错误!未找到引用源。B、工具箱错误!未找到引用源。C、属性窗口错误!未找到引用源。D、代码窗LI12、通过（B ）窗口可以在设计时直观的调整窗体在屏幕上的位置。（1分）96. Function过程要由函数名返回一个值。如果不是用“As数据类型”选项来指定函数的 半划，函数类型默认为（）。（1分）1A、工程文件' C、资源文件i B、窗体文件C D、类模块文件A、 LongC> IntegerB、 VariantD、 String97、当工程中有多个窗体时，必须指定启动窗体，其方法是：选择“工程”菜单中的“工 特届性”命令，翻开“通用”选项卡，在（）电谓择运行时显示的第一个窗体。（1分）A、工程类型 C、工程描述B、工程名称 【）、启动对象98以下关于顺序文件的描述中，不正确的描述显（）。（1分）A、读出时必须按照顺序C、每条记录长度必须相同B、读入时必须按照顺序 D、用来处理文本文件99、如果把一个调试好的程序做成.exe文件，应该使用（）。（1分）A、文件菜单下的“生成XXX. exe”命令B、F5C、 Ctrl + F5D、工具栏上的“运行”按钮26、100、在窗体中，用（）语句声明的变量是静态皆量。（1分）A、Dim Z As Integer B、Public Z As IntegerC> Private Z As Integer'D、Static Z As Integer101、定义一个窗体级变量主要因为（）多个程序都需要用到同一个相关数据A、模块内 B、模块外C、窗体内 D窗体外1、* 求 7! (7!=1*2*3. *6*7)的值。 Private Sub Commandl_Click() Dim a As Singlea二错误!未找到引用源。【1】 For i = 1 To 7 a = a * i Next i Print a End Sub（4分）2、*对10个100以内的整数用冒泡法按递减顺序排序。Private Sub Commandl_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j As IntegerFor i = 1 To 1()a(i) = Int(Rnd * 101)Print a(i);Next i: PrintFor i = 1 To 9For j = 1 To 10 - iIf a(j) < a(j + 1) Then错误!未找到引用源。(t) =a(j)a(j)=a(j+l)a(j+l)=tNext jNext iFor i = 1 To 10Print a(错误侏找到引用源。i);Next i: Print End Sub(4分)3、*随机产生n个两位整数，求出其中的最大值和最小值。Private Sub Command 1 Click()Dim a(100) As Integer, n As Integer, i As IntegerDim min As Integer, max As Integer错误!未找到引用源。n = InputBox (vbCrl.f + vbCrLf + ”n=)Print ”产生的随机数为”RandomizeFor i = 1 To na(i) = IntCRnd * 90) + 10Print a(i);Next i: Printmin = a(l): max = minFor i = 2 To错误!未找到引用源。【n】If a(i) > max Then max = a(i)If a(i) < min Then min = a(i)Next iPrint "最大值为"；maxPrint "最小值为minEnd Sub(4分)4、*三个学生的四门课(政治、数学、英语、计算机)成绩(均在70分以上)随即生 成存放在二维数组R (3, 4)中，计算每个学生的平均成绩(存放在数组S中)和最高 平均成绩。Private Sub Form ClickODim R(1 To 3, 1 To 4) As IntegerDim S(1 To 3) As IntegerDim i%, j%, max%, k% ' k为最高成绩学生序号For i = 1 To 3i) = 0For j = 1 To 4R(i, j) = Int(30 * Rnd + 70)Print Tab(j - 1) * 5); R(i, j);S(i) = S(i) + R(i, j) Next j S(i) = S(i) / 4 Print Next i max = 0 For i =3 Print 学生”& i; 平均成绩:"& S(i) If max < S(i) Then max - S(i) k = i End If Next iPrint ”最高平均成绩 k="；k, "max="；max End Sub（4分）5、*利用判断一个三位数是否为对称数(如：343)的函数过程，求出所有三位对称数 之和。*程序代码如下：Private Sub Commandl_Click() Dim sum As Long, n As Integer sum=0For n = 100 To 999If duicheng(n) then sunksum+错误!未找到引用源。n Next n End SubPublic Function duicheng(ByVal i%) As Boolean a = i Mod 10 c = i 100 If a = c Then duicheng=trueElseduicheng二Fa IseEnd IfEnd function（4分）6、*下面程序计算l!+3!+5!+.+9!的值,请将其补充完整。*程序代码如下：Dim nt As SinglePrivate Sub aa(ByVal n As Single)Dim i As Integer nt = 1For i = 1 To n nt = nt * i Next i End SubPrivate Sub Form_Click()Dim sum As Single, n As Integer sum = 0For n = 1 To 9 Step 2aa (错误!未找到引用源。【n】sum = sum + 【nt】年Next nPrint sumEnd Sub(4分)7、*控件属性改变,如图<x_3. jpg»所示Private Sub Commandl_Click()If Command 1. Caption ="字号"ThenLabel 1.错误!未找到引用源。(fontsize = 30Command 1. Caption ="颉色"错误!未找到引用源。elseLabel 1.错误!未找到引用源。【forecolor】=vbRedCommand 1. Caption ="字号"End IfEnd Sub8、*删除己知数组a中的某个元素。Private Sub Command 1 _Click()Dim a() As Variant, n As Integer, Key As Integer a = Array( 1,6, 8, 3, 5, 9, 10, 2, 7, 4) n = UBound(a)Key = InputBox("请输入要删除的数”)For i = 0 To nIf Key = a(i) Then Exit ForNext iIf i = n + 1 Then MsgBox ("找不到此数")错误味找到引用源。【:】Exit Sub Forj = i + I To n a(j - I) = a(j)Next jn = n - 1ReDini Preserve a(n)For i = 0 To nPrint a(i);Next i: PrintEnd Sub9、*使用双循环实现三角形输出* *木*Private Sub Command l_Click()* *For错误!未找到引用源。【i】=1 To5 Print Tab(25 - i);Forj=错误!未找到引用源。【I】To iPrint "*"；Next j Print Next i End Sub10、*设计一个求两个数的最大公约数的函数过程。*程序代码如下： Option Base IPrivate Function 错误!未找到引用源。【ged】 (ByVai in%, By Vai n%) As Integer If m < n Then t = m: m = n: n = tDo r = m Mod n Ifr = () Then Exit Do m = n n = rLoopgcd=错误!未找到引用源。【n】 End Function11、*大写字符转换小写字符，如图vx_4.jpg所示Private Sub Text 错误味找到引用源。【keypress】 (KeyAscii As Integer)If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") ThenText2 = Text2 + Chr(KeyAscii错误!未找到引用源。+】32)ElseTex(2. text = Tex(2 + Chr(KeyAscii)End IfEnd Sub12、*编写一个显示随机数的程序，如图vx_2.jpg所示。*运行过程：*点击训练开始按钮之后，每隔一秒产生一个5位数的随机整数显示到上面的标签中。Private Sub Command 1 _Click()Timeri .Enabled = TrueTimer 1.Interval = 1000 End SubPrivate Sub错误!未找到引用源。【form】 _Load()Label I .ForeColor = vbWhiteLabclI.BackCoior = vbGrccnEnd SubPrivate Sub Timerl_ timer()Label 1 = Val(Int(Rnd * 90000 + 10000)End Sub13、*产生50个6010()的随机数，统计其中被6整除余2的个数,并将这些数输出。Private Sub command l_click()Dim x, n As IntegerDim counter As IntegerFor错误!未找到引用源。n】=I To50x = Int(Rnd * 41 + 60)If n Mod6 = 2Thencounter = counter + 1End IfNext nPrint counterEnd Sub14、*杨辉三角形如下图vx_5.jpg：*完成下面程序。Private Sub Form_Click()Dim a(I To 10, 1 To 10) As Integer, i%,j%For i = 1 To 10a(i, 1)=1a(i, 1 )= 1Next iFor i = 3 To 10Forj = 2Toi- 1a(i,j) = a(i- l,j- l) + a(i- l,j)Next jNext iFor i = 1 To 10For j = I To 10Print Tab(5 * (j - 1) + 1); a(i, j);Next jPrintNext iEnd Sub15、*输出Fibonacci数列1, I, 2, 3, 5, 8,的前2()项，按每行5个数显示。 程序代码如下：Private Sub Command I _Click ()Dim fib (20) ,n%,i%Fib ( 1) = 1Fib (2) = 1For i = 3 To 20Fib (i) =Fib (i- 1) +Fib (i-2)Next iFor i = I To 20Print Fib (i),If i mod 5=0Then PrintNext iEnd Sub16、*输出九九乘法表的左下角程序代码如下：Private Sub Command l_Click()Dim se As StringPrint Tab(35); ”九九乘法表”For i =1 To9For j = 1 to ise = i&,X"&j&',="&i*jPrintTab(j - 1)*9+ I); se;Next jPrintNext iEnd Sub17、*设计一转换字体程序，如图2-l.jpg*单击命令按钮“换字体”，互换标签1和标签2字体。,2-l.jpgPrivate Sub Form_ Load()Label 1二”年年岁岁花相似"Label2 = "岁岁年年人不同"End SubPrivate Sub Command l_Click()Dim t As VariantDim i As Integeri: MsgBox("确定换吗？二 vbOkCancel)Ifi= 1 Thent = Label 1. fontbameLabel 1 .FontName = Label2.FontNaineLabel2. fontname = tEnd IfEnd Sub18、*设计判断一个数n是否为素数的函数过程，假设n为素数那么函数值为1,否那么为0。*程序代码如下：Public Function Pnn(ByVal n%) As IntegerDim f%, i%f = 1For i = 2To Sqr(n)If n Mod i = 0 Then f = 0 ： Exit ForNext iprm = fEnd Function19、*使用InputBox函数接收一批字符，将其中的数字字符打印输出。Private Sub Form_Click()Dim s As String, st As String, i As Integers = InputBox("请输入个带数字的字符串”)For i = 1 To Len(s)st = Mid( s ,i, 1 )If st >= "0" And st <= "9" ThenPrint st;End IfNext iEnd Sub20/使用双循环实现正三角形输出$s*$*木本*程序代码如下：Private Sub Command l_Click()For i = 1 To5PrintTab(25-i)：Forj = 1 To 2 * i - 1If i Mod 2 = () Then Print Else Print n*"Next j Print Next i End Sub21、米将一维数组a中的数值反序放置。*程序代码如下：Private Sub Command 1 _Click()Dim a( 10) As Integer, i As Integer, t As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next i: PrintFori= 1 To 5t= a(i)a(i) = a(ll -i)a(lI - i) = tNext iFor i = 1 To 10Print a(i);Next i: PrintEnd Sub22、*用随机函数产生n个1099之间的随机整数存入一维数组A,通过键盘输入X,然 后在数组中查找。如果找到了，就把这个数从数组中删去；如果没有找到，那么给出“无可删 除的元素”信息。Private Sub Form_Click()Dim n As Integer, a( 1 ()0) As IntegerDim x As Integer, i As IntegerDim k As Integer, flag As Booleann = InputBox("N=")For i = 1 To na(i) = Int(90 * Rnd + 10)Print a(i);Next i： Printx = InputBox("X="): Print "X=" xflag = FalseFor i = 1 To nIf a(i) = x Then| =Truek = iExit ForEnd IfNext iIf Not flag ThenPrint ”无可删除的元素”ElseFor i = k To n - 1a(i) = a(i + 1)Next i: n = n - 1For i = 1 To nPrint a(i);Next iEnd IfEnd Sub23/完数Private Sub Command I _Click()Dim s%For i = 2 To 1000s = 0For j = 1 To i / 2IfiModj = OThens = s+jNext jIfs = iThen Print iNext iEnd SubI、*编写程序，计算出从1000开始的第100()个素数是多少？写出计算结果。Private Sub Command 1 _Click()Dim i&, j&, s&, n&i= 1000Do While n <= 100Forj = 2 To i - 1If i Mod j = 0 Then Exit ForNext jIf j > i - 1 Thens = s + in = n + 1End Ifi = i+ 1LoopPrint sEnd Sub2、*下载数据文件dataO(X)2.txt到自己的机器中，编程统计出该数据文件中，在第51个- 第10000个数据之间，能被3整除的最大值。Private Sub Form_Click()Dima(l To 50000)Open "d:dataOOO2.txt" For Input As #1i= 1Do While Not EOF(l)Input #1, a(i)i = i+ 1LoopMax = 0Fori = 51 To 10000If a(i) Mod 3 = 0 And a(i) > Max Then Max = a(i)NextPrint MaxClose # IEnd Sub3、*编写程序，统计从100到2000中，是7的倍数的数字的和是多少？例如，14, 21等。 Private Sub Command l_Click() Dim s&, i%Fori= 100 To 2000If i Mod 7 = 0 Then s = s + iNext iPrint sEnd Sub东下载数据文件data0001.txt到自己的计算机中，编写程序，对该数据文件里的前10000个 数从小到大排序，求出第5000到第6000个数当中大于1000的所有奇数的平均值。Private Sub Command I _Click()Dim i%, j%, aver%, a(l To 10000) As LongOpen "f:dataOOOI.lxt" For Input As#lFor i = 1 To 10000Input #1, a(i)NextiClose #1For i = i To 10000- 1For j = 1 To 10000 - iIf a(j) > a(j + 1) Thent = aO)a(j) = a(j + 1)a0+ D = tEnd IfNext jNext iFori = 5000 To 6000Ifa(i)> 1000 And a(i) Mod 2 = 1 Thens = s + a(i) n = n + 1 End IfNextiPrint s / nEnd Sub5、*编写程序，计算1+ (1+2) + (1+2+3) +前300项中偶数项的和。Private Sub Command I _Click()Dim a(l To 300) As Long, i&, suin&For i = 1 To 300IfiMod2 = 0Thena(i) = (i * (i + 1)/2sum = sum + a(i)错误!未找到引用源。A、代码窗口错误!未找到引用源。B、窗体布局窗口错误!未找到引用源。C、窗体设计窗口错误!未找到引用源。D、属性窗I I13、VB应用程序在（B）模式下不能编辑代码和设计界面。（1分）错误!未找到引用源。A、运行错误!未找到引用源。B、中断错误!未找到引用源。C、设计错误!未找到引用源。D、以上均不能14、在工具栏中有一个“启动”按钮，这个按钮的作用是（b）. （1分）错误!未找到引用源。A、运行一个应用程仔错误!未找到引用源。B、运仃错误!未找到引用源。C、翻开被选中对象的属性错误!未找到引用源。D、翻开被选中对象的代码窗口窗口15、标准控件不包括（D）控件。（1分）错误!未找到引用源。A、驱动黑列表框 错误!未找到引用源。C、文件列表框15、标准控件不包括（D）控件。（1分）错误!未找到引用源。A、驱动黑列表框 错误!未找到引用源。C、文件列表框错误!未找到引用源。B、II录列表把 错误!未找到引用源。【）、汹用对话打16、以下表达中，错误的选项是（C）。（1分）错误!未找到引用源。A、一个工程以含有多个错误!未找到引用源。B、窗体文件包含该窗体及标准模块文件其控件的属性错误!未找到引用源。C、以BAS为扩展名的文件错误!未找到引用源。D、在I：程资源管理器窗口是资源文件可以包含多个工程文件及属于该工程的其他文件17、存储一个VBJ1程时，可能产生多个文件，扩展名.bas说明是（）文件。（1分）错误!未找到引用源。A、窗体错误!未找到引用源。B、标准模块错误!未找到引用源。C、类模块错误!未找到引用源。D、资源18、每建立一个窗体，工程管理器窗口中就会增加一个（）。（1分）错误!未找到引用源。A、工程文件错误!未找到引用源。B、窗体文件错误!未找到引用源。C、程序模块文件错误!未找到引用源。D、类模块文件19、窗体文件中的信息是（）和其他信息。（1分）转退，生林到已I田湎.雷侏如我怦从蛀打 错误!未找到引用源。七窗体中控件的形状及其 错误!禾找到引用源。A、窗体形状及具特征特性错误!未找到引用源。C、窗体及其控件的属性错误!未找到引用源。D、运行窗体的代仍20、Visual Basic有完备的Help联机帮助功能,可以通过按下功能键（）得到帮助。（1分）错误!未找到引用源。A、F9错误!未找到引用源。B、F8错误!未找到引用源。C、门错误!未找到引用源。D、F521、以下（）语言不属于面向对象的程序设计语言。（1分）错误!未找到引用源。A、C错误!未找到引用源。B、C+错误!未找到引用源。C、VB错误!未找到引用源。D、Delphi22、过程调用时，形参首先要通过调用语句从实参那里得到真正的值，这一过程叫（）。（1分）错误!未找到引用源。A、输入错误!未找到引用源。B、调用错误!未找到引用源。C、引用错误!未找到引用源。D、参数传递23、以下表达中，错误的选项是（）« （I分）错误!未找到引用源。A、函数过程的函数名有返错误!未找到引用源。B、窗体可以作为过程的参 回值数错误!未找到引用源。C、数组作为过程的参数时，D、只有函数过程能够招过程中处理的数据传回使用“传地址”方式到主调程序中24、在调用时，作为实参的数组（）。（1分）End IfNext iPrint sumEnd Sub*下载数据文件data0002.txt到自己的机器中，编程统计出该数据文件中，在第51个-第10000 个数据之间共有多少个偶数。Private Sub Command l_Click()Dim n%, a(l To 10000) As Long, i%n = 0Open "d:data0002.txt1' For Input As #1For i = 1 To 50Input #1, a(i)Next iFori = 51 To 10000Input #1, a(i)If a(i) Mod 2 = 0 Then n = n + 1Next iPrint nClose #1End Sub7、*编写程序，求出500到5000以内能被3或者被5整除的数的和。Private Sub Command I _Click()Dim s&. i%For i = 500 To 500()If i Mod 3 = 0 Or i Mod 5 = 0 Thens = s + iEnd IfNext iPrint sEnd Sub8、*下载数据文件dalaOOOl.lxl到自己的计算机中，编程求出该数据文件里的前10000个数中大于1000的 偶数的个数。Private Sub Commandl_Click()Dim n&. i%,j%, a(l To 10000) As Longn = 0Open "d:dataOOOI.txt" For Input As #1Fori = 1 To 10000hiput #1, a(i)If a(i) > I(XX) And a(i) Mod 2 = 0 Then n = n + 1Next iPrint nClose #1End Sub9、求 1*2 -2*3 + 3*4 -4*5前 50 项的和Private Sub Commandl_Click()Dim s%, t%t= 1s = 0For i = 2 To 5（）t = （i - 1） * im = IIf（i Mod 2 = 0, 1,-1）s = s + t * mNext iPrint sEnd Sub 第一场考VB壮烈了。第十章文件的数据读写一定要看。上面一道编程题考的算法也是老师讲的 例题那种。比方最大值最小值素数，递归求和还有平均值等等。填空题有个把难的，做好后把代 码放VB里运行一下可以检查正误。而选择题考的是小知识点，多看看题并且记住答案就好。可 能有些知识点比拟少见。公用属性（是caption还是enable）和容器控件（是image还是 picturebox）之类的，记得百度查一下答案。按键求a sc码是Repress事在还是keydown事件。 还有一个是数组元素个数的求法（option base语句）。选择题大概有10-20题左右用VB软件 是可以得到答案的，大家一定要善于用这个哈，提高正确率。类型太多（给一段代码求结果，正确 变量名，正确代码语句，嗯，还有各个控件的属性，还有inputbox的标题框和默认值之类的， 对了，还有inputbox的返回值是字符型的）。想的起来的就这么多，祝大家VB雄起。昨天14:53弋+-B£li:f、笛卡尔的克里斯汀转过错误!未找到引用源。A、只写数组名及空原号错误!未找到引用源。B、只写数组名及其类型错误!未找到引用源。C、只写数组名及其大小手心未找到引用源。"、只写数组名空括号及其 人小25、在过程内定义的变量（不在语句块中）为（）。3分）错误!未找到引用源。A、全局变量错误!未找到引用源。B、模块变量错误!未找到引用源。错误!未找到引用源。D、他态变量26、在一个应用程序中，假设同在一个窗体模块中的三个事件过程要借助一个变量进行通讯，那么此变 量应声明为（）。（1分）错误!未找到引用源。A、全局级变量错误!未找到引用源。B、窗体/模块级变量错误!未找到引用源。C、局部变量错误!未找到引用源。D、静态变量27、窗体上有命令按钮Command 1和Command2,请阅读卜列程序：Dim a As Integer: Private Sub Commandedick（） : a = a + 3 : Print a: End Sub: Private Sub Command2_Click（） : a = a + 2 : Print a: End Sub,运行时，分别单击Command1和Command2按钮,输出的结果为（）。（1分）错误!未找到引用源。A、3 5错误!未找到引用源。B、3 2错误!未找到引用源。C、2 5错误!未找到引用源。D、2 328、阅读以下程序：Private Sub Form Click（）: Dim m As Integer: Static n As Integer: For i = lTo3:n = n + i:m = m+ i 2: Next: Print m, n: End Sub:运行时，两次单击窗体， 输出结果为（）。（1分）错误!未找到引用源。A、14 12错误!未找到引用源。B, 14 6错误!未找到引用源。C、28 6错误!未找到引用源。D、28 1229、在窗体上画个名称为Command1的命令按钮，然后编写如下程序：Private SubCommand I _C1 ick（）:Sialic X As Inleger:Stalic Y As Integer:Cls: Y=1 :Y=Y+5:X=5+X: Print X, Y:EndSub,程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为（）。（1分）错误!未找到引用源。A、15 16错误!未找到引用源。B, 15 6错误!未找到引用源。C、15 15错误!未找到引用源。D、5 630、在窗体的“通用”段声明变量时，不能使用（）关键字。（1分）错误!未找到引用源。A、Dim错误!未找到引用源。B、Static错误!未找到引用源。C. Public错误!未找到引用源。D、 Private 31、以下表达中，正确的表达是（）。（1分）错误!未找到引用源。A、局部变量的作用域可以错误!未找到引用源。B、在窗体的Form_Load事超出所定义的过程件过程中定义的变量是全局变量错误!未找到引用源。C、在调用过程时，所仃局 部变量被系统初始化为0或空字符串错误!未找到引用源。D、在Sub过程A中定义的 局部变量可以与其他事件过程中定义的局部变量 同名，但其作用域只限于过程A全局变量必须在（）中定义（