数据库3错题集

数据库3假定利用 CREATETABLE命令建立下面的teacher表，语句中tno表示教师编号，tname教师名称，age教师年龄。CREATETABLEteacher( tno CHAR(5) PRIMARY KEY(tno),tname CHAR(10),ageSAMLLINT)则主键为&nb_______。age列的数据类型为_______。参考答案第1空：tno第2空：SMALLINT以下语句利用命令建立编号,分类号,书名,单价表，其中，编号、分类号、单价Transact-SQLCREATETABLEBOOK()为文本型，6个字符；单价为实数， 8位有效数字，2位小数。CREATE TABLE BOOK(编号 _______，分类号 CHAR(6),书名 CHAR(6),单价_______(8,2))参考答案第1空：CHAR(6)第2空：NUMERIC精选文档题目对St_Info(学号,姓名,性别,出生日期,专业,班级)，将张羽同学所在班级更名为“计算机科学0601班”。UPDATE St_Info_______ 班级=‘计算机科学0601班’WHERE姓名=‘张羽’参考答案 第1空：SET学生”表 St_info由学号（sno）、姓名（sname）、性别（ssex）、出生日期（sbirth）、所在系（sd）等属性组成。将“刘洋”的所在系更改为“法学院”。UPDATE St_info_______sd=‘法学院’‘刘洋’WHEREsname=参考答案 第1空：SET“学生”表St_info由学号（sno）、姓名（sname）、性别（ssex）、出生日期（sbirth）、所在系（sd）等属性组成。现将一个新学生记录（学号：2003101；姓名：陈红；性别：女；所在系：外国语学院；出生日期：1985-10-23）插入St_info表中，完成以下操作。_______St_info‘’,‘陈红’,‘女’,1985-10-23,‘外国语学院’)VALUES(2003101参考答案第1空：INSERTINTO使用下述语句创建表S_C_Info：CREATETABLES_C_Info— 2精选文档(St_IDCHAR(10)NOT NULL,C_NOCHAR(10)NOT NULL,ScoreINT NOT NULL,PRIMARYKEY(St_ID,C_NO)执行上述语句后，数据表S_C_Info的主键名是(_______)；语句中NOTNULL的含义是_______。参考答案第1空：St_ID,C_NO第2空：非空数据的完整性主要防范的对象是非法用户。参考答案 错误删除表时，与该表相关的规则和约束不会被删除。参考答案 错误语言将数据插入到数据表的语句是 ，修改数据的语句是 。Transact-SQL INSERTINTO UPDATE参考答案 正确数据库5有表student(学号,姓名,性别, 身份证号,出生日期,所在系号)，在此表上使用（ ）语句能创建建视图 vst。A.CREATEVIEWvstASSELECT*FROMstudentB.CREATEVIEWvstON SELECT*FROMstudentC.CREATEVIEWASSELECT*FROMstudent— 3精选文档D.CREATETABLEvstASSELECT*FROMstudent参考答案 A不允许记录中出现重复值和 NULL值的索引是( )。A.主键索引、普通索引B.主键索引、候选索引和普通索引C.主键索引D.主键索引、候选索引和唯一索引参考答案 C在关系数据库系统中，为了简化用户的查询操作，而又不增加数据的存储空间，常用的方法是创建（ ）。A.另一个表B.游标C.视图D.索引参考答案 Csp_help属于哪一种存储过程（ ）？A.系统存储过程B.用户定义存储过程C.扩展存储过程D.其他— 4精选文档参考答案 A在 中，执行带参数的过程，正确的方法为（ ）。SQLSERVERA.过程名参数B.过程名（参数）C.过程名=参数D.ABC均可参考答案 A有教师表(教师号，教师名，职称，基本工资 )，其中基本工资的取值与教师职称有关。实现这个约束的可行方案是 ( )。A.在教师表上定义一个视图B.在教师表上定义一个存储过程C.在教师表上定义插入和修改操作的触发器D.在教师表上定义一个标量函数参考答案 C有教师表(教师号，教师名，职称，基本工资)，其中基本工资的取值与教师职称有关。实现这个约束的可行方案是( )。在SQLServer中，有商品表（商品号，商品号，单价）和销售表（商品号，销售时间，销售价格）。现要限制“销售价格”的取值必须在此商品“单价”的 0.6到1.5倍范围之内，实现这个约束的正确代码是 ( )。A.销售价格BETWEEN单价*0.6AND单价*1.5)CHECK(B.— 5精选文档销售价格BETWEEN商品表.单价*0.6AND商品表.单价*1.5)CHECK(C.销售表CREATETRIGGERtri_SalesON，FORINSERTUPDATEAS商品表IFEXISTS(SELECT*FROMINSERTEDaJOIN bONa.商品号=b.商品号 WHERE销售价格NOT单价 单价BETWEEN *0.6AND *1.5)ROLLBACKD.销售表CREATETRIGGERtri_SalesON，INSTEADOFINSERTUPDATEAS商品表IFEXISTS(SELECT*FROMINSERTEDaJOINbONa.商品号=b.商品号销售价格单价单价*1.5)ROLLBACKWHERENOTBETWEEN*0.6AND参考答案 D我的答案 C声明了变量：DECLARE@iint,@cchar(4)现在为@i赋值10，@c赋值‘abcd’，正确的语句是（ ）。A.set@i=10,@c=‘abcd’— 6精选文档B.seti=10,set@c=‘abcd’C.select@i=10,@c=‘abcd’D.select@i=10,select@c=‘abcd’参考答案 C我的答案 A数据库6用户对数据进行添加、修改和删除时，自动执行的存储过程称为_______。参考答案第1空：触发器SQLServer中的存储过程具有_______、用户自定义存储过程、临时存储过程、远程存储过程、_______5种类型。参考答案第1空：系统存储过程第2空：扩展存储过程创建存储过程实际是对存储过程进行定义的过程，主要包含存储过程名称、 _______和存储过程的主体部分。参考答案 第1空：参数触发器主要用于强制复杂的业务 _______或要求。参考答案 第1空：规则在student_db数据库中创建一个名为“tr_P1”的存储过程，实现根据学生学号，查询该学生的选修课程情况，其中包括该学生的学号、姓名、课程名、课程类型、成绩。CREATE _______ tr_P1 @stID varchar(10)ASSELECTSt_Info.St_ID,St_Info.St_Name,C_Info.C_Name,C_Info.C_Type,S_C_Info.ScoreFROMSt_Info,S_C_Info,C_Info— 7精选文档WHERESt_Info.St_ID=S_C_Info.St_IDAND S_C_______ ′0403060111′参考答案 第1空：PROC第2空：EXECtr_P1有表C_Info(C_No，C_Name，C_Type，Credit) ，各属性的含义为课程号、课程名称、课程类别、学分，为该表创建一个触发器tr_AutoSetType，以便插入数据时将课程类别修改为“必修”。CREATE TRIGGER tr_AutoSetType ON C_Info_____AS‘必修’UPDATEC_InfoSETC_Type=参考答案 第1空：FORINSERT某SQLServer数据库中两张表：商品表（商品号，商品名，商品类型，价格）和销售表（商品号，销售时间，销售数量，销售单价）。用户需统计指定年份每类商品的销售总数量和销售总利润，要求只列出销售总利润最多的前三类商品的商品类别、销售总数量和销售总利润。为了完成该统计操作，请按要求将下面的存储过程补充完整。CREATEPROCp_Sum @year INTASSELECT(_______)商品类别，SUM(销售数量)AS销售总数量，(_______) AS 销售总利润FROM商品表JOIN销售表ON商品表.商品号=销售表.商品号WHEREyear(销售时间)=@year— 8GROUPBY商品类别ORDERBY销售总利润(_______)参考答案 第1空：TOP3第2空：(销售单价-成本价)*SUM(销售数量)第3空：降序DESC()的意思是回滚事务。ROLLBACKTRANSACTION参考答案 正确存储过程的输出结果可以传递给一个变量。参考答案 正确我的答案 正确创建触发器的时候可以不是表的所有者或数据库的所有者。参考答案 错误DML触发器不可通过数据库中的相关表实现级联更改。参考答案 错误每个存储过程向调用方返回一个整数的返回代码值。如果存储过程没有显式设置返回代码的值，则返回代码为参考答案 正确若要修改一个存储过程，可以先删除该存储过程，再重新创建。参考答案 正确语句：EXECsp_helptriggerS_C_Info的功能是通过系统存储过程S_C_Info查看sp_helptrigger表上存在的触发器的属性信息。

精选文档0，表示成功。— 9精选文档参考答案 错误临时存储过程总是在 master数据库中创建。通常分为局部临时存储过程和全局临时存储过程。参考答案 错误像常规触发器一样， DDL触发器将激发存储过程以响应事件。参考答案 正确存储过程是在数据库上定义的，触发器是在特定表上进行定义的。参考答案 正确CREATETRIGGERDelCourse ON C_InfoFOR DELETE ASDELETES_C_Info WHEREC_No IN (SELECTC_NoFROMdeleted)以上语句是用于创建存储过程 DelCourse。参考答案正确使用Transact-SQL语句直接创建触发器的语句中，其中有一个短语：如果仅指定FOR关键字，则AFTER为默认值。FOR|AFTER|INSTEADOF参考答案 正确在 中，触发器的执行通过 命令实现。SQLServer EXECUTE参考答案 错误存储过程可以由用户直接调用执行，但触发器不能直接调用执行，而是 SQLServer自动触发执行的。参考答案 正确— 10精选文档触发器可以引用当前数据库以外的对象，但只能在当前数据库中创建触发器。参考答案 正确触发器用来定义比 CHECK约束更复杂的规则或要求。参考答案 正确数据库7在SQLServer中，通过构建永久备份设备可以对数据库进行备份，下列说法正确的是A.不需要指定备份设备的大小B.一个数据库一次只能备份在一个设备上C.每个备份设备都是专属于一个数据库的D.只能将备份设备建立在磁盘上参考答案 A对于不同的数据库，若要让 SQLServer能够识别和使用，就必须进行数据源的（ ）。A.添加B.转换C.复制D.编辑— 11精选文档参考答案 B在SQLServer中下列关于数据的导入 /导出叙述错误的是（ ）。A.可以访问SQLServer和Oracle数据库等关系数据源B.可以访问ODBC数据源C.可以访问Excel格式文件、ASCII文本文件、Access数据库D.不能访问非关系型数据源参考答案 DSQLServer2008导入/导出数据可以使用_______语句根据数据创建新表。参考答案 第1空：SELECTINTO用执行SQL脚本的方式创建的新表只有表_______，而无表记录。参考答案 第1空：结构我的答案 1_定义导出数据是帮助用户将_______的数据导出到OLEDB数据源、ODBC数据源、Excel工作表或者文本文件中。参考答案第1空：SQLServer— 12精选文档在SQLServer中除了将数据库生成脚本文件外，用户还可以根据需要将指定的 _______生成脚本文件。参考答案 第1空：数据表SQLServer数据转换服务可以传输数据，不能传输存储过程和触发器等特殊数据库对象。参考答案错误SQLServer数据转换服务的数据源包括OLEDB数据源、ODBC数据源、文本文件和Excel电子表格。参考答案正确题目 如果使用SQLServer对象资源管理器，将表 user1中的userID字段的值复制到已存在的表user2的userID字段，可以使用“导入数据”来操作。参考答案 正确对于一个已经存在的数据库，可以使用生成 SQL语句的方式导出该数据库以及其内部所有结构，如表、视图、存储过程等等。参考答案 正确在SQLServer中使用导入导出向导不能访问非关系型数据源。参考答案错误数据转换的主要作用是使SQLServer与任何、、或文本文件等多种不同类型的数据源之间实现数据传递，主要OLEDBODBCJDBC体现在导入和导出数据、转换数据、复制数据库对象。参考答案 正确数据备份属于数据的转换任务。— 13精选文档参考答案 错误数据库系统中，执行逻辑数据和物理数据之间转换功能的是 DBMS。参考答案 正确SQLServer可在一个或多个数据源（如MicrosoftSQLServer、MicrosoftExcel或MicrosoftAccess）之间进行导入、导出和转换异类数据。参考答案 正确在SQLServer中使用导入导出向导不能访问非关系型数据源。参考答案错误利用导出向导导出数据之前，由于系统不能够自动创建 Access数据库，应该确保磁盘中已经存在存放导出数据的 Access数据库。参考答案 正确数据库8用于数据库恢复的重要文件是_______。参考答案 第1空：日志文件— 14精选文档我的答案 1_事务日志文件数据库的安全性是指保护数据库避免不合法的使用，以免数据的_______、更改和破坏。参考答案 第1空：泄露事务对一个数据项的操作类型决定了数据项上的锁的类型。锁的类型主要有互斥锁(简称X锁)和(_______)锁(简称S锁)两种。参考答案第1空：共享在SQLServer 中，新建了一个 SQLServer身份验证模式的登录账户LOG，现希望LOG在数据库服务器上具有全部的操作权限，下述语句是为 LOG授权的语句，请补全该语句。EXECsp_addsrvrolemember‘’LOG,(_______)参考答案第1空：sysadmin在SQLServer中，某数据库用户User在此数据库中具有对于表数据的查询和更改权限。现要收回User对于T表的数据更改权，下述是实现该功能的语句，请补全该语句(_______)UPDATEONTFROMUser参考答案第1空：REVOKE在SQLServer 中，要授予某数据库中的某个用户具有该数据库中全部用户数据表的插入、删除和修改权限，比较合理的做法是将该用户添加到系统提供的 (_______)数据库角色中。参考答案 第1空：db_owner事务是由一系列操作组成的，事务的执行表现为事务中各个操作的执行。每个事务应具有结束操作。当一个事务需要终止并取消所有已— 15精选文档执行的数据修改时应执行的语句是(_______)参考答案第1空：ROLLBACK用户对数据库中的表、存储过程、视图等对象的操作权限属于语句权限。参考答案 错误我的答案 错误固定数据库角色是在数据库级别定义的，并且存在于每个数据库中。参考答案 错误语句权限主要指用户是否具有权限来执行某一语句。参考答案 正确数据库9VB表达式 3*2^(2Mod10); 的值是（ ）。A.12B.13C.36D.37参考答案 A在VB中，可以从键盘接受文本数据的控件是（ ）。A.Textbox控件B.Label控件— 16精选文档C.CommandButton控件D.Data控件参考答案 AOptionExplicit语句表示（ ）。A.可以不申明变量类型B.必须申明变量类型C.数组下标从0开始D.数组下标从1开始参考答案 BInputBox函数的返回值类型是（ ）。A.变体型B.整型C.实型D.字符型参考答案 D题目VisualBasic支持的一种程序结构语句是（ ）。A.BEGIN ENDB.If Then ElseC.DoCaseD.For Loop— 17精选文档参考答案 BVB6.0集成环境的主窗口中不包括（ ）。A.标题栏B.菜单栏C.状态栏D.工具栏参考答案 C下面正确的逻辑表达式是（ ）。A.x>yANDy>zB.x>y>zC.x>yAND>zD.x>y&y>z参考答案 A无论任何控件，都具有一个共同属性，这个属性是（ ）。A.TextB.FontC.NameD.Caption参考答案 C— 18精选文档数据库9在VB中，执行以下程序段：a=5If a<=3ThenPrint3;EndIfIf a<=4ThenPrint4;EndIfIf a<=5ThenPrint5;EndIfIfa<=6ThenPrint6;EndIf输出结果是：56— 19a<cThenIfb<dThenElsex=3精选文档在VB中，执行以下程序段：a="123"b="456"c=Val(a)+Val(b)Printc579在VB中，执行以下程序段：If a<bThenIf c<dThenx=1ElseIf

a=1:b=3:c=5:d=4x=2— 20精选文档EndIfElsex=6EndIfEndIfElsex=7EndIf的值为：2在VB中，执行以下程序段：a=12.3b="123"m=Len(Str(a)+Str(b))— 21精选文档Printm输出结果是：9在VB中，执行以下程序段：PrivateSubCommand1_Click()Fori=1To4Forj=1toin=1n=n*jNext jNextiPrint n,jEndSub输出结果是：4 5— 22精选文档在VB中，执行以下程序段：Forj=10To4Step-1If(jMod3)=0Thenj=j-1Printj;Nextj输出结果是：108754执行以下程序 ：a=1b=2c=3a=bb=cc=aPrint a; b; cEnd— 23精选文档输出结果是232在VB中，把字符型数据转换为数值型数据需要使用的函数是 Val。参考答案 正确在VB中，为了暂时关闭计时器，应把该计时器的某个属性设置为 False，这个属性是Enabled。参考答案 正确在VB中，要想获得某个相关控件属性信息，一般可首先选中该控件对象，然后查看对象代码窗口。参考答案错误在VB中，窗体的 Hide方法和Unload方法的作用完全相同 。参考答案 错误在VB中，窗体的Show方法的作用是将指定的窗体载入内存并显示该窗体。参考答案正确VB的三种工作模式分别是：设计模式；运行模式；中断模式。参考答案 正确设计好的数据库管理系统在投入使用后出现问题由使用方负责。参考答案 错误表达式 (2*3)>=5and12/3<=4的值为 false。参考答案 错误VB采用面向对象的程序设计方法，程序由若干对象组成。其中对象的特征或性质由对象的属性来描述。参考答案 正确VB的运算优先级从高到低依次为：算术运算、连接运算、关系运算 和 逻辑运算。— 24精选文档参考答案 正确在MsgBox函数中prompt参数是必须的。参考答案 正确在VB中，若同一个工程有许多窗体，可以指定任一窗体为启动窗体。参考答案正确AB和4AB都可以作为VB的变量名。参考答案 错误在VB中，变量必须要先定义才能使用。参考答案错误在VB中，表达式“HelloWorld”Like“He*”的结果为False。参考答案错误Endif语句对单行if语句不需要。参考答案正确在VB中表达选择结构的语句有For语句、Do语句。参考答案错误VB是一种面向对象的程序设计方法和事件驱动的编程机制。参考答案 正确所有的控件都有 Name和Caption属性。参考答案 错误若要使不可见命令按钮显示出来，可通过设置 Enabled属性的值为True来实现。参考答案 错误在VB中，对象的属性、方法和事件被称为对象的三要素。— 25精选文档参考答案 正确保存VisualBasic程序时，应分别保存窗体文件及工程文件参考答案 正确在VB中应用程序无论大小，都叫作“工程”。参考答案正确窗体文件的扩展名是 .bas。参考答案 错误三种方式的组合框都可以接受 DblClick事件。参考答案错误要使用户输入密码时不显示实际的字符，则要修改接收密码的文本框的_______属性。参考答案第1空：PasswordCharVB工程文件扩展名是_______，窗体文件扩展名是_______，模块文件的扩展名是bas。参考答案第1空：vbp第2空：frm变量根据其作用域与生存期可分为：以下程序将实现y=2*4*6*...*50。PrivateSubForm_Click()y=_______Fori=2To50Step_______y=y*iNextiPrint_______’在窗体上输出运算结果EndSub— 26精选文档参考答案 第1空：1第2空：2第3空：y局部变量、窗体/模块级变量、_______变量。参考答案第1空：全局以下VisualBasic语句用于弹出提示信息对话框，显示x、y、z变量的和（格式如：3+7+2的和为:12）。MsgBoxx&"+"&y&"_______"&z&"的和为："&_______参考答案第1空：+第2空：x+y+z设a=2,b=4,c=6，表达式a>bOrc<a的值为_______。参考答案第1空：False以下VisualBasic语句用于弹出提示信息对话框，显示x、y、z变量中的最大值为y中的值（例如：3,7,2中的最大值为：7）。MsgBoxx&","&y&","&z&"最大值为："&_______参考答案第1空：y装载后显示一个窗体要使用窗体的_______方法。参考答案第1空：Show在VB中，已知变量a=1:b=2:c=3，则表达式c>a+bORb-1>c-1Andc+a>aXorb<c-2的值为_______。参考答案第1空：False在VB中，三个字符串 "XY"、"XYZ"、"ab"中的最大者为_______。参考答案 第1空："ab"在VB中，变量的声明一般分为显式声明和 _______声明两种方式。— 27精选文档参考答案 第1空：隐式在VB中，字符串型变量用于存放字符串，可以分为变长字符串和 _______字符串两种。参考答案 第1空：定长在VB的参数传递过程中，为了使参数按值传递，应该使用关键字_______。参考答案第1空：ByVal在VB中，控件数组的名字由Name属性指定，数组元素的下标由_______属性指定。参考答案第1空：Index在VB中，如果定义一个数组“Dima(5)AsInteger”，其元素最多有_______个，如果之前在窗体层设置了语句“OptionBase1”，则元素的个数有_______个。参考答案第1空：6第2空：5在VB中，当执行语句a = 10Printa=a-0;a=a-2;a-4之后，则输出的结果分别为 _______、_______、_______。参考答案 第1空：True第2空：False第3空：6在VisualBasic中，能够得到“字体”对话框中用户所选字体的名字、大小和颜色的属性分别是_______、_______、_______。参考答案第1空：FontName第2空：FontSize— 28精选文档第3空：ForeColor在VB的子过程的执行过程中要提前退出，应该使用语句_______，而要提前退出函数过程退出，应该使用语句_______。参考答案第1空：ExitSub第2空：ExitFunction在VB中，Do循环的配套结束语句是_______。参考答案第1空：Loop在VB中，过程调用的参数传递可以按_______和按地址传递。参考答案第1空：值在VB中，可以把当前目录下的图形文件装入Picturebox对象中的语句是_______。参考答案第1空：Loadpicture在VB中，要改变窗体的标题文字，应修改其_______属性。参考答案第1空：Caption在VB中，定时器控件能有规律地以一定时间间隔触发_______事件，并执行该事件过程中的程序代码。参考答案第1空：Timer输入100个数，统计其中负数、零及正数的个数。单击窗体，从键盘输入100个数，并输出负数、零及正数的个数，完成以下代码。PrivateSubForm_Click()Dim fsAsInteger,zsAsInteger,nsAsInteger ’ fs,ns,zs分别代表负数、零 _______ElseIfk<0Thenfs=fs+1Else_______EndIf— 29精选文档NextiPrint"负数、零及正数的个数分别是 :";fs,ns,zsEndSub参考答案 第1空：zs=zs+1第2空：ns=ns+1在VB中，表达式6+10MOD4*2+1的值是_______。参考答案第1空：11有以下程序段：k=9Dok=k+1LoopWhile(k=1)Do型循环执行的次数是：_______参考答案第1空：1在VB中，以下循环执行了_______次。Int1=10Do while int1>=1Int1=int1-1Loop参考答案第1空：10求两个整数的最大公约数。— 30精选文档求最大公约数的算法思想：对于已知两数m，n，使得m>n；m除以n得余数r；(3)若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；(4)m←n，n←r，再重复执行(2)。例如：求 m=14，n=6的最大公约数，余数r=2，r不为0，则m=6，n=2，r为m除n的余数=0，则最大公约数为2。请根据以上思路 _______DoWhile(r<>0)m=n_______r=mModnLoopPrint"最大公约数=",nEndSub参考答案 第1空：mModn第2空：n=r以下VB程序的功能是：单击命令按钮，从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，当输入负数时结束输入，在标签控件 Label1和Label2中分别输出结果最大值和最小值，请将程序补充完整。PrivateSubCommand1_Click()DimxAsSingle,amaxAsSingle,aminAsSinglex=InputBox("输入分数:")amax=x— 31精选文档amin=_______)Ifx>amaxThenamax=xEndIfIf _______ Then amin=xEndIfx=InputBox("输入分数:")LoopLabel1.Caption=_______Label2.Caption=aminEndSub参考答案 第1空：0<=x第2空：amin>x第3空：amax求满足如以条件的自然数：以 3除余2，以5除余3，以7除余2，程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。在 VB窗体中，有文本框Text1，用于输入查找数据的范围，程序代码如下，请补充完整：PrivateSubCommand1_Click()DimsumAsInteger ’ sum用来统计符合条件的自然数个数Dimn,maxAs_______ ’ 指定查找范围的最大自然数，在 Text1框中输入n=0— 32精选文档DoWhilen<=maxn=n+1’从自然数1开始不断往上寻找If_______ThenPrintn;’找到后在list1中显示结果_______EndIfLoopPrint"共计"&sum&"个"EndSub参考答案 第1空：VAL(Text1.Text))第2空：nMod3=2AndnMod5=3AndnMod7=2第3空：sum=sum+1有30个人，其中有男人、女人和小孩。他们在一家饭馆里花去 500元。已知，每个男人花30元，每个女人花20元，每个小孩花10元。问：男人、女人、小孩各为多少人。为了实现这一目标，完善下面的 VB程序，在划线处填入合适的语句或表达式，完成程序设计。PrivateSubCommand1_Click()DimmanAsInteger,womanAsInteger,childAsIntegerForman=1To15_______s=30*man+20*woman+10*childIf _______ ThenPrint man,woman,childEndIf— 33精选文档NextwomanNextmanEndSub参考答案 第1空：30-woman-man第2空：500=s下面的代码是在 VB环境中实现的，其中，frmpass窗体为登录窗体，Text1为该窗体的密码输入框，Command1按钮为确定命令按钮，单击该按钮测试其是密码是否正确，若正确则调用mfrmSt窗体，显示的学生信息，不正确则进行三次密码输入，仍不正确则退出。请给下面代码中的划线处填上适当的内容，以完成操作。’在声明区定义变量iDimiAsInteger’对"确定"按钮编写以下代码Private_______ frmpass ’ 卸载frmpass窗体mfrmSt _______ ’显示mfrmSt窗体ExitSubEndIfIf _______ ThenMsgBox"三次密码均不对，您无法进入系统!"UnloadfrmpassEnd’结束应用程序EndIfEndSub— 34精选文档&nbs参考答案 第1空：UnLoad第2空：.Show第3空：i=3以下程序求 10个学生的总成绩sum和平均成绩avg，这些学生的成绩存贮在a数组中。完成该程序。Dima(1To10)AsIntegerPrivateSubForm_Click()sum= _______Fori=1To10sum=sum+ _______Nextavg= _______Print sum, avgEndSub参考答案 第1空：0第2空：a(i)第3空：sum/10下面的程序是求100以内奇数和s的值（）。请将以下VB程序补充完整：S=1+3+5+7...+99PrivateSubCommand1_Click()DimsAsSingle,iAsSingles=_______Fori=1To100Step _______— 35_______NextiMsgBoxs,,"奇数和"EndSub参考答案 第1空：0第2空：2第3空：s=i+s下面的代码是在 VB环境中实现的，请给下面代码中的划线处填上适当的内容，以完成操作。其中Text1用于输入百分制数据， Text2用于显示转换的等级制成绩。当鼠标单击“转换”按钮时，将百分制成绩转换为等级制成绩，当鼠标单击“清空”按钮时，将grade="良好"Case70To79grade="中等"Case60To69grade="及格"Case _______grade="不及格"EndSelectText2= gradeEndSub’对“清空”按钮写代码

