大学VB考试题库

大学VB考试题库一、单项选择题1、与传统的程序设计语言相比 ,VisualBasic 最突出的特点是（）。A、结构化程序设计 B、程序开发环境C、事件驱动编程机制 D、程序调试技术2、赋值语句： a=123&MID("123456",3,2) 执行后，a变量中的值是（）。A、"12334"B、123C、12334D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（ B）。A、文本文件和工程文件B、窗体文件和工程文件C、窗体文件和标准模块文件D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。A、Form1.Name="VisualBasic窗体"B、Form1.Title="VisualBasic窗体"C、Form1.Caption="VisualBasic窗体"D、Form1.Text="VisualBasic窗体"5、为了装入一个VisualBasic应用程序，应当（D）A、只装入窗体文件（.frm）B、只装入工程文件（.vbp）C、分别装入工程文件和标准模块文件（ .bas）D、分别装入工程文件、窗体文件和标准模块文件6、赋给一个数组的数据类型一定要（ A）。A、相同B、不相同 C、两可D、都不对7、下面正确的赋值语句是（ C）。A、x+y=30B、y=π*r*r C、y=x+30D、3y=x8、VisualBasic6.0 集成环境的主窗口中不包括（ C）。A、标题栏 B、菜单栏C、状态栏 D、工具栏9、以下叙述中错误的是 (C)。A、VisualBasic 是事件驱动型可视化编程工具B、VisualBasic 应用程序不具有明显的开始和结束语句C、Visual Basic工具箱中的所有控件都具有宽度（ Width）和高度（Height）属性(计时器)D、VisualBasic 中控件的某些属性只能在运行时设置10、要使Print 方法在Form_Load事件中起作用，要对窗体的 (C)属性进行设置。A、BackcolorB 、ForeColorC、AutoRedrawD、BackStyle11、若要使命令按钮不可操作，要对 (A)属性进行设制。A、Enabled B、VisibleC、BackColorD、Caption12、以下叙述中错误的是 (B)。A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用 Private 定义的通用过程能被其他窗体调用C、在设计 VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。D、一个工程默认的启动对象是 Form113、Cls方法可以清除窗体或图片框中的 (C)内容。A、在设计阶段使用 Picture 设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上均可14、设x=3,y=5,则以下表达式值为真的是 (C)A、(-3+5>x)And(y>0)B 、(x<0)Eqv(y>0)C、(x>y)Or(y>0) D、x>=yAndy>1015、为了防止用户随意将光标置于控件之上，应将进行 (D)设置。A、将控件的 TabIndex属性设置为0B、将控件的 TabStop属性设置为 TrueC、将控件的 TabStop属性设置为 FalseD、将控件的 Enabled属性设置为 False16、要判断在文本框是否按了 Enter键，应在文本框的 (D)事件中判断。A、ChangeB、KeyDownC、Click D、KeyPress17、以下关于焦点的叙述中，错误的是 (A)。A、如果文本框的 TabStop属性为False，则不能接收从键盘上输入的数据B、当文本框失去焦点时，触发 LostFocus 事件C、当文本框的 Enabled属性为False时，其Tab顺序不起作用D、可以用 TabIndex属性改变 Tab顺序18、如果文本框的 Enabled属性设为 False，则(A)。A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。19、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 (C)。A、MouseDownB、MouseUpC、LoadD、Click20、图像框有一个属性， 可以自动调整图形的大小，以适应图像框的尺寸， 这个属性是(B)。A、Autosize B、StretchC、AutoRedrawD、Appearance21、为了防止用户随意将光标置于控件之上，应设置的属性是 (D)。A、将控件的 TabIndex属性设置为0B、将控件的 TabStop属性设置为 TrueC、将控件的 TabStop属性设置为 FalseD、将控件的 Enabled属性设置为 False22、不论何控件，共同具有的是 (B)属性。A、Text B、NameC、ForeColorD、Caption23、以下关于窗体的描述中，错误的是 (A)。A、执行UnloadForm1语句后，窗体 Form1消失，但仍在内存中B、窗体的 Load事件在加载窗体时发生C、当窗体的 Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D、窗体的 Height、Width属性用于设置窗体的高和宽24、当运行程序时，系统自动执行窗体的 (A)事件过程。A、LoadB、ClickC、UnloadD、GotFocus25、窗体设计器是用来设计 (B)。A、应用程序的代码段 B、应用程序的界面C、对象的属性 D、对象的事件26、VisualBasic 是一种面向对象的可视化程序设计语言，采取了 (A)的编程机制。A、事件驱动 B、按过程顺序执行C、从主程序开始执行 D、按模块顺序执行27、确定一个控件在窗体上的位置的属性是 (D)。A、Width或HeightB、Width和HeightC、Top或Left D、Top和Left28、如果要改变窗体的标题，则需要设置的属性是 (A)。A、Caption B、NameC、BackColorD、BorderStyle29、以下叙述中错误的是 (C)。A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B、保存VisualBasic 程序时，应分别保存窗体文件及工程文件C、VisualBasic 应用程序只能以解释方式执行D、事件可以由用户引发，也可以由系统引发30、以下叙述中错误的是 (B)。A、双击鼠标可以触发 DblClick 事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发 MouseMove事件D、控件的名称可以由编程人员设定31、在VisualBasic 中最基本的对象是 (C)。它是应用程序的基石，是其他控件的容器。A、文本框 B、命令按钮C、窗体D、标签32、以下叙述中正确的是 (A)。A、窗体的 Name属性指定窗体的名称，用来标识一个窗体B、窗体的 Name属性的值是显示在窗体标题栏中的文本C、可以在运行期间改变对象的 Name属性的值D、对象的 Name属性值可以为空33、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 (C)。A、工程资源管理器窗口 B、工具箱窗口C、代码窗口 D、属性窗口34、VisualBasic 是一种面向对象的可视化程序设计语言，采取了的编程机制是 (A)。A、事件驱动 B、按过程顺序执行C、从主程序开始执行 D、按模块顺序执行35、用来设置粗体字的属性是 (C)。A、FontItalicB 、FontNameC、FontBold D、FontSize36、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 (A)。A、如果工程中含有 SubMain过程，则程序一定首先执行该过程B、不能把标准模块设置为启动模块C、用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D、任何时刻最多只有一个窗体是活动窗体37、为了把焦点移到文本框，所使用的方法是 (A)。A、SetFocus B、VisibleC、RefreshD、GetFocus38、INT（100*RND）产生的随机整数的闭区间是（ A）。A、[0，99]B、[1，100]C、[0，100]D、[1，99]39、如果要在命令按钮上显示图形文件，应设置命令按钮的 (B)。A、Style 属性和Graphics 属性B、Style 属性和Picture 属性C、Caption属性D、Graphics 属性40、若要使命令按钮不可操作，要对 (A)属性进行设制。A、Enabled B、VisibleC、BackColorD、Caption41、假定窗体的名称为 Form1,则把窗体的标题设置为“ VB_Test”的语句为 (B)。A、Form1=“VB_Test” B、Form1.Caption=“VB_Test”C、Form1.Text=“VB_Test”D、F=“VB_Test”42、以下叙述中错误的是 (A)。A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、以.BAS为扩展名的文件是标准模块文件C、窗体文件包含该窗体及其控件的属性D、一个工程中可以含有多个标准模块文件43、要使文本框获得输入焦点，则应采用文本框控件的哪个方法 (A)。A、GotFocusB、LostFocusC、KeyPressD、SetFocus44、以下不能在“工程资源管理器”窗口中列出的文件类型是 (B)。A、.basB、.res C、.frmD、.ocx45、刚建立一个新的标准 EXE工程后，不在工具箱中出现的控件是 (C)。A、单选按钮 B、图片框 C、通用对话框 D、文本框46、以下叙述中错误的是 (B)。A、双击鼠标可以触发 DblClick 事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发 MouseMove事件D、控件的名称可以由编程人员设定47、以下能够触发文本框 Change事件的操作是(D)。A、文本框失去焦点 B、文本框获得焦点C、设置文本框的焦点 D、改变文本框的内容48、以下叙述中错误的是 (C)。A、一个工程中只能有一个 SubMain过程B、窗体的 Show方法的作用是将指定的窗体装入内存并显示该窗体C、窗体的 Hide方法和Unload方法的作用完全相同D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体49、语句PrintAbs(-6^2)+Int(-6^2) 的输出结果是(A)。A、0B、1C、-1D、-7250、如果将布尔常量值 TRUE赋值给一个整型变量，则整型变量的值为 (B)。A、0B、-1C、TRUED、FALSE51、函数String(n,"str") 的功能是(B)。A、把数值型数据转换为字符串B、返回由 n个字符组成的字符串C、从字符串中取出 n个字符D、从字符串中第 n个字符的位置开始取子字符串52、语句PrintFormat( “HelloWorld”,“>”)的输出结果是 (C)。A、helloWORLDB、helloworldC、HELLOWORLD、HELLOworld53、声明符号常量应该用关键字 (B)。A、StaticB 、ConstC、PrivateD 、Variant54、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句 (B)。A、OptionBase0 B、OptionExplicitC、OptionBase1D 、OptionCompare55、下列可作为 VisualBasic 变量名的是(D)。A、A#AB、4AC、?xyD、constA56、设a=10，b=5，c=1，执行语句 Printa>b>c 后，窗体上显示的是 (B)。A、TrueB、FalseC、1D、出错信息57、执行x$=String(6,"124abc") 后，x的值是(B)。A、124abcB、111111C、124D、abc58、设a=6，则执行 x=IIf(a>5,-1,0) 后，x的值为（D）A、5B、6C、0D、-159、执行语句： c$=“Glad”&Mid$(“Nicetomeetyou ”,5,3)，则变量 c$的值为(C)。A、NicetomeetyouB 、GladNicetomeetyouC、GladtoD 、Glad60、下面(D)是合法的字符常数。A、ABC$B、"ABC"C、'ABC'D 、ABC61、对于语句 Ifx=1Theny=1 ，下列说法正确的是（ C）。A、x=1和y=1 均为赋值语句B、x=1和y=1 均为关系表达式C、x=1为关系表达式， y=1 为赋值语句D、x=1为赋值语句， y=1 为关系表达式62、设有声明： DimXAsInteger, 如果Sgn(X) 的值为-1，则X的值是(D)。A、任何整数 B、0C、等于0的整数D、小于0的数63、在一行内写多条语句时，每个语句之间用 (B)符号分隔。A、，B、：C、、D、；64、从键盘上输入两个字符串，分别保存在变量 str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是 (D)。A、LeftB、MidC、StringD 、Instr65、设S="中华人民XX国 "，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（B）A、"中华民国"B、"中国人民"C、"中共人民"D、"人民XX"66、下列可作为 VisualBasic 中的变量名的是 (A)。A、FilenameB、A(A+B)C、254DD、Print67、下面(A)是合法的变量名。A、X_yzB、123abcC、IntegerD 、X-Y68、以下变量命名非法的是（ C）。A、xyz123B、printaaC 、booleanD、Bernald69、设有变量声明 :DimTestDateAsDate, 为变量TestDate正确赋值的表达方式是 (A)。A、TextDate=#1/1/2002#B、TestDate=#“1/1/2002”#C、TextDate=date(“1/1/2002”)D、TestDate=Format(“m/d/yy”,“1/1/2002”)70、设a=2,b=3,c=4,d=5 ，表达式 a>bANDc<=d的值是(B)。A、TrueB、FalseC、-1D、171、表达式6*8Mod9的值是(B)。A、4B、3C、6D、772、假设变量 bool_x是一个布尔型 (逻辑型)的变量，则下面正确的赋值语句是（ D）A、bool_x="False"B 、bool_x=.False.C、bool_x=#False#D 、bool_x=False73、设a=“VisualBasic”，下面使 b=“Basic”的语句是 (B)。A、b=Left(a,8,12)B 、b=Mid(a,8,5)C、b=Rigth(a,5,5)D 、b=Left(a,8,5)74、语句PrintFormat$(32548.5, “###,###.###”)的输出结果是（ B）。A、32548.5B、32,548.5C、032,548.50D、32,548.5075、以下声明语句中错误的是(D)。A、Constvar1=123B 、Dimvar2='ABC'C、Dimx_y_z%D、Staticvar3AsInteger76、可以同时删除字符串前导和尾部空白的函数是 (C)。A、LtrimB 、RtrimC、TrimD、Mid77、下列可为合法变量名的是(D)。A、IntegerB、FalseC、publicD、thanksgiving78、变量未赋值时，数值型变量的值为(A)。A、0B、空C、1D、无任何值79、表达式16/4-2^5*8/4Mod5\2 的值为(B)。A、14B、4C、20D、280、下面If 语句统计满足性别为男、职称为副教授以上、年龄小于 40岁条件的人数，不正语句是（D）。A、Ifsex="男"Andage＜40And(duty="教授"Orduty="副教授")Thenn=n+1B、Ifsex="男"Andage＜40AndInStr(duty,"教授")＞0Thenn=n+1C、Ifsex="男"Andage＜40AndRight(duty,2)="教授"Thenn=n+1D、Ifsex="男"Andage＜40Andduty="教授"Andduty="副教授"Thenn=n+181、设a=3,b=5，则以下表达式值为真的是 (B)。A、a>=bAndb>10B、(a>b)Or(b>0)C、(a<0)or(b<0)D、(-3+5>a)And(b>0)82、执行语句 a=InputBox("Today","Tomorrow","Yesterday",,,"Daybefore yesterday",5),将显示一个输入对话框，在对话框的输入区中显示的信息是 (A)。A、TodayB、TomorrowC、YesterdayD、DaybeforeYesterday83、VB提供了结构化程序设计的 3种基本结构，这 3种基本结构是（ B）。A、递归结构，分支结构，循环结构B、选择结构，过程结构，顺序结构C、过程结构，输入、输出结构，转向结构D、分支结构，循环结构，顺序结构84、下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（D）。A、Ifsex=“男”Andage＜40AndInStr(duty,“教授”)＞0Thenn=n+1B、Ifsex=“男”Andage＜40And(duty=“教授”Orduty=“副教授”)Thenn=n+1C、Ifsex=“男”Andage＜40AndRight(duty,2)=“教授”Thenn=n+1D、Ifsex=“男”Andage＜40Andduty=“教授”Andduty=“副教授”Thenn=n+185、当语句w=IIf(4>10,”Red”,“Green”)执行后，变量w中的值是（C）。A、NullB、“Red”C、“Green”D、-186、赋值语句：a=123+MID(“123456”,3,2)执行后， a变量中的值是（ D）。A、“12334”B、123C、12334D、15787、设有语句x=InputBox(“AAAA”，“BBBB”，“”),程序运行后，所产生的对话框的标题应为(C)。A、AAAAB、空C、BBBBD、出错，不能产生对话框88、下面正确的赋值语句是（ C）。A、x+y=30B、y=π*r*rC、y=x+30D、3y=x89、VB提供了结构化程序设计的三种基本结构，三种基本结构是 (D)。A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入输出结构、转向结构D、选择结构、循环结构、顺序结构90、下面程序段求两个数中的大数，不正确的是（ D）。A、Max=IIf(x ＞y,x,y)B、Ifx ＞yThenMax=xElseMax=yC、Max=x：Ify ＞=xThenMax=yD、Ify ＞xThenMax=y ：Max=x91、下列程序段： DimxIfxThenPrintxElsePrintx+1 运行后，显示的结果是（ A）。A、1B、0C、-1D、出错92、以下不属于 vb的三种基本结构的是（ C）？A、顺序结构B、选择结构C、递归结构D、循环结构93、语句Ifx=1Theny=1, 下列说法正确的是（ C）。A、x=1和y=1均为赋值语句B、x=1和y=1均为关系表达式C、x=1为关系表达式， y=1为赋值语句D、x=1为赋值语句， y=1为关系表达式94、赋值语句：a=123&MID(“123456”,3,2)执行后， a变量中的值是（ C）。A、“12334”B、123C、12334D、15795、下面程序段显示的结果是（ A）。Dimxx=Int(Rnd)+5SelectCasexCase5“优秀”Case4Print“良好”Case3Print“通过”CaseElsePrint“不通过”EndSelectA、优秀B、良好C、通过D、不通过96、为了给 x,y,z 这3个变量赋初值 1，下面正确的赋值语句是（ A）。A、x=1：y=1：z=1B、x=1,y=1,z=1C、x=y=z=1D、xyz=197、下列语句正确的是（ C）A、IfA≠BThenPrint"A 不等于B"B、IfA<>BThenPrintA 不等于BC、IfA<>BThenPrint"A 不等于B"D、IfA≠BPrint"A 不等于B"98、设有语句 x$=InputBox(“输入数值”，“0”，“示例”),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是 (D)。A、变量X的值是数值10B、在InputBox 对话框标题栏中显示的是“示例”C、0是默认值D、变量X的值是字符串“10”99、运行下列程序段后， 显示的结果为（B）J1=4: J2=9If J1<J2ThenPrint J2ElsePrintJ1A、4B、9C、13D、49100、InputBox 函数返回值的类型为 (B)。A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）101、一个数组说明为 Dima(0to5 ，1to5)AsInteger ，则该数组共有（ C）个元素。A、25B、36C、30D、不确定102、数组声明语句 Dima(2to3,-2to2,3to5) 中，数组 a包含元素的个数为 (C)。A、120B、75C、30D、13103、如果在上题语句前加入 OptionBase1 ，则该数组共有（ D）个元素。A、15B、16C、13D、不确定104、如果有声明 Dima(15)AsInteger ，则该数组共有（ B）个元素。A、15B、16C、13D、不确定105、一个数组说明为 Dima(5，1to5)AsInteger ，则该数组共有（ C）个元素。A、25B、36C、30D、不确定106、在VB中，默认的数组下标的下界从 0开始，要想在通用声明段界定下界， 则应使用（A）。A、OptionBaseB、OptionExplicitC、ExplicitD、LowBase107、如下数组声明语句，正确的是 (B)。A、Dima[3,4]asIntegerB、Dima(3,4)asIntegerC、Dima(n,n)asIntegerD、Dima[3][4)asInteger108、赋给一个数组的数据的值的类型一定要（ A）。A、相同B、不相同C、两可D、都不对109、数组的下标可取的变量类型是（ A）。A、数值型B、字符型C、日期型D、可变型110、数组声明语句 Dima(0to3,-2to2,0to5) 中，数组 a包含元素的个数为 (A)。A、120B、75C、60D、13111、假定有如下的 Sub过程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub 在窗体上添加一个命令按钮，然后编写如下事件过程： PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEndSub程序运行时，单击命令按钮得到的结果（ D）。A、54B、11C、1.254D、1.251112、用以下方式声明的变量， （B）可以在整个程序中通用？A、在窗体模块用 Dim进行声明B、在窗体模块用Public进行声明C、在窗体模块用Private进行声明D、在窗体模块用Static进行声明113、在窗体上添加一个命令按钮和三个标签，SubCommand1_Click() Static yAsInteger

