下载文档原格式
vb模拟试题及答案1. 以下哪个选项是Visual Basic（VB）的编程语言？A. C++B. JavaC. PythonD. 答案：D2. 在中，以下哪个关键字用于声明一个类？A. FunctionB. ClassC. SubD. Module答案：B3. 在中，以下哪个属性用于获取或设置一个窗体的标题？A. TextB. TitleC. CaptionD. Label答案：C4. 在中，以下哪个方法用于启动一个新的线程？A. StartB. BeginInvokeC. ThreadD. Run答案：A5. 在中，以下哪个数据类型用于表示布尔值？A. BooleanB. StringC. IntegerD. Double答案：A6. 在中，以下哪个选项用于创建一个数组？A. Dim arr(5) As IntegerB. Dim arr As New Integer(5)C. Dim arr As Integer = 5D. Dim arr As Integer(5)答案：A7. 在中，以下哪个关键字用于实现继承？A. InheritsB. ImplementsC. InheritsFromD. Base答案：A8. 在中，以下哪个关键字用于捕获异常？A. TryB. CatchC. FinallyD. All of the above答案：D9. 在中，以下哪个方法用于将一个字符串转换为小写？A. ToLowerB. ToLowercaseC. LowerD. ConvertToLower答案：A10. 在中，以下哪个方法用于将一个字符串转换为大写？A. ToUpperB. ToUppercaseC. UpperD. ConvertToUpper答案：A。
北京语言大学网络教育学院《VB 〉模拟试卷一1. 试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。
请监考老师负责监督。
2. 请各位考生注意考试纪律，考试作弊全部成绩以零分计算。
3. 本试卷满分100分，答题时间为90分钟。
4. 本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。
一、【单项选择题】（本大题共20小题，每小题2分，共40分）在每小题列出的四个选 项中只有一个选项是符合题目要求的，请将正确选项前的字母填在 答题卷相应题号处1、关于VB 的特点描述错误的是（ ）。
[A] VB 编程是可视化编程 [C]不可以访问数据库2、下面关于鼠标的指针设置说法不正确的是（ [A] 可以使用Mouselcon 设置鼠标的形状 [B] 可以使用MousePo in ter 设置鼠标的形状[B]是面向对象的程序设计 [D]采用事件驱动编程机制）。
[C] MousePointer 设为 99 时，可用 [D] MouseIcon 只能通过属性窗口选择鼠标形状3、 Dim Snow （ 1 to 12 ， 1），As Integer [A]13*2 [B] 13*14、 在工具箱里的都是（）。
[A]标准控件 [C] ActiveX 控件5、 一个窗体大小改变时被触发的事件是（ [A] Click 事件 [C] Initialize 事件6、 下列关于控件说法不正确的是（ [A] Age nt 控件用于设置动画行为[B] TextBox 用于接收用户输入的信息 MouseIcon 设置鼠标的形状是大小为（）的二维数组。
[C] 12*2 [D] 12*1[B]外部控件[D] 可插入对象（OLE ））。
[B] Resize 事件 [D] Un load 事件）。
组，当框架移动时，其中的控件不移动 [D] ListBox 向列表中添加一个新的项目 7、关于CheckBox 控件描述错误的是（ [A] 是复选框按钮，用"表示选中 [C] Value 为1表示选中该框 &关于Shape 控件描述正确的是（ [A] 用于向窗体添加矩形、圆形等图形 [C] Arial 用于设置显示控件的形状9、下面不属于循环控制语句的是（ ）。
VB笔试模拟试卷128(题后含答案及解析)题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．如果要改变窗体的标题，需要设置窗体对象的______ 属性。
A．NameB．CaptionC．BorderStyleD．BackColor正确答案：B解析：窗体的Caption属性决定了窗体对象在显示时的标题。
2．有如下程序，其运行结果为______。
Dim Sum As String*4 Read Sum, X, Y% Print Sum, Z Date “X+Y:之和”, 300, 200. 613 End A．X+Y:之和501B．X+Y之和500.613C．X+Y: 501D．X+Y: 500．613正确答案：C解析：由于“Dim Sum As String*4”定义字符型变量Sum的长度为4个字节，因而Read语句读Sum变量时，仅读对应字符常量的前4个字符；Y%为整形变量，在Read-Data语句中，对应的数值常量经四舍五入后读入，所以选择C。
3．符号%是声明______ 类型变量的类型定义符。
A．VafiantB．IntegerC．SingleD．String正确答案：B解析：Integer数据类型Integer变量存储为16位(两个字节)的数值形式，其范围为-32768～32767。
Integer的类型声明字符是百分比符号(%)。
4．表达式26/4*3的值是______ 。
A．1B．2C．18.75正确答案：B解析：运算符“*’的优先级大于“\”，所以先进行4×3的运算，再进行26\12的运算，最后的结果是2，故应选B。
5．Print方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是______。
A．逗号B．空格C．冒号D．分号正确答案：A解析：Print方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使用标准格式输出，各表达式的分隔符应是逗号。
1.设计一个如图所示的成绩录入程序。
要求利用文本框的lost focus事件检查录入的成绩是否有效。
如果录入的成绩介于0~100之间则可以继续输入，否则清除原数据，并且要求重新输入。
底部的5个复选框用来设置参加合计的课程成绩。
2.设计一个用户界面如图所示，用于将学生学习的课程在列表框中显示出来，要求程序有以下功能：a)单击“添加”按钮，若文本框“Text1.text”中不是空格串，并且在列表中也没有，则将课程添加到列表框中去。
b)单击“删除”按钮，删除列表框中被选中的并显示在文本框中的课程名称。
c)单击“统计”按钮，统计课程列表框中的课程数量，并显示在文本框“Text2.text”中。
d)单击“结束”按钮，结束程序运行。
3.设计一个偶数迁移程序，运行界面如图所示。
要求如下：a.单击“产生”按钮，随机产生10个两位正整数，并添加到左边的列表框(list1)中。
b.单击“→”按钮，或双击list1,将list1中的所有偶数迁移到list2中。
c.单击“清除”按钮，清除list1和list2中所有的项目。
4. 设计如图所示窗体form1,在窗体上画一个名称为lst的列表框，通过属性窗口向列表框添加“中国”、“日本”、“新加坡”、“澳大利亚”、“美国”五个项目；在列表框右侧上方画一个名称为text1的文本框，并使其内容空白；在文本框下方画两个名称分别为c1和c2、标题分别为“修改”和“添加”的命令按扭。
程序运行时要求：单击“修改”按钮时文本框text1中显示列表框中选中项目内容，同时列表框移除该项；单击“添加”按钮时，将文本框修改后的内容添加在列表框中列表的末尾。
保存窗体文件xg.frm,工程文件为xg.vbp.5. 设计如图所示窗体form1,在窗体左边画两个名称为t1、t2的文本框，文本框内显示空白；在窗体右下方画一个名称为c1的命令按扭，按扭的标题为“复制”。
编写适当的事件过程，使得在运行时，选定t1中任意文本后，单击命令按扭c1,文本框t2中显示t1中所选定的文本。
附录2 Visual Basic上机模拟试题（1～10套）上机模拟试题 1一、调试程序（程序存盘文件名Test11.frm、Test11.vbp）（40分）在磁盘上有一名为“test11.vbp”的文件（程序界面如图1所示）。
其功能为：单击图片框后，则在图片框Picture1中输出如下所示的图形。
图1该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test12.frm、Test12.vbp）（60分）建立一个窗体，界面如图2所示。
程序功能要求如下：1、单击“查找”按钮后，查找所有四位数中满足条件“奇数位之和与偶数位之和均为素数”的数，并显示列表框list1中。
2、统计找到的满足条件的数的个数。
3、单击“存盘”按钮，将找到的数据存入数据文件“test12out.txt”中。
4、要求编写函数来判断是否是素数。
图2上机模拟试题2一、调试程序（程序存盘文件Test21.frm、Test21.vbp）（40分）在磁盘上有一名为“test21.vbp”的文件（程序界面如图1所示）。
其功能为：当在text1中输入行数和在text2中输入起始字母后，单击命令按钮command1，则在picture1中输出图形如图1所示。
要求：在text2中只能输入一个英文字母字符（大小写均可以），否则，提示错误信息，如图2所示。
图1 图2 该程序中存在多处错误，请调试并改正之（注意：在程序调试过程中，不能删除整个语句，添加语句也不得超过2条。
）二、编程（程序存盘文件名Test22.frm、Test22.vbp）（60分）建立一个成绩查询窗体，界面如图3所示。
程序功能要求如下：图31、在Form1_Load时，打开磁盘文件“test22in.txt”读取数据，并将读入的学号和姓名分别添加进两个列表框中，同时将三门课程的考试成绩读入c，d，e三个数组中（每个数组可定义为200个元素）；并默认选中第一名学生。
VB模拟试题一一、选择题1．工程文件的扩展名是（）A．.vbg B．。
vbp C．.vbw D．。
vbl2．一个窗体中带图片框控件（已装入图像）的VB应用程序从文件上看，至少应该包括的文件有（）A．窗体文件（。
frm)、项目文件（.vbp/vbw）B．窗体文件（。
frm）、项目文件（。
vbp/vbw）和代码文件（。
bas)C．窗体文件（.frm)、项目文件（。
vbp/vbw)和模块文件(。
bas）D．窗体文件（.frm）、项目文件（.vbp/vbw）和窗体的二进制文件（。
frx）3．以下关于窗体描述正确的是（）A．只有用于启动的窗体可以有菜单B．窗体事件和其中所有控件事件的代码都放在窗体文件中C．窗体的名字和存盘的窗体文件名必须相同D．开始运行时窗体的位置只能是设计阶段时显示的位置4．VB中控件主要分为3类,下面哪一种不是VB中的控件类（)A．标准控件B．ActiveX C．可插入控件D．外部控件5．在VB的基本数据类型中,通用类型(Variant)可以表示任何类型的变量,如果有定义Dim a,则以下变量赋值中正确的是（）A．a=”OK”B．A＄=OK C．a=04/01/2001 D．a＄=”OK”6．在窗体上添加一个命令按钮和一个文本框，并在命令按钮中编写如下代码：Private Sub Command1_Click( )A=1。
2C=Len(Str＄（A)+Space（10))Text1.text=CEnd Sub程序运行后，单击命令按钮，在文本框中显示（）A．3 B．8 C．14 D．107．在MsgBox函数中哪一个参数是必须的（）A．prompt B．buttons C．title D．context8．以下语句的输出结果是（）Print Format＄（1234.5,”00,000。
00”)A．1234。
5 B．01，234.50 C．01,234.5 D．1,234.509．有如下语句：Type StudentName As StringAge As IntegerSex As StringEnd TypeDim Stu As StudentWith Stu。
VB机试模拟试卷120(题后含答案及解析)题型有：1. 基本操作题 2. 简单应用题 3. 综合应用题基本操作题（30分）1．(1)在名称为Forml的窗体上建立一个名称为P1的图片框和两个命令按钮，名称分别为Cmdl和Cmd2，标题分别为“输出”和“清除”，如图22—1所示。
要求程序运行后，每单击一次“输出”按钮，不使用任何变量而直接在图片框中显示小写字母“load me’’；如果单击“清除”按钮，则清除图片框中的内容。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjl．frm，工程文件名为sjl．vbp。
(2)在名为：Form1的窗体上绘制一个标签，名为Labl，标签上显示“请输入密码”；在标签的右边绘制一个文本框，名为Textl，其宽、高分别为1500和300。
设置适当的属性使得在输入密码时，文本框中显示“*”字符，此外冉把窗体的标题设置为“PassWord窗口”。
运行时的窗体如图22—2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
正确答案：(1)本题主要考查图片框控件的基本操作。
命令按钮的标题通过Caption属性设置，单击命令按钮触发Click事件；打印信息用Print方法，清除用Cls方法。
题目要求在图片框中打印信息，所以在编写代码时应指定Print方法和C1s方法的使用对象。
在窗体上建立好控件后，先设置控件属性，再编写事件过程。
①建立界面并设置控件属性。
程序用到的控件及其属性见下表。
②命令按钮Cmdl触发Click事件，打印信息用Print方法。
题目要求在图片框中打印信息，所以在编写代码时，应指定Print方法使用对象。
Private Sub Cmdl Click( ) P1．Print”load me”End Sub ③清除用Cls方法。
题目要求清除图片框中的信息，所以在编写代码时，应指定Cls方法的使用对象。
Private Sub Cmd2_Click( ) P1．Cls End Sub ④调试并运行程序。
VB笔试模拟试卷123(题后含答案及解析) 题型有：1. 选择题 2. 填空题选择题（每小题2分，共70分）下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。
1．下列说法中错误的是( )。
A．在同一模块不同过程中的变量可以同名B．不同模块中定义的全局变量可以同名C．引用另一模块中的全局变量时，必须在变量名前加模块名D．同一模块中不同级的变量可以同名正确答案：D解析：变量可以分为3类：局部变量、模块变量、全局变量。
在同一模块不同过程中的变量叫做局部变量，其作用域是它所在的过程，所以不同过程中的局部变量可以同名；模块变量的作用范围是整个窗体或模块，引用其他模块中的模块变量时，必须加上模块名；当同一个模块内的不同过程使用相同的变量时，必须声明窗体层的变量，当然不能有重名。
2．下列数据结构中，属于非线性的是( )。
A．线性表B．队列C．树D．栈正确答案：C解析：线性结构，是指数据元素只有一个直接前件元素和直接后件元素。
线性表是线性结构。
栈和队列是指对插入和删除操作有特殊要求的线性表，树是非线性结构。
3．下列叙述中错误的是( )。
A．线性表是由n个元素组成的一个有限序列B．线性表是一种线性结构C．线性表的所有结点有且仅有一个前件和后件D．线性表可以是空表正确答案：C解析：线性表是一种线性结构，由n(n≥0)个元素组成，所以线性表可以是空表。
但是在线性表中，第一个结点没有前件，最后一个结点没有后件，其他结点有且只有一个前件和后件，所以C是错误的。
4．按照“先进先出”组织数据的数据结构是( )。
A．队列B．栈C．双向链表D．二叉树正确答案：A解析：队列是一种特殊的线性表，只允许在表的一端插入元素，在表的另一端删除元素，插入元素的一端叫“队尾”，删除元素的一端叫“队头”，先插入的元素先被删除，是按“先进先出”的原则组织数据的。
5．下列关于线性链表的描述中正确的是( )。
模拟试题一一、单选题1. VB6.0是一种面向的编程环境。
(A) 机器(B) 对象欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(C) 过程(D) 应用2. 以下关于窗体的Name属性的叙述正确的是。
欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(A) 窗体的Name属性可以为空(B) 窗体的Name属性是显示在窗体标题栏中的文本(C) 可以在运行期间改变窗体的Name属性欢迎使用本资料，祝您身体健康、万事如意，阖家欢乐。
愿同学们健康快乐的成长。
早日为祖国的繁荣昌盛奉献自己的力量(D) 窗体的Name属性指定窗体的名称，用来标识一个窗体3. 若要使命令按钮不可操作，要对属性进行设置。
(A) EnabIed (B)Visible(C) Backcolor (D)Caption4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过事件获得输入键值的ASCII码。
(A) Change (B) LostFocus(C) KeyPress (D) GotFocus5. 下面是合法的变量名。
(A) pi (B)π(C) print (D) a+k6. 表达式Int(10*Rnd)产生的随机数的范围是。
(A) [1,9] (B) [1,10](C) [0,10] (D) [0,9]7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是。
(A) x=1:y=1:z=1 (B) x=1,y=1,z=1(C) x=y=z=1 (D) xyz=18. VB提供了结构化程序设计的三种基本结构，三种基本结构是。
(A)递归结构、选择结构、循环结构(B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D)选择结构、循环结构、顺序结构9. 当VB执行下面语句后，变量a的值为。
VB复习题一一、判断题：(每小题1分，共20分。
请将答案涂在答题卡上，正确的涂A，错误的涂B）1.Visual Basic 6.0工作模式有3种：它们是设计、运行和调试。
（）2.标签支持Dblclick事件。
（2 ）3.窗体中控件的位置由Height和Top属性确定。
（3 ）4.滚动条的SmallChange属性设置为5时，表示单击滚动条两端的箭头时变化为5. （4 ）5.当把定时器控件的Visible属性设置为True时，运行时定时器在窗体上就可见了。
（5 ）6.Vbred是Visual Basic 6.0允许的常量。
（6 ）7.#25/6/2018#是Visual Basic 6.0合法的日期型常量书写。
（7 ）8.逻辑运算符Not的优先级比Or高。
（8 ）9.Visual Basic 6.0中可以用print做变量名。
（9 ）10.表达式5 mod 4与5\4的结果相同。
（10 ）11.语句if x>=60 and x<70 then print ”及格”是正确的。
（11 ）12.有select case 语句必须有End select语句与之相匹配。
（12 ）13.Exit for是Do循环的一个出口。
（13 ）14.选择结构与循环结构可以相互嵌套，并且允许交叉嵌套。
（14 ）15.Visual Basic 6.0中，Dim a(-5 to 5) as single 是正确的数组定义。
（15 ）16.可以用Ubound()函数返回数组下标的下界。
（16 ）17.过程体内可以再定义另外一个过程。
（17 ）18.实参是变量，且过程定义时与其对应的形参用Byval关键字加以限制是地址（引用）传递。
（18 ）19.用Output模式打开文件，如果指定的路径不存在，则会自动先创建指定的路径，然后再创建文件。
（19 ）20.Visual Basic 6.0中，文件号最大可取的值是511。
要向C盘根目录下的名为my.txt的顺序文件中读出数据，应先使用_________语句打开文件。
复选框对象如果被选中，它的Value值为____________ 。
下列可作为Visual Basic 变量名的是____________。
以下能判断是否到达文件尾的函数是__________如果在实验课上进行程序调试，运行时遇到意外出错，最有效的做法是：看清系统错误原因提示信息，____________，以确定错误原因。
要想从子过程调用后返回两个结果，下面子过程语句说明合法的是____________ 。
在用通用对话框控件建立打开文件对话框时，在文件列表框中只允许显示txt和rtf类型的文件，则Filter属性的正确设置是_________。
在程序运行期间可以用____________函数把图形装入窗体、图片框或图像框。
列表框List1中已有10个列表项，要显示列表框List1最后一项，有两种表示法， __________是正确的。
在默认情况下定义了10个元素的数组a，用变量n表示它的上界，有两种赋值语句，______________是正确的。
为了使控件对象不响应用户的事件，需要____________。
假定焦点已经位于文本框Text1中，则能够触发 KeyPress 事件的操作是____________。
设变量x = 1，y = -1，a = 5，b = -5，则以下表达式的值为“真”的是____________。
单击滚动条控件的箭头按钮，滑块的移动幅度与_______________属性设置有关。
在自定义函数中，可以通过____________返回值。
程序填空单击窗体执行将所输入的整数插入排序后的原数组元素适当位置。
Function Insert(s(), ByVal key As Integer) As IntegerDim k%, i%, j%k = ___(1)_____For i = 0 To UBound(s)If key < s(i) Thenk = i_____(2)_______End IfNext iReDim Preserve s(UBound(s) + 1)For j = UBound(s) - 1 To k Step -1______(3)____Next js(k) = keyInsert =UBound(s)End FunctionPrivate Sub Form_Click()Dim a() As Variant, i%, p%, m%a = Array(1, 3, 6, 8, 9, 13, 17, 20, 25)For i = 0 To UBound(a)______(4)_____Next iPrint: Printp = InputBox("请输入要插入的数：")m =____(5)____For i = 0 To mPrint a(i);Next iPrint: PrintEnd Sub单击窗体读当前文件夹中的文本文件data.txt数据，找出其中年龄最大者的年龄、姓名和全部人数，输出并保存在当前文件夹的中result.txt。
data.txt的数据格式形如：王海涛, 18李林, 20……Private Sub Form_Click()Dim Name$, Age%, maxName$, maxAge%n = 0maxAge = 0Open App.Path + "\data.txt" For Input As #1Do While ____(1)______Input #1, Name, Agen = n + 1If Age > maxAge Then____(2)______maxName = NameEnd IfLoopClose #1Label1.Caption = "最大年龄：" & maxAge & vbCrLf & "最大年龄姓名：" & maxName & vbCrLf & "人数：" & nOpen App.Path + "\result.txt" ______(3)______Print #2, maxName, maxAge, nClose #2End Sub单击按钮执行在输入样本串中查找字串，删除字串字符后输出至结果文本框。
用复选框可选择查找方式是否区分大小写。
Private Sub Command1_Click()Dim ss$, s0$, len0%, ms$, i%ss = Text1.Texts0 = Text2.TextIf _____(1)____ Thens0 =_____(2)______End Iflen0 = Len(s0)For i = 1 To Len(ss) - len0 + 1ms = _____(3)______If Check1.Value = 1 Thenms = UCase(ms)End IfIf (ms = s0) Thenss = Mid(ss, 1, i - 1) + Mid(ss, i + len0)i = i - 1End IfNext iText3.Text =___(4)_____End Sub操作题三、程序调试题(共20分，每错2.5分，第1题有2处错，第2题3处错，第3题3处错)启动工程文件C:\ks\cxts3.vbp，程序存在8处错误，请调试改正，并按原文件名和位置保存。
正确结果见样例cxts3.exe。
改错方法：不能修改或重新定义变量，不允许增加或删除语句，但可以修改语句,所修改的语句必须在句尾加上注释标记'***********。
调试改错题1,有2处错误：输入18位身份证号码，通过第7~10位取出出生年，给出寄语。
对1959（含）出生的人，寄语为"步入中老年，请您注意身体！"；对1960年代和1990年代出生的人，寄语均为"60后和90后要多沟通，避免代沟！"; 对于1970~1989年出生的人，寄语为"70、80后的青年，祝你工作顺利！"；对于2000后出生的人，寄语为"小朋友，祝你茁壮成长！"; 其余判断为输入错误，清空文本框并置焦点。
Private Sub Command1_Click()Dim bthyear%, lbltx$bthyear = Val(Mid(Text1.Text, 7, 4))Select Case bthyearCase Is <= 1959lbltx = "步入中老年，请您注意身体！"Case (bthyear>=1960 and bthyear<=1969) or (bthyear>=1990 and bthyear<=1999)lbltx = "60后和90后要多沟通，避免代沟！"Case "1980" to "1989"lbltx = "70、80后的青年，祝你工作顺利！"Case 2000, 2001, 2002 To 2008, Is > 2008lbltx = "小朋友，祝你茁壮成长！"Case Elselbltx = "输入错了吧？！请重新输入"Text1.Text = ""Text1.SetFocusEnd SelectLabel2 = lbltxEnd Sub调试改错题2，有3处错误：产生隔行轮换显示字母和数字的菱形图案（规律如图）Private Sub Command2_Click()Dim i%, j%, k%, p%p = 3For i = 0 To 14If i <= 7 Thenk = iElsek = 14 - iEnd IfPicture1.Print Tab(p + 7 - k);If k Mod 2 ThenFor j = k To 3 * kPicture1.Print Chr(66 + k);Next jElseFor j = k To 2 * kPicture1.Print Trim(Str(k));Next jEnd IfPicture1.PrintNext iEnd Sub调试改错题3，有3处错误：随机产生1~20个大写字符串，并随机产生一个大写字母分别填入两个文本框中，统计这个大写字母在该串中出现的次数。
Private Sub Command3_Click()Dim str1$, str2$, i%, j%, sum%Text2 = ""i = Int(Rnd() * 20 + 1) '产生1~20之间的随机整数For j = 1 To iText2 = Text2 + Chr(64 + Int(Rnd() * 26 + 1)) '随机产生大写字母字符串NextText3 = Chr( Int(Rnd() * 26 + 1))str1 = Text2str2 = Text3sum = 1For j = 1 To iIf Left(str1, j, 1) = str2 Thensum = sum + 1End IfNextIf sum <> 0 ThenLabel4 = str2 & "在字符串中出现了" & sum & "次。
"ElseLabel4 = str2 & "在字符串中没有出现过"End IfEnd Sub四、编程题（35分）1．在C:\KS 目录下新建项目bct0.VBP，按如下要求编程并保存。
2．在Form1窗体上放置两个列表框。
建立如下菜单：3．单击菜单"产生"随机产生10个大写字母，填入List1中。
单击菜单"筛选"将列表框1中"K"以后（含"K"，ASCII码值为75）的字母选出，填入List2中。
4．单击"绘图"菜单项时，显示窗体2；单击"结束"菜单项时，结束程序的运行。
5．在窗体2上单击"绘图"命令按钮，设置画布区域为(-10, 2)-(10, -2),按以下公式绘制，当Y>0为红色图形，Y<0为蓝色图形，t= -3π～3π：x = ty = Sin(t)（提示：函数图形通过计算Y的值，画垂直于X轴的直线显示）单击"返回"命令按钮则关闭窗体2，返回窗体1。