精选文档Text1与Text2控件_______— 36精选文档PrivateSubCommand2_Click()_______Text2=""EndSub参考答案 第1空：80To89第2空：Else第3空：Text1=""利用文本框 Text1输入一个正整数N，求出2+3/2+4/3+5/4+ +(N+1)/N的值，完善下面的VB程序，在划线处填入合适的语句或表达式。VisualBasic程序如下：PrivateSubcommand1_click()DimsAsSingles=0N=Val(Text1)For i_______ To N-1s= _______NextiText1.Text= _______EndSub参考答案 第1空：1第2空：s+(i+1)/i第3空：str(s)— 37精选文档个位数字是 6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有 n个这样的数，VisualBasic程序如下：SubCommand1_Click()DimiAsInteger,nAsIntegerm=106n=_______DoWhilem<=996IfmMod3=0And _______ Thenn=n+1m=_______LoopText1.Text=nEndSub参考答案 第1空：0第2空：m-m/10*10=6第3空：m+1猴子吃桃问题。猴子第一天摘下若干个桃子，当即吃了一半，还不过瘾，又多吃了一个。第二天早晨又将剩下的桃子吃了一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第十天早上再想吃时，见只剩一个桃子了。问：第一天猴子共摘了多少个桃子。为了实现这一目标，完善下面的 VB程序，在划线处填入合适的语句或表达式。 VisualBasic程序如下：PrivateSubCommand1_Click()Dimi,sAsIntege_______— 38精选文档Fori=1To9_______NextiText1=sEndSub参考答案 第1空：s=1第2空：s=(s+1)*2完善以下VB程序，使其能输出： 1-2+3-4+5-6+...+99-100的值。程序如下：PrivateSubCommand1_Click()s= _______Fori=1To _______s=s+((-1)^( _______))*iNextiPrintsEndSub参考答案 第1空：0第2空：100第3空：i-1在数据组 a中存放10个整数：10,30,13,5,92,70,87,45,4,56，下面的代码实现求a数组元素的最大值，并使用信息提示框显示，完— 39精选文档成该操作。PrivateSubForm_Click()DimmaxAsIntegerDima(1To10)As Integera(1)=10: a(2)=30: a(3)=13a(4_______Fori=2To10If _______ Thenmax=a(i)NextMsgBox"a数组中的最大值为： "& _______EndSub参考答案 第1空：a(1)第2空：a(i)>max第3空：max以下VB窗体添加了两文本框 Text1、Text2，用于输入N值和输出N!值；两个命令按钮Command1、Command2用于计算N!值和清空文本框。有函数fact用于实现求 N!。请给下面代码中的划线处填上适当的内容，以完成操作。’ 对计算按钮写代码PrivateSubComma_______’调用函数Text2=m— 40精选文档EndSub’对“清空”按钮写代码PrivateSubCommand2_Click()<_______ElseFork=1Tonfact= _______NextkEndIfEndFunction参考答案 第1空：fact(n)第2空：ExitFunction第3空：k*fact在VB中，以下程序将实现[1，10]的奇数平方和赋给x，偶数平方和赋给变量y，并输出x与y的值。完成该程序。PrivateSubForm_Click()DimxAsInteger,yAsIntegerDoWhilei<=10If_______Then_______LoopPrint_______’数据以“,”分隔EndSub参考答案第1空：iMod2=1— 41精选文档第2空：i=i+1第3空：y,x依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于 0.3mg/ml驾驶机动车者属酒后驾车；大于或等于 1.0mg/ml