编写事件过程：DimzAsInteger

PrivateN=10:

xAsIntegerPrivatez=N+z:y=y+z:x=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub

程序运行后，连续三次单击命令按钮，则三个标签中显示的内容分别是（

A）。A、101010B、303030C、303010D、103030114、以下叙述中错误的是

(D)。A、如果过程被定义为

Static

类型，则该过程中的局部变量都是

Static

类型B、Sub过程中不能嵌套定义

Sub过程C、Sub过程中可以嵌套调用

Sub过程D、事件过程可以像通用过程一样由用户定义过程名115、在在窗体上添加一个命令按钮 Command1和一个文本框 Text1，然后编写如 下事件过程：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=5y=7z=0Text1.Text=""Callp1(x,y,z)Text1.Text=Str(z)EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub程序运行后，单击命令按钮得到的结果是（ A）。A、12B、0C、Str(z)D、没有显示结果116、如果在程序中要将 a定义为静态变量，且为整型数，则应使用的语句是： （B）A、RedimaAsIntegerB、StaticaAsIntegerC、PublicaAsIntegerD、DimaAsInteger117、以下程序的运行结果是（ C）Subs1(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegerFori=1To4a(i)=i+5Nextis1a()Fori=1To4Printa(i)NextiEndSubA、12141618B、6789C、2468D、1234118、以下程序的运行结果是（ D）。Functionf(mAsInteger)AsIntegerb=1StaticcAsInteger b=b+1c=c+1f=m*b*cEndFunction Private SubCommand1_Click()DimaAsIntegera=2Sum=0Fori=1To3Sum=Sum+f(a)NextiPrintSumEndSubA、12B、28C、32D、24119、下列程序输出结果（ C）。PrivateSubCommand1_Click()Fori=1To10GetValueiNextiPrintGetValue(i)EndSubPrivateFunctionGetValue(ByValaAsInteger)StaticSAsIntegerS=S+aGetValue=SEndFunctionA、10B、65C、66D、11120、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(D)关键字在过程中定义局部变量。A、DimB、PrivateC、PublicD、Static121、在过程定义中用 (C)表示形参的传值。A、VarB、ByDefC、ByValD、Value122、在在窗体上添加一个命令按钮 Command1和两个名称分别为 Label1和Label2的标签，然后编写如下事件过程：PrivateXAsIntegerPrivateSubCommand1_Click()X=5:y=3Callproc(X,y)Label1.Caption=XLabel2.Caption=yEndSubSubproc(ByValaAsInteger,ByValbAsInteger)X=a*ay=b+bEndSub 程序运行后，单击命令按钮，则两个标签 label1和label2中显示的内容分别是（ B）。A、25,3B、25,6C、5,3D、5,6123、以下程序的运行结果是（C）。DimxAsInteger,yAsInteger,zAsIntegerSubs1(aAsInteger,bAsInteger)DimcAsIntegera=2*ab=b+2c=a+bEndSubSubs2(aAsInteger,ByValbAsInteger)DimcAsIntegera=2*ab=b+2c=a+bEndSubPrivateSubCommand1_Click()x=4：y= ：4z=6Calls1(x,y)Printx+y+zCalls2(x,y)Printx+y+zEndSubA、2428B、2028C、2018D、2020124、以下关于过程及过程参数的描述中，错误的是 (C)。A、过程的参数可以是控件名称B、用数组作为过程的参数时，使用的是“传地址”方式C、只有函数过程能够将过程中处理的信息传回到调用的程序中D、窗体可以作为过程的参数125、以下属于 VisualBasic 合法的数组元素是（ C）A、x8B、x［8］C、s(0)D、v[8]126、下列叙述中正确的是 (C)。A、在窗体的 Form_Load事件过程中定义的变量是全局变量B、局部变量的作用域可以超出所定义的过程C、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程D、在调用过程时，所有局部变量被系统初始化为 0或空字符串127、假定有以下函数过程： Function Fun(SAsString) AsString Dims1AsString Fori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction 在窗体上添加一个命令按钮，然后编写如下事件过程： Private SubCommand1_Click()Dimstr1AsString, str2 AsString str1 =InputBox(" 请输入一个字符串 ") str2 =Fun(str1) Printstr2EndSub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“ abcdefg”，单击"确定"按钮后程序在窗体上输出结果（ D）。A、abcdefgB、gfedcbaC、GFEDCBAD、ABCDEFG128、若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便的调用Sort子过程，应该将该过程放在(B)。A、窗体模块B、标准模块C、类模块D、工程129、下面子过程语句说明合法的是（ D）A、Subf1（ByValn()AsInteger ）B、Functionf1 （f1AsInteger ）AsIntegerC、Subf1（n()AsInteger ）AsIntegerD、Functionf1 （ByValnAsInteger ）AsInteger130、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用(D)关键字在过程中定义局部变量。A、DimB、PrivateC、PublicD、Static131、在窗体上画三个单选按钮，组成一个名为chkOption的控件数组。用于标识各个控件数组元素的参数是(D)。A、TagB、IndexC、ListIndexD、Name132、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用(D)语句。A、List1.AddItem3,"China"B、List1.AddItem"China",List1.List1Count-1C、List1.AddItem"China",3D、List1.AddItem"China"133、如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是(D)。A、移去第一项B、移去最后一项C、移去最后加入列表的一项D、以上都不对134、以下叙述中错误的是 (C)。A、在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视作相同的字母(即具有相同的KeyCode)B、在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode)C、KeyPress事件中不能识别键盘上某个键的按下与释放D、KeyPress事件中可以识别键盘上某个键的按下与释放135、设组合框 Combo1中有3个项目，则以下能删除最后一项的语句是 (B)。A、Combo1.RemoveItemTextB、Combo1.RemoveItem2C、Combo1.RemoveItem3D、Combo1.RemoveItemCombo1.Listcount136、下列控件中，没有 Caption属性的是(B)。A、框架B、列表框C、复选框D、单选按钮137、引用列表框（ List1）最后一个数据项应使用的表达式是（ C）A、List1.List(List1.ListCount)B、List1.List(ListCount)C、List1.List(List1.ListCount-1)D、List1.List(ListCount-1)138、窗体的 MouseDown事件过程 Form_MouseDown(ButtonAsInteger, Shift AsInteger,XAsSingle,YAsSingle) 有4个参数，关于这些参数，正确的描述是 (A)。A、通过Button参数判定当前按下的是哪一个鼠标键B、Shift 参数只能用来确定是否按下 Shift 键C、Shift 参数只能用来确定是否按下 Alt 和Ctrl 键D、参数x,y用来设置鼠标当前位置的坐标139、复选框的 Value属性为1时，表示(B)。A、复选框未被选中B、复选框被选中C、复选框内有灰色的勾D、复选框操作有错误。140、引用列表框的最后一项应使用 (A)。A、List1.List(List1.ListCount-1)B、List1.List(List1.ListCount)C、List1.List(ListCount)D、List1.List(ListCount-1)141、设窗体上有一个列表框控件 List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 (D)。A、List1.ListB、List1.ListIndexC、List1.IndexD、List1.Text142、表示滚动条控件取值X围最大值的属性是 (A)。A、MaxB、LargeChangeC、ValueD、Max-Min143、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(D)。A、ValueB、DefaultC、CancelD、Enabled144、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句(D)。A、List1.AddItem3,"China"B、List1.AddItem"China",List1.List1Count-1C、List1.AddItem"China",3D、List1.AddItem"China",List1.List1Count145、复选框的 Value属性为2时，表示(C)。A、复选框未被选中B、复选框被选中C、复选框内有灰色的勾D、复选框操作有错误。146、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(A)。A、ValueB、DefaultC、CancelD、Caption147、下面说法不正确的是（ D）?A、层菜单不允许设置快捷键B、使菜单项中的文字具有下画线，可在标题文字前加 &符号C、一菜单项名为 MenuTerm，则语句 MenuTerm.Enable=Flase 将使该菜单项失效D、希望在菜单中显示 "&"符号，则在标题栏中输入 "&"符号148、以下叙述中错误的是 (C)。A、在程序运行时，通用对话框控件是不可见的B、在同一个程序中，用不同的方法(如ShowOpen或ShowSave等）打开的通用对话框具有不同的作用C、调用通用对话框控件的 ShowOpen方法，可以直接打开在该通用对话框中指定的文件D、调用通用对话框控件的 ShowColor方法，可以打开颜色对话框149、菜单编辑器中，输入哪一个选项（ A）会在菜单栏上显示文本A、标题B、名称C、索引D、访问键150、菜单控件只有一个事件（ B）A、MouseUpB、ClickC、DBClickD、KeyPress151、在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是(A)。A、“text(.txt)|(*.txt) ”B、“文本文件(.txt)|(.txt) ”C、“text(.txt)||(*.txt) ”D、“text(.txt)(*.txt) ”152、下面哪个属性可以控制菜单项可见或不可见（ C）A、HideB、CheckedC、VisibleD、Enabled153、下面说法不正确的是（ D）A、层菜单不允许设置快捷键B、使菜单项中的文字具有下画线，可在标题文字前加 &符号。C、一菜单项名为 MenuTerm，则语句 MenuTerm.Enabled=Flase 将使该菜单项失效。D、希望在菜单中显示“&”符号，则在标题栏中输入“ &”符号。154、下面哪个属性可以控制菜单项可见或不可见（ C）?A、HideB、CheckedC、VisibleD、Enabled155、改变驱动器列表框的 Drive属性将激活（ A）事件。A、ChangeB、ScrollC、KeyDownD、KeyUp156、在窗体上建立通用对话框需要添加的控件是（ C）A、Data控件B、Form控件C、CommonDialog控件D、VBComboBox控件157、下面几个关键字均表示文件的打开方式，只能进行读不能写的是（ A）。A、InputB、OutputC、RandomD、Append158、为建一个随机文件， 其中每一条记录由多个不同数据类型的数据项组成，应使用（ A）。A、记录类型B、数组C、字符串类型D、变体类型159、下列说法错误的是（ B）。A、当用Write# 语句写顺序文件时，文件必须以 Output或Append方式打开B、用Open语句打开一个文件时，对同一个文件可以用几个不同的文件号打开C、用Output和Append方式打开文件时，不用将文件关闭，就能重新打开文件D、用Append方式打开文件时，进行写操作，写入文件的数据附加到原来文件的后面160、执行语句 Open"Sample.dat"ForRandomAs#1Len=50 后，对文件"Sample.dat"中的数据能够进行的操作是 (C)。A、只能写不能读B、只能读不能写C、即可以读，也可以写D、不能读，也不能写二、填空题1，下面程序对已知数组 a，删除数组中数组元素中某个元素PrivateSubCommand1_Click()Dima(),key%,i%,j%a=Array(1,6,8,3,5,9,10,2,7,4)key=Val(InputBox(" 输入要删除的值 "))Fori=0ToUBound(a)If key=a(i) ThenForj=i+1ToUBound(a)a(j-1)=a(j)NextjReDimPreservea(UBound(a)-1)MsgBox("删除完成")ExitSubEndIfNextiMsgBox("找不到要删除的元素 ")EndSub2，下列程序表示将输入的一个数插入到按递减的有序数列中，插入后使该序列仍有序PrivateSubForm_Click()Dima,i%,n%,m%a=Array(19,17,15,13,11,9,7,5,3,1)n=UBound(a)ReDimPreservea(n+1)m=Val(InputBox(" 输入欲插入的数 "))Fori=UBound(a)-1To0Step-1Ifm>=a(i)Thena(i+1)=a(i)Ifi=0Thena(i)=mElsea(i+1)=mExitForEndIfNextiFori=0ToUBound(a)Printa(i)NextiEndSub3，下列程序在 1000~9999之间查找满足如下条件的整数：该整数，逆向排列得到的另一个四位数是它自身的倍数（ 2倍以上）。查找结果和逆向排列数分别显示在对应的列表框PrivateSubCommand1_Click()DimnAsIntegerDimmAsIntegerDimiAsIntegerFori=1000To9999m=0n=iDoWhilen>0m=m*10+nMod10n=n\10LoopIf mModi=0Andm\i>1Thenlist1.AddItemilist2.AddItem m&"="&i&"*"&m\iEndIfNextiEndSub4，将100~150之间的偶数，拆分成两个素数之和，最后输出格式如图。其中，断参数x是否为质数PrivateFunctionprime(ByValxAsInteger)AsBooleanprime= tureFori=2ToSqr(x)If xModi=0 Thenprime=FalseExitFunctionEndIfNextiEndFunctionPrivateSubForm_Load()i=1Forn= 100To150Fork=3Ton/2Ifprime(k) Andprime(n-k) ThenPrinti;":";"=";k;"+";n-kExitForEndIfNextki=i+1NextnEndSub

prime函数判10,子过程F（N，M，T）对一个四位数位数m是特自身的倍数，则 t为true

n整整数判断：已知该整数

n，逆向排列获得另一个

4表示满足上述条件。。。PrivateSubCommand1_Click()DimtAsBoolean,i%,k%text1=""text2=""Fori=1000To9999Callf (i,k,t)IftThentext1=text1&i&vbCrLftext2=text2&k&"="&i&"*"&k\i&vbCrLfEndIfNextiEndSubSubf(ByValn%,ByRefm%,byreyftagAsBoolean)Dimi%Tag=Falsem=0i=nDoWhilei>0m=m*10+iMod10i=i\10LoopIfmModn=0Andm\n>1ThenTag=TrueEndIfEndSub6.8.子过程MoveStr（）是把字符组移动 m个位置，Tag为Ture是左移，则前m个字符一道字符数组尾，例如，“abcdefghij”左移3个位置后，结果为“defghijabc”；。。。。。PublicSubMoveStr(a$(),m%,TagAsBoolean)Dimi%,j%,t$IfTagThenFori=1Tomc=a(0)Forj=0To UBound(a)-1a(j)=a(j+1)Nextja(UBound(a))-1NextiElseFori=1Tomc=a(UBound(a))Forj=UBound(a)To1Step-1a(j)=a(j-1)Nextja(0)=cNextiEndIfEndSub6.9.子过程CountN用来统计字符串中各数字字符（0-9）出现的个数；主调程序对在 textbox1框输入的文本，每次单击“统计”按钮，调用该子过程，在 Label1框显示结果。PrivateSubCommand1_Click()Dimn(9)AsInteger,i%CallCountN(n(),text1.Text)list1.ClearFori=0To9Ifn(i)Then

list1.AddItem

"字符

"&i&"

出现的次数为

"&n(i)NextEndSubSubCountN(ByRefnum%(),ByValsAsString)DimcAsString*1,i%,m%,j%Fori=0To9num(i)=0Nextim=Len(s)Fori=1Tomc= Mid(s,i,1)Ifc>="0"Andc<="9"Thenj=Val(c)num(j)=num(j)+1EndIfNextiEndSub6.11.下列程序中的子过程 myplit。。用于实现 split 函数的功能，即将数字字符s鞍分隔符“，”分离到 sArry数组中，分离的个数为 n。。。。PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrlAsString,num(100)AsInteger,n%,i%IfKeyAscii=13Thenstr1=Trim(Text1.Text)CallMySplit(str1,num,n)list1.Text=""Fori=1Tonlist1.AddItemnum(i)NextEndIfEndSubSubMySplit(ByValstr1AsString,ByRefsn()AsInteger,ByRefnAsInteger)Dimi%,j%,ch$i=0j=InStr(Str,",")DoWhilej>0sn(i)=Val(Mid(str1,1,j-1))str1=Mid(str1,j+1)i=i+1j=InStr(str1,",")Loopsn(i)=Val(str1)n=iEndSub1工程中有两个窗体 form1和form2，一个标准模块 module1，设在form1中定义了过程 aa，module1中定义了过程bb。Subaa(x,y,z)z=x*x+y*yEndSubSubbb(x,y,z)z=x^3+y^3EndSub当在form1中单击命令按钮时，调用以上过程计算两个数的平方和和立方和，并分别将计算结果显示在文本框text3和text4中，请填空完成调用语句。PrivateSubCommand1_Click()=Val(Text1.Text)=Val(Text2.Text)Call[aa(a,b,c1)]Text3.Text=c1bb[a,b,c2]Text4.Text=c2EndSub――――――――――――――――――2下面的程序用于根据文本框X中输入的内容进行以下处理：若X为2、4、6，则打印"X的值为2、4、6"；若X在11到15之间，则打印"X的值为大于等于11小于等于15"；若X大于20，则打印"X的值大于20"；否则，打印"X不在X围内"。PrivateSubCommand1_Click()SelectCaseVal(X.Text)Case[2,4,6]Print"X的值为2,4,6"Case[11to15]Print"X的值为大于等于11小于等于15"CaseIs>20Print"X的值大于20"CaseElsePrint"X不在X围内"EndSelectEndSub――――――――――――――3下面的程序是使用冒泡法对数组进行排序，请将程序补充完整。OptionBase1PrivateSubCommand1_Click()DimiA(0To10)n=6iA(0)=8:iA(1)=6:iA(2)=9:iA(3)=3:iA(4)=2:iA(5)=7Fori=1Ton-1' 进行n-1遍比较对第i遍比较时，大数沉底For [j=1ton-iIf[ iA(j)>iA(j+1)]

]'

