大学VB考试题库.pdf

《大学VB考试题库.pdf》由会员分享，可在线阅读，更多相关《大学VB考试题库.pdf（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、 157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B） 。A、文本文件和工程文件 B 、窗体文件和工程文件C、窗体文件和标准模块文件 D、类模块文件和工程文件4、以下能在窗体Form1的标题栏中显示VisualBasic窗体 的语句是（ C） 。A、Form1

2、.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=30 B 、y=*r*r C 、y=x+30

3、D、3y=x 8、VisualBasic 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、 ForeCol

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

5、的图形和文字D、以上均可14、设 x=3,y=5, 则以下表达式值为真的是 (C) A、(-3+5x) And (y0) B、(x0) C、(xy) Or (y0) D、x=y And y10 15、为了防止用户随意将光标置于控件之上，应将进行(D) 设置。A、将控件的TabIndex 属性设置为 0 B、将控件的TabStop 属性设置为True C、将控件的TabStop 属性设置为False D、将控件的Enabled 属性设置为False 16、要判断在文本框是否按了Enter 键，应在文本框的(D) 事件中判断。A、Change B、KeyDown C 、Click D、KeyPre

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

7、的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。19、程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是(C) 。A、MouseDown B 、 MouseUp C、Load D 、 Click 20、图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是 (B) 。A、Autosize B、Stretch C、AutoRedraw D 、Appearance 21、为了防止用户随意将光标置于控件之上，应设置的属性是(D) 。A、将控件的TabIndex 属性设置为 0 B、将控件的TabStop 属性设置为True C、将控件的TabStop 属

8、性设置为False D、将控件的Enabled 属性设置为False 22、不论何控件，共同具有的是(B) 属性。A、Text B 、 Name C、ForeColor D 、 Caption 23、以下关于窗体的描述中，错误的是(A) 。A、执行 Unload Form1 语句后，窗体Form1消失，但仍在内存中B、窗体的Load 事件在加载窗体时发生C、当窗体的Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D、窗体的Height 、Width 属性用于设置窗体的高和宽24、当运行程序时，系统自动执行窗体的(A) 事件过程。A、Load B、 Click C、Un

9、load D 、GotFocus 25、窗体设计器是用来设计(B) 。A、应用程序的代码段 B、应用程序的界面C、对象的属性 D、对象的事件26、 VisualBasic是一种面向对象的可视化程序设计语言，采取了(A) 的编程机制。A、事件驱动 B、按过程顺序执行C、从主程序开始执行 D、按模块顺序执行27、确定一个控件在窗体上的位置的属性是(D) 。A、Width 或 Height B 、Width 和 Height C、Top 或 Left D、Top 和 Left 28、如果要改变窗体的标题，则需要设置的属性是(A) 。A、Caption B、Name C、BackColor D 、 B

10、orderStyle 29、以下叙述中错误的是(C) 。A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B、保存 Visual Basic程序时，应分别保存窗体文件及工程文件C、Visual Basic应用程序只能以解释方式执行D、事件可以由用户引发，也可以由系统引发30、以下叙述中错误的是(B) 。A、双击鼠标可以触发DblClick事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发MouseMove事件D、控件的名称可以由编程人员设定31、在 VisualBasic中最基本的对象是(C) 。它是应用程序的基石，是其他控件的容器。A、文本框 B、命令

11、按钮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、FontItalic

12、 B、FontName C、FontBold D、FontSize 36、如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是(A) 。A、如果工程中含有Sub Main 过程，则程序一定首先执行该过程B、不能把标准模块设置为启动模块C、用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D、任何时刻最多只有一个窗体是活动窗体37、为了把焦点移到文本框，所使用的方法是(A) 。A、SetFocus B、Visible C、Refresh D 、GetFocus 38、 INT（100*RND ）产生的随机整数的闭区间是（A） 。A、0 ，99 B、1 ，100 C、0 ，100 D

13、、1 ，99 39、如果要在命令按钮上显示图形文件，应设置命令按钮的(B) 。A、Style属性和 Graphics 属性 B、Style属性和 Picture属性C、Caption 属性 D、Graphics 属性40、若要使命令按钮不可操作，要对(A) 属性进行设制。A、Enabled B、Visible C、BackColor D 、 Caption 41、假定窗体的名称为Form1,则把窗体的标题设置为“VB_Test”的语句为(B) 。A、Form1= “VB_Test” B、Form1.Caption= “VB_Test”C、Form1.Text=“VB_Test” D、Form1

