VB试题(一)
计算机程序设计-VisualBasic【VB】考试试题(1)
A、 AutoSize B、 Visible C、 Enabled D、 WordWrap 正确答案： A 解析：
42、当文本框的 MaxLength 属性值取________时，该文本框能容纳的字符数最多。
A、 256 B、 512 C、 0 D、 -1 正确答案： C 解析：
43、在一行语句内写多条语句时，每个语句之间用_____ ___符号分隔。
A、 ； B、 : C、 ， D、 、 正确答案： B 解析：
44、结构化程序由三种基本结构组成，下面术语中是三种基本结构之一的是______ _。
A、 递归结构 B、 选择结构 C、 输入输出结构 D、 过程结构 正确答案： B 解析：
45、在默认情况下，InputBox() 函数返回值的类型为______ __。
8、下列关于 VB 编程的说法中，不正确的是（ ）。
A、 事件是能被对象识别的动作 B、 方法指示对象的行为 C、 属性是描述对象特征的数据 D、 VB 程序采用的运行机制是面向对象 正确答案： D 解析：
9、下面所列符号中，_________不是数据类型说明符。
A、 !
B、 % C、 ？ D、 # 正确答案： C 解析：
A、 0.01*Int(100*(x+0.005)) B、 0.01*Int(x+0.005) C、 0.01*Int(100*(x+0.05)) D、 0.01*Int(x+0.05) 正确答案： A 解析：
24、从字符串变量 Cstr 中取左边 4 个字符，应使用________。
A、 Left(Cstr，4) B、 Left(Cstr，1，4) C、 Mid(Cstr，3，4) D、 Mid(Cstr，4，3) 正确答案： A 解析：
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明类模块中的属性？A. DimB. PublicC. PrivateD. Property答案：D2. VB中的“Option Explicit”语句用于做什么？A. 声明变量类型B. 强制变量声明C. 定义过程D. 创建对象实例答案：B3. 下列哪个不是VB的控件事件？A. ClickB. LoadC. ChangeD. Hover答案：D4. 在VB中，以下哪个不是标准数据类型？A. IntegerB. StringC. BooleanD. Pointer答案：D5. VB中的“With”语句用于什么？A. 初始化对象B. 创建对象实例C. 引用对象的多个属性或方法D. 循环遍历集合答案：C6. 在VB中，如何将一个表达式的结果赋值给一个变量？A. 使用“=”运算符B. 使用“==”运算符C. 使用“:=”运算符D. 使用“->”运算符答案：A7. 下列哪个是VB中的循环结构？A. IfB. For EachC. Select CaseD. While答案：D8. 在VB中，如何表示一个空引用？A. NullB. NothingC. EmptyD. Undefined答案：B9. VB中的“Handles”关键字用于什么？A. 过程定义B. 事件处理C. 类定义D. 属性声明答案：B10. 在VB中，以下哪个不是集合的属性或方法？A. AddB. ItemC. CountD. Sort答案：D二、填空题（每题2分，共20分）11. VB中的________关键字用于定义一个方法或属性的访问级别。
答案：Private12. 当你想要在VB中创建一个新类时，你需要使用________关键字。
答案：Class13. 在VB中，________方法用于在运行时创建对象。
答案：New14. 如果你想要在VB中捕获并处理异常，你应该使用________语句。
vb选择题1
1; 在vb中，下列哪一数据类型长度为四个字节（）A);货币型B);日期型; C);单精度型; D);双精度型2;下列语句中哪一句正确定义了一个整型变量（）A);Dim i As Integer; B);Dim i As Int;C);Static i As Long; D);Static I As Single3;关于整型变量下列说法错误的是（）A);用于保存整数; B);类型符为%;C);最大整数为216-1; D);占两个字节4;关于逻辑数据类型下列说法正确的是（）A);该数据类型可进行数值运算;B);该数据类型只有两个值;C);该数据类型占1个字节;D);定义该类型的关键字为bool5; 下列哪一组语句不能正确定义两个字符型变量（）A);Dim str1,str2 as StringB); Dim str1$,str2$C);Dim str1 as String ,str2 as StringD);Dim str1 as String Dim str2 as String6;下面哪一个关键字不能用来声明变量（）A);Dim ;B);Static ;C);private ;D);define7;下列符号中，哪一个是不合法的变量名（）A);124-q ;B);a_q ;C);变量;D);xyz8;下列符号中，哪一个是合法的变量名（）A);1_1 ;B);123_a ;C);integer ;D);sinx9; 若选拔优秀毕业生的条件是：年龄（age）小于19岁，三门功课总分(total)大于285分，其中有一门(mark)为100分，表达式应写为;A);age<19 and total>285 and mark1=100 or mark2=100 or mark3=100;B);age<19 and total>285 or mark1=100 or mark2=100 or mark3=100;C);age<19 and total>285 and （mark1=100 or mark2=100 or mark3=100）;D);(age<19 or total >285) and (mark1=100 or mark2=100 or mark3=100)10；要产生30—50之间的随机整数，下列表达式正确的是（）;A);int(rnd*20+30) ;B);int(rnd*21+30)C);int (rnd*31+20) ;D);int(rnd*50)11;函数asc("A")的值为（）A); 97;B); 65 ;C);12 ;D);6412;实现ASCII码转换成字符的函数是（）A);STRING( ) B);ASC( ) C);STR( ) D);CHR$() 13;INT(-7.3)=( ) A); 7 ;B);8 ;C);-7 ;D);-814;ROUND(-7.3)=( )A);7 ;B);8 ;C);-7 ;D);-815;V AL("123A")=( )A);123A ;B);12365 ;C);123 ;D);"123"16;LEFT$("ABCDEF",3)=( ) A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"17;LEN("AB高等教育")=( )A);6 ;B);7 ;C);12 ;D);1418;RIGHT$("ABCDEF",3)=( ) A);"DEF" ;B);"CDE" ;C);"ABC" ;D);"BCD"19;STRING$(3,"ACDEF")=( ) A);"AAA" ;B);"ACD " ;C);"DEF" ;D);"FFF"20;下面哪一个函数返回系统日期（）A);DA TE( ) B);NOW( ) C);TIME() D);DA Y() 21; 下面哪一个函数返回系统时间（）A);DA TE() B);NOW() C);TIME() D);DA Y() 22;下面哪一个函数返回系统日期和时间（）A);DA TE() B);NOW() C);TIME() D);DA Y() 23;有程序段如下Private Sub Form_Click()Dim I As IntegerI = I + 1Print IEnd Sub当第三次单击窗体时打印出的I值为（）A);0 B);1 C);2 D);324; 已知X=1,Y=2,T=0 经程序段X=T:T=Y:Y=T 赋值后X,Y 值分别为（）;A);1,2 ;B);0,0 ;C);0,2 ;D);1,025;语句SELECT CASE X 中,X为一整型变量，下列CASE语句中,哪一句表达式是错误的（）A);CASE IS>20 B);CASE 1 TO 10C);CASE X>10 D);CASE 2,4,626;下列哪个语句用来打开一个已存在的文件或建立一个新文件（）A);GET ;B);INPUT ;C);PUT ;D);OPEN27;下列哪一组语句正确将文本框Text1的全部内容一次性写入文件（）A); Open “T ext.dat”For Output As #1Print #1 Text1.textClose #1;B); Open “Text.dat” For Input As #1Print #1 Text1.textClose #1;C); Open “Text.dat” For Input As #1Print #1 Text1.textClose #1D); Open “Text.dat” For Output As #1For I= 1 to Len(Text1.text)Print #1 Mid(Text1.text,I,1)Next IClose #128;下列哪一种格式画出了一条从（0，0）到（x，y）的直线A);Line(x,y) B);Line(0,x,0,y)C);Line(0,0,x,y) D);Line(0,0)-(x,y)29;下面哪一条语句正确画出了一组半径由5到10每次递增1，圆心在（15，15），红色的同心圆（）A);For I= 5 to 10Circle(15,15),I,RGB(255,0,0)Next IB);For I= 1 to 10Circle I,(15,15),RGB(0,255,0)Next IC);For I= 5 to 10Circle I,(15,15),RGB(255,0,0)Next ID);For I=5 to 10Circle(15,15),I,RGB(0,255,0)Next I30;设已有语句Option Base 1，下面哪一组语句正确定义了有10个整型元素的数组（）A); dim x(9) as integerB); dim x(n) as integer n=10C);dim x(10) as integerD);dim x(n) as integer n=931;循环语句For I= -3 to 20 step 4的循环次数为多少（）A);4 B);5 C);6 D);732; 下列关于通用对话框CommangDialog控件说法正确的是：（）A);可在工具箱里选择直接添加B);可以实现文件打开，存储，颜色设置等功能C);是ActiveX控件D);运行时大小可以改变33;下面哪一段循环嵌套是正确的（）A); For I= 1 to 10For J=1 to 10…….Next INext j;B); For I= 1 to 10For j=1 to 10………next jnext I;C); For I=1 to 10For j= 1 to 20………next Inext I;D); For I= 1 to 10For j=1 to 20………next jnext j34;已知变量S初值为0，下列哪组语句求出s=1+2+3…+100的和( );A);For I=1 to 100s=s+1next I;B);For I=1 to 100s=s+Inext I;C);doI=I+1s=s+Iloop;D);dos=s+Iif I=100 then exit doloop35;下列关于控件数组说法正确的是( )A);同一数组有相同的属性B);同一数组可由不同类型的控件组成C);同一数组的各个控件元素的属性可不同D);每个元素可以有多个索引号36;下面关于图形框(PictureBox)和图像框(Image)说法不正确的是( )A);图形框可保存其他控件B);均可加载图片C);图像框可以保存其他控件D);图像框可以比图形框占用更少内存37;下面关于文本框和标签说法不正确的是( )A);标签经常用来显示文本信息B);文本框具有Lostfocus 事件C);可以在标签上输入、编辑、显示文本内容D);文本框是一个文字编辑区域38;下面关于比较排序说法不正确的是（）A);在每一轮排序时找最小数（递增次序）的下标,内循环结束时,再交换最小数的位置B);在每一轮排序时将相邻的数比较,当大小次序不对就交换位置C); 比较排序又称冒泡排序D); 在每一轮排序时（递增次序），内循环结束，则最小数冒出39;下列哪一个不属于文件系统控件（）A);驱动器列表框B); 目录列表框B)C); 文本框D);文件列表框40;下列哪一个属性不属于文本框：（）;A);text ;B);caption ;C);name ;D);height 41;下列哪一个操作不是从顺序文件中读数据到内存的步骤：（）;A);打开;B);写入;C);读出;D);关闭42;下列数据类型与其类型说明符对应正确的是( )A);%--整型;B);$--货币型C);@--字符型;D);!—长整型43;关于VB 中的运算符，以下说法正确的是( )A);“×”是算术运算符，含义是“乘法运算”；B);“≠”是关系运算符，含义是“不等于”；C);“!”是逻辑运算符，含义是“非”；D);“And”是逻辑运算符，含义是“与”。
vb试题及答案一
vb试题及答案一一、选择题1. 在Visual Basic中，以下哪个关键字用于声明一个变量？A. DimB. IfC. ForD. While答案：A2. Visual Basic中的哪个控件用于显示文本，但不允许用户编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 在Visual Basic中，以下哪个事件用于响应按钮点击？A. ClickB. LoadC. ChangeD. DblClick答案：A4. 在Visual Basic中，以下哪个函数用于将字符串转换成数字？A. Str()B. Val()C. Int()D. CInt()答案：D5. 在Visual Basic中，以下哪个语句用于结束程序的执行？A. EndB. ExitC. StopD. Quit答案：B二、判断题1. Visual Basic是一种面向对象的编程语言。
（对）2. 在Visual Basic中，所有的变量都需要声明数据类型。
（错）3. 在Visual Basic中，可以使用If语句来实现条件判断。
（对）4. Visual Basic中的数组下标总是从0开始。
（错）5. Visual Basic中的事件驱动编程允许程序在没有用户交互的情况下运行。
（错）三、简答题1. 请简述Visual Basic中使用循环结构的目的是什么？答：循环结构在Visual Basic中用于重复执行一段代码直到满足特定条件，这使得处理大量数据或执行重复任务变得更加高效和简洁。
2. 请解释Visual Basic中类和对象的区别。
答：在Visual Basic中，类是一个模板，它定义了对象的属性和方法。
而对象是类的实例，具有类定义的属性和方法，并可以进行操作。
四、编程题1. 编写一个Visual Basic程序，该程序接受用户输入的三个数，并计算这三个数的平均值。
```vbDim num1 As DoubleDim num2 As DoubleDim num3 As DoubleDim average As Double' 接受用户输入num1 = Val(InputBox("请输入第一个数:"))num2 = Val(InputBox("请输入第二个数:"))num3 = Val(InputBox("请输入第三个数:"))' 计算平均值average = (num1 + num2 + num3) / 3' 显示结果MsgBox "这三个数的平均值是: " & average```五、论述题1. 论述Visual Basic中事件处理的重要性及其在应用程序开发中的应用。
全国计算机等考试VB语言笔试试题及答案(一)
全国计算机等考试VB语言笔试试题及答案(一)全国计算机等级考试(VB语言)笔试试题及答案为了让广大考生能更好的备考，本文将为大家提供全国计算机等级考试VB语言笔试试题及相关答案解析。
VB语言考试是比较热门的一种考试，因此备考也是非常重要的。
下面是试题及答案解析，希望对大家有所帮助。
一、单选题1、在VB语言中，执行时间比较久的程序可以采用的方法是：A.增加循环次数B.加快程序运行速度C.使用进度条等控件D.以上都不对【答案及解析】C。
在程序运行期间，如果程序执行时间太长，可以使用进度条控件使用户知道程序正在执行，以及当前运行到哪一步，提升程序的运行效率和用户体验。
2、在VB语言中，某控件的Tag属性表示：A.控件的位置B.控件所在窗口的名称C.控件的类型D.控件存储数据的指针【答案及解析】D。
在VB语言中，每个控件都可以设置其Tag属性，Tag属性可以存储控件相关的任何数据，该属性非常灵活方便。
3、在VB语言中，数组存储数据的方式是：A.栈存储B.堆存储C.静态存储D.以上都错【答案及解析】B。
在VB语言中，数组存储在堆中，即动态内存分配，这样以便在程序运行时更好地管理和利用内存。
二、多选题1、在VB语言中，下列哪些是合法的数组定义方式？（）A. Dim arr(3,5) As IntegerB. Dim arr(3)(5) As IntegerC. Redim arr(3,5)D. Dim arr() As Integer【答案及解析】A、D。
A、D都是合法的数组定义方式。
选项B是二维数组，但是定义方式不合法。
选项C是改变数组大小的方式，不是定义数组的方式。
2、在VB语言中，下列哪些事件是窗体的事件？( )A.LoadB.MouseMoveC.ClickD.Resize【答案及解析】A、D。
Load和Resize是窗体的事件，B和C是每个控件都有的事件。
三、判断题1、在VB语言中，Option Explicit语句可以保证变量在使用前被声明，从而减少程序出错的几率。
VB模拟试题一
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计算机技术基础试题1.doc
一、单项选择题（每题2分，共70分）1、下列运算符中优先级最高的是（）。
A. AB. /C. ModD. +2、语句Print 〃123〃+ 〃456”执行后，显示的结果是（）。
A. 123456B. 579C. 123D. 4563、为了把焦点移到某个指定的控件，所使用的方法是（）。
A. SetFocus D. GetFocusB. Visible c.Refresh4、表达式(7\3+1A . 8.675、设a=10 , b=5)*(18\5-1)的值是()B. 7.8 0. 6 D . 6.67窗体上显示的是（）。
A. TrueB. FalseC. 1D.出错信息6、VB采用（）的编程方法。
A.面向对象B.面向过程C.面向问题D.面向用户7、要在窗体上显示图片，需设置窗体的（）属性。
A. CaptionB. IconC. Picture8、将条件''X是小于100的非负数"用VB的表达式表示为（)O D. ControlBoxA. 0<X<100B. 0 <= X < 100C. 0 <=X AND X < 100D. 0 (= X OR X < 1009、执行下面的程序段后，x 的值为( )。
x=5For i=l To 10 Step 2x=x+i\5Next iprint xA. 6B. 7C. 8D. 910、VB的应用程序中，决定程序流向的是()。
A.对象B.方法C.属性D.事件11＞在窗体上画一个文本框（其中Name属性为Textl ）,然后编写如下事件过程: Private Sub Form Load() dim ias integer Textl. Text二〃〃Textl. SetFocusFor i=l To 10Sum=Sum+iNext iTextl. Text二Sinn End Sub上述程序的运行结果是()OA.在文本框Textl中输出55B.在文本框Textl中输出0C.出错D.在文本框Textl中输出不定值12、13、14、15、16、17、18、分别为(D. 4 和168窗体中有一PICTURE1 (图片)和一COMMAND 1 (按钮)控件,单击按钮则清除D:\T1.JPG图片的代码为( )A. PTCTURE1. PICTURE^ 〃B. PTCTURE1. PICTURE二CLEARC. PICTURE1. PICTURE二LOADPICTURE( )D. PICTURE1. PICTURE二LOADPICTURE(〃〃) Visual Basic是一种面向对象的程序设计语言，构成对象的三要素)语句可以使文本框内显示的内容为：5+7=12。
vb考试题及答案
vb考试题及答案一、选择题（每题2分，共20分）1. VB中的“Dim”关键字用于声明什么？A. 变量B. 常量C. 类型D. 过程答案：A2. 在VB中，以下哪个是合法的变量名？A. 2variableB. variable-nameC. variable$nameD. variable name答案：B3. VB中的“Sub”过程可以返回值吗？A. 是B. 否答案：B4. 在VB中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Date答案：C5. VB程序中，以下哪个语句用于结束程序？A. Exit SubB. End SubC. Exit ForD. End答案：D6. VB中，以下哪个是正确的条件语句？A. If (x > 10)B. If x > 10C. If x = 10 ThenD. If x = 10答案：C7. 在VB中，以下哪个是正确的循环结构？A. DoB. WhileC. ForD. All of the above答案：D8. VB中的“With”语句用于什么？A. 条件判断B. 循环控制C. 简化代码D. 错误处理答案：C9. 在VB中，以下哪个不是数组的声明方式？A. Dim arr(0 To 10) As IntegerB. Dim arr() As Integer = New Integer(10)C. Dim arr As Integer = New Integer(10)D. Dim arr(1) As Integer答案：D10. VB中，以下哪个是正确的事件处理程序声明？A. Sub Button1_Click()B. Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)C. Sub Button1_Click(ByVal e As EventArgs)D. Sub Button1_Click(ByVal sender As Object)答案：B二、填空题（每空2分，共20分）1. 在VB中，使用________关键字可以定义一个类。
VB程序设计试题及答案(一)
VB程序设计试题及答案（一)一、单选题1. VB6.0是一种面向 B 的编程环境。
（A）机器（B）对象(C）过程（D) 应用2. 要使FormI窗体的标题栏显示"欢迎使用VB",以下 D 语句是正确的。
（A) Forml。
Caption=“欢迎使用VB”（B) Forml。
Caption='欢迎使用VB’(C) Forml.Caption=欢迎使用VB(D）Forml.Caption=”欢迎使用VB”3。
若要使命令按钮不可操作,要对 A 属性进行设置。
(A）EnabIed （B)Visible(C）Backcolor (D)Caption4。
如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。
（A）Change (B）LostFocus（C) KeyPress （D）GotFocus5。
下面 A 是合法的变量名。
(A）X_yz (B）123ab。
（C) integer (D）X-Y6. 以下关系表达式中,其值为False的是 A 。
（A) "ABC">"AbC”（B）"女"〉"男”（C）”BASIC”=UCase（"basic）(D) ”123”<”23”7。
为了给x、y、z三个变量赋初值1,下面正确的赋值语句是 A .(A) x=1:y=1：z=1 （B) x=1,y=1，z=1(C）x=y=z=1 (D）xyz=18。
VB提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
（A）递归结构、选择结构、循环结构（B)选择结构、过程结构、顺序结构(C)过程结构、输入输出结构、转向结构(D）选择结构、循环结构、顺序结构9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。
(A）If sex="男" And age=4O And InStr(duty，"教授"）〉O Then n=n+l （B) If sex=”男" And age=4O And (duty=”教授” Or duty="副教授") Then n=n+l（C）If sex=”男” And age=4O And Right（duty，2）="教授" Then n=n+l (D）If sex="男" And age=4O And duty="教授" And duty=”副教授” Then n=n+l10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D 。
VB测试题1-2章
VB第一章测试题(1)1、激活主菜单的按键是（）A．F1或Ctrl键 B．Ctrl键或Atl键C．F10或Ctrl键 D．F10或Atl键2．如果设计时在属性窗口将命令按钮的（）属性设置为False，则运行时按钮从窗体上消失．A．Visible B．EnabledC．DisabledPicture D．Default3．退出Visual Basic的快捷键是（）A．Ctrl +Q B．Shift +QC．Alt+Q D．Ctrl+Alt+Q4．除了系统默认的工具箱布局外，在Visual Basic中还可以通过（）方法来定义选项卡组织安排控件．A．在工具箱单击鼠标右键，执行快捷菜单中的“添加选项卡”命令B．执行“文件”菜单中的“添加工程”命令C．执行“工程”菜单中的“添加窗体”命令D．执行“工程”菜单中的“部件”命令5．窗体设计器是用来设计（）A．应用程序的代码段 B．应用程序的界面C．对象的属性 D．对象的事件6．启动Visual Basic后，系统为用户新建的工程起一个名为（）的临时名称．A．工程1 B．窗体1C．工程 D．窗体7．工程资源管理器窗口中包含的文件类型有（）种．A．2 B．3C．4 D．58．Visual Basic的编程机制是（）A．可视化 B．面向对象C．面向图形 D．事件驱动9．Visual Basic集成环境的大部分窗口都可以从主菜单项（）的下拉菜单中找到相应的打开命令．A．编辑 B．视图C．格式 D．调试10．要在窗体上显示图片，需设置窗体的（）属性．A．Caption B．IconC．Picture D．ControlBox11．每个窗体对应一个窗体文件，窗体文件的扩展名是（）A．.bas B．.clsC．.frm D．.vbp12．双击窗体的任何地方，可以打开的窗口是（）A．代码窗口 B．属性窗口 C．工程管理窗口 D．以上3个选项都不对13．工具栏中的“启动”按钮的作用是（）A．运行一个应用程序 B．运行一个窗体C．工程管理窗口 D．打开被选中对象的代码窗口14．运行时，单击窗体将窗体的前景色设置为红色的事件过程是（）A． Private Sub Form_Click( ) B．Private Sub Form_Click( )BackColor=vbRed Form1.ForeColor=vbRedEnd Sub End SubC．Private Sub Form_Click( ) D．Private Sub Form_Click( )Form1.BackColor=vbRed ForeColor=vbRedEnd Sub End Sub15．如果要在命令按钮上显示图形文件，应设置命令按钮的（）A．Style属性和Graphics属性 B．Style属性和Picture属性C．Picture属性D．Graphics属性16．英文缩写OLE的含义是（）A．面向对象程序设计 B．对象链接C．对象嵌入 D．对象链接与嵌入17．在设计阶段，双击窗体Form1的空白处，打开代码窗口，显示（）事件过程模板．A．Form_Click B．Form_Load C．Form1_Click D．Form1_Load18．每建立一个窗体，工程管理器窗口中就会增加一个（）A．工程文件 B．窗体文件C．程序模块文件 D．类模块文件19．激活属性窗口使用的键是（）A．F2 B．F3 C．F4 D．F520．Visual Basic是一种（）程序设计语言．A．过程式 B．非过程式C．机器 D．低级21．不能在运行期间设置窗体的（）属性．A．BorderStyle B．Caption C．Icon D．MaxButton22．设在窗体上有两个命令按钮，其中一个命令按钮的名称为cmda，则另一个命令按钮的名称不能是（）A．cmdc B．cmdb C．cmdA D．Command1二、填空题1. 如果要在单击钮时执行一段代码，则应将这段代码写在_______________事件过程中．2. 一个工程可以包括多种类型的文件，其中，扩展名为.vbp的文件表示___________文件；扩展名为.frm的文件表示_____________文件；扩展名为.bas的文件表示_____________文件；包含ActiveX控件的文件扩展名为__________．3. Visual Basic 6.0用于开发__________环境下的应用程序．如果要使用命令按钮表面显示文字“退出（X）”（在字符X之下加下划线），则其Caption属性设置为___________，其括号中的X表示在运行时按下____________键与单击该按钮效果相同．打开“工程窗口”的方法之一是按下______________组合键．Visual Basic的控件通常分为3种类型，即___________、___________、____________．其中，____________不能从工具箱中被删除，_____________单独保存在.OCX文件中，在必要进可以加入到工具箱中．VB第一章测试题(2)一、选择题1. 标准模块文件的扩展名为_________。
vb考试试题及答案
vb考试试题及答案一、选择题1. VB中，用于声明变量的关键字是：A. DimB. DeclareC. ConstD. Option答案：A2. 在VB中，下列哪个选项不是合法的变量名？A. _myVarB. var2C. 123variableD. my$Var答案：C3. VB中，下列哪个选项是正确的条件语句？A. If condition ThenB. If condition Then ElseC. If condition Then Else IfD. If condition Then Else Else答案：A4. VB中，下列哪个函数用于计算字符串的长度？A. Len()B. Length()C. StrLen()D. Size()答案：A5. 在VB中，下列哪个选项是正确的循环结构？A. For i = 1 To 10B. Do While i < 10C. For Each i In arrD. All of the above答案：D二、填空题1. 在VB中，声明一个整型变量并赋值为100的语句是：________。
答案：Dim myVar As Integer = 1002. VB中，用于输出信息到立即窗口的函数是：________。
答案：Debug.Print3. VB中，用于暂停程序执行的函数是：________。
答案：Sleep4. VB中，用于获取当前日期的函数是：________。
答案：Date5. VB中，用于将字符串转换为整型的函数是：________。
答案：CInt三、简答题1. 简述VB中事件驱动编程的概念。
答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、系统消息等）触发，而不是由程序内部的逻辑顺序决定。
2. 描述VB中如何实现多线程编程。
答案：在VB中，可以使用Thread类或BackgroundWorker组件来实现多线程编程。
VB期末考试试题及答案
第一部分：客观题一、单项选择题1、在窗体模块的通用段中声明变量时，不能使用的关键字是（）A、 DimB、 PublicC、PrivateD、 Static2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（）A、工程资源管理器窗口B、工具箱窗口C、属性窗口D、代码窗口3、若要使某可见控件获得焦点，可使用（）方法来实现。
Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value4、下列不可作为VB变量名的是（）A、ABT1B、AlphaC、ABCD、4*Delta5、表达式 5 Mod 3+3\5*2的值是（）A、 0B、 6C、4D、 26、下列语句中，正确的赋值语句是（）A、 i + j = 10B、 2i = jC、 j = i + jD、 i * j = 07、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1Dox = x * ii = i + 1Loop While i < nA、 2B、 6C、 10D、 148、当用户在窗体上单击鼠标时，不会触发的事件是（）Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick9、下列为整型变量的是（）A、 x!B、 x#C、x$D、 x%10、要从For循环中直接退出循环，可使用的语句( )。
A、Exit DoB、Exit LoopC、Exit ForD、Stop11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（）A、x Mod 2 =1 Or y Mod 2 =1B、x Mod 2 =0 Or y Mod 2=0C、x Mod 2 =0 And y Mod 2=0D、x Mod 2 =1 And y Mod 2 =112、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。
Dim a(3, -2 To 1, 5) As IntegerA、60B、75C、120D、1313、设窗体上有一个名称为Text1的文本框，要求只能显示信息，不能输入，应选择答案（）A、=0B、=0C、=FalseD、=False14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是（）A、Picture属性中的图形B、DownPicture属性中的图形C、DisablePicture 属性中的图形D、不显示图形15、在窗体上画一个名称为Command1的命令按钮，并编写如下程序：Private Sub Command1_Click()Dim x As IntegerStatic y As Integerx=10：y=5Call f1(x,y)Print x,yEnd SubPrivate Sub f1(ByRef x1 As Integer, y1 As Integer)x1=x1+2y1=y1+2End Sub程序运行后，单击命令按钮，在窗体上显示的内容是（）A、 10 5B、 12 5C、 10 7D、 12 716、执行以下程序段，输出结果为（）Private Sub Command1_Click()a$="abbacddcba"For i=6 To 2 Step -2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z= UCase(x & y & z)Next iPrint zEnd SubA、 ABAB、ABBABAC、 BBABBAD、AABAAB17、以下（）语句可表示[50,100]之间的随机数。
vb试题1
下列关于 VB 编程的说法中，不正确的是_D_______。
A.事件是能被对象识别的动作B.方法指示对象的行为C.属性是描述对象特征的数据D.VB程序采用的运行机制是面向对象在 Visual Basic 中最基本的对象是__B_____，它是应用程序的基石，是其他控件的容器。
A.文本框B.窗体C.标签D.命令按钮VB6.0 的__A_____版本，可供专业编程人员开发功能强大的组内分布式应用程序。
A.企业版B.学习版C.专业版D.初级版有说明语句： Dim x! ，则 x 是__B______类型的变量。
A.整型B.单精度浮点型C.长整型D.双精度浮点型下面所列符号中，__C_______不是数据类型说明符。
A. !B. %C. ?D. #为了给 x,y,z 三个变量赋初值 1，下面的赋值语句正确的是______C___。
A.x=y=z=1B.xyz=1C.x=1：y=1：z=1D.x=1，y=1，z=1判断整型变量 x 是奇数的表达式是_D_______。
A.x Mod 2 !=0B.x Mod 2 =0C.x Mod 3=0D.x Mod 2<>0用来确定一个控件在窗体上位置的属性是_D_______。
A.Width和 HeightB.Width或HeightC.Top或LeftD.Top和Left在默认情况下，InputBox() 函数返回值的类型为___D_____。
A.逻辑类型B.变体类型C.数值型D.字符串型在使用 InputBox 时，必须设置的参数是___B_____。
A.无B.提示C.标题D.缺省以下 Case 语句中错误的是__A_____。
A.Case Is>10 And Is<5B.Case 3,5,Is>10C.Case Is>10D.Case 0 to 10当字符型变量中第三个字符是 "C" 时，利用 MsgBox 过程显示 "Yes"，否则显示"No"，正确的条件语句是___A_____。
vb基础知识第一章试题及答案
vb基础知识第一章试题及答案一、选择题（每题2分，共20分）1. Visual Basic的简称是什么？A. VBB. VBAC. VBSD. VBScript答案：A2. VB中用于声明变量的关键字是？A. DimB. ConstC. SubD. Function答案：A3. 下列哪个选项是VB中的字符串数据类型？A. IntegerB. StringC. DateD. Boolean答案：B4. VB中用于循环结构的关键字是？A. ForB. NextC. DoD. Loop答案：A5. VB中用于条件判断的关键字是？A. IfB. ThenC. ElseD. All of the above答案：D6. 在VB中，如何声明一个名为“myVar”的整型变量？A. Dim myVar As IntegerB. Declare myVar As IntegerC. Integer myVarD. Var myVar As Integer答案：A7. VB中用于定义函数的关键字是？A. FunctionB. SubC. ProcedureD. Method答案：A8. 在VB中，如何将文本框（TextBox）的文本内容赋值给一个字符串变量？A. Dim text As String = TextBox.TextB. Dim text As String = TextBox.TextC. Dim text As String = TextBox.TextD. Dim text As String = TextBox.Text答案：A9. VB中用于退出循环的关键字是？A. ExitB. BreakC. ContinueD. Return答案：A10. 在VB中，如何调用一个名为“myFunction”的函数？A. myFunction()B. Call myFunctionC. myFunctionD. Call myFunction()答案：D二、填空题（每题2分，共20分）1. 在VB中，声明一个名为“count”的整型变量，其初始值为10，应使用语句________。
vb精选试题及答案
vb精选试题及答案一、单项选择题（每题2分，共20分）1. 在VB中，以下哪个关键字用于声明变量？A. DimB. ConstC. FunctionD. Sub答案：A2. VB中数组的默认下标是从哪个数字开始的？A. 0B. 1C. -1D. 2答案：B3. 在VB中，以下哪个函数用于计算字符串的长度？A. LenB. UBoundC. LBoundD. Sqr答案：A4. VB中，哪个属性用于获取或设置一个窗体的标题？A. CaptionB. TextC. TitleD. Label答案：A5. 在VB中，以下哪个事件用于响应鼠标单击窗体？A. ClickB. DblClickC. MouseDownD. MouseUp答案：A二、填空题（每题3分，共15分）1. 在VB中，声明一个整型变量的正确语法是________。
答案：Dim myVar As Integer2. VB中，用于定义一个过程的关键字是________。
答案：Sub 或 Function3. VB中，用于读取用户输入的函数是________。
答案：InputBox4. VB中，用于打开文件的语句是________。
答案：Open5. VB中，用于关闭文件的语句是________。
答案：Close三、简答题（每题5分，共10分）1. 请简述VB中的事件驱动编程是什么？答案：事件驱动编程是一种编程范式，程序的执行流程由外部事件（如用户操作、消息、信号等）触发。
在VB中，用户可以通过编写事件处理程序来响应这些事件。
2. VB中如何实现循环结构？答案：在VB中，可以使用For...Next循环、Do...Loop循环、While...Wend循环等结构来实现循环。
四、编程题（每题10分，共20分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
答案：请参考以下代码：```vbDim sum As IntegerDim i As Integersum = 0For i = 1 To 100If i Mod 2 = 0 Thensum = sum + iEnd IfNext iMsgBox "1到100之间所有偶数的和是：" & sum```2. 编写一个VB程序，判断一个给定的年份是否为闰年。
vb考试试题及答案
vb考试试题及答案一、选择题（每题2分，共20分）1. 在Visual Basic中，以下哪个不是基本数据类型？A. IntegerB. StringC. ObjectD. Array答案：D2. 下面哪个语句用于在Visual Basic中声明一个变量？A. DimB. DeclareC. DefineD. Set答案：A3. 在Visual Basic中，以下哪个是正确的循环结构？A. LoopB. WhileC. DoD. Repeat答案：C4. 以下哪个属性用于设置控件的可见性？A. VisibleB. ShowC. HideD. Display答案：A5. Visual Basic中的事件通常与哪个关键字一起使用？A. SubB. FunctionC. EventD. Procedure答案：A6. 在Visual Basic中，以下哪个不是控件的属性？A. NameB. CaptionC. TypeD. Left答案：C7. 下列哪个不是Visual Basic的内置函数？A. LenB. UBoundC. SqrtD. Max答案：D8. 在Visual Basic中，以下哪个不是数组的声明方式？A. Dim arr(1 To 10)B. Dim arr() As IntegerC. ReDim arr(1 To 10)D. Dim arr As Variant答案：D9. 在Visual Basic中，以下哪个不是条件语句？A. IfB. Select CaseC. WhileD. Do答案：C10. Visual Basic中，以下哪个不是错误处理的关键字？A. On Error GoToB. On Error Resume NextC. On Error GoTo 0D. On Error Exit Sub答案：D二、填空题（每题2分，共10分）1. 在Visual Basic中，使用________关键字可以声明一个变量。
vb试题及答案
vb试题及答案一、单选题（每题2分，共10分）1. 在VB中，以下哪个是正确的变量声明方式？A. Dim aB. Dim a As IntegerC. Dim a = 5D. Dim a As Integer = 5答案：B2. VB中的哪个控件用于显示文本，但不能编辑？A. TextBoxB. LabelC. ComboBoxD. CheckBox答案：B3. 以下哪个是VB的事件？A. ClickB. PrintC. DrawD. Open答案：A4. 在VB中，以下哪个语句用于结束程序？A. EndB. ExitC. StopD. Quit答案：A5. VB中，以下哪个属性用于设置控件的可见性？A. VisibleB. EnabledC. CaptionD. Text答案：A二、多选题（每题3分，共15分）1. VB中，以下哪些是合法的变量名称？A. 2variableB. variable2C. _variableD. variable$答案：B, C2. VB中，以下哪些是合法的常量声明方式？A. Const pi = 3.14B. Dim pi As Double = 3.14C. Const pi = "3.14"D. Dim pi = 3.14答案：A, D3. 在VB中，以下哪些是控件的属性？A. NameB. CaptionC. TextD. Value答案：A, B, C4. VB中，以下哪些是控制流程语句？A. If...Then...ElseB. For...NextC. While...WendD. Select...Case答案：A, B, C, D5. VB中，以下哪些是数组的声明方式？A. Dim arr(5)B. Dim arr(0 To 5) As IntegerC. Dim arr As Integer = New Integer(5)D. Dim arr(5) As Integer答案：A, B, D三、判断题（每题1分，共5分）1. VB是一种面向对象的编程语言。
VB程序设计复习模拟试题一及答案
VB程序设计复习模拟试题一及答案一、选择题(1)执行语句Dim X,Y As Integer 后,（）A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量,Y被定义为变体变量D)X被定义为变体类型变量,Y被定义为整型变量(2)以下关系表达式中，其值为True的是A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(3)执行以下程序段a$="Visual Basic Programming"b$="C++"C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12)后,变量C$的值为A)Visual BASIC Programming B)VISUAL C++ ProgrammingC)Visual C++ Programming D)VISUAL BASIC Programming(4)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(5)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后,在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实现上述操作的事件过程是A)Private Sub Text1_Change()Label1.Caption=str(Len(Text1.Text))End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text))End Sub(6)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"),1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变文字字体")，窗体外观如图所示。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
〖第1题〗『判断』(1.0分)在一个窗体的代码中不能使用Unload语句来卸载本窗体,即一个窗体只能由其它窗体卸载.答案：N〖第2题〗『判断』(1.0分)标签没有Change事件和SetFocus方法.答案：N〖第3题〗『判断』(1.0分)TextBox与Label有许多共同特点,它们都能显示和输入文本.答案：N〖第4题〗『判断』(1.0分)已知窗的fillcolor=rgb(255,0,0)红,forecolor=rgb(0,255,0)绿,fillstyle=0(solid)语句circle(200,100),500,,,,2的输出结果是红边绿心的长椭圆.答案：N〖第5题〗『判断』(1.0分)全局变量用global或public关键字声明,且仅在通用声明处可以定义.答案：N〖第6题〗使用驱动器列表框、目录列表框和文件列表框构成一个文件管理系统时,三者之间可以实现自动同步,即当在驱动器列表框改变驱动器时,目录列表框和文件列表框的内容立即同跟着变.答案：N〖第7题〗将焦点主动设置到指定的控件或窗体上,应采用Setfocus方法.答案：Y〖第8题〗定时将文本框中的数据保存到磁盘,应用于选用Timer计时器控件.答案：Y〖第9题〗事件过程由某个用户事件或系统事件触发执行,它不能被其它过程调用.答案：N〖第10题〗在框架控件内的几个单选按钮中,只能有一个单选按钮的Value属性为True.答案：Y〖第1题〗『单项选择』(1.0分)函数Len(Str(Val("123.4")))的值为().A:11B:5C:6D:8答案：C***6***〖第2题〗『单项选择』(1.0分)下列关于控件画法的叙述错误的是().A:单击一次工具箱中的控件图标,只能在窗体上画出一个相应的控件B:按住CTRL键后单击一次工具箱中的控件图标,可以在窗体上画出多个相同类型的控件C:双击工具箱中的控件图标,所画控件的大小和位置是固定的D:不用工具箱中的控件工具,不可以在窗体上画出图形对象,但可以写入文字字符答案：D〖第3题〗『单项选择』(1.0分)可视化编程的最大优点是().A:具有标准工具箱B:一个工程文件由若干个窗体文件组成C:不需要编写大量代码来描述图形对象D:所见即所得答案：C***1***〖第4题〗『单项选择』(1.0分)文本框中选定的内容,由下列()属性反映.A:TextB:CaptionC:SeltextD:sellenght答案：C〖第5题〗『单项选择』(1.0分)用键盘的光标键选中某一菜单项,并按回车将触发菜单的()的事件.A:KeyPressB:KeyDownC:ClickD:KeyUp答案：C〖第6题〗『单项选择』(1.0分)在窗体Form1的Click事件过程中有以下语句:Label1.Caption="Visual Basic"若本语句执行之前,标签控件的Caption属性为默认值,则标签控件的Name属性和Caption属性在执行本语句之前的值分别为(). A:"Label"、"Label"B:"Label1"、"Visual Basic"C:"Label1"、"Label1"D:"Caption"、"Label"答案：C〖第7题〗『单项选择』(1.0分)删除字符串前导和尾随空格的函数是().A:Ltrim()B:Rtrim( )C:Trim()D:Lcase答案：C〖第8题〗『单项选择』(1.0分)骰子是一个正六面体,分别用1~6 代表这六个面,掷一次骰子出现的数可表示为().A:int(rnd*6+1)B:int(rnd*6)C:int(rnd*7)D:int(rnd(6)+1)答案：A〖第9题〗『单项选择』(1.0分)Line(100,100)-Step(400,400)将在窗体()画一直线. A:(200,200)到(400,400)B:(100,100)到(300,300)C:(100,100)到(500,500)D:(100,100)到(400,400)答案：C***8***〖第10题〗『单项选择』(1.0分)为了把焦点移到某个指定的控件,所使用的方法是(). A:SetFocusB:VisibleC:RefreshD:GetFocus答案：A〖第11题〗『单项选择』(1.0分)下列哪个变量的取法是不正确的().A:TNameB:T_TempC:T32D:T32#答案：D〖第12题〗『单项选择』(1.0分)要在命令按钮控件上显示图像应().A:设置Picture属性B:实现不了C:先将Type设置为1,然后再设置Picture属性D:以上都不对答案：C〖第13题〗『单项选择』(1.0分)下列的逻辑表达式中不正确的是().A:A<B AND C=DB:X<Y<ZC:1>2 AND 3>1D:X>Y AND 1=2答案：B〖第14题〗『单项选择』(1.0分)函数InStr("VB程序设计教程","程序")的值为(). A:1B:2C:3D:4答案：C〖第15题〗『单项选择』(1.0分)将命令按钮Command1设置为不可见,应修改该命令按钮的()属性. A:VisibleB:ValueC:CaptionD:Enabled答案：A〖第16题〗『单项选择』(1.0分)将通用对话框类型,设置为字体对话框,可修改该控件的()属性. A:fontB:filenameC:filterD:action答案：D〖第17题〗『单项选择』(1.0分)假设变量BOOLVAR是一个逻辑型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE'B:BOOLVAR=.TRUE.C:BOOLVAR=#TRUE#D:BOOLVAR=3<4答案：D〖第18题〗如果要设置窗体的标题栏,应选择以下那种属性(). A:NameB:CaptionC:TipsD:Text答案：B〖第19题〗在VB中,下列不能作为存放对象的容器是().A:窗体B:框架C:图形框D:图象框答案：D〖第20题〗『单项选择』(1.0分)OPTIONEXPLICIT语句不可以放在().A:窗体模块的声明段中B:标准模块的声明段中C:类模块的声明段中D:任何事件过程中答案：D〖第1题〗『程序填空』(9.0分)'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：从键盘输入学生分数，统计学生总人数和各分数段人数，' 即优秀（90-100）、良好（80-89）、中等（70-79）、' 及格（60-69）、不及格（60以下）的人数。
'-------------------------------------------------------Private Sub Form_Click()Dim score%, n1%, n2%, n3%, n4%, n5%msg = "请输入分数（-1结束）"msgtitile = "输入数据"score = Val(InputBox(msg, msgtitle))'**********SPACE**********While 【?】total = total + 1'**********SPACE**********Select Case 【?】Case Is >= 90n1 = n1 + 1Case Is >= 80n2 = n2 + 1Case Is >= 70n3 = n3 + 1Case Is >= 60n4 = n4 + 1Case Elsen5 = n5 + 1'**********SPACE**********【?】score = Val(InputBox(msg, msgtitle))WendPrint n1, n2, n3, n4, n5,totalEnd Sub答案：1). score >=0 ★And★ score <= 100 或 0<=score ★And★ score <= 100 或 0<=scor...2). score3). End Select〖〖第第22题题〗『〗『程序填空程序填空』』((99..00分分))'-------------------------------------------------------'【程序填空】'-------------------------------------------------------'题目：本程序求3~100之间的所有素数（质数）并统计个数；' 同时将这些素数从小到大依次写入顺序文件 dataout.txt；' 素数的个数显示在窗体Form1上。
'请在【】处填入正确的内容'-------------------------------------------------------'Private Sub Command1_Click()Dim count As Integer, flag As BooleanDim t1 As Integer, t2 As Integer'**********SPACE**********Open App.Path & "\dataout.txt" For Output As 【?】count = 0For t1 = 3 To 100'**********SPACE**********flag = 【?】For t2 = 2 To Int(Sqr(t1))If t1 Mod t2 = 0 Then flag = FalseNext t2If flag Then'**********SPACE**********count = 【?】Write #1, t1End IfNext t1Form1.Print "素数个数"; countClose #1End Sub答案：1). #12). True3). count + 1 或 1 + count〖第1题〗『程序设计』(6.0分)'------------------------------------------------- '【程序设计】'------------------------------------------------- '题目：求两个数m,n的最大公约数p和最小公倍数q'------------------------------------------------- '注意：请在指定的事件内编写代码。