在数组Then

i~n

个元素中选最小元素的下标t=iA(j)iA(j)=iA(j+1)iA(j+1)=tEndIfNextjEndSub――――――――――――程序的功能是使用辗转相除法求两个数的最大公约数。PrivateSubCommand1_Click()Dimm%,n%m=Int(InputBox("inputaninteger"))n=Int(InputBox("inputanotherinteger"))Printgcd(m,n)EndSubPublicFunctiongcd%(m%,n%)Dimt%If[ m<n]Thent=m:m=n:n=tDor=mModnIfr=0ThenExitDom=n[ n=r ]Loopgcd=nEndFunction―――――――――5、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ ABCDEF”变换成“FEDCBA”。请将程序补充完整。PrivateSubCommand1_Click()Dima$,i%,c$,n%'n 存放字符串的长度a=InputBox("inputastring")n=[Len(a) ]Fori=1ToInt(n/2)c=Mid(a,i,1)Mid(a,i,1)= [Mid(a,n-i+1,1) ]Mid(a,n-i+1,1)=cNextiEndSub――――――――――6、下面的程序允许用户按 Enter(回车)键后，将组合框中没有的项目添加到组合框。请将程序补充完整。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)DimflagAsBooleanIfKeyAscii=13Thenflag=FalseFori=0ToCombo1.ListCount-1' 查找项目是否已存在If[ combo1.text=combo1.list(i) ]Thenflag=TrueExitForEndIfNextiIfflag=FalseThen' 不存在则添加[ combo1.AddItemcombo1.Text ]EndIfEndIfEndSub―――――――――7、下面的程序是使用选择法对数组进行升序排列，请将程序补充完整。OptionBase1PrivateSubCommand1_Click()DimiA(1To10)n=6iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7Fori=1Ton-1' 进行n-1遍比较iMin=i' 对第i遍比较时，初始假定第 i个元素最小For [j=i+1ton ]' 在数组i~n 个元素中选最小元素的下标If [a(j)<a(imin) ]TheniMin=jNextjt=iA(i)'i~n 个元素中选出的最小元素与第 i个元素交换iA(i)=iA(iMin)iA(iMin)=tNextiEndSub―――――――――――8、找出被3、5、7除，余数均为1的最小的5个正整数。PrivateSubCommand1_Click()Dimcountn%,n%n=1:countn=0Don=n+1If[ nmod3=1Andnmod5=1Andnmod7=1Printncountn=countn+1EndIfLoop[ untilcountn=5]

]ThenEndSub――――――――――――――9、下面程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。本程序在文本框输入表达式，边输入，边统计，以输入回车键作为表达式输入结束，然后显示结果。Dimcount1%PrivateSubText1_KeyPress(KeyAsciiAsInteger)If[ chr(keyAscii) ]="("Thencount1=count1+1ElseIfChr(KeyAscii)=")"Then[ count1=count1+1 ]EndIfIfKeyAscii=13ThenIfcount1=0ThenPrint" 左右括号配对"ElseIfcount1>0ThenPrint" 左括号多于右括号 ";count1;" 个"ElsePrint" 右括号多于左括号 ";-count1;" 个"EndIfEndIfEndSub――――――――――――10、顺序文件的建立。建立文件名为“ c: stud1.txt ”的顺序文件，内容来自文本框，每按Enter键写入一条记录，然后清除文本框的内容，直到文本框内输入“ END”字符串。PrivateSubForm_Load()Open“c: stud1.txt ”ForOutputAs#1Text1.Text=“”EndSubPrivateSubText1_KeyPress(keyAsciiAsInteger)IfkeyAscii=13ThenIf[ Ucase(Text1)="END" ]ThenClose#1EndElse[Print#1,Text1 ]Text1.Text=“”EndIfEndIfEndSub―――――――――――――11、输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，并显示结果。其中，CountY中放元音字母个数，CountC中放其他字符数。PrivateSubCommand1_Click()DimCountY%,CountC%,i%DimC$,B$c=Text1.TextFori=1ToLen(C)B=UCase(Mid(C,i,1))If["A"<=BAndB<="Z"]ThenSelectCaseBCase"A","E","I","O","U"CountY=CountY+1Case[Else]CountC=CountC+1EndSelectEndIfNextiPrint"元音字母有";CountY;"个"Print"其它字母有";CountC;"个"EndSub――――――――12、将C盘根目录下的一个文本文件old.dat复制到新文件new.dat中，并利用文件操作语句，将old.dat文件从磁盘上删除。PrivateSubCommand1_Click()Dimstr1$Open“c: old.dat”ForInputAs#1Open“c: new.dat”[ ForoutputAs#2 ]DoWhile[ NotEoF(1) ]LineInput#1,str1Print#2,str1LoopClose#1,#2KILL“c: old.dat”EndSub―――――――――<PIXTEL_MMI_EBOOK_2005>613、产生