14、.name= “VB_Test”42、以下叙述中错误的是(A) 。A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B、以 .BAS 为扩展名的文件是标准模块文件C、窗体文件包含该窗体及其控件的属性D、一个工程中可以含有多个标准模块文件43、要使文本框获得输入焦点，则应采用文本框控件的哪个方法(A) 。A、GotFocus B、LostFocus C、KeyPress D 、SetFocus 44、以下不能在“工程资源管理器”窗口中列出的文件类型是(B) 。A、.bas B、 .res C、.frm D 、.ocx45、刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是

15、(C) 。A、单选按钮 B、图片框C、通用对话框 D 、文本框46、以下叙述中错误的是(B) 。A、双击鼠标可以触发DblClick事件B、窗体或控件的事件的名称可以由编程人员确定C、移动鼠标时，会触发MouseMove事件D、控件的名称可以由编程人员设定47、以下能够触发文本框Change事件的操作是 (D) 。A、文本框失去焦点 B、文本框获得焦点C、设置文本框的焦点D、改变文本框的内容48、以下叙述中错误的是(C) 。A、一个工程中只能有一个Sub Main 过程B、窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体C、窗体的Hide 方法和 Unload 方法的作用完全相同D、

16、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体49、语句 PrintAbs(-62)+Int(-62)的输出结果是 (A) 。A、0 B 、1 C、-1 D 、-72 50、如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为(B) 。A、0 B、-1 C、TRUE D 、FALSE 51、函数 String(n,str)的功能是 (B) 。A、把数值型数据转换为字符串B、返回由n 个字符组成的字符串C、从字符串中取出n 个字符D、从字符串中第n 个字符的位置开始取子字符串52、语句 PrintFormat(“Hello World ”, “”) 的输出结果是(C) 。A、

17、hello WORLD B 、hello world C、HELLO WORLD D 、HELLO world 53、声明符号常量应该用关键字(B) 。A、Static B、Const C 、Private D、Variant 54、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句(B) 。A、Option Base 0 B、Option Explicit C、Option Base 1 D、Option Compare 55、下列可作为VisualBasic变量名的是 (D) 。A、A#A B、4A C、 ?xy D、 constA 56、设 a=10，b=5，c=1，执行语句P

18、rinta b c后，窗体上显示的是(B) 。A、True B 、 False C 、1 D、出错信息57、执行 x$=String(6,124abc)后， x 的值是 (B) 。A、124abc B 、111111 C、 124 D、 abc 58、设 a=6，则执行x=IIf(a5,-1,0)后， x 的值为（ D）A、5 B 、6 C、0 D、-1 59、执行语句：c$=“Glad”& Mid$( “Nice to meet you”,5,3) ，则变量c$的值为 (C) 。A、Nice to meet you B、 Glad Nice to meet you C、Glad to D、G

19、lad 60、下面 (D) 是合法的字符常数。A、ABC$ B 、 ABC C 、 ABC D、ABC 61、对于语句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 为关系表达式62、设有声明：DimX As Integer,如果 Sgn(X) 的值为 -1，则 X的值是 (D) 。A、任何整数 B、0 C、等于 0的整数 D、小于 0的数63、在一行内写多条语句时，每个语句之间用(B) 符号分隔。A、 ， B、 ： C、 、 D 、

20、 ；64、从键盘上输入两个字符串，分别保存在变量str1 、str2 中。确定第二个字符串在第一个字符串中起始位置的函数是(D) 。A、Left B 、 Mid C 、String D、Instr 65、设 S=中华人民共和国，表达式 Left （S,1 ）+Right （S,1 ）+Mid（S,3,2 ）的值为（ B）A、 中华民国 B 、中国人民 C、 中共人民 D 、人民共和 66、下列可作为Visual Basic中的变量名的是(A) 。A、Filename B 、A(A+B) C 、254D D、Print 67、下面 (A) 是合法的变量名。A、X_yz B、 123abc C、I

