专题讲座资料（2021-2022年）大学VB考试题库.doc

《专题讲座资料（2021-2022年）大学VB考试题库.doc》由会员分享，可在线阅读，更多相关《专题讲座资料（2021-2022年）大学VB考试题库.doc（76页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、大学 VB 考试题库一、单项选择题1、与传统的程序设计语言相比,Visual Basic 最突出的特点是（）。A、结构化程序设计 B、程序开发环境C、事件驱动编程机制 D、程序调试技术2、赋值语句：a=123&MID(123456,3,2)执行后，a 变量中的值是（）。A、12334 B、123 C、12334 D、1573、保存一个工程至少应保存两个文件，这两个文件分别是（B）。A、文本文件和工程文件 B、窗体文件和工程文件C、窗体文件和标准模块文件 D、类模块文件和工程文件4、以下能在窗体 Form1的标题栏中显示VisualBasic 窗体的语句是（C）。A、Form1.Name=Vis

2、ualBasic 窗体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=30 B、y=*r*r C、y=x+30 D、3y=x8、Visual

3、Basic 6.0集成环境的主窗口中不包括（C）。A、标题栏 B、菜单栏 C、状态栏 D、工具栏9、以下叙述中错误的是(C)。A、Visual Basic 是事件驱动型可视化编程工具B、Visual Basic 应用程序不具有明显的开始和结束语句C、Visual Basic 工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器)D、Visual Basic 中控件的某些属性只能在运行时设置10、要使 Print 方法在 Form_Load 事件中起作用，要对窗体的(C)属性进行设置。A、Backcolor B、ForeColorC、AutoRedraw D、BackSt

4、yle11、若要使命令按钮不可操作，要对(A)属性进行设制。A、Enabled B、VisibleC、BackColor D、Caption12、以下叙述中错误的是(B)。A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用 Private 定义的通用过程能被其他窗体调用C、在设计 VB 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。D、一个工程默认的启动对象是 Form113、Cls 方法可以清除窗体或图片框中的(C)内容。A、在设计阶段使用 Picture 设置的背景位图B、在设计阶段放置的控件C、在运行阶段产生的图形和文字D、以上均可14、设 x=3,y=5,则以

5、下表达式值为真的是(C)A、(-3+5x)And(y0)B、(x0)C、(xy)Or(y0)D、x=y And y1015、为了防止用户随意将光标置于控件之上，应将进行(D)设置。A、将控件的 TabIndex 属性设置为0B、将控件的 TabStop 属性设置为 TrueC、将控件的 TabStop 属性设置为 FalseD、将控件的 Enabled 属性设置为 False16、要判断在文本框是否按了 Enter 键，应在文本框的(D)事件中判断。A、Change B、KeyDown C、Click D、KeyPress17、以下关于焦点的叙述中，错误的是(A)。A、如果文本框的 TabSt

6、op 属性为 False，则不能接收从键盘上输入的数据B、当文本框失去焦点时，触发 LostFocus 事件C、当文本框的 Enabled 属性为 False 时，其 Tab 顺序不起作用D、可以用 TabIndex 属性改变 Tab 顺序18、如果文本框的 Enabled 属性设为 False，则(A)。A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。19

7、、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C)。A、MouseDown B、MouseUpC、Load D、Click20、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是(B)。A、Autosize B、StretchC、AutoRedraw D、Appearance21、为了防止用户随意将光标置于控件之上，应设置的属性是(D)。A、将控件的 TabIndex 属性设置为0B、将控件的 TabStop 属性设置为 TrueC、将控件的 TabStop 属性设置为 FalseD、将控件的 Enabled 属性设置为 False22、不论何控件，共同具有

