Visual Basic题库(有答案).doc

窗体顶端第1题 Visual Basic版本有3个版本，按功能从强到弱的顺序是（）A、工程版、专业版、学习版B、专业版、工程版、学习版C、企业版、专业版、学习版D、专业版、企业版、学习版第2题 以下叙述中，错误的是()A、一个Visual Basic 应用程序可以含有多个标准模块文件B、一个visual Basic 工程可以含有多个窗体文件C、标准模块文件可以属于某个指定的窗体文件D、标准模块文件的扩展名是.bas第3题 以下叙述中错误的是()A、一个工程可以包括多种类型的文件B、Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C、程序运行后，在内存中只能驻留一个窗体D、对于事件驱动型应用程序，每次运行时的执行顺序可以不一样第4题 Visual Basic的窗体设计器主要是用来()A、建立用户界面B、添加图形、图像、数据等控件C、编写程序源代码D、设计窗体的布局第5题 Visual Basic是一种结构化高级程序设计语言，它采用的是()驱动方式A、键盘B、鼠标C、事件D、函数第6题 Visual Basic程序设计语言属于()A、面向过程的语言B、机器语言C、面向对象的语言D、汇编语言第7题 Visual Basic一共有设计、运行和中断三种模式，要使用调试工具应该()A、进入设计模式B、进入运行模式C、进入中断模式D、不用进入任何模式第8题 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是()A、只保存窗体模块文件B、分别保存窗体模块、标准模块和工程文件C、只保存窗体模块和标准模块文件D、只保存工程文件第9题 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是()A、窗体布局窗口B、立即窗口C、代码窗口D、监视窗口第10题 保存新建的工程时，默认的路径是()A、My DocumentsB、VB98C、D、Windows第11题 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是()A、运行的机器上无VB系统所需的动态连接库B、缺少.frm窗体文件C、该可执行文件有病毒D、以上原因都不对第12题 在VB环境中，工程文件的扩展名是()A、.frmB、.basC、.vbpD、.frx第13题 将一个VB程序保存在磁盘上，至少会产生的文件是()A、.doc、.txtB、.com、.exeC、.vbp、.frmD、.bat、.sys第14题 下面关于对象的描述中，错误的是()A、对象就是自定义结构变量B、对象代表正在创建的系统中的一个实体C、对象是一个状态和操作（或方法）的封装体D、对象之间的信息传递是通过消息进行的第15题 下面4项中不属于面向对象系统三要素的是()A、变量B、事件C、属性D、方法第16题 下面各种高级语言中，不是面向对象程序设计语言的是()A、Visual BasicB、C+C、PascalD、Java第17题 VB6.0集成开发环境可以()A、编辑、调试、运行程序，但不能生成可执行程序B、编辑、生成可执行程序、运行程序，但不能调试程序C、编辑、调试、生成可执行程序，但不能运行程序D、编辑、调试、运行程序，也能生成可执行程序第18题 英文“Visual”的含义是()A、可视化B、集成C、结构化D、调试第19题 不能打开属性窗口的操作是()A、单击工具栏中的“属性窗口”按钮B、选取“视图”菜单中的“属性窗口“子菜单项C、在对象上单击右键，从弹出的快捷菜单中选择“属性窗口”选取项D、选取“工程”菜单中的“属性窗口”子菜单项第20题 VB60集成开发环境的工作模式有()A、一种B、两种C、三种D、四种第21题 以下关于VB特点的叙述中，错误的是()A、VB是采用事件驱动编程机制的语言B、VB程序既可以编译运行，也可以解释运行C、构成VB程序的多个过程没有固定的执行顺序D、VB程序不是结构化程序，不具备结构化程序的三种基本结构第22题 以下叙述中错误的是()A、VB是事件驱动型可视化编程工具B、VB应用程序不具有明显的开始和结束语句C、VB工具箱中的所有控件都具有宽度(width)和高度(height)属性D、VB中控件的某些属性只能再设计时设置第23题 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在()设置A、“属性”对话框B、“程序代码”窗口C、“选项”对话框D、对象浏览器第24题 通过以下()窗口可以在设计时直观的调整窗体在屏幕上的位置。A、代码窗口B、窗体布局窗口C、窗体设计窗口D、属性窗口第25题 VB的工程资源管理器可管理多种类型的文件，下面叙述不正确的是()A、窗体文件的扩展名为.frm，每个窗体对应一个窗体文件B、标准模块是一个纯代码性质的文件，它不属于任何一个窗体C、用户通过类模块来定义自已的类，每个类都用一个文件来保存，其扩展名为.basD、资源文件是一种纯文本文件，可以用简单的文字编辑器来编辑第26题 与传统的程序设计语言相比，Visual Basic最突出的特点是()A、结构化程序设计B、程序开发环境C、事件驱动编程机制D、程序调试技术第27题 Visual Basic6.0集成环境的主窗口中不包括()A、标题栏B、菜单栏C、状态栏D、工具栏第28题 当运行程序时，系统自动执行启动窗体的()事件A、LoadB、ClickC、UnloadD、GotFocus第29题 以下关于name属性叙述正确的是()A、窗体的Name属性指定窗体的名称，用来表示一个窗体B、窗体的Name属性的值是显示在窗体标题栏中的文本C、可以在运行期间改变对象的Name属性的值D、对象的Name属性值可以为空第30题 关于对象的属性不正确的叙述是()A、对象的属性一般有属性名和属性值B、可通过属性窗口设置属性的值C、可通过程序代码设置属性值D、对象所有属性值均可以在设计时设置第31题 确定一个控件在窗体上的位置的属性是()A、Width或HeightB、Width和HeightC、Top或LeftD、Top和Left第32题 下列叙述中正确的是()A、只有窗体才是Visual Basic中的对象B、只有控件才是Visual Basic中的对象C、窗体和控件都是Visual Basic中的对象D、窗体和控件都不是Visual Basic中的对象第33题 为了同时改变一个活动控件的高度和宽度，正确的操作是()A、拖拉控件4个角上的某个小方块B、只能拖拉位于控件右下角的小方块C、只能拖拉位于控件左下角的小方块D、不能同时改变控件的高度和宽度第34题 下列符号中不能作为VB中变量名的是()A、ABCDB、E0065700C、123TWDFFD、zxy第35题 下列符号常量的声明中，()是不合法的A、Const a As Single = 1.1B、Const a As Integer = 111211C、Const a As Double = sin (l)D、Const a = OK第36题 下列()是字符型常量A、I am a studentB、江苏南京C、# 02 / 25 / 2013 #D、123第37题 下列()是日期型常量A、I am a studentB、江苏南京C、# 02 / 25 / 2013 #D、123第38题 下列()是双精度型变量A、AAA %B、BBB $C、CCC !D、DDD #第39题 可以同时删除字符串前导和尾部空白的函数是()A、LtrimB、RtrimC、TrimD、Mid第40题 设有如下变量声明：Dim X As Integer，如果Sgn(X）的值为一1，则X的值是()A、整数B、大于O的整数C、等于O的整数D、小于0的整数第41题 从键盘上输人两个字符串，分别保存在变量strl , str2中。确定第二个字符串在第一个字符串中起始位置的函数是()A、LeftB、MidC、StringD、Instr第42题 设有语句x=inputbox(输入数值,0,示例)，程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（）A、在inputboxc对话框标题栏中显示的是“示例”B、变量X的值是数值10C、变量X的值是字符串10D、0是默认值第43题 设x=7.9,则执行x=iif(x A、3.45B、3C、2.3D、2第44题 在下列程序中： private sub command1_click() b=1:a=2 print a=iif(ab,a,b) end subA、0B、1C、trueD、false第45题 用情况选择语句select case x,选择|x|5的情况的语句是case()A、not(-5 to 5)B、5 to -5C、is5D、abs(x)5第46题 单击窗体后程序的输出结果是（） private sub form_click() a=1:b=2:c=3 if a3 or b3 then a=b-a:b=c-a:c=b+a end if print a+b+c end subA、16B、3C、6D、8第47题 在窗体上添加一个名称为TEXT1的文本框，然后编写以下代码： private sub form_activate() a=int(rnd)+7 if a6 then x=1 elseif a7 then x=2 elseif a8 then x=3 elseif a9 then x=4 end if text1.text=x end subA、1B、2C、3D、4第48题 下列ForNext循环的循环体的执行次数为（ ）。 For I=1 to 11 I=I+1 Next IA、5B、11C、6D、有语法错误第49题 下列程序的输出结果是（ ）。 P0 For I=1 to 4 p=p*I Next I Print pA、24B、4C、0D、10第50题 下列程序段的输出为（ ）。 S=0 For I=1 to 10 I=I+1:s=s+I Next I Print sA、55B、66C、30D、60第51题 以下程序段的输出结果是（ ）。 While n4 x=x*y：y=y+1 loop Print xA、1B、4C、8D、20第53题 以下程序段的输出结果是（ ）。 N=4：k=1：I=0 For I=1 to n k=k*I Next I Print IA、2B、3C、4D、5第54题 以下程序段的输出结果是（ ）。 N=4：k=1：I=0 For I=1 to n k=k*I Next I Print kA、21B、22C、23D、24第55题 以下程序段的输出结果是（ ）。 Num=0 While num=2 num=num+1 Print num; WendA、1 2 3B、1 1 1C、3 2 1D、2 1 3第56题 假定有以下程序段 For I=1 to 3 For j=5 to 1 step 1 Print I*j Next j,I 则语句Print I*j的执行次数是（ ）。A、15B、16C、17D、18第57题 假定有以下循环结构 ，则正确的描述是（ ）。 Do While 条件 循环体 LoopA、如果“条件”是一个为1的常数，则一次循环体也不执行B、如果“条件”是一个为1的常数，则无限次执行循环体C、如果“条件”是一个不为1的常数，则至少执行一次循环体D、不论“条件”是否为“真”，至少要执行一次循环体第58题 下面程序运行时内层循环的循环总次数是（ ）。 For m=1 to 3 For n=0 TO m-1 Next n Next mA、6B、5C、3D、4第59题 以下程序段的输出结果是（ ）。 N=1:s=0 do s=s+n : n=n+1 loop while n=100 s=s+n : n=n+1 loop Print sA、4949B、5050C、4950D、5049第61题 以下程序段的输出结果是（ ）。 For x=5 to 2.5 step 7 Next x Print xA、2.2B、2.5C、2.9D、-2第62题 以下程序段的输出结果是（ ）。 A=0 For j=1 TO 15 a=a+(j MOD 3) Next j Print aA、0B、15C、90D、120第63题 以下程序段的输出结果是（ ）。 Sum=0 For j=1 to 10 if j=10 then sum=sum+j end if Next j Print sumA、10B、55C、100D、0第64题 以下程序段的输出结果是（ ）。 X=0:n=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Print nA、1B、2C、3D、4第65题 Do循环语句是根据条件决定循环的语句的，下列说法正确的是（ ）。A、While是当条件为真时执行循环，而Until是在条件变为真的之前重复B、Until是当条件为真时执行循环，而While是在条件变为真的之前重复C、While和Until都是当条件为真时执行循环D、While和Until都是在条件变为真的之前重复循环第66题 执行下面的程序段后，I 的值为 （ ）。 X=5 For I=1 To 10 Step 2 x=x+( I 3) Next IA、9B、10C、11D、12第67题 执行下面的程序段后，a的值为 （ ）。 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k, j, IA、3B、9C、14D、21第68题 要将菜单项的某字母设置为热键，在菜单设计中，应在菜单项的标题的该字母前加（ ）字符。A、/B、C、&D、第69题 打开通用对话框的“打开”对话框的方法是（ ）A、ShowOpenB、ShowSaveAsC、ShowColorD、ShowFont第70题 下列数组声明语句中正确的是（ )。A、Dim a2;3 As IntegerB、Dim a2,3 As IntegerC、Dim a(2;3) As IntegerD、Dim a(2,3) As Integer第71题 在窗体上添加一个名称为Command1的命令按钮数组，以下说法正确的是（ ）。A、命令按钮的索引值（Index）相同B、在代码中访问任意一个命令按钮只需使用名称Command1C、命令按钮分享相同的事件过程D、命令按钮的Caption属性值一定为Command1第72题 下列程序运行时单击Command1，输出的结果是（ ）。 Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 - k Next Print a(3 + a(6) End SubA、5B、4C、3D、2第73题 在使用动态数组时，如果改变数组的大小而又不丢失数组中的数据，应使用具有关键字（ ）的ReDim语句。A、PrivateB、PreserveC、PublicD、Static第74题 控件数组中的名字是由下列哪个属性决定的（ ）？A、TextB、IndexC、名称D、TabIndex第75题 下列程序运行时单击Command1，输出的结果是（ ）。 Private Sub Command1_Click() Dim a(5, 5) For i = 1 To 3 For j = 1 To 4 a(i, j) = j - i Next Next For m = 1 To 2 For n = 1 To 2 Print a(n, m); Next Next End SubA、0 1 -1 0B、0 -1 1 0C、0 -1 -1 0D、0 1 1 0第76题 下列程序段的功能是将以2为首的前100个素数存入数组中。请在 _ 处选择正确答案，将程序补充完整（ ）。 Dim a(100) As Integer Private Sub Form_Load() a(1) = 2 :x = 3: i = 2 Do While i a(j) Then _ Next j If k i Then temp = a(k): a(k) = a(i): a(i) = temp End If Next i End SubA、i+1;k=jB、i;k=jC、k;a(k)=a(j)D、i1;k=j1第79题 VB允许多维数组的最大维数是（ ）。A、50B、60C、80D、90第80题 用下面的语句所定义的数组元素的个数是（ ）。 Dim Var(4 To 6, 3 To 3)A、24B、36C、21D、18第81题 下面关于VB语言中数组下标的几种说法，错误的是（ ）。A、数组下标的下界默认为1B、数组下标的下界可以为负数C、数组下标的下界必须小于上界D、数组下标的上界可以为负数第82题 下列程序段的执行结果为（ ）。 Private Sub Command1_Click() Dim A(10), B(5) For I=1 to 10 A(I)=I Next I For J=1 to 5 B(J)=J*20 Next J A(5)=B(2) Print A(5) = ; A(5) End SubA、A(5) = 5B、A(5) = 10C、A(5) =20D、A(5) =40第83题 运行下列程序会出现出错信息，产生错误的原因是（ ）。 x=5 Dim a(x) For i=1 To 6 a(i)=i+1 Next iA、数组元素a（i）的下标越界B、变量x没有定义C、循环变量的范围越界D、Dim语句中不能用变量x来定义数组的下标第84题 下列程序段的执行结果是（ ）。 Dim a(5 to 6) For i=Lbound(a,1) To Ubound(a,1) a(i)=i Next i Print a(Lbound(a,1);a(Ubound(a,1)A、0 0B、5 0C、5 6D、0 6第85题 如下数组声明语句中正确的是（ ）。A、Dim A(4 5) As IntegerB、Dim A(n,n) As IntegerC、Dim A(4,5) As IntegerD、Dim A4,5 As Integer第86题 语句Option Base 1:Dim a(3,4)定义的数组所包含的数组元素的个数是（ ）。A、7B、12C、15D、20第87题 用下面语句定义的数组元素个数是（ ）。 Dim A(-3 To 5) As IntegerA、6B、7C、8D、9第88题 语句Dim arr(-3 To 5,2 To 6) As Integer定义的数组元素有（ ）。A、45B、44C、11D、54第89题 在窗体上面画一个命令按钮，然后编写如下事件过程：（ ） Option Base 1 Private Sub Command1_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print s End SubA、4321B、12C、34D、1234第90题 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10,10) As Integer Dim i,j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。A、12B、13C、14D、15第91题 设有如下程序： Option Base 1 Private Sub Form_Click() Dim a Dim i As Integer a=Array(1,2,3,4,5,6,7,8,9) For i=0 To 3 Print a(5-i); Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的值是_。A、5 4 3 2B、6 5 4 3C、4 3 2 1D、7 6 5 4第92题 执行以下Command1的Click事件过程在窗体上显示_。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(a,b,c,d,e,f,g) Print a(1);a(3);a(5) End SubA、abcB、bdfC、aceD、出错第93题 设有如下程序： Dim a(3,3) As Integer For m=1 To 3 For n=1 To 3 a(m,n)=(m-1)*3+n Next n Next m For m=2 To 3 For n=1 To 2 Print a(n,m); Next n Next m 运行后输出的结果是 _。A、2 5 3 6B、2 3 5 6C、4 7 5 8D、4 5 7 8第94题 当发生Command1_Click事件，以下程序的输出结果是_。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For i=1 To 4 Print a(i)-a(i-1); Next i End SubA、1 1 1 1 1B、1 1 1 1C、1 1 1D、2 2 2第95题 下面关于控件数组与一般控件的叙述中正确的是_。A、控件数组一定有1个以上同类型的控件组成，而一般控件只有一个控件。B、控件数组的索引属性值Index值为0，而一般控件的Index值为空。C、控件数组的Index值为1，而一般控件的Index值为0。D、控件数组的建立通过Dim语句声明，而一般控件不需要声明。第96题 Function子程序模块用的结束语句是（）。A、Exit SubB、Exit FunctionC、EndD、End Function第97题 在窗体模块的通用声明中声明变量时，不能使用_关键字。A、DimB、PublicC、PrivateD、Static第98题 以下叙述中错误的是_。A、不能在标准模块中定义Static型变量。B、语句Dim a, b As Integer声明了两个整形变量C、窗体级变量必须先声明后使用D、在事件过程或通用过程内定义的变量是局部变量第99题 设有语句“Open c:test.dat For Output As #1”，则下列叙述中错误的是 。A、该语句打开C盘根目录下一个已存在的文件test.daB、该语句在C盘根目录下建立一个名为test.dat的文件C、该语句建立的文件的文件号为1D、执行语句后，就可通过Print #语句向文件test.dat中写入信息第100题 Cls命令可清除窗体或图形框中 _的内容。A、Picture属性设置的背景图案B、设计时放置的图片C、程序运行时产生的图形和文字D、以上全部AC窗体顶端第1题 Visual Basic 6.0分为3种版本，这3种版本是学习版、_和企业版。答1:第2题 应用程序最终面向用户的窗口是_，它对应于应用程序的运行结果。答1:第3题 如果打开了不需要的菜单或对话框，可以用_键关闭。答1:第4题 当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择_菜单的_选项，使“工具箱”窗口显示。答1:答2:第5题 VB是一种面向_的程序设计语言，采用了_编程机制。答1:答2:第6题 窗体是一种对象，由_定义其外观，由_定义其行为，由事件定义其与用户的交互。答1:答2:第7题 在VB中设置或修改一个对象的属性的方法有两种，它们分别是_和代码窗口编程。答1:第8题 在VB6.0集成开发环境中，可以编辑程序代码，但不能修改用户界面的工作模式是_。答1:第9题 VB应用程序中窗体文件的扩展名是_，工程文件的扩展名是_。答1:答2:第10题 Visual Basic中的控件分为3类，它们是标准控件、_和可插入对象。答1:第11题 Visual BASIC应用程序通常由3类模块组成，即窗体模块、_和类模块。答1:第12题 Visual Basic6.0中包括窗体文件、标准模块文件、类模块文件、工程组文件、资源文件和_六类文件。答1:第13题 窗体设计器窗口简称_，是应用程序最终面向用户的窗口。答1:第14题 对象的特征称为属性，对象能够执行的操作称为_，对象能够识别的操作称为_。答1:答2:第15题 窗体上有一个命令按钮，事件代码如下： Private Sub Command1_Click() A = 1 B = 2 A = Val(A) + Val(B) B = Val(12) If A B Then Print A - B Else Print B - A End Sub 程序运行后，单击命令按钮，输出_。答1:第16题 以下语句的输出结果是_。 a% = 3.1425926 Print a%答1:第17题 a$ = LCase(Hello)，a$的值是_，b$ = UCase(Hello)，b$的值是_。答1:答2:第18题 表达式12 + 34的值是_，表达式12 + 34的值是_。答1:答2:第19题 整形变量M中存放了一个两位数，要将两位数交换位置，例如24变成42，实现的表达式为_。答1:第20题 代数式|y| + ln3x的Visual Basic表达式为_。答1:第21题 VB的常量分为_ 和符号常量、系统常量。答1:第22题 在立即窗口中输入如下内容： A$=”I love Visual Basic” x=instr(a$,”Visual”) Print x 则在立即窗口显示的是_答1:第23题 在VB中用_函数来产生一个01之间的单精度随机数。由于一个随机数序列可能反复出现，VB提供了_语句来消除这种情况。答1:答2:第24题 写出一个能产生取值范围为30,45的随机整数的表达式_答1:第25题 算术表达式 14.33.1 和 14.3 mod 3.1 的值分别是_ 和_答1:答2:第26题 VB的变量名的最大字符为_个答1:第27题 VB表达式Int（-4.8）*632+Fix（-4.8）的值是_答1:第28题 设有如下程序段： a$=BeijingShanghai b$=Mid(a$,InStr(a$,g)+1) 执行上面的程序段后，变量b$的值为_。答1:第29题 下面程序运行后，输出的结果为_。 Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(Left（A$,2)+Right(B$,2),C$) Print C$ End Sub答1:第30题 若要使文本框控件运行时不可见，应将_属性设置为_。答1:答2:第31题 可以实现x和y变量内容进行交换的算法是_。答1:第32题 若要使标签控件显示时不覆盖其背景内容则要对_属性进行设置。答1:第33题 在Visual Basic中Print、Cls属于_。答1:第34题 为了使文本框同时具有水平和垂直滚动条应先把MultiLine属性设置为True然后再把ScrollBars属性设置为_ 。答1:第35题 当焦点进入文本框Text1时，要自动选定文本框开始的5个字符，则需要通过代码 Text1.SelStart = _ 和 Text1.SelLength = 5来实现。答1:第36题 在程序代码Label1.Caption = Visual Basic中，表示对象的是 _，表示属性的是 _。答1:答2:第37题 如果打印宽度 Width 是 80，并指定 Tab(90)则下一个打印将从列_ 开始答1:第38题 要判断在文本框中是否按了【Enter】键，应在文本框的_事件中进行判断。答1:第39题 要锁定文本框Text的内容，应将_属性设置为True。答1:第40题 要使文本框中的内容都被显示为“*”，则应将文本框的_属性修改为“*”。答1:第41题 要使指定的文本框成为焦点，则应采用文本框控件的_方法。答1:第42题 下面事件过程的功能是：输入3个整数x、y、z，按从大到小的顺序输出这3个数，在横线上填上适当内容。 Private sub command1_click() dim x!,y!,z! x=inputbox(x=) y=inputbox(y=) z=inputbox(z=) if_then t=x:x=y:y=t if_then t=x:x=z:z=t if yb and ab 的值为_。答1:第48题 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将控件的_属性设置为_。答1:答2:第49题 设置一个单选按钮所代表选项的选中状态，应当在属性窗口中改变_属性。答1:第50题 用VB表达式来表示“x是小于105的非负数”为 _。答1:第51题 逻辑表达式not a b and 93,结果是_。答1:第52题 反复执行的程序段称为（ ）；进入循环体的条件称为（ ）；中止循环体执 行的条件称为（ ）。答1:答2:答3:第53题 当x的输入值为50，19，0，21和-1时，下列事件过程的执行结果是什么？（20分） Private Sub Command1_Click() Dim x%, s% s = 0 x = InputBox(x=) While x = 0 s = s + x x = InputBox(x=) Wend Print s=; s End Sub答1:第54题 设t=123n，下列事件过程的功能是求t不大于1000时最大的n值，在横线上填 上适当内容。 Private Sub Command1_Click() Dim t%, n% t = 1: n = 1 Do While (1) n = n + 1 (2) Loop Print n=; n - 1 End Sub答1:答2:第55题 下面事件过程的功能是：输出100以内个位数为8且能被整除的所有数，在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, a% For i = 0 To (1) a = i * 10 + 8 If (2) Then GoTo l (3) l: Next i End Sub答1:答2:答3:第56题 下面事件过程的功能是求（*）（*）（*n）的值，在横线上填上适当内容。 Private Sub Command1_Click() Dim n%, i%, j&, s& n = InputBox(n=) j = 1: s = 0 For i = 1 To n j = (1) (2) Next i Print s=; s End Sub答1:答2:第57题 下面事件过程的功能是打印图案 * * * * * 在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, j% For i = 1 To 5 Print Spc( (1) ); For j = 1 To (2) Print *; Next j (3) Next i End Sub答1:答2:答3:第58题 下面事件过程的功能是求100以内的素数，在横线上填上适当内容。 Private Sub Command1_Click() Dim i%, j%, m% m = 0 For i = 2 To 100 j = 2 Do While (1) If i Mod j = 0 Then (2) j = j + 1 Loop If (3) Then Print i,: m = m + 1 If m Mod 5 = 0 Then Print Next i End Sub答1:答2:答3:第59题 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() n = 5 f = 1 s = 1 For i = 1 To n t = (1) : s = s + t: f=(2) Next Print s End Sub 该事件过程的功能是计算1/1-1/2+1/3-1/4+1/5的值。请填空。答1:答2:第60题 下列循环结构控制的循环次数是：( )。 i=1 do i=i+1 loop until i=10答1:第61题 菜单分为_菜单和_菜单，菜单总与_相关连，设计菜单需要在_中设计。答1:答2:答3:答4:第62题 阅读下列程序段： Private Sub Form Click() Dim amr(10)As Integer For i=6 To 10 arr(i)=InputSox(请顺序输入1，2，3，4，5) Next i Print arr(6)+arr(arr(7)/arr(8) End Sub 程序运行后，单击窗体，在输入对话框中顺序输入1、2、3、4、5，输出结果为_。答1:第63题 下列过程的运行结果是_ 。 Private Sub Form_Click() Dim X(4) As Integer For I = 1 To 4 X(I) = I * I Next Print X(I) End Sub答1:第64题 在窗体添加一个命令按钮，然后编写如下事件过程，该过程的功能是用冒泡法将10个数排成升序，请在 处将程序补充完整。 Private Sub Command1_Click() Dim a(10) For i=1 To 10 a(i)=val(InputBox(请输入数组元素值,数据输入