21、nteger D、X-Y 68、以下变量命名非法的是（C） 。A、xyz123 B 、printaa C、boolean D 、Bernald 69、设有变量声明:DimTestDate As Date,为变量 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，表达式abAND c=b And b10 B、(ab)Or(b0

22、) C、(a0)or(ba)And(b0) 82、 执行语句a=InputBox(Today,Tomorrow,Yesterday,Daybefore yesterday,5), 将显示一个输入对话框，在对话框的输入区中显示的信息是(A) 。A、Today B、Tomorrow C、Yesterday D、Day before Yesterday 83、 VB提供了结构化程序设计的3种基本结构，这3种基本结构是（B） 。A、递归结构，分支结构，循环结构B、选择结构，过程结构，顺序结构C、过程结构，输入、输出结构，转向结构D、分支结构，循环结构，顺序结构84、下面 If语句统计满足性别为男、职称

23、为副教授以上、年龄小于40岁条件的人数，不正确的语句是（ D） 。A、If sex= “男” And age40 And InStr(duty,“教授” ) 0 Then n=n+1 B、If sex= “男” And age40 And (duty= “教授” Or duty= “副教授” ) Then n=n+1C、If sex= “男” And age40 And Right(duty,2)= “教授” Then n=n+1 D、If sex= “男” And age40 And duty= “教授” And duty= “副教授” Then n=n+185、当语句w=IIf(410,”

24、Red ”, “Green”) 执行后，变量w中的值是（ C） 。A、Null B、“Red ”C、“Green”D、-1 86、赋值语句： a=123+MID( “123456”,3,2) 执行后，a 变量中的值是（D） 。A、“12334”B、123 C、12334 D、157 87、设有语句x=InputBox( “AAAA ”，“ BBBB ”，“” ), 程序运行后，所产生的对话框的标题应为 (C) 。A、AAAA B、空C、BBBB D、出错，不能产生对话框88、下面正确的赋值语句是（C） 。A、x+y=30 B、y=*r*r C、y=x+30 D、3y=x 89、 VB提供了结构

25、化程序设计的三种基本结构，三种基本结构是(D) 。A、递归结构、选择结构、循环结构B、选择结构、过程结构、顺序结构C、过程结构、输入输出结构、转向结构D、选择结构、循环结构、顺序结构90、下面程序段求两个数中的大数，不正确的是（D） 。A、Max=IIf(xy,x,y) B、If xy Then Max=xElse Max=y C、Max=x：If y =x Then Max=y D、If yx Then Max=y ：Max=x 91、下列程序段：Dim x If x Then Print x Else Print x+1 运行后，显示的结果是（A） 。A、1 B、0 C、-1 D、出错92

26、、以下不属于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、123 C、12334 D、157 95、下面程序段显示的结果是（A） 。Dim x x=Int(Rnd)+5 Select Case x Case 5 “优秀” C

27、ase 4 Print “良好”Case3 Print “通过” Case Else Print “不通过”EndSelect A、优秀B、良好C、通过D、不通过96、为了给x,y,z这3个变量赋初值1，下面正确的赋值语句是（A） 。A、x=1：y=1：z=1 B、x=1,y=1,z=1 C、x=y=z=1 D、xyz=1 97、下列语句正确的是（C）A、If A B Then PrintA不等于 B B、If AB Then Print A不等于 B C、If AB Then Print A不等于 B D、I f A B PrintA不等于 B 98、设有语句x$=InputBox( “输入

28、数值”，“ 0”，“示例” ), 程序运行后，如果从键盘上输入数值 10并按回车键，则下列叙述中正确的是(D) 。A、变量 X的值是数值 10 B、在 InputBox对话框标题栏中显示的是“示例”C、0是默认值D、变量 X的值是字符串“ 10”99、 运行下列程序段后，显示的结果为 （B） J1=4: J2=9 If J1= a(i) Then a(i + 1) = a(i)If i = 0 Then a(i) = m Else a(i + 1) = mExit For End If Next i For i = 0 To UBound(a) Print a(i) Next i End Su

29、b 3，下列程序在10009999之间查找满足如下条件的整数：该整数，逆向排列得到的另一个四位数是它自身的倍数（2倍以上）。查找结果和逆向排列数分别显示在对应的列表框Private Sub Command1_Click() Dim n As Integer Dim m As Integer Dim i As Integer For i = 1000 To 9999 m= 0 n = iDoWhile n 0 m = m * 10 + n Mod 10 n = n 10 Loop If m Mod i=0 And m i 1 Then list1.AddItem i list2.AddItem