8、的是(B)属性。A、Text B、NameC、ForeColor D、Caption23、以下关于窗体的描述中，错误的是(A)。A、执行 Unload Form1语句后，窗体 Form1消失，但仍在内存中B、窗体的 Load 事件在加载窗体时发生C、当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D、窗体的 Height、Width 属性用于设置窗体的高和宽24、当运行程序时，系统自动执行窗体的(A)事件过程。A、Load B、ClickC、Unload D、GotFocus25、窗体设计器是用来设计(B)。A、应用程序的代码段 B、应用程序的界面C、对象的

9、属性 D、对象的事件26、VisualBasic 是一种面向对象的可视化程序设计语言，采取了(A)的编程机制。A、事件驱动 B、按过程顺序执行C、从主程序开始执行 D、按模块顺序执行27、确定一个控件在窗体上的位置的属性是(D)。A、Width 或 Height B、Width 和 HeightC、Top 或 Left D、Top 和 Left28、如果要改变窗体的标题，则需要设置的属性是(A)。A、Caption B、NameC、BackColor D、BorderStyle29、以下叙述中错误的是(C)。A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B、保存 Vis

10、ual Basic 程序时，应分别保存窗体文件及工程文件C、Visual Basic 应用程序只能以解释方式执行D、事件可以由用户引发，也可以由系统引发30、以下叙述中错误的是(B)。A、双击鼠标可以触发 DblClick 事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发 MouseMove 事件D、控件的名称可以由编程人员设定31、在 VisualBasic 中最基本的对象是(C)。它是应用程序的基石，是其他控件的容器。A、文本框 B、命令按钮C、窗体 D、标签32、以下叙述中正确的是(A)。A、窗体的 Name 属性指定窗体的名称，用来标识一个窗体B、窗体的 Name

11、 属性的值是显示在窗体标题栏中的文本C、可以在运行期间改变对象的 Name 属性的值D、对象的 Name 属性值可以为空33、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(C)。A、工程资源管理器窗口 B、工具箱窗口C、代码窗口 D、属性窗口34、VisualBasic 是一种面向对象的可视化程序设计语言，采取了的编程机制是(A)。A、事件驱动 B、按过程顺序执行C、从主程序开始执行 D、按模块顺序执行35、用来设置粗体字的属性是(C)。A、FontItalic B、FontNameC、FontBold D、FontSize36、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

12、(A)。A、如果工程中含有 Sub Main 过程，则程序一定首先执行该过程B、不能把标准模块设置为启动模块C、用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D、任何时刻最多只有一个窗体是活动窗体37、为了把焦点移到文本框，所使用的方法是(A)。A、SetFocus B、VisibleC、Refresh D、GetFocus38、INT（100*RND）产生的随机整数的闭区间是（A）。A、0，99 B、1，100C、0，100 D、1，9939、如果要在命令按钮上显示图形文件，应设置命令按钮的(B)。A、Style 属性和 Graphics 属性 B、Style 属性和 Pictu

13、re 属性C、Caption 属性 D、Graphics 属性40、若要使命令按钮不可操作，要对(A)属性进行设制。A、Enabled B、VisibleC、BackColor D、Caption41、假定窗体的名称为 Form1,则把窗体的标题设置为“VB_Test”的语句为(B)。A、Form1=“VB_Test”B、Form1.Caption=“VB_Test”C、Form1.Text=“VB_Test”D、Form1.name=“VB_Test”42、以下叙述中错误的是(A)。A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、以.BAS 为扩展名的文件是标准模块文

14、件C、窗体文件包含该窗体及其控件的属性D、一个工程中可以含有多个标准模块文件43、要使文本框获得输入焦点，则应采用文本框控件的哪个方法(A)。A、GotFocus B、LostFocusC、KeyPress D、SetFocus44、以下不能在“工程资源管理器”窗口中列出的文件类型是(B)。A、.bas B、.res C、.frm D、.ocx45、刚建立一个新的标准 EXE 工程后，不在工具箱中出现的控件是(C)。A、单选按钮 B、图片框 C、通用对话框 D、文本框46、以下叙述中错误的是(B)。A、双击鼠标可以触发 DblClick 事件B、窗体或控件的事件的名称可以由编程人员确定C、移动

