vb填空题[1]
Visual Basic程序设计综合练习题一及答案
Visual Basic程序设计综合练习题一及答案一、单项选择题（每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序，下列说法正确的是（）。
A．只保存窗体文件（.frm）B．只保存工程文件（.vbp）C．分别保存工程文件和标准模块文件(.bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中，变量的默认类型是（）。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1.Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表（）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
南京工业大学VB考试[1]
![南京工业大学VB考试[1]](https://img.taocdn.com/s3/m/629eca2f87c24028915fc335.png)
vbzj523满分：60分姓名：________一、单项选择题(本题共计40分)C 1、________在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
( )A、方法B、属性C、事件D、工程2、执行语句X2Print Format(1234.567,“##,##0.00”) 后，输出结果是____________。
( )A、1234.57B、1,234.57C、1，234.567D、1,234.56X3、想要设置窗体状态为不显示控制菜单，应设置下列____________属性。
( )A、StyleB、PictureC、ControlBoxD、CaptionD 4、用于字符串连接的运算符是________。
( )A、&B、+C、AndD、A、B选项皆可D 5、VisualBasic是一种面向________的程序设计语言。
( )A、过程B、用户C、方法D、对象B6、执行语句"Print format(5459.478,"##,##0.00")"，正确的输出结果是________。
( )A、5459.48B、5,459.48C、5,459.478D、5,459.477、执行下列程序，输出结果为___________。
Private Sub Command1_Click( )Dim b As SingleB=2 / 3Print bEnd Sub ( )A、0.6666666666667B、1C、0D、0.6666667B 8、VisualBasic中的标准模块文件的扩展名是____________。
( )A、.regB、.frmC、.basD、.vbp@B 9、下面程序的内层循环次数是____。
For i=1 TO 3For j=1 TO iFor k=j TO 3...Next kNext jNext i ( )A、3B、14C、9D、2110、以下有关对象属性的说法中错误的是____________。
山东交通学院VB期末考试题库1
一、填空共10题（共计10分）第1题（1.0分）题号:318由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案： 1). 0第2题（1.0分）题号:40要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True.答案： 1). Default第3题（1.0分）题号:71VB中的变量按其作用分为全局变量,模块变量,【1】.答案：1). 局部变量第4题（1.0分）题号:38大于X 的最小整数的VB表示形式为【1】.答案：1). Int(x)+1 或 Int(x) + 1第5题（1.0分）题号:301已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】.答案： 1). DE第6题（1.0分）题号:55在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True.答案： 1). MultiLine第7题（1.0分）题号:43一个工程可以包括多种类型的文件,其中,扩展名为.frm的文件表示【1】文件.答案： 1). 窗体第8题（1.0分）题号:266对象具有属性和【1】.答案： 1). 方法第9题（1.0分）题号:39要使同一类型控件组成一个控件数组,必须要求【1】.答案：1). Name 相同或名称相同第10题（1.0分）题号:261Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】答案：1). Picture1二、判断共10题（共计10分）第1题（1.0分）题号:308事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是事件过程由控件属性决定,而Sub过程是由户自定义.答案：Y第2题（1.0分）题号:240MsgBox()函数建立的消息框能显示信息也能输入信息.答案：N第3题（1.0分）题号:221VB是一种面向对象的程序设计语言.答案：Y第4题（1.0分）题号:231可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y第5题（1.0分）题号:269单选钮控件和复选框控件都具有Value属性,它们的作用完全相同.答案：N第6题（1.0分）题号:235设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2* A>C 的值是 False.答案：Y第7题（1.0分）题号:282滚动条控件不可作为用户输入数据的一种方法.答案：N第8题（1.0分）题号:358在图片框中放置的控件既可以在该图片框内移动,也可以移出该图片框外.答案：N第9题（1.0分）题号:242Picture图片框既可用来显示图片和绘制图形,也可用Print 方法来显示文字.答案：N第10题（1.0分）题号:223VB支持弹出菜单,所谓"弹出菜单"是指单击鼠标后打开的菜单.答案：N三、单项选择共10题（共计10分）第1题（1.0分）题号:314控件是().A:建立对象的工具B:设置对象属性的工具C:编写程序的编辑器D:建立图形界面的编辑窗口答案：A第2题（1.0分）题号:299激活属性窗口使用的键是().A:F2B:F3C:F4D:F5答案：C第3题（1.0分）题号:815要在窗体上显示图片,需设置窗体的()属性.A:CaptionB:IconC:Picture D:ControlBox答案：C第4题（1.0分）题号:263函数Len(Str(Val("123.4")))的值为().A:11B:5C:6D:8答案：C第5题（1.0分）题号:788下列字符串常量中,最大的是().A:"北京"B:"上海"C:"天津"D:"广州"答案：C第6题（1.0分）题号:345图像框(Image)的何项属性设置为true时,可使图形自动调整大小,填满整个图像框().A:Width B:PictureC:NameD:Stretch答案：D第7题（1.0分）题号:326如果要改变窗体的标题,则需要设置的属性是().A:CaptionB:NameC:BackColorD:BorderStyle答案：A第8题（1.0分）题号:383下列语句中正确的是().A:txt1.text+txt2.text=txt3.textB:=cmdokC:12label.caption=1234D:a=inputbox(hello)答案：D第9题（1.0分）题号:871要想清除文本框中的内容则可利用()进行.A:CaptionB:TextC:ClearD:Cls答案：B第10题（1.0分）题号:283不能通过()来删除列表框中的选项.A:List属性B:Removeltem方法C:Clear方法D:Test属性四、多项选择共5题（共计10分）第1题（2.0分）题号:281窗体也是一个对象，它具有（）的特征。
VB第1章习题与答案
第1章习题与答案一、选择题1. 在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体窗口、属性窗口外，必不可少的窗口是:（A）窗体布局窗口（B）立即窗口（C）代码窗口（D）监视窗口2. 保存新建的工程时，默认的路径是:（A）My Documents （B）VB98 （C）\ （D）Windows3. 将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件转到其他机器上不能运行的主要原因是:（A）运行的机器上无VB系统所需的动态连接库（B）缺少.frm窗体文件（C）该可执行文件有病毒（D）以上原因都不对4.当需要上下文帮助时，选择要帮助的“难题”，希望出现MSDN窗口及显示所需“难题”的帮助信息。
应按的键的（A）Help （B）F10 （C）Esc （D）F15.Visual Basic中提供的On Error Resume Next错误陷阱语句的功能是:（A）当发生错误时，使程序跳转到语句标号为0的程序块（B）当发生错误时，不使用错误处理程序块（C）当发生错误时，忽略错误行，继续执行下一语句（D）当发生错误时，终止本过程程序执行，继续执行下一过程6.在VB环境中，工程文件的扩展名是:（A）.frm （B）.bas （C）.vbp （D）.frx7.将一个VB程序保存在磁盘上，至少会产生的文件是:（A）.doc、.txt （B）aaa、.exe （C）.vbp、.frm （D）.bat、.sys8.下面关于对象的描述中，错误的是:（A）对象就是自定义结构变量（B）对象代表正在创建的系统中的一个实体（C）对象是一个状态和操作（或方法）的封装体（D）对象之间的信息传递是通过消息进行的9.下面4项中不属于面向对象系统三要素的是(A)变量（B）事件（C）属性（D）方法10.下面各种高级语言中，不是面向对象程序设计语言的是（A）Visual Basic （B）C++ （C）Pascal （D）Java二、填空题1．当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择【1】菜单的【2】选项，使“工具箱”窗口显示。
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。
11计算机专业VB试题(一)
11级计算机专业VB试题（一）一、选择题：１、运行工程的错误操作是（）A：执行“运行”菜单中的“启动”命令B：单击工具栏中的“启动”按钮C：按功能键“F5”D：按组合键“alt+f5”2、下列有关VB特点的描述有误的是（）A：VB是一种可视化、面向对象的程序设计语言B：VB采用事件驱动编程机制C：VB可用于开发Windows环境下的各类应用程序D：VB是非面向对象的程序设计语言。
3、以下叙述错误的是（）A：在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B：以.bas为扩展名的文件是标准模块文件C：窗体文件包含该窗体及其控件的属性D：一个工程可以含有多个标准模块文件4、与传统的程序设计语言相比，VB最突出的特点是（）A：结构化程序设计B：程序开发环境C：事件驱动编程机制D：程序调试技术5、下列不能打开代码窗口的操作是（）A：双击窗体B：双击窗体上的某个控件C：单击窗体D：按“F7”键6、在8BBE计窗体时双击窗体的任何地方，可以打开的窗体时（）A：代码窗口B：属性窗口C：工程资源管理器窗口D：工具箱窗口7、下列标识符不能作为VB变量名的是（）A：ABCabeB：b1234C：28wedD：crud8、下列说法错误的是（）A：在同一模块不同过程中的变量可以同名B：不同模块中定义的全局变量可以同名C：引用另一模块中的全局变量时，必须在变量名前加模块名D：同一模块中不同级的变量可以同名9、下列描述不正确的是（）A某个子过程中声明的局部变量，其适用范围仅限定于该子过程内B：某个子过程中声明的局部变量，期生命周期仅限定于该子过程被执行过程中C：不同子过程中的局部变量可以具有相同的名称D：不同子过程的局部变量可以具有相同的名称10、声明一个变量为局部变量应该用（）A：local B：private C：static D：public11、语句Y=Y+1的正确含义是（）A：变量Y的值与Y+1的值相等B：奖变量Y的值存到Y+1中去C：将变量Y的值加1后赋值给变量YD：变量Y的值为112、下列符号不能作为VB中的变量名的是（）A：ABCD B：E0065400 C：123TWJGF D：zxy13、若要在代码编辑器窗口中规定输入的代码中的变量必须要显示声明，应在下列哪个选项中设置（）A：自动语法检测B：要求变量声明C：自动缩进D：Tab宽度14、下列属于不合法的常量是（）A：20000 B：100^6 C：123.5 D：10E+615、下列不合法的变量名是（）A：Print_Numl B：Abc% C：Const D：X1_y2_z316、关于变体变量，下列说法正确的是（）A：变量未加定义而直接使用，该变量变为变体变量，因此变体变量是无类型变量B：遍体变量占16字节的固定存储单元C：变体变量定以后，系统将变体变量初始化为数值0或空字符串D：设X为遍体变量，且X=“10”，则X=X+20是正确的语句17、下列符号常量的声明中，不合法的是（）A：Const a as single =1.1 B：const a =“OK”C：const a as double =sin（1）D：const a as integer ="12"18、下列关于声明变量的说法中，错误的是（）A：用显式声明变量的关键字Dim、Private、Static或Public来声明的类型B：用类型说明符标记变量的类型，其中Yype是类型标志C：用DefTrype语句声明变量的类型，其中Type是类型标志D：用Type<数据类型名>/End Type语句声明记录类型变量19、已知a=5，b=8，c=12，下列表达式的值为Ture的是（）1A：a>b and c<a B: a>b or c<aC:a>b xor c<a D:a>b eqv c<a20、下列程序段运行后窗体上输出结果为（）Private Sub Form_Click()a = 5:b = 6:c = 7:d = 8x = 3 > 2 * b Or a = c And b <> c Or c > dPrint xEnd SubA：1 B：Ture C：False D：2二、填空题。
vb复习题1及答案
1.下面关于比特的叙述中，错误的是（1 ）A.比特是组成数字信息的最小单位B.比特只有“0”和“1”两个符号C.比特既可以表示数值和文字，也可以表示图像和声音D.比特” 1”总是大于比特“0”2.在下列有关集成电路的叙述中，错误的是（ 2 ）A.现代集成电路使用的半导体材料主要是硅B.大规模集成电路一般以功能部件、子系统为集成对象C.我国第2代居民身份证中包含有IC芯片D?目前超大规模集成电路中晶体管的基本线条已小到l纳米左右3.在下列有关通信技术的叙述中，错误的是（3 ）A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质4.下面是关于PC机主存储器的一些叙述，其中正确的是（4A.主存储器是一种动态随机存取存储器（RAM）B.主存储器的基本编址单位是字（即32个二进位）《目前市场上销售的PC机，其内存容量可达数十GBD.所有PC机的内存条都是通用的：可以互换5. 现行PC机中，IDE（或SATA）接口标准主要用于（ 5 ）A.打印机与主机的连接C.声卡与主机的连接B.显示器与主机的连接D.硬盘与主机的连接6.下列有关PC机的CPU、内存和主板的叙述中，正确的是（ 6 ）。
A.大多数Pc机只存一块CPu芯片，即使是“双核” CPU也是一块芯片B.所有Pentium系列微机的内存条相同，仅有速度和容量大小之分C.主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关D.主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息7.下列有关目前Pc机辅助存储器的叙述中，错误的是（7 ）A.硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多B.硬盘的内部传输速率一般小于外部传输速率c.优盘采用Flash存储器技术，属于半导体存储器D.目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱8.下面有关Windows操作系统，（95以后版本）的叙述中，错误的是（8 ）。
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 。
Visual-Basic程序设计综合练习题一及答案
Visual Basic程序设计综合练习题一及答案一、单项选择题(每题3分，共45分）1．无论何种控件，共同具有的属性是（）。
A．Text 属性B．Caption属性C．Name属性D．Autosize属性2．当需要上下文帮助时,选择要帮助的内容,希望出现MSDN窗口及显示所需的帮助信息，应按的键是( )。
A．Help B．F10 C．F1 D．Esc3．为了保存一个Visual Basic应用程序,下列说法正确的是（）。
A．只保存窗体文件（。
frm）B．只保存工程文件(.vbp）C．分别保存工程文件和标准模块文件(。
bas)D．分别保存工程文件、窗体文件和标准模块文件4．在Visual Basic中,变量的默认类型是（)。
A．Integer B．VariantC．Double D．Currency5．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件,需要设置的属性是( ）。
A．Interval=0或Enabled=False B．Interval=0或Visible=False C．Enabled=False 或Enabled=0 D．Interval=0且Enabled=False6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要对下列( ）属性设置就有效。
A．MaxButton B．BorderSyleC．Width D．MinButton7．有程序代码如下：Text1。
Text = "Visual Basic"，则Text1，Text ，和"Visual Basic"分别代表( ）。
A．对象，值，属性B．对象，方法，属性C．对象，属性，值D．属性，对象，值8．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和Icon B．Style和IconC．Caption和Picture D．Style和Picture9．在VB中，下列合法的变量名是（）。
VB习题1[1][1].3
![VB习题1[1][1].3](https://img.taocdn.com/s3/m/dbc2dece3186bceb19e8bb25.png)
图3-1 窗体运行界面
2.
在窗体上放1个标签Label1，1个命令按钮Command1，当窗体启动时使标签居于窗 体的中间，并显示系统的当前时间，命令按钮显示为"放大"，当单击命令按钮时， 将标签中显示放在1~3倍，并重新显示系统当前时间。如下图：
图3－2
3.
编一模拟简易计算器的程序，运行界面如图3-3示。
图3-3 简易计算器的运行结果
第四讲
程序的顺序结构
一、选择题 1. 设 x=2,y=5,下列语句中能在窗体上显示“A=7”的语句是 C A. Print A=x+y B. Print “A=x+y” C. Print “A=”;x+y D. Print “A=” +x+y 2. 语句 Print Format$(1234.56,”000,000.000”)的输出结果是 D A. 1234.56 B. 1,234.56 C. 1,234.560 D. 001,234.560 3. 运行下列程序段,在弹出的信息框的标题栏中显示的是 C x$ = ”Beijing Welcomes you” y$ = Left(x$,7) z$ = Right(x$,3) q$ = Mid(x$,9,8) MsgBox x$,y$,z$,q$ A. Beijing Welcomes you B. Beijing C. Welcomes D. you 4. 在窗体上画一个文本框（其中 Name 属性为 Text1） ，然后编写如下事件过程 Private Sub Form_Click() x = InputBox(“Enter an Integer”) y = InputBox(“Enter an Integer”) Text1.text = x+y End Sub 程序运行后，在输入对话框中分别输入 5 和 6，则文本框中显示的内容是 B A. 11 B. 56 C. 65 D. 出错信息 5. 执行语句： x = InputBox(“Afanda”,“Mummy”,“Alien”,,,“2012”) 则在对话框的输入区中显示的信息是 C A. Afanda B. Mummy C. Alien
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期中试题[1]
![高一计算机专业VB期中试题[1]](https://img.taocdn.com/s3/m/4aa9432ae2bd960590c67749.png)
高一计算机专业VB期终试题班级：姓名：第一部分选择填空题（共38题，计76分）1、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句（）A、Option Base 0B、Option ExplicitC、Option Base 1D、Option Compare2、\、/、Mod、*、^ 等4个算术运算符中，优先级最高的是（）A、\B、^C、ModD、*3、表达式Mid(“SHANGHAI”,5,3)的值是（）A、SHANGHB、GHAC、ANGHD、HAI4、用下面的语句所定义的数组的元素个数得（）dim A（1to5）as integerA、6B、7C、5D、45、删除字符串前导空格的函数是（）A、Ltrim( )B、Rtrim( )C、T rim( )D、Lcase( )6、下列语句正确的是( )A. If X≠Y Then Print "X不等于Y"B. If X＜＞Y Then Print "X不等于Y"C. If X＞＜Y Print "X不等于Y"D . If X≠Y Print "X不等于Y"7、设a=7，则执行x=iif（a>5，－1，6）后，x的值为（）A、5B、6C、0D、－18、表达式X+1>X是( )A、算术表达式B、非法表达式C、字符表达式D、关系表达式9、设A=”abcdefghijklm”，下面（）的函数值为”jklm”。
A、Mid(A,10,14)B、Ringht(A, 4)C、Mid(A,10,4)D、Left(A,10,4)10、如果X是一个正的实数，将千分位四舍五入，保留1位小数的表达式是（）A、0.1*int(x+0.05)B、0.01*int(100*(x+0.005))C、0.1*int(10*(x+0.05))D、0.01*int(x+0.005)11、不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式A、A*B=0 AND A<>BB、（A=0 OR B=0）AND A<>BC、A=0 AND B<>0 OR A<>0 AND B=0E、A*B=0 AND （A=0 OR B=0）12、下列对变量的定义中，不能定义A为变体变量的是A、DIM A AS DOUBLEB、DIM A AS V ARIANTC、DIM ; AD、A=2413、表达式INT（8*SQR（36）*10^（-2）*10+0.5）/10的值是( )A、0.48B、0.048C、.5D、.0514、以下程序段的输出结果为（）x=1y=3do until y>4x=x*yy=y+1loopprint xA、1B、4C、8D、2015、双精度型数据需（）字节A、2B、4C、6D、816、以下可以作为VB变量名的是（）A、SINB、CO1C、COS（X）D、X（-1）17、MSGBOX函数中有4个参数，其中必须写明的参数是（）A、指定对话框中显示按钮的数目B、设置对话框标题C、提示信息D、所有参数都是可选的18、下列运算结果中，值最大的是( )A.3B.3/4C.4 Mod 3D.3 Mod 419、OPTION EXPLICIT语句不可以放在（）A、窗体模块的声明段中B、标准模块的声明段中C、类模块的声明段中D、任何事件过程中20、VB认为下面（）组变量是同一个变量A、A1和a1B、SUM和SUMMARYC、A VER和A VERAGED、A1和A_121、定义货币类型数据应该用关键字（）A、SINGLEB、DOUBLEC、CURRENCYD、BOOLEAN22、下列哪个是字符表达式（）A、4^5B、3*4C、x&1D、SIN23、声明静态变量应该用关键字（）A、StaticB、ConstC、PrivateD、V26/ariant24、VB中可用（）语句产生一消息框。
VB(1)
一、判断题保存判断题阅卷1、屏幕（Screen）对象可作为窗体的容器，但它只能提供缺省的坐标系统，即坐标刻度不能改变。
对错错误参考答案：对2、若行If语句中逻辑表达式值为True，则关键字Then后的若干语句都要执行。
对错错误参考答案：对3、函数过程与Sub过程必须用关键字Private或Public声明。
对错错误参考答案：错4、Integer、Long、Single、Double是数值类型数据，但Byte不是。
对错错误参考答案：错5、在打开某窗体时，初始化窗体中的各控件，可选用Load事件。
对错错误参考答案：对6、每当一个窗体成为活动窗口时将触发Show事件。
对错错误参考答案：错7、将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。
对错错误参考答案：对8、表达式5>4>3的计算结果是True。
对错错误参考答案：错9、标签控件可以响应Click事件。
对错错误参考答案：对10、运行时目录列表框的List属性可以用AddItem和RemoveItem两种方法来改变。
对错错误参考答案：错保存判断题阅卷二、单选题保存单选题阅卷1、设置命令按钮cm1的背景色为红色，可以执行语句______。
A、cm1.BackColor=vbredB、cm1.BackColor = vbred: cm1.style=1C、cm1.Picture = RGB(255, 0, 0)D、cm1.BackColor = RGB(255, 0, 0):cm1.enabled=True错误参考答案：B2、下列哪个函数返回值为Ascii码值？A、Chr(x)B、Str(x)C、Space(n)D、Asc(x)＜BR＞错误参考答案：D3、下列关于Select Case之测试表达式的叙述中，错误的是______。
A、只能是变量名B、可以是整型C、可以是字符型D、可以是浮点类型错误参考答案：A4、在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是______。
VB1-3章_习题答案(课本习题)
VB习题答案（1-3章）习题一一、选择题1．C 2.C 3.A 4.C 5.C 6.C 7.B二、填空题1.学习版、专业版、企业版2.窗体界面3.Alt+F4三、简答题1．简述Visual Basic语言的特点。
Visual Basic是Windows操作平台下的可视化编程语言，它继承和发展了BASIC语言的基本功能，具有简单易学、功能强大等特点。
Visual Basic提供了可视化设计工具，以图形用户界面（GUI）为PC机用户提供了一个直观的工作环境。
支持面向对象的程序设计（OOP），采用事件驱动方式，提供对象的链接与嵌入（OLE）和访问数据库等功能。
2. Visual Basic 6.0的集成开发环境由哪些部分组成，各部分的主要功能是什么？1. 标题栏：用来显示打开的工程名称和系统的工作状态。
2. 菜单栏：菜单栏中包括“文件”、“编辑”、“视图”、“工程”、“格式”、“调试”、“运行”、“查询”、“图表”、“工具”、“外接程序”、“窗口”和“帮助”共有13个菜单项。
这是一组下拉式菜单，提供了设计、编辑、编译和调试应用程序所需要的绝大部分功能和命令。
3. 工具栏： Visual Basic 6.0提供了“编辑”、“标准”、“窗体编辑器”和“调试”4种工具栏。
工具栏上形象直观的排列着一些最常用的命令按钮，对应特定的常用操作命令。
4. 控件箱：控件箱提供了一组控件。
设计界面时，用户可以用鼠标双击控件箱中的控件，在窗体中画出该控件，或用鼠标单击控件箱中的控件，然后在窗体中拖动鼠标画出所需的控件。
5. 窗体设计器：窗体设计器是应用程序最终面向用户的窗口。
各种控件、图形、数据以及程序的运行结果都在窗体设计器窗体中显示出来。
6. 工程资源管理器：在工程资源管理器窗口中（图1-2），列出了应用程序的工程以及工程中的窗体和模块。
7. 属性窗口：属性窗口主要用来设置Visual Basic窗体及各控件的属性特征，属性窗口的主体部分分为左右两列，左边是控件的属性名列表，右边是控件的属性值列表。
VB习题1-2答案
习题 1一、叙述题1．简述事件驱动的程序设计原理。
2．简述VB具有哪些特点。
3．VB的集成开发环境由哪些元素组成？4．VB集成开发环境的工具栏能否自行定义？标准工具栏中包含一些什么按钮？5．当创建只有一个窗体的应用程序后，该工程涉及多少个要保存的文件？若要保存该工程中的所有文件，应先保存什么文件？后保存什么文件？若不这样做，系统有什么信息？6．简述用VB开发应用程序的一般步骤。
二、单选题1．VB是用于开发________环境下应用程序的工具。
A．DOS或Windows B．DOSC．Windows D．UNIX2．VB采用了________的编程机制。
A．可视化B．事件驱动C．面向过程D．面向对象3．窗体编辑器的主要功能是________。
A．设计窗体的外观B．编写源程序代码C．设计用户界面D．设置对象属性4．VB是________的应用程序的开发工具。
A．8位B．16位C．32位D．64位5．VB集成开发环境开发的应用程序不适宜的运行环境是________。
A．Windows32B．Windows 9XC．WindowsNT D．Windows20006．VB共有三个版本，按功能从弱到强的顺序排列应是________。
A．学习版、专业版和工程版B．学习版、工程版和专业版C．学习版、专业版和企业版D．学习版、企业版和专业版7．VB集成开发环境有三种工作模式，工作模式显示在________。
A．状态栏的最左方B．状态栏的最右方C．状态栏的中括号内D．标题栏的中括号内8．下面不属于VB集成开发环境三种工作模式之一的是________。
A．设计状态B．编写代码状态C．运行状态D．中断状态9．不能打开代码窗口的操作是________。
A．双击窗体设计器的任何地方B．按下F4键C．单击工程窗口中的“查看代码”按钮D．选择“视图”下拉菜单中的“代码窗口”10．工程文件的扩展名是________。
A．.frm B．.vbp C．.bas D．.frx11．窗体文件的扩展名是________。
VB实验教材习题答案 (1)
第1章VB集成环境与VB概述一、选择题第2章常用控件与界面设计一、选择题第3章数据、表达式与简单程序设计一、选择题第4章选择分支与循环一、选择题二、填空题1．5 7 13 12 14 112. 3 1 5 3 4 13. right(a$,i)4. 45. 6-i6. 6 11 10 21 13 347. 5 14 138. Is else end select9. a*(2*i-1)*(-1)*x/(2*i+2) i+110. 0 n-111. 1 t*(-1)*x^2/((2*k-1)*(2*k)) Abs(t)>eps12. count1=count+1 count1>013. sum=0 sum+j st & k & “+”14. 9 x三、编程题1.Option ExplicitPrivate Sub Command1_Click()Dim s As String, i As Integer, ch As String * 1Dim a As Integer, b As Integer, c As Integers = Text1.TextFor i = 1 To Len(s)ch = Mid(s, i, 1)If (ch >= "0" And ch <= "9") Thena = a + 1ElseIf (ch >= "A" And ch <= "Z") Or (ch >= "a" And ch <= "z") Thenb = b + 1Elsec = c + 1End IfNextPrint "数字个数"; aPrint "字符个数"; bPrint "其他字符"; cEnd Sub2.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, n As IntegerDim a As Integer, b As Integer, c As IntegerFor i = 1 To 50n = Int(Rnd * 90 + 10)Print n;If i Mod 10 = 0 Then PrintIf n <= 40 Thena = a + 1ElseIf n <= 70 Thenb = b + 1Elsec = c + 1End IfNext iPrint "小于等于40的个数："; aPrint "大于40小于等于70的个数："; bPrint "大于70的个数："; cEnd Sub3.Option ExplicitPrivate Sub Command1_Click()Dim x As SingleDim t As Long, n As Integerx = 1t = 1n = 1Do While 1 / t >= 0.0001x = x + 1 / tn = n + 1t = t * nLoopPrint xEnd Sub4.Option ExplicitPrivate Sub Command1_Click()Dim k As Integer, sum As Integer, i As Integerk = InputBox("请输入一个正整数k", "输入框")For i = 1 To Len(CStr(k))sum = sum + Mid(k, i, 1)Next iMsgBox k & "的各位数字之和" & sumEnd Sub5.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, iSum As LongFor i = 1 To 20iSum = iSum + i ^ 4NextPrint iSumEnd Sub6.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As IntegerDim sum1 As Integer, sum2 As LongDim i As Integer, j As IntegerFor a = 2 To 3000sum1 = 0sum2 = 0For i = 1 To a \ 2If a Mod i = 0 Then sum1 = sum1 + i Next ib = sum1For j = 1 To b \ 2If b Mod j = 0 Then sum2 = sum2 + j Next jIf sum2 = a And a < b Then Print a, bNextEnd Sub7.Private Sub Command1_Click() '打印菱形Dim i As Integer, j As IntegerClsFor i = 1 To 6 '打印菱形上边6行Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iFor i = 5 To 1 Step -1 '打印下半部分Print Tab(20);Print Spc(6 - i);For j = 1 To 2 * (i - 1) + 1If j = 1 Or j = 2 * (i - 1) + 1 ThenPrint "*";ElsePrint " ";End IfNext jPrintNext iEnd Sub8.Option ExplicitPrivate Sub Command1_Click()Dim i As Integer, j As Integer, iSum As IntegerPrint "连续和为1250的正整数是："For i = 1 To 500iSum = 0For j = i To 500iSum = iSum + jIf iSum >= 1250 Then Exit ForNextIf iSum = 1250 ThenPrint i; " ～"; jEnd IfNextEnd Sub9.Option ExplicitPrivate Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerFor a = 1 To 50For b = a To 50For c = b To 50If a ^ 2 + b ^ 2 = c ^ 2 ThenPrint a, b, cEnd IfNext cNext bNext aEnd Sub第5章数组一、选择题二、填空题1.Variant2.ReDim A(N)A(1)If M < A(I) Then M = A(I)3.Int(26 * Rnd) + 65Chr(t)i + 1 To 10A(i) > A(j)4.InStr(s, ",")Right(s, Len(s) - n)s5.T – 1I + 16.k = 6 - i – jmax = m7.j = 48j = j-38.i + 1i = i + 19. 23710. 3103511.numi + 1a(j)=temp三、编程题1.Option ExplicitOption Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim i As Integer, max As IntegerFor i = 1 To 10a(i) = Int(90 * Rnd) + 10Print a(i);Next iPrinti = 1max = 0Do While i <= 10If a(i) Mod 3 = 0 ThenIf a(i) > max Thenmax = a(i)End IfEnd Ifi = i + 1LoopIf max = 0 ThenPrint "无要找的数"ElsePrint max & "是最大的能被3整除的数"End IfEnd Sub2．Option ExplicitOption Base 1Private Sub Command1_Click()Dim A() As IntegerDim I As Integer, m As IntegerDim K As IntegerReDim A(10)Print "原数组:";For I = 1 To 10A(I) = IPrint A(I);Next IPrintm = InputBox("????m")K = 9 + mReDim Preserve A(K)For I = 11 To KA(I) = A(I - 10)Next IFor I = 1 To 10A(I) = A(I + m - 1)Next IPrint "平移后的数组:";For I = 1 To 10Print A(I);Next IPrintEnd Sub3．Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, J As Integer, K As IntegerDim a() As Integer, n As Integer, p As Integer Dim s As String, Flag As Booleanp = 1For K = 10 To 100I = 1Do While I <= 10 And Not FlagJ = 1Do While J <= 10 And Not Flagn = I ^ 2 + J ^ 2If n = K ThenFlag = TrueReDim Preserve a(p)a(p) = Kp = p + 1s = I & Str(J) & Str(K)List1.AddItem sEnd IfJ = J + 1LoopI = I + 1LoopFlag = FalseNext KEnd Sub4．Option ExplicitPrivate Sub Command1_Click()Dim A(10) As IntegerDim B(10) As Integer, S As StringDim I As Integer, J As Integer, X As IntegerA(1) = Int(90 * Rnd) + 10S = A(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = A(J) Then Exit ForNext JIf J = I ThenA(I) = XS = S & " " & A(I)Exit DoEnd IfLoopNext IText1.Text = SB(1) = Int(90 * Rnd) + 10S = B(1)For I = 2 To 10DoX = Int(90 * Rnd) + 10For J = 1 To I - 1If X = B(J) Then Exit ForNext JIf J = I ThenB(I) = XS = S & " " & B(I)Exit DoEnd IfLoopNext IText2.Text = SS = ""For I = 1 To 10For J = 1 To 10If A(I) = B(J) ThenS = S & " " & A(I)End IfNext JNext IIf S = "" ThenText3.Text = "没有重复"ElseText3.Text = SEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub5．Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, J As IntegerDim a() As Integer, K As Integer, Sum As Integer K = Val(Text1.Text)I = 1DoJ = K Mod 10ReDim Preserve a(I)a(I) = JSum = Sum + JK = K \ 10I = I + 1Loop Until K = 0Text2.Text = SumEnd Sub6．Option ExplicitPrivate Sub Command1_Click()Dim a(100, 2) As Integer, K As IntegerDim I As Integer, J As IntegerDim M As Integer, N As IntegerK = 1For I = 1 To 99For J = 1 To 99If I > J ThenM = I - JN = I + JIf Sqr(M) = Int(Sqr(M)) And Sqr(N) = Int(Sqr(N)) ThenList1.AddItem I & " " & Ja(K, 1) = Ia(K, 2) = JK = K + 1End IfEnd IfNext JNext IEnd Sub7．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsPicture3.ClsRandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click()Dim i As Integer, j As Integer, max As IntegerDim b(5) As Integer, c(5) As IntegerFor i = 1 To 5max = a(i, 1)For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)End Ifb(i) = maxIf max = a(i, j) Then c(i) = jNext jNext iFor i = 1 To 5Picture2.Print b(i)Picture3.Print c(i)NextEnd Sub8．Option ExplicitOption Base 1Dim a(5, 5) As IntegerPrivate Sub Command1_Click() '生成数组并显示Dim i As Integer, j As IntegerPicture1.ClsPicture2.ClsLabel3.Caption = "最大值?"Label4.Caption = "最小值?"RandomizeFor i = 1 To 5For j = 1 To 5a(i, j) = Int(90 * Rnd) + 10Picture1.Print a(i, j);NextPicture1.PrintNextEnd SubPrivate Sub Command2_Click() '交换并显示Dim i As Integer, j As Integer, t As IntegerDim maxi As Integer, mini As Integer, max As Integer, min As Integer max = 10: min = 99For i = 1 To 5For j = 1 To 5If max < a(i, j) Thenmax = a(i, j)maxi = iEnd IfIf min > a(i, j) Thenmin = a(i, j)mini = iEnd IfNextNextIf maxi <> mini ThenFor j = 1 To 5t = a(maxi, j)a(maxi, j) = a(mini, j)a(mini, j) = tNext jFor i = 1 To 5For j = 1 To 5Picture2.Print a(i, j);NextPicture2.PrintNextLabel3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"ElsePicture2.Print "最小值和最大值在一行"Label3.Caption = "最大值" & max & "在第" & maxi & "行"Label4.Caption = "最小值" & min & "在第" & mini & "行"End IfEnd SubPrivate Sub Form_click()Picture1.ClsPicture2.ClsLabel3.Caption = ""Label4.Caption = ""End Sub9．Option Base 1Private Sub Command1_Click()Dim i As Integer, j As Integer, n As Integer, a() As Integern = InputBox("请输入一个奇数N：")If n Mod 2 = 0 ThenMsgBox ("请重新输入奇数！")End IfReDim a(n, n)For i = 1 To nFor j = 1 To nIf i = (n + 1) / 2 And j = (n + 1) / 2 Thena(i, j) = -1ElseIf i = j Or i + j = n + 1 Thena(i, j) = 1Elsea(i, j) = 0End IfNext jFor i = 1 To nFor j = 1 To nPrint a(i, j);Next jPrintNext iEnd Sub10．Option Base 1Dim a(10) As IntegerPrivate Sub Command1_Click()Dim i As IntegerPrint "生成的数组："RandomizeFor i = 1 To 10a(i) = Int(Rnd * 90) + 10Print a(i);NextPrintEnd SubPrivate Sub Command2_Click()Dim i As Integerx = InputBox("请输入要删除的数组元素下标：") Print "删除第" & x & "个数组元素后："For i = x + 1 To 10a(i - 1) = a(i)NextFor i = 1 To 9Print a(i);NextEnd Sub11．Option ExplicitDim a(20) As Integer, i As IntegerPrivate Sub Command1_Click()RandomizeFor i = 1 To 20a(i) = Int(Rnd * 9) + 1Text1 = Text1 & a(i) & " "If i = 10 Then Text1 = Text1 & vbCrLf NextPrivate Sub Command2_Click()Dim j As Integer, k As Integer, b(20) As Boolean 'b(2)用来记录a(2)是否和前面的数相同，相同记为true，不再统计For i = 1 To 20k = 1If b(i) = False Then '如果b(i)=False，表示a(i)没有被统计过For j = i + 1 To 20If a(i) = a(j) Thenk = k + 1b(j) = TrueEnd IfNext jList1.AddItem a(i) & "出现次数:" & kEnd IfNextEnd SubPrivate Sub Command3_Click()Text1 = ""List1.ClearEnd Sub第6章过程一、选择题二、填空题1. 6 .2. 4 20 1013.第一行是 6 26 、第三行是-2 984.第一行10 6 、第二行 5 -55.第一行 6 5 、第三行8 76.第一行11 、第二行77.Fun(i)Fun=p8.第一行 4 、第二行2079.第一行29 、第二行28.710.J=kb( ) As Integerb( k-1) =b(k)i11.第一行gec 、第二行ge 、第四行 312.p1 = True And p2 = True 或p1 And p2= isp(i)Isp = Truem Mod i = 013.Convert(st)Len(s)"A" To "F"k = k + p * h14.isualVisualVisu15.s + an + 1x As Single, n As Integer 、p * (x + i) / ((2 * i - 1) * i * x)16.27617.Left(s, 1)Mid(s, i - 1, 1) = Mid(s, i, 1)n = 1c & CStr(n)18.chtempTrue19.val(mid(s,i,j))n as longprime=True20.A(2,2)的值是 6 ，A(3,1) 的值是8 ；A(4,2) 的值是 321.Option1(i)X22.1023.第一行7 6 ，第二行16 16 ，第三行，4524.第一行15 1 ，第二行35 3 ，第三行，50三、改错题1、Option Base 1Private Sub Command1_Click()Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean Dim K As IntegerReDim A(1)A(1) = 50————————'K=1For I = 51 To 149K = 1 '位置错Logic = FalseCall Sub1(A, I, Logic)If Logic ThenK = K + 1ReDim A(K) 'ReDim Preserve A(K)A(K) = IEnd IfNext IFor I = 1 To UBound(A)Text1 = Text1 & Str$(A(I))If I Mod 5 = 0 Then Text1 = Text1 & vbCrLfNext IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean) Dim I As Integer, J As Integer, Ub As IntegerUb = UBound(A)For I = 1 To UbFor J = 2 To A(I)If A(I) Mod J = 0 And N Mod J = 0 ThenExit For 'Exit SubEnd IfNext JF = TrueNext IEnd Sub2、Option ExplicitOption Base 1Private Sub Command1_Click()Dim I As Integer, Flg As Boolean, S1 As Integer, S2 As IntegerDim J As Integer, K As Integer, P() As IntegerReDim P(1)P(1) = 2For I = 3 To 150 Step 2For J = 2 To Sqr(I)If I Mod J = 0 Then Exit ForNext JIf J > Sqr(I) ThenReDim Preserve P(UBound(P) + 1)P(UBound(P) + 1) = I 'P(UBound(P)) = IEnd IfNext IFor I = 80 To 125If fun(I, P, S1, S2) Then 'If fun(I, P, S1, S2)Text1 = Text1 & Str$(I) & "=" & Str(S1) & "*" & Str$(S2) & vbCrLf End IfNext IEnd SubPrivate Function fun(N As Integer, P() As Integer, S1 As Integer, S2 As Integer) As Boolean Dim I As Integer, J As IntegerFor I = 1 To UBound(P)For J = 1 To UBound(P) - 1If N = P(I) * P(J) ThenS1 = P(I)S2 = P(J)'fun = TrueExit Functionfun = True '位置错End IfNext JNext IEnd Function3、Option ExplicitPrivate Sub Get_Chess(Chess() As Integer, idx As Integer, Over As Integer) 'ByVal idx As IntegerDim Ub As Integer, Counter As Integer, K As IntegerUb = UBound(Chess)Chess(idx) = 0Counter = 1K = 0 '位置错Do Until Counter = Ub - 1Do Until K = 2idx = idx + 1If idx > Ub Then idx = 1K = K + Chess(idx)LoopChess(idx) = 0Counter = Counter + 1LoopFor Over = 1 To UbIf Chess(Over) <> 0 Then Exit ForNext OverEnd SubPrivate Sub Command1_Click()Dim Chess(32) As Integer, I As Integer, J As IntegerDim K As Integer, idx As IntegerFor I = 1 To 32For J = 1 To 32Chess(J) = 1Next JCall Get_Chess(Chess, I, K)If K = 23 ThenText1 = "从第" & Str$(I) & "号棋子开始取"Exit ForEnd IfNext IEnd Sub4、Option ExplicitPrivate Sub Form_Click()Dim S As String, Flg As BooleanDoS = InputBox("输入一个自然数")If S = "" Or Not IsNumeric(S) ThenMsgBox "请重新输入", 48 + vbOKOnlyElseExit DoEnd IfLoopjudge(S, Flg) ' Call judge(S, Flg) 或judge S, Flg If Flg ThenPrint S; "是回文数"ElsePrint S; "不是回文数"End IfEnd SubPrivate Sub judge(Ch As String, F As Boolean)Dim L As Integer, I As IntegerL = Len(Ch)F = True ' F = FalseFor I = 1 To LIf Mid$(Ch, I, 1) <> Mid$(Ch, L + 1 - I, 1) Then Exit Sub Next IF = False ' F = TrueEnd Sub四、编程题1.Private Function Prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iPrime = TrueEnd Function'方法一Private Sub Command1_Click()Dim m As Integer, i As Integerm = InputBox("请输入一个大于2 的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub If Prime(2) And Prime(m - 2) ThenPrint m & "=2 +" & m - 2ElseDoi = i + 1If Prime(2 * i + 1) And Prime(m - (2 * i + 1)) ThenPrint m & "=" & 2 * i + 1 & "+" & m - (2 * i + 1)Exit DoEnd IfLoop While 2 * i + 1 < m - (2 * i + 1)End If'方法二Private Sub Command2_Click()Dim m As Integer, i As Integer, p() As Integer, n As IntegerDim flg As Booleanm = InputBox("请输入大于2的偶数")If m <= 2 Or m Mod 2 <> 0 Then MsgBox "请输入大于2的偶数": Exit Sub ReDim p(1)p(1) = 2n = 1For i = 3 To m - 2 Step 2If Prime(i) Thenn = n + 1ReDim Preserve p(n)p(n) = iEnd IfNext iFor i = 1 To nFor j = 1 To nIf p(i) + p(j) = m ThenPrint m & "=" & p(i) & "+" & p(j)flg = TrueExit ForEnd IfNext jIf flg = True Then Exit ForNext iEnd Sub2．Private Function Fact(a As Integer) As LongIf a = 0 Or a = 1 ThenFact = 1ElseFact = a * Fact(a - 1)End IfEnd FunctionPrivate Sub Command1_Click()Dim n As Integer, m As Integer, result As Singlen = Val(Text1.Text)m = Val(Text2.Text)If n >= m Thenresult = Fact(n) / Fact(m) / Fact(n - m)Text3.Text = resultMsgBox "要求n>=m,请重新输入"Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusEnd Sub3．Private Function Istgs(n As Integer) As BooleanDim s As String, L As IntegerL = Len(CStr(n))s = CStr(n ^ 2)If Right(s, L) = n Then Istgs = TrueEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 10 To 300If Istgs(n) Then List1.AddItem n & "^2" & "=" & n ^ 2 Next nEnd SubPrivate Sub Command2_Click()EndEnd Sub4．Private Sub Command1_Click()Dim a(3, 4) As Integer, i As Integer, j As IntegerDim m As Integer, mj As IntegerRandomizeFor i = 1 To 3For j = 1 To 4a(i, j) = Int(900 * Rnd + 100)Print a(i, j);Next jPrintNext iFor i = 1 To 3m = 0Call max(a, i, m, mj)Print "第" & i & "行最大值为" & m & ",在第" & mj & "列"Next iEnd SubPrivate Sub max(a() As Integer, i As Integer, m As Integer, maxj As Integer) Dim j As Integerm = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > m Thenm = a(i, j)maxj = jEnd IfNext jEnd SubPrivate Sub Command2_Click()EndEnd Sub5．Private Function Judge(n As Integer) As BooleanDim sum As Integersum = yz(n)If yz(sum) = 2 * n Then Judge = TrueEnd FunctionPrivate Function yz(n As Integer) As IntegerDim i As IntegerFor i = 1 To nIf n Mod i = 0 Then yz = yz + iNext iEnd FunctionPrivate Sub Command1_Click()Dim n As IntegerFor n = 1 To 500If Judge(n) Then Print nNext nEnd SubPrivate Sub Command2_Click()EndEnd Sub6．Private Sub Command1_Click()Dim n As Integer, j As Integer, flg As BooleanFor n = 2 To 30flg = FalseFor j = 2 To nIf pfs(j) And n Mod j = 0 Thenflg = TrueExit ForEnd IfNext jIf flg = False Then Print n;Next nEnd SubPrivate Function pfs(n As Integer) As BooleanIf Sqr(n) = Int(Sqr(n)) Then pfs = TrueEnd Function7．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd Function'判断某数是否为回文数Private Function Hws(n As Long) As BooleanDim i As Integer, s As String, L As Integers = CStr(n): L = Len(s)For i = 1 To Len(s) / 2If Mid(s, i, 1) <> Mid(s, L + 1 - i, 1) Then Exit Function Next iHws = TrueEnd FunctionPrivate Sub Command1_Click()Dim x As Long, t As Longx = InputBox("请输入一个正整数：")t = xDo While Hws(t) = FalsePrint t; "+"; fxs(t); "="; t + fxs(t)t = t + fxs(t)LoopEnd Sub8．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Sub Command1_Click()Dim n As Long, t As LongFor n = 1 To 999t = fxs(n)If t ^ 2 = fxs(n ^ 2) And n Mod 10 <> 0 And n < t ThenList1.AddItem n & " " & tList2.AddItem n & "^2" & "=" & n ^ 2 & " " & t & "^2" & "=" & t ^ 2 End IfNext nEnd Sub9．Private Function fxs(n As Long) As LongDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext ifxs = sEnd FunctionPrivate Function Judge(n As Integer) As BooleanDim i As Integer, L As Integer, a(9) As Integer, t As IntegerIf Sqr(n) = Int(Sqr(n)) ThenL = Len(CStr(n))For i = 1 To Lt = Mid(CStr(n), i, 1)a(t) = 1Next iFor i = 0 To 9Sum = Sum + a(i)Next iIf Sum = L - 1 Then Judge = TrueEnd IfEnd FunctionPrivate Sub Command1_Click()Dim a As IntegerFor a = 300 To 2000If Judge(a) Then List1.AddItem aNext aEnd Sub10．Private Function F(n As Integer) As BooleanDim i As IntegerFor i = 1 To Len(CStr(n))If i Mod 2 = 1 And Mid(CStr(n), i, 1) Mod 2 <> 1 Then Exit FunctionIf i Mod 2 = 0 And Mid(CStr(n), i, 1) Mod 2 <> 0 Then Exit Function Next iF = TrueEnd FunctionPrivate Sub Command1_Click()Dim a(8) As Integer, i As Integer, j As IntegerRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tList1.AddItem a(i)If F(a(i)) Then List2.AddItem a(i)End IfLoop Until i = 8End SubPrivate Sub Command2_Click()List1.ClearList2.ClearEnd SubPrivate Sub CmdEnd_Click()EndEnd Sub11．Private Function prime(a As Integer) As BooleanDim i As IntegerFor i = 2 To Sqr(a)If a Mod i = 0 Then Exit FunctionNext iprime = TrueEnd FunctionPrivate Function nx(n As Integer) As IntegerDim i As Integer, s As StringFor i = 1 To Len(CStr(n))s = Mid(CStr(n), i, 1) & sNext inx = Val(s)End FunctionPrivate Sub Command1_Click()Dim n As Integer, t As IntegerFor n = 100 To 900t = nx(n)If prime(n) And prime(t) And n < t ThenList1.AddItem "(" & n & "," & t & ")"End IfNext nEnd SubPrivate Sub Command2_Click()List1.ClearEnd Sub12．Option Base 1Dim a(4, 5) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerRandomizeFor i = 1 To 4For j = 1 To 5a(i, j) = Int(Rnd * 90 + 10)Picture1.Print a(i, j);Next jPicture1.PrintNext iEnd SubPrivate Sub Fp(a() As Integer, i As Integer, maxj As Integer, Flg As Boolean) Dim max As Integer, j As Integer, t As Integermax = a(i, 1): maxj = 1For j = 2 To UBound(a, 2)If a(i, j) > max Thenmax = a(i, j)maxj = jEnd IfNext jFor t = 1 To UBound(a, 1)If a(t, maxj) > max ThenFlg = FalseExit SubEnd IfNextFlg = TrueEnd SubPrivate Sub Command2_Click()Dim i As Integer, m As Integer, mj As Integer, f As BooleanFor i = 1 To 4f = Falsem = 0: mj = 0Call Fp(a, i, mj, f)If f = True ThenText1.Text = Text1.Text & "(" & i & "," & mj & "):" & a(i, mj) & vbCrLf End IfNext iEnd SubPrivate Sub Command3_Click()Picture1.ClsText1 = ""End Sub13．Private Sub Command1_Click()Dim a(30) As Integer, i As Integer, j As IntegerDim Flag As BooleanRandomizeDot = Int(900 * Rnd + 100)For j = 1 To iIf t = a(j) Then Exit ForNext jIf j = i + 1 Theni = i + 1a(i) = tText1.Text = Text1.Text + Str(a(i))If i Mod 10 = 0 Then Text1.Text = Text1.Text + vbCrLfIf IsDown(a(i)) ThenList1.AddItem a(i)Flag = TrueEnd IfEnd IfLoop Until i = 30If Flag = False Then List1.AddItem "无降序数"End SubPrivate Function IsDown(n As Integer) As BooleanDim i As Integer, S As StringS = CStr(n)For i = 1 To Len(S) - 1If Mid(S, i, 1) < Mid(S, i + 1, 1) Then Exit FunctionNext iIsDown = TrueEnd FunctionPrivate Sub Command2_Click()List1.ClearText1 = ""End Sub14．Option ExplicitPrivate Sub CmdFind_Click()Dim i As Integer, p As String, st As String, st1 As StringFor i = 100 To 999st = ""If csum(i) = zyz(i, st) Thenp = CStr(i)st1 = Left(p, 1) & "+" & Mid(p, 2, 1) & "+" & Right(p, 1)List1.AddItem i & ": " & st1 & "=" & Left(st, Len(st) - 1)End IfNext iIf List1.ListCount = 0 ThenList1.AddItem "无满足要求的数!"End IfEnd SubPrivate Function csum(m As Integer) As Integer '求各位数字之和Dim i As Integer, p As Stringp = CStr(m)For i = 1 To Len(p)csum = csum + Val(Mid(p, i, 1))Next iEnd FunctionPrivate Function zyz(ByVal m As Integer, st As String) As Integer '求所有质因子之和Dim i As Integeri = 2DoIf m Mod i = 0 Thenzyz = zyz + ist = st & i & "+"m = m \ iElsei = i + 1End IfLoop Until m = 1End Function15．Private Sub Command1_Click()Dim k As Integer, i As Integerk = InputBox("请输入要求的数列项数：")List1.AddItem "共输出前" & k & "项数列"For i = 0 To kList1.AddItem p(i)NextEnd SubPrivate Function p(n As Integer) As IntegerIf n = 0 Or n = 1 Or n = 2 Thenp = 1Elsep = p(n - 2) + p(n - 3)End IfEnd Function第7章文件一、选择题二、填空题1．顺序文件和随机文件2． EOF3． Write和Print4．返回或设置当前的工作目录5．5116．文件的写语句7．Append8．LOF9．关闭10．Pattern11．【1】For Input 【2】#2 【3】Not EOF(2) 12．【1】”END”【2】Text1.Text 或者Text113．【1】Input 【2】ch 【3】Len(mystr) 14．【1】Number 【2】s15．【1】For Append As #1 【2】"end" 【3】ct,nt 16．【1】For Input 【2】For Output As #2 【3】Not EOF(1) 【4】Line Input #1,str1 【5】Close #1,#2 【6】Kill “C:\old.txt 17．【1】Open "C:StuData．txt" For OutPut As #1 【2】Write 18．【1】"C:\data.txt" 【2】#1, a(i) 【3】k>1 And a(k-1)>b 【4】k = k -1三、综合题1．Option Base 1Dim arr(100) As IntegerPrivate Sub Command1_Click()Dim i As IntegerOpen "c:\in18.txt" For Input As #6For i = 1 To 100Input #6, arr(i)Next iClose #6End SubPrivate Sub Command2_Click()Dim i As IntegerText1.Text = ""Open "c:\out18.txt" For Output As #8For i = 1 To 100If arr(i) Mod 2 <> 0 ThenText1.Text = Text1.Text & Str(arr(i))Write #8, arr(i)End IfNext iClose #8End Sub2．Dim str As StringDim n As LongPrivate Sub Command1_Click()CommonDialog1.Filter = "文本文件(*.txt)|*.txt|All Files(*.*)|*.*"CommonDialog1.FilterIndex = 1CommonDialog1.Action = 1Open CommonDialog1.FileName For Input As #2n = LOF(2)str = Input(n, #2)Text1.Text = strClose #2End SubPrivate Sub Command2_Click()Dim i As IntegerFor i = 1 To Len(str)If Asc(Mid(str, i, 1)) <= Asc("Z") And Asc(Mid(str, i, 1)) >= Asc("A") Then Mid(str, i, 1) = LCase(Mid(str, i, 1))ElseIf Asc(Mid(str, i, 1)) <= Asc("z") And Asc(Mid(str, i, 1)) >= Asc("a") Then Mid(str, i, 1) = UCase(Mid(str, i, 1))End IfNext iText1.Text = strEnd SubPrivate Sub Command3_Click()Open "D:\out.txt" For Output As #3Print #3, strClose #3End Sub第8章程序调试一．选择题二．改错题1.a(i)=int(Rnd*19)+1 →a(i)=int(rnd*20)+1For l=1 to a(i)+1 →for i=2 to a(i)+1If l=a(i) →if l <> a(i)K=k+1 →k=k-1。
vb填空题1
杭州师范大学《计算机技术基础》（VB程序设计）填空题(请把正确的选项填入试题前的空格中)第01套：第1题：【程序说明】下列程序显示所有3个数码各不相同的3位数，并统计有多少个这样的三位数。
Private Sub Form_Click()Dim n As Integer, a As Integer, b As Integer, c As IntegerDim x As IntegerFor a =----1----For b = 0 To 9For c = 1 To 9If a<>b And b<>c And a<>c Thenx =----2----n = n + 1----3----If n mod 15 = 0 Then PrintEnd IfNext c,b,aPrint "总共有这样的三位数"; n; "个"End Sub正确答案：0 to 9正确答案：1+10*(b+10*c)正确答案：print x;第2题：【程序说明】窗体是密码检验程序。
程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。
密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。
Private Sub Command1_Click() '确定按钮Static n As Integer----1----mypwd As String = "123456" '预设密码为自定义常量n = n + 1Label2.Visible = TrueIf ----2---- ThenLabel2.Caption = "密码正确"ElseIf n < 3 ThenLabel2.Caption = "密码错误！"Text1.Text = ""Else----3----End IfEnd IfEnd Sub正确答案：CONST正确答案：Text1.text=mypwd或mypwd=text1.text正确答案：End第3题：【程序说明】在组合框中选择形状后，窗体中控件Shape1的形状和边框线作相应变化。
VB习题集(1)(1)
一、单项选择题1、以下说法错误的是_____C____。
A. Visual Basic是一种可视化编程工具B. Visual Basic是结构化程序设计语言C. Visual Basic是面向过程的编程语言D. Visual Basic采用事件驱动编程机制2、窗体和控件的描述及其属性的设置保存在_____B____文件中。
A. 工程B. 窗体C. 窗体二进制数据D. 标准模块3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是____B_____。
A. 只保存窗体模块文件B. 分别保存窗体模块、标准模块和工程文件C. 只保存窗体模块和标准模块文件D. 只保存工程文件4、以下叙述中错误的是____C_____。
A．在Visual Basic的窗体中，一个命令按钮是一个对象B．事件是能够被对象识别的状态变化或动作C. 事件都是由用户的键盘操作或鼠标操作触发的D. 不同的对象可以具有相同的方法5、以下叙述中，错误的是____C_____。
A. 一个Visual Basic应用程序可以含有多个标准模块文件B. 一个Visual Basic工程可以含有多个窗体文件C. 标准模块文件可以属于某个指定的窗体文件D. 标准模块文件的扩展名为.bas6、Visual Basic的窗体设计器主要是用来____A_____。
A. 建立用户界面B. 添加图形、图像、数据等控件C. 编写程序源代码D. 设计窗体的布局7、Visual Basic是一种结构化高级程序设计语言，它采用的是_____C____驱动方式。
A.键盘B.鼠标C.事件D.函数8、Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是____A_____。
A.属性、事件、方法B.控件、属性、事件C.窗体、控件、过程D.窗体、控件、模块9、Visual Basic主要用于_____D____。
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，应使用语句________。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、写出用随机函数产生一个200至300之间整数的VB表达式【1】.答案：200★+★Int(★Rnd*100★) 或 200★+★Int(★100*Rnd★)2、已知文本框的内容为"ABCDE",若文本框Selstart=4,Sellength=2,则SelText为【1】.答案：DE3、VB提供了列表框控件,当列表框中的项目较多,超过了列表框的长度时,系统会自动的在列表框边上加一个【1】.答案：垂直滚动条或滚动条4、想拥有"快捷键"这项功能,必须在"菜单编辑器"中增加一些特殊的设置,也就是在字母之前加上【1】.答案： &5、列表框(ListBox)显示【1】,用户可以从中选择一个或多个项目.答案：项目列表或列表6、设置控件背景颜色的属性名称是【1】.答案：backcolor7、如果在模块的声明段中有Option Base 0语句,则在该模块中使用Dim a(6, 3 To 5)声明的数组有【1】个元素.答案：218、定时器控件的Interval属性值是指时间间隔,单位为毫秒;当每隔此间隔的时间,定时器会触发一次【1】事件.答案：Timer9、写出清除标签Label1的显示信息的语句为【1】.答案：="" 或 Label1="" 或 =""10、写出清除图片框的文字或图形信息的语句【1】.答案：或 cls11、滚动条控件有水平滚动条和【1】滚动条.答案：垂直12、文本框中所显示的内容是它的【1】属性的值.答案：Text13、要使命令按钮cmdEnd可以以快捷键E 访问,应设置属性【1】.答案：Caption 14、当程序运行时,要求窗体中的文本框呈现空白,则在设计时,把此文本框的【1】属性设置成空白.答案：Text15、如果要使用命令按钮表面显示文字"退出(X)"(在字符X之下加下划线),则其Caption属性设置为【1】.答案：退出(&X)16、所有控件都具有的共同属性是【1】属性.答案：name17、Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为【1】.答案：Picture118、使用Scale方法建立窗体Form1的用户坐标系,其中窗体左上角坐标为(-200,250),右下角坐标为(300,-100),具体形式为【1】.答案： (-200,250)-(300,-100)19、如果在模块的声明段中有Option Base 1语句,则在该模块中使用Dim a(3 To 5,6)声明的数组有【1】个元素.答案：1820、把"Visual Basic程序设计"添加到列表框lstBooks的语句为【1】.答案： "Visual Basic程序设计"21、如果要指明mystring为固定15个字长的全局变量,应该在标准模块中用以下说明语句定义【1】.答案：public★mystring★as★string*15 22、若要在字符串asdgewl中取dge,则使用函数【1】实现.答案：Mid$(asdgewl$,2,3) 或Mid(asdgewl,2,3)23、欲使在自己设计VB程序运行过程中,不中止本程序的运行,同时又可调用系统中已有的应用程序c:\windows\,可在程序代码窗口必要的地方添加语句【1】.答案：shell("c:\windows\") 或shell("")24、设置计时器控件只能触发【1】事件.答案： timer25、要使鼠标停留在按钮上显示特殊的鼠标形状,应设置的属性值是【1】.答案：mousepointer26、使用Circle方法在窗体Form1上以(15,15)为圆心,10为半径画圆,具体形式为【1】.答案： (15,15),1027、使用Move方法把图形框Picture1的左上角移动到距窗体顶部100Twip,距窗体左边框200Twip,同时图形框缩小50%,具体形式为【1】.答案： 200,100,sqr(2),sqr(2)28、对象是既包含【1】又包含对数据进行操作的方法,并将其封装起来的一个逻辑实体.答案：数据29、拖动滚动条中的滚动框将会产生Scroll 和【1】事件.答案： Change30、以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是【1】.2,2),70031、设置计时器对象触发事件的时间间隔用【1】属性.答案： interval32、对象具有属性和【1】.答案：方法33、打开"工程窗口"的方法之一是按下【1】组合键.答案： CTRL+R34、列表框控件不支持Click事件,但支持【1】事件.答案：dblclick35、Visual Basic 中的文本框中要使该框不允许多行输入,应设置【1】属性为false.答案： MultiLine36、如果要在单击钮时执行一段代码,则应将这段代码写在【1】事件过程中.答案： click37、将焦点定位于命令按钮Command1之上的语句为【1】.答案：或 SetFocus38、滚动条控件主要支持两个事件,它们是scroll和【1】事件.答案： change 39、文件按照存取方式及其组成结构可以分为顺序文件和【1】.答案：随机文件或随机40、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】.答案： 041、循环语句FOR K=1 TO 10 STEP –1控制的循环次数为【1】.答案： 042、由For k=35 to 0 step 3:next k循环语句控制的循环次数是【1】 .答案： 043、VB中,变量的声明可分为两种方法:【1】数组和动态数组.答案：静态44、Option Base 1的作用是确定数组的下界为【1】. 答案： 145、VB中,变量的声明可分为两种方法:隐式声明和【1】.答案：显式声明46、一元两次方程ax2+bx+c=0有实根的条件为a≠0,并且b2-4ac≥0,列出逻辑表达式【1】.答案：a<>0★and★b^2-4*a*c>=047、在VB 中,设 Single型变量 XYZ 的值为,若要将其转换成字符串,应使用的类型转换函数是【1】.答案： STR 或 CSTR48、由Dim a (10) As single定义的数组占用【1】字节的内存空间.答案： 4449、在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是【1】.答案： VAL 或 Cint50、在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的【1】属性的值设置为True.答案： MultiLine51、大于X 的最小整数的VB表示形式为【1】.答案： Int(x)+1 或 Int(x)★+★152、一个工程可以包括多种类型的文件,其中扩展名为.bas 的文件表示【1】文件. 答案： 标准模块 或 模块 53、在VB 中,变量名最长可达【1】个字符. 答案： 255 54、在VB 中,若要改变一个窗体的标题,应在属性窗口中改变这个窗体的【1】属性的值. 答案： Caption 55、在控件之中,【1】不能从工具箱中被删除. 答案： 内部控件 或 标准控件 56、在VB 中,若要求在模块中强制显式地指定变量的数据类型,应当在模块首部的申明部分使用【1】语句. 答案： Option Explicit 57、一般情况下,控件有两个属性项的缺省值是相同的,这两个属性项是name 和【1】. 答案：caption 58、一个工程可以包括多种类型的文件,其中ActiveX 控件的文件扩展名为【1】. 答案： OCX 59、在利用Visual Basic 设计应用程序时,一般会遇到三类错误:语法错误、执行错误和【1】. 答案：逻辑错误 60、要使一个按钮无效,则可把它的Enable 属性设为【1】. 答案：False 61、在VB 中,窗体由属性定义外观,由【1】定义行为,由事件定义其与用户的交互. 答案：方法 62、一个工程可以包括多种类型的文件,其中,扩展名为.vbp 的文件表示【1】文件. 答案：工程 63、一个工程可以包括多种类型的文件,其中,扩展名为.frm 的文件表示【1】文件. 答案： 窗体 64、要使同一类型控件组成一个控件数组,必须要求【1】. 答案： Name 相同 或 名称相同 65、要使一个按钮设为默认按钮,应把此按钮的【1】属性的值设为True. 答案：Default 66、在VB 中,若要重新定义一个动态数组的元素个数,应当使用【1】语句对其进行重新定义. 答案：ReDim 67、在控件之中,【1】单独保存在.OCX 文件中,在必要时可以加入到工具箱中. 答案：ACTIVEX 控件 68、VB 中的变量按其作用分为全局变量,模块变量,【1】. 答案： 局部变量 69、在一条Dim 语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar 、intVar 与sngVar 的数据类型分别是Variant 、Variant 和【1】. 答案： Integer 70、设x 为大于零的实数,则大于x 的最小奇数的Visual Basic 表达式是【1】. 答案： IIF(int(x) mod 2=0,int(x)+2,int(x)+1) 71、说明变量类型有隐含类型说明和【1】两种方法. 答案： 强制类型 或 强制类型说明 72、表达式(-3) Mod 8的值为【1】. 答案：–3 73、设X$ ="abc123456"则"a"+str$(val(right(X$,4)))的值是【1】. 答案：a3456 74、设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为【1】. 答案：False 75、String(3, "abc")的结果为【1】. 答案： aaa 76、VB 的工作模式可分为三种:"设计"、"运行"以及"【1】". 答案： 中断 77、VB 的运算符包括算术运算符、【1】运算符、关系运算符、逻辑运算符和特殊运算符. 答案： 连接 78、Integer 类型的变量占用【1】字节空间. 答案： 2 79、表达式81\7 MOD 2^2 的值是【1】. 答案： 3 80、设x 为一个两位数,将x 个位数和十位数交换后所得两位数VB 的表达式是【1】. 答案：(x mod 10)★*★10★+★int(x/10) 81、求x 与y 之积除以z 的余数的VB 表达式为【1】.答案：x*y★Mod★z82、变量min&表示【1】类型的变量.答案：长整型83、A和B同为正整数或同为负整数的VB 表达式为【1】.答案：A=INT(A)★AND★ B=INT(B)★ AND★A*B>084、Val("")的值是多少【1】.答案：85、表达式"[A]"Like "[A]"的值为【1】.答案： False86、sst="ABC12DE",则Val(sst)=【1】.答案： 087、VB表达式9^2 MOD 45 \2 *3 的值【1】.答案：488、表达式 32\7 MOD 3^2 的值是【1】.答案： 489、默认情况下,所有未经显示声明的变量均视为 Variant 类型,如果要强制变量的声明,应在模块的声明段使用【1】语句.答案： Option Explicit90、征兵的条件:男性(sex)年龄(age)在18—20岁之间,身高(size)在1.65米以上;或者女性年龄在16—18岁之间,身高在以上,列出逻辑表达式【1】.答案：(sex and age>=18 and age<=20 and size>= ) or (notsex and age>=16 and age<=18 and size>= )91、把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】.答案： False92、a 和 b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】.答案： a=1★xor★b=193、设x=2,y=4,a=4,b=6,表达式 (a>x Xor b<x) OR x<y IMP y<b 的结果为【1】.答案： True94、把整型数1赋给一个逻辑型变量,则逻辑变量的值为【1】.答案： True95、如果:I=12:J=3:I=int+I\J+13/3 MOD 5,则I值是【1】.答案： -196、如果:I=11:J=3:I=int+I\J+13/3 MOD 5,则I值是【1】.答案：-297、把条件1<=X<12写成VB关系表达式为【1】.答案：x>=1 and x<12 或 x<12 and x>=1 98、声明单精度常量g(重力加速度)代表可写成【1】.答案：const g= 或 const single g= 100、X=2:Y=8:PRINT X+Y=10的结果是【1】.答案：True101、声明单精度常量P1代表的语句为【1】.答案：Const PI= 或 Const pi As Single = 102、VB 的基本表达式包括算术表达式、关系表达式和【1】表达式.答案：逻辑103、表达式93\7 MOD 2^3的值是【1】.答案： 5104、的连接运算符包括【1】运算符和【2】运算符两种.答案：（1). & 或 + （2). & 或+105、表达式 1 and 0的值【1】.答案： False106、变量min@表示【1】类型的变量.答案：货币数据变量或货币107、当x=2时,语句if x=2 then Print x=2 的结果值是【1】.答案： True108、设x为大于零的实数,则大于x的最小偶数的Visual Basic表达式是【1】.答案：iif(int(x) mod 2=0,int(x)+2,int(x)+1)109、声明定长为10个字符变量Sstr的语句为【1】.答案：Dim Sstr as String*10 或 Sstr as String*10110、表达式(-3) And 8 的值为【1】.答案： True111、Print "x=" & (2=4) 的结果为【1】.答案： x=False。