[10，37]

之间的随机整数的

VisualBasic

表达式是

[<int(Rnd*28+10)>]

。判断

s字符变量是大写字母字符的逻辑表达式为

[<s>="A"Ands<="Z">]

。表示

x是5的倍数或

9的倍数的逻辑表达式是

[<xMod5=0OrxMod9=0>]Len("vb

程序设计

")

的值是

[<6>]

。表示字符变量

s 是字母字符（不区分大小写）的

VB

表达式是

[<Lcase(s)>="a"AndLcase(s)<="z"

或者

Ucase(s)>="A"AndUcase(s)<="Z">]

。将一个两位数10)+x\10>] 。

x的个位数与十位数交换位置，

组成另一个两位数，则对应的表达式是

[<(x Mod随机产生一个“C”～“L”X围内的大写字符，则对应的VB表达式是[<Chr(Int(Rnd*10+68))>]。Round(-3.5) 的值是[<-4>]。Int(3.5) 的值是[<3>]。下面程序段运行后的输出结果是 [<220321422523>] 。Fori=0To3PrintTab(5*i+1);"2"+i;"2"&i;Nexti循环语句

Fori=-3to20Step0

的循环次数是

[<无数次

>]。在过程中定义的局部变量，

如果希望过程结束后还保存变量的值，

则应使用

[<Static>]

关键字进行声明。由

Array

函数建立的数组，其变量必须是

[<Variant>]

。要使循环语句循环执行

20次，Fork=____to-5Step-2

，则

k=[<33>]。循环语句

Fori=-3.5to5.5Step0.5

的循环次数是

[<19>]。下列程序段中，第 41句共执行了[<12>]次。30Forj=1To12Step340Fork=6To2Step-241Printj,k42Nextk43Nextj循环语句 Fori=-3to20Step4 的循环次数是 [<6>]。下面程序运行后的输出结果是 [<**$$$****$$$$$>] 。a="*":b="$"Fori=1To4IfiMod2=0Thenx$=String(Len(a)+i,b)Elsex$=String(Len(a)+i,a)EndIfPrintx$;Nexti下面程序的运行结果是 [<22484>]x=242:y=44z=x*yDoUntilnx=yIfx>yThenx=x-yElsey=y-xLoopPrintx,z/x

。下列程序段中，第 40句共执行了

[<4>]

次。30Forj=1To12Step340Fork=6To2Step-241Printj,k42Nextk43Nextj如果在建立菜单时在标题文本框中输入一个

[<

下划线或者“

_”>],

那么菜单显示时形成一个分隔线如果菜单标题的某个字母前输入一个 [<&>]符号，那么该字母就成了热键字母。[<Clear>] 方法可以清除列表框中的所有内容。列表框中的[<List>] 和Selected 两个属性均为数组。[<Style>] 属性设置为1，单选按钮和复选框以图形方式显示。当用户单击滚动条的空白处时，滑块移动的增量由 [<Largechange>] 属性决定。当用户单击鼠标右键时，MouseDown、MouseUp和MouseMove事件过程中的Button参数值为[<2>]。列表框中项目的序号是从 [<0>]开始的。VisualBasic

中有一种控件组合了文本框和列表框的特性，这种控件是

[<组合框

>]。如果窗体的[<KeyPreview>] 属性设置为体的KeyPress过程中修改过的值。

True，则控件的

KeyPress

事件过程可以接收到在窗复选框的

[<Value>]

属性设置为

2-Grayed

时，变成灰色，禁止用户选择。复选框的

[<value>]

属性设置为

2-Grayed

时，复选框变成灰色，禁止用户选择。滚动条产生

Change事件是因为它的

[<Value>]

属性值改变了。如果要每隔

15秒产生一个

Timer

事件，则

Interval

属性应设置为

[<15000>]

。当用户单击滚动条两端的箭头时，滑块移动的增量由 [<Smallchange>] 属性决定。[<List1.Listcount-1>]

表示列表框（

List1

）中最后一项的序号。VisualBasic

提供的对数据文件的三种访问方式为顺序访问方式、

[<二进制访问方式

>]

和随机访问方式。编程题产生1－100以内的素数PrivateSubCommand1_Click()Dimi%,j%,tagAsBooleanForj=1To100tag=TrueFori=2Toj-1IfjModi=0Thentag=FalseNextiIftagThenPrintj;NextjEndSub2、从键盘输入任意长度的字符串， 要求将字符顺序倒置， 例如，将输入的“ABCDEFG”变换成“GFEDCBA”。PrivateSubForm_Click()Dimi,a,b,nAsStringn=InputBox(" 输入字符")i=Len(n)Fora=1Toi/2b=Mid(n,a,1)Mid(n,a,1)=Mid(n,i+1-a,1)Mid(n,i+1-a,1)=bNextaPrintnEndSub3.0到200被5或11整除的数的和PrivateSubCommand1_Click()Dimi%Fori=0To200IfiMod11=0OriMod5=0ThenSum=Sum+iEndIfNextiPrint" 总和是";SumEndSub4输入一年份，判断他是否为闰年，并现实是否是闰年的有关信息。PrivateSubCommand1_Click()Dimy%y=Val(Text1)IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox(y&" 年是闰年")ElseMsgBox(y&" 年是平年")EndIfEndSub5、已知x,y,z3 个变量中存放了 3个不同的数，比较它们的大小并进行调整，使得 x<y<z。PrivateSubCommand1_Click()Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")PrintTab(8);"";"x";"y";"z"Print" 排序前:";x;"";y;"";zIfx<yThent=x:x=y:y=t:Ifx<zThent=x:x=z:z=t:Ify<yThent=y:y=z:z=t:Print" 排序后:";"";x;"";y;"";zEndSub6、求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的X围是[1,9] 的整数，n的X围是[5,10] 。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定 n和a的值，并计算 s。PrivateSubForm_click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0PrintTab(9);"a=";a,"n=";nPrintFori=1Tont=t*10+as=s+tPrintTab(9);tNextiPrintPrintTab(9);"s=";sEndSub7、计算100~300之间所有能被3和7整除的数之和。PrivateSubCommand1_Click()Dims%,i%s=0Fori=100To300IfiMod3=0OriMod7=0Thens=s+iEndIfNextiPrint"s="&sEndSub8、编程求200--400X围内5的倍数或

7的倍数之和。

(一个数如果同时是

7和5的倍数，则只能加一次。

)PrivateSubCommand1_Click()Dims1%,s2%,s3%,i%s1=0s2=0Fori=200To400IfiMod5=0OriMod7=0Thens1=s1+iEndIfNextiFori=200To400IfiMod5=0AndiMod7=0Thens2=s2+iEndIfNextis3=s1-s2Prints3EndSub9找出被3、5、7除，余数均为 1的最小的5个正整数。PrivateSubCommand1_Click()DimcountN%,n%countN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintncountN=countN+1EndIfLoopUntilcountN=5EndSub10、某次歌曲大奖赛，有 7个评委。如果分别输入 7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。PrivateSubForm_Click()Dima(6)AsInteger,i%,t%,s!,max%,min%,imin%,imax%RandomizeFori=0To6a(i)=InputBox(" 输入评委所打的分数NextiFori=0To6Printa(i);NextiPrintimax=0:max=a(0)Fori=1To6Ifa(i)>=maxThenmax=a(i):imax=iNextit=a(0):a(0)=a(imax):a(imax)=timin=6:min=a(6)Fori=0To5Ifa(i)<=minThenmin=a(i):imin=iNextit=a(6):a(6)=a(imin):a(imin)=t

")

或者'也可以用随机数产生

'a(i)=Int(Rnd*31+70)Print" 除去最高分和最低分之后的分数Fori=1To5Printa(i);

"NextiFori=1To5s=s+a(i)NextiPrintPrint"

该参赛者的平均得分为

";s/5EndSub11、编程显示100~500之间所有的水仙花数之和。

(水仙花数是

3位数，其各位数之和等于该数本身

)PrivateSubForm_Click()Print"100~500 之间所有的水仙花数为：Dimx%,a%,b%,c%Forx=100To500a=xMod10b=(xMod100)\10c=x\100Ifx=a^3+b^3+c^3ThenPrintxNextxEndSub

"12、随机