15、鼠标时，会触发 MouseMove 事件D、控件的名称可以由编程人员设定47、以下能够触发文本框 Change 事件的操作是(D)。A、文本框失去焦点 B、文本框获得焦点C、设置文本框的焦点 D、改变文本框的内容48、以下叙述中错误的是(C)。A、一个工程中只能有一个 Sub Main 过程B、窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体C、窗体的 Hide 方法和 Unload 方法的作用完全相同D、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体49、语句 PrintAbs(-62)+Int(-62)的输出结果是(A)。A、0 B、1 C、-1 D、-7250、

16、如果将布尔常量值 TRUE 赋值给一个整型变量，则整型变量的值为(B)。A、0 B、-1 C、TRUE D、FALSE51、函数 String(n,str)的功能是(B)。A、把数值型数据转换为字符串B、返回由 n 个字符组成的字符串C、从字符串中取出 n 个字符D、从字符串中第 n 个字符的位置开始取子字符串52、语句 PrintFormat(“Hello World”,“”)的输出结果是(C)。A、hello WORLD B、hello worldC、HELLO WORLD D、HELLO world53、声明符号常量应该用关键字(B)。A、Static B、Const C、Private

17、 D、Variant54、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句(B)。A、Option Base 0 B、Option ExplicitC、Option Base 1 D、Option Compare55、下列可作为 VisualBasic 变量名的是(D)。A、A#A B、4A C、?xy D、constA56、设 a=10，b=5，c=1，执行语句 Printa b c 后，窗体上显示的是(B)。A、True B、False C、1 D、出错信息57、执行 x$=String(6,124abc)后，x 的值是(B)。A、124abc B、111111 C、124 D

18、、abc58、设 a=6，则执行 x=IIf(a5,-1,0)后，x 的值为（D）A、5 B、6 C、0 D、-159、执行语句：c$=“Glad”&Mid$(“Nice to meet you”,5,3)，则变量 c$的值为(C)。A、Nice to meet you B、Glad Nice to meet youC、Glad to D、Glad60、下面(D)是合法的字符常数。A、ABC$B、ABC C、ABC D、ABC61、对于语句 Ifx=1 Then y=1，下列说法正确的是（C）。A、x=1 和 y=1 均为赋值语句B、x=1 和 y=1 均为关系表达式C、x=1 为关系表达式，

19、y=1 为赋值语句D、x=1 为赋值语句，y=1 为关系表达式62、设有声明：DimX As Integer,如果 Sgn(X)的值为-1，则 X 的值是(D)。A、任何整数 B、0 C、等于0的整数 D、小于0的数63、在一行内写多条语句时，每个语句之间用(B)符号分隔。A、，B、：C、D、；64、从键盘上输入两个字符串，分别保存在变量 str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(D)。A、Left B、Mid C、String D、Instr65、设 S=中华人民共和国，表达式 Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（B）A、中华民

20、国 B、中国人民C、中共人民 D、人民共和66、下列可作为 Visual Basic 中的变量名的是(A)。A、Filename B、A(A+B)C、254D D、Print67、下面(A)是合法的变量名。A、X_yz B、123abc C、Integer D、X-Y68、以下变量命名非法的是（C）。A、xyz123 B、printaa C、boolean D、Bernald69、设有变量声明:DimTestDate As Date,为变量 TestDate 正确赋值的表达方式是(A)。A、TextDate=#1/1/2002#B、TestDate=#“1/1/2002”#C、TextDate

21、=date(“1/1/2002”)D、TestDate=Format(“m/d/yy”,“1/1/2002”)70、设 a=2,b=3,c=4,d=5，表达式 abAND c=b And b10B、(ab)Or(b0)C、(a0)or(ba)And(b0)82、执行语句 a=InputBox(Today,Tomorrow,Yesterday,Daybefore yesterday,5),将显示一个输入对话框，在对话框的输入区中显示的信息是(A)。A、TodayB、TomorrowC、YesterdayD、Day before Yesterday83、VB 提供了结构化程序设计的3种基本结构，这