30、m & = & i& * & m iEnd If Next i End Sub 4，将 100150之间的偶数，拆分成两个素数之和，最后输出格式如图。其中，prime 函数判断参数 x 是否为质数Private Function prime(ByVal x As Integer)As Boolean prime = tureFor i = 2 To Sqr(x) If x Mod i = 0 Then prime = False Exit Function End If Next i End Function Private Sub Form_Load() i = 1 For n = 100

31、To150For k = 3 To n / 2 Ifprime(k) And prime(n - k) Then Print i; :; =; k; +; n - k Exit For End If Next k i = i + 1Next n End Sub 10, 子过程 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

32、9999 Call f(i, k, t)Ift Then text1 = text1 & i & vbCrLf text2 = text2 & k & = & i & *& k i & vbCrLf EndIf Next i End Sub Sub f(ByVal n%, ByRef m%, byreyftag AsBoolean) Dim i% Tag = False m = 0 i = n Do While i 0 m = m * 10 + i Mod 10i = i 10Loop If m Mod n = 0 And m n 1 Then Tag = TrueEnd If End Sub

33、 6.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 m c = a(0)For j = 0 To UBound(a) - 1a(j) = a(j + 1) Next j a (UBound(a) - 1Next i Else For i = 1 To m c

34、= a(UBound(a)For j = UBound(a) To 1 Step -1 a(j) = a(j - 1) Next j a(0) = c Next i EndIf End Sub 6.9. 子过程 CountN 用来统计字符串中各数字字符（ 0-9）出现的个数；主调程序对在textbox1 框输入的文本，每次单击“统计”按钮，调用该子过程，在Label1 框显示结果。Private Sub Command1_Click() Dim n(9) As Integer, i% Call CountN(n(), text1.Text) list1.Clear For i = 0 To 9

35、 If n(i) Then list1.AddItem 字符 & i & 出现的次数为 & n(i) Next End Sub Sub CountN(ByRefnum%(), ByVal s As String)Dim c As String * 1, i%, m%, j% For i = 0 To 9 num(i) = 0 Next i m= Len(s) For i = 1 To m c = Mid(s, i, 1)If c = 0 And c 0 sn(i) = Val(Mid(str1, 1, j - 1) str1 = Mid(str1, j + 1) i = i + 1 j = I

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

37、_Click() a =Val(Text1.Text) b =Val(Text2.Text) Call aa(a,b,c1) Text3.Text = c1 bba,b,c2 Text4.Text = c2 End Sub 2下面的程序用于根据文本框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,

38、4,6 Print X的值为 2,4,6 Case 11to 15 Print X的值为大于等于11小于等于 15 Case Is 20 Print X的值大于 20 Case Else Print X不在范围内 EndSelect End Sub 3下面的程序是使用冒泡法对数组进行排序，请将程序补充完整。Option Base 1 Private Sub Command1_Click() Dim iA(0 To 10) n = 6 iA(0) = 8: iA(1) = 6: iA(2) = 9: iA(3) = 3: iA(4) = 2: iA(5) = 7 For i= 1 To n -

39、1 进行 n-1 遍比较 对第 i 遍比较时，大数沉底For j=1 to n-i 在数组 in个元素中选最小元素的下标If iA(j) iA(j+1) Then t = iA(j) iA(j) = iA(j + 1) iA(j + 1) = t End If Next j End Sub 4 程序的功能是使用辗转相除法求两个数的最大公约数。Private Sub Command1_Click() Dimm%, n% m =Int(InputBox(input an integer) n =Int(InputBox(input another integer) Print gcd(m, n)

40、End Sub Public Function gcd%(m%, n%) Dimt% If mn Then t = m: m = n: n = t Do r= m Mod n If r = 0 Then Exit Do m= n n=r Loop gcd= n End Function 5、输入任意长度的字符串，要求将字符顺序倒置，例如，将输入的“ABCDEF”变换成“FEDCBA”。请将程序补充完整。Private Sub Command1_Click() Dima$, i%, c$, n% n存放字符串的长度a =InputBox(input a string) n = Len(a) Fo

41、ri = 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) = c Next i End Sub 6、下面的程序允许用户按Enter( 回车 ) 键后，将组合框中没有的项目添加到组合框。请将程序补充完整。Private Sub Combo1_KeyPress(KeyAscii AsInteger) Dim flag As Boolean If KeyAscii = 13 Then flag = False For i = 0 To Combo1.ListCount - 1 查找项

42、目是否已存在If combo1.text=combo1.list(i) Then flag = True Exit For End If Next i If flag = False Then 不存在则添加 combo1.AddItem combo1.Text End If End If End Sub 7、下面的程序是使用选择法对数组进行升序排列，请将程序补充完整。Option Base 1 Private Sub Command1_Click() Dim iA(1 To 10) n = 6 iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5)

43、= 2: iA(6) = 7 For i = 1 To n - 1 进行 n-1 遍比较iMin = i 对第 i 遍比较时，初始假定第i 个元素最小For j=i+1 to n 在数组 in个元素中选最小元素的下标If a(j) 0 Then Print 左括号多于右括号; count1; 个 Else Print 右括号多于左括号; -count1; 个 End If EndIf End Sub 10、顺序文件的建立。建立文件名为“c:stud1.txt”的顺序文件，内容来自文本框，每按 Enter 键写入一条记录，然后清除文本框的内容，直到文本框内输入“END ”字符串。Private

44、Sub Form_Load() Open “c:stud1.txt” For Output As #1Text1.Text= “”End Sub Private Sub Text1_KeyPress(keyAscii AsInteger) IfkeyAscii=13 Then If Ucase(Text1)=END Then Close #1 End Else Print #1,Text1 Text1.Text= “”End If EndIf End Sub 11、输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，并显示结果。其中， CountY 中放元音字母个数，Count

45、C 中放其他字符数。Private Sub Command1_Click() DimCountY%, CountC%, i% DimC$, B$ c=Text1.Text Fori = 1 To Len(C) B=UCase(Mid(C, i, 1) If A=B And B=Z Then Select Case B Case A,E,I,O,U CountY = CountY + 1 Case Else CountC = CountC + 1 End Select End If Next i Print 元音字母有 ; CountY; 个 Print 其它字母有 ; CountC; 个 En

46、d Sub 12、将 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,str1 Print #2,str1 Loop Close #1,#2 KILL “c:old.dat ”End Sub 6 13、产生 10 ，37 之间的随机整数的Vi

47、sual Basic表达式是 。判断 s 字符变量是大写字母字符的逻辑表达式为=AAnd s。表示 x 是5的倍数或 9的倍数的逻辑表达式是 Len(vb程序设计 ) 的值是 。表示字符变量s 是字母字符（不区分大小写）的VB 表达式是 =aAnd Lcase(s)=AAnd Ucase(s)。将一个两位数x 的个位数与十位数交换位置，组成另一个两位数， 则对应的表达式是。随 机 产 生 一 个 “C” “L” 范 围 内 的 大 写 字 符 ， 则 对 应 的VB 表 达 式 是 。Round(-3.5)的值是 。Int(3.5)的值是 。下面程序段运行后的输出结果是 。For i = 0

48、To 3 Print Tab(5 * i + 1); 2 + i; 2 & i; Next i 循环语句For i=-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 3 40 For k = 6 To 2 Step -2 41

49、Print j, k 42 Next k 43 Next j 循环语句For i=-3to 20 Step 4的循环次数是 。下面程序运行后的输出结果是。a = *: b = $ For i = 1 To 4 If i Mod 2 = 0 Then x$ = String(Len(a) + i, b) Else x$ = String(Len(a) + i, a) End If Print x$; Next i 下面程序的运行结果是 。x = 242: y = 44z = x * y Do Until nx = y If x y Then x = x - y Else y = y - x Lo

50、op Print x, z / x 下列程序段中，第40句共执行了 次。30 For j = 1 To 12 Step 3 40 For k = 6 To 2 Step -2 41 Print j, k 42 Next k 43 Next j 如果在建立菜单时在标题文本框中输入一个, 那么菜单显示时形成一个分隔线如果菜单标题的某个字母前输入一个 符号，那么该字母就成了热键字母。方法可以清除列表框中的所有内容。列表框中的 和 Selected两个属性均为数组。属性设置为 1，单选按钮和复选框以图形方式显示。当用户单击滚动条的空白处时，滑块移动的增量由属性决定。当用户单击鼠标右键时，MouseDo