22、3种基本结构是（B）。A、递归结构，分支结构，循环结构B、选择结构，过程结构，顺序结构C、过程结构，输入、输出结构，转向结构D、分支结构，循环结构，顺序结构84、下面 If 语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（D）。A、If sex=“男”And age40 And InStr(duty,“教授”)0 Then n=n+1B、If sex=“男”And age40 And(duty=“教授”Or duty=“副教授”)Then n=n+1C、If sex=“男”And age40 And Right(duty,2)=“教授”Then n=n+1D、

23、If sex=“男”And age40 And duty=“教授”And duty=“副教授”Then n=n+185、当语句 w=IIf(410,”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、下面正确的赋值

24、语句是（C）。A、x+y=30B、y=*r*rC、y=x+30D、3y=x89、VB 提供了结构化程序设计的三种基本结构，三种基本结构是(D)。A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入输出结构、转向结构D、选择结构、循环结构、顺序结构90、下面程序段求两个数中的大数，不正确的是（D）。A、Max=IIf(xy,x,y)B、If xy Then Max=xElse Max=yC、Max=x：If y=x Then Max=yD、If yx Then Max=y：Max=x91、下列程序段：Dim x If x Then Print x Else Prin

25、t x+1 运行后，显示的结果是（A）。A、1B、0C、-1D、出错92、以下不属于 vb 的三种基本结构的是（C）？A、顺序结构B、选择结构C、递归结构D、循环结构93、语句 Ifx=1 Then y=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）。Dim xx=Int(Rnd)+5Sel

26、ect Case xCase 5“优秀”Case 4Print“良好”Case3Print“通过”Case ElsePrint“不通过”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、If AB Then PrintA 不等于 BB、If AB Then Print A 不等于 BC、If AB Then Print A 不等于 BD、If AB PrintA 不等于 B98、设有语句 x$=Input

27、Box(“输入数值”，“0”，“示例”),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是(D)。A、变量 X 的值是数值10B、在 InputBox 对话框标题栏中显示的是“示例”C、0是默认值D、变量 X 的值是字符串“10”99、运行下列程序段后，显示的结果为（B）J1=4:J2=9 If J1=a(i)Thena(i+1)=a(i)If i=0 Then a(i)=mElsea(i+1)=mExit ForEnd IfNext iFor i=0 To UBound(a)Print a(i)Next iEnd Sub3，下列程序在10009999之间查找满足如下条件的

28、整数：该整数，逆向排列得到的另一个四位数是它自身的倍数（2倍以上）。查找结果和逆向排列数分别显示在对应的列表框Private Sub Command1_Click()Dim n As IntegerDim m As IntegerDim i As IntegerFor i=1000 To 9999m=0n=iDoWhile n 0m=m*10+n Mod 10n=n 10LoopIf m Mod i=0And m i 1 Thenlist1.AddItem ilist2.AddItem m&=&i&*&m iEnd IfNext iEnd Sub4，将100150之间的偶数，拆分成两个素数之和

29、，最后输出格式如图。其中，prime 函数判断参数 x 是否为质数Private Function prime(ByVal x As Integer)As Booleanprime=tureFor i=2 To Sqr(x)If x Mod i=0 Thenprime=FalseExit FunctionEnd IfNext iEnd FunctionPrivate Sub Form_Load()i=1For n=100 To150For k=3 To n/2Ifprime(k)And prime(n-k)ThenPrint i;:;=;k;+;n-kExit ForEnd IfNext ki

30、=i+1Next nEnd Sub10,子过程 F（N，M，T）对一个四位数 n 整整数判断：已知该整数 n，逆向排列获得另一个4位数 m 是特自身的倍数，则 t 为 true表示满足上述条件。Private Sub Command1_Click()Dim t As Boolean,i%,k%text1=text2=For i=1000 To 9999Call f(i,k,t)Ift Thentext1=text1&i&vbCrLftext2=text2&k&=&i&*&k i&vbCrLfEndIfNext iEnd SubSub f(ByVal n%,ByRef m%,byreyftag

31、AsBoolean)Dim i%Tag=Falsem=0i=nDo While i 0m=m*10+i Mod 10i=i 10LoopIf m Mod n=0 And m n 1 ThenTag=TrueEnd IfEnd Sub6.8.子过程 MoveStr（）是把字符组移动 m 个位置，当 Tag 为 Ture 是左移，则前 m 个字符一道字符数组尾，例如，“abcdefghij”左移3个位置后，结果为“defghijabc”；。Public Sub MoveStr(a$(),m%,Tag As Boolean)Dimi%,j%,t$If Tag ThenFor i=1 To mc=a(

32、0)For j=0 To UBound(a)-1a(j)=a(j+1)Next ja(UBound(a)-1Next iElseFor i=1 To mc=a(UBound(a)For j=UBound(a)To 1 Step-1a(j)=a(j-1)Next ja(0)=cNext iEndIfEnd Sub6.9.子过程 CountN 用来统计字符串中各数字字符（0-9）出现的个数；主调程序对在 textbox1框输入的文本，每次单击“统计”按钮，调用该子过程，在 Label1框显示结果。Private Sub Command1_Click()Dim n(9)As Integer,i%Ca

33、ll CountN(n(),text1.Text)list1.ClearFor i=0 To 9If n(i)Then list1.AddItem 字符&i&出现的次数为&n(i)NextEnd SubSub CountN(ByRefnum%(),ByVal s As String)Dim c As String*1,i%,m%,j%For i=0 To 9num(i)=0Next im=Len(s)For i=1 To mc=Mid(s,i,1)If c=0 And c 0sn(i)=Val(Mid(str1,1,j-1)str1=Mid(str1,j+1)i=i+1j=InStr(str1

34、,)Loopsn(i)=Val(str1)n=iEnd Sub1工程中有两个窗体 form1和 form2，一个标准模块 module1，设在 form1中定义了过程 aa，在 module1中定义了过程 bb。Sub aa(x,y,z)z=x*x+y*yEnd SubSub bb(x,y,z)z=x 3+y 3End Sub当在 form1中单击命令按钮时，调用以上过程计算两个数的平方和和立方和，并分别将计算结果显示在文本框 text3和 text4中，请填空完成调用语句。Private Sub Command1_Click()a=Val(Text1.Text)b=Val(Text2.Tex

35、t)Call aa(a,b,c1)Text3.Text=c1bba,b,c2 Text4.Text=c2End Sub2下面的程序用于根据文本框 X 中输入的内容进行以下处理：若 X 为2、4、6，则打印X 的值为2、4、6；若 X 在11到15之间，则打印X 的值为大于等于11小于等于15；若 X 大于20，则打印X 的值大于20；否则，打印X 不在范围内。Private Sub Command1_Click()Select Case Val(X.Text)Case 2,4,6 Print X 的值为2,4,6Case 11to 15 Print X 的值为大于等于11小于等于15Case

36、Is 20Print X 的值大于20Case ElsePrint X 不在范围内EndSelectEnd Sub3下面的程序是使用冒泡法对数组进行排序，请将程序补充完整。Option Base 1Private Sub Command1_Click()Dim iA(0 To 10)n=6iA(0)=8:iA(1)=6:iA(2)=9:iA(3)=3:iA(4)=2:iA(5)=7For i=1 To n-1 进行 n-1遍比较 对第 i 遍比较时，大数沉底For j=1 to n-i 在数组 in 个元素中选最小元素的下标If iA(j)iA(j+1)Thent=iA(j)iA(j)=iA(

37、j+1)iA(j+1)=tEnd IfNext jEnd Sub4 程序的功能是使用辗转相除法求两个数的最大公约数。Private Sub Command1_Click()Dimm%,n%m=Int(InputBox(input an integer)n=Int(InputBox(input another integer)Print gcd(m,n)End SubPublic Function gcd%(m%,n%)Dimt%If mn Then t=m:m=n:n=tDor=m Mod nIf r=0 Then Exit Dom=n n=rLoopgcd=nEnd Function5、输入

38、任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEF”变换成“FEDCBA”。请将程序补充完整。Private Sub Command1_Click()Dima$,i%,c$,n%n 存放字符串的长度a=InputBox(input a string)n=Len(a)Fori=1 To Int(n/2)c=Mid(a,i,1)Mid(a,i,1)=Mid(a,n-i+1,1)Mid(a,n-i+1,1)=cNext iEnd Sub6、下面的程序允许用户按 Enter(回车)键后，将组合框中没有的项目添加到组合框。请将程序补充完整。Private Sub Combo1_KeyPr

39、ess(KeyAscii AsInteger)Dim flag As BooleanIf KeyAscii=13 Thenflag=FalseFor i=0 To Combo1.ListCount-1 查找项目是否已存在If combo1.text=combo1.list(i)Thenflag=TrueExit ForEnd IfNext iIf flag=False Then 不存在则添加 combo1.AddItem combo1.TextEnd IfEnd IfEnd Sub7、下面的程序是使用选择法对数组进行升序排列，请将程序补充完整。Option Base 1Private Sub

40、Command1_Click()Dim iA(1 To 10)n=6iA(1)=8:iA(2)=6:iA(3)=9:iA(4)=3:iA(5)=2:iA(6)=7For i=1 To n-1 进行 n-1遍比较iMin=i 对第 i 遍比较时，初始假定第 i 个元素最小For j=i+1 to n 在数组 in 个元素中选最小元素的下标If a(j)0 ThenPrint 左括号多于右括号;count1;个ElsePrint 右括号多于左括号;-count1;个End IfEndIfEnd Sub10、顺序文件的建立。建立文件名为“c:stud1.txt”的顺序文件，内容来自文本框，每按 En

41、ter 键写入一条记录，然后清除文本框的内容，直到文本框内输入“END”字符串。Private Sub Form_Load()Open“c:stud1.txt”For Output As#1Text1.Text=“”End SubPrivate Sub Text1_KeyPress(keyAscii AsInteger)IfkeyAscii=13 ThenIf Ucase(Text1)=END ThenClose#1EndElsePrint#1,Text1Text1.Text=“”End IfEndIfEnd Sub11、输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，并显

42、示结果。其中，CountY 中放元音字母个数，CountC 中放其他字符数。Private Sub Command1_Click()DimCountY%,CountC%,i%DimC$,B$c=Text1.TextFori=1 To Len(C)B=UCase(Mid(C,i,1)If A=B And B=Z ThenSelect Case BCase A,E,I,O,UCountY=CountY+1Case ElseCountC=CountC+1End SelectEnd IfNext iPrint 元音字母有;CountY;个Print 其它字母有;CountC;个End Sub12、将

43、C 盘根目录下的一个文本文件 old.dat 复制到新文件 new.dat 中，并利用文件操作语句，将 old.dat 文件从磁盘上删除。Private Sub Command1_Click()Dimstr1$Open“c:old.dat”For Input As#1Open“c:new.dat”For output As#2 DoWhile NotEoF(1)Line Input#1,str1Print#2,str1LoopClose#1,#2KILL“c:old.dat”End Sub613、产生10，37之间的随机整数的 Visual Basic 表达式是。判断 s 字符变量是大写字母字

44、符的逻辑表达式为=AAnd s。表示 x 是5的倍数或9的倍数的逻辑表达式是Len(vb 程序设计)的值是。表示字符变量 s 是字母字符（不区分大小写）的 VB 表达式是=aAndLcase(s)=AAnd Ucase(s)。将一个两位数x的个位数与十位数交换位置，组成另一个两位数，则对应的表达式是。随 机 产 生 一 个“C”“L”范 围 内 的 大 写 字 符，则 对 应 的 VB 表 达 式 是。Round(-3.5)的值是。Int(3.5)的值是。下面程序段运行后的输出结果是。For i=0 To 3Print Tab(5*i+1);2+i;2&i;Next i循环语句 For i=-

45、3to 20 Step 0 的循环次数是。在过程中定义的局部变量，如果希望过程结束后还保存变量的值，则应使用关键字进行声明。由 Array 函数建立的数组，其变量必须是。要使循环语句循环执行20次，For k=_ to-5 Step-2，则 k=。循环语句 For i=-3.5to 5.5 Step 0.5的循环次数是。下列程序段中，第41句共执行了次。30 For j=1 To 12 Step 340 For k=6 To 2 Step-241 Print j,k42 Next k43 Next j循环语句 For i=-3to 20 Step 4的循环次数是。下面程序运行后的输出结果是。a

46、=*:b=$For i=1 To 4If i Mod 2=0 Thenx$=String(Len(a)+i,b)Elsex$=String(Len(a)+i,a)End IfPrint x$;Next i下面程序的运行结果是。x=242:y=44z=x*yDo Until nx=yIf x y Then x=x-y Else y=y-xLoopPrint x,z/x下列程序段中，第40句共执行了次。30 For j=1 To 12 Step 340 For k=6 To 2 Step-241 Print j,k42 Next k43 Next j如果在建立菜单时在标题文本框中输入一个,那么菜单

47、显示时形成一个分隔线如果菜单标题的某个字母前输入一个符号，那么该字母就成了热键字母。方法可以清除列表框中的所有内容。列表框中的和 Selected 两个属性均为数组。属性设置为1，单选按钮和复选框以图形方式显示。当用户单击滚动条的空白处时，滑块移动的增量由属性决定。当用户单击鼠标右键时，MouseDown、MouseUp 和 MouseMove 事件过程中的 Button 参数值为。列表框中项目的序号是从开始的。Visual Basic 中有一种控件组合了文本框和列表框的特性，这种控件是。如果窗体的属性设置为 True，则控件的 KeyPress 事件过程可以接收到在窗体的 KeyPress

48、过程中修改过的值。复选框的属性设置为2-Grayed 时，变成灰色，禁止用户选择。复选框的属性设置为2-Grayed 时，复选框变成灰色，禁止用户选择。滚动条产生 Change 事件是因为它的属性值改变了。如果要每隔15秒产生一个 Timer 事件，则 Interval 属性应设置为。当用户单击滚动条两端的箭头时，滑块移动的增量由属性决定。表示列表框（List1）中最后一项的序号。Visual Basic 提供的对数据文件的三种访问方式为顺序访问方式、和随机访问方式。编程题编程题1 产生1100以内的素数Private Sub Command1_Click()Dim i%,j%,tag As

49、BooleanFor j=1 To 100tag=TrueFor i=2 To j-1If j Mod i=0 Then tag=FalseNext iIf tag Then Print j;Next jEnd Sub2、从键盘输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEFG”变换成“GFEDCBA”。PrivateSub Form_Click()Dimi,a,b,n As Stringn=InputBox(输入字符)i=Len(n)Fora=1 To i/2b=Mid(n,a,1)Mid(n,a,1)=Mid(n,i+1-a,1)Mid(n,i+1-a,1)=bNex

50、t aPrint nEndSub3.0到200被5 或11整除的数的和Private Sub Command1_Click()Dim i%For i=0 To 200If i Mod 11=0 Or i Mod 5=0 ThenSum=Sum+iEnd IfNext iPrint 总和是;SumEnd Sub4输入一年份，判断他是否为闰年，并现实是否是闰年的有关信息。Private Sub Command1_Click()Dim y%y=Val(Text1)If y Mod 4=0 And y Mod 100 0 Or y Mod 400=0 ThenMsgBox(y&年是闰年)ElseMsg