13书本习题参考答案 Visual Basic 程序设计基础 浙江科技出版社 陈庆章 主编

1、第13章一、选择题1打开Visual Basic集成环境后，显示的工具栏是（ B ）A 编辑工具栏B标准工具栏C调试工具栏D窗体工具栏2以下叙述中错误的是（ C ）A打开一个工程文件时，系统自动装入与该工程有关的窗体文件B保存Visual Basic程序时，应分别保存窗体文件及工程文件CVisual Basic应用程序只能以解释方式执行D窗体文件包含窗体及其控件的属性3能够改变窗体边框线类型的属性是（ B ）AFontStyleBBorderStyleCBackStyleDBorder4如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（ A ）A如果工程中含有Sub Main过程，则程

2、序一定首先执行该过程B不能把标准模块设置为启动模块C用Hide方法只能隐藏一个窗体，不能从内存中清除该窗体D任何时刻最多只有一个窗体是活动窗体5以下关于Visual Basic特点的叙述中，错误的是（ D ）AVisual Basic是采用事件驱动编程机制的语言BVisual Basic程序既可以编译运行，也可以解释运行C构成Visual Basic程序的多个过程没有固定的执行顺序DVisual Basic程序不是结构化程序，不具备结构化程序的三种基本结构6Visual Basic集成的主窗口中不包括（ A ）。A属性窗口 B标题栏 C菜单栏 D工具栏7Visual Basic集成环境的大部分

3、窗口都可以从主菜单项（ B ）的下拉菜单中找到相应的打开命令。A编辑 B视图 C格式 D调试8以下不属于Visual Basic系统的文件类型是（ B ）A.frmB.batC.vbgD.vbp9与Form1.Show方法效果相同的是（ A ）AForm1.visible=true BForm1.visible=falseCvisible.form1=trueDvisible.form1=false10在Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口时（ D ）A工程资源管理器窗口B属性窗口C工具箱窗口D代码窗口11程序运行后，在窗体上单击鼠标，此时窗体不会

4、接收到的事件是（ C ）AMouseDownBMouseUpCLoadDClick12以下叙述中，错误的是（ C ）A一个Visual Basic应用程序可以含有多个标准模块文件B一个Visual Basic工程可以含有多个窗体文件C标准模块文件可以属于某个指定的窗体文件D标准模块文件的扩展名是.bas13假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下操作正确的是（ B）。A只保存窗体模块文件B分别保存窗体模块标准模块和工程文件C只保存窗体模块和标准模块文件D只保存工程文件14设窗体的名称为Form1，标题为Win，则窗体的MouseDown

5、事件过程的过程名是（ C ）。AForm1_MouseDown BWin_MouseDownCForm_MouseDown DMouseDown_Form115以下关于窗体的描述中，错误的是（ A ）。A执行Unload Form1语句后，窗体Form1消失，但仍在内存中B窗体的Load事件在加载窗体时发生C当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D窗体的Height、Width属性用于设置窗体的高和宽16下面有关标准模块的叙述中，错误的是（A）。A标准模块不完全由代码组成，还可以有窗体B标准模块中的private过程不能被工程中其它模块调用C. 标准模块的

6、文件扩展名为.basD标准模块中的全局变量可以被工程中的任何模块调用17下列不能打开属性窗口的操作是（ C ）。A执行“视图”菜单中的“属性窗口”命令B单击工具栏上的“属性窗口”按钮C按Ctrl+T快捷键D按F4键18用Visual Basic编写的应用程序的特点是（ A ）。A无须有明显的开头程序和结尾部分B无须编写任何程序代码C必须有明确的开头程序才能启动运行D必须有结尾的程序段才能正常运行19下列叙述中不正确的是（ D ）。A.一个目标程序所需的所有文件的集合称为工程B. VB的工程文件的扩展名为.vbp C.工程文件中可包括窗体文件、标准模块文件、类模块文件、资源文件等D.工程文件中除

7、了窗体文件是可选的外，其他文件都是必须的20把窗体设置为不可见的，应该将（ D ）属性设置为False。AFont BCaptionCEnable DVisible第4章Visual Basic程序设计基础一、选择题1对变量名说法不正确的是（ C ）A必须是字母开头，不能是数字或其他字符B不能使Visual Basic的保留字C可以包含字母、数字、下划线和标点符号D不能超过255个字符2以下关于变量作用域的叙述中，正确的是（ B ）A窗体中凡被声明为Private的变量只能在某个指定的过程中使用B全局变量必须在标准模块中声明C模块级变量只能用Private关键字声明DStatic类型变量的作用

8、域是它所在的窗体或模块文件3以下可以作为Visual Basic变量名的是（B）。AA#A BcounstAC3A D?AA4如果一个变量未经定义就直接使用，则该变量的类型为（D）。Ainteger B. Byte C. Boolean D.Variant5产生10，37之间的随机整数的Visual Basic表达式是（ B ）。AInt(Rnd(1)*27)+10 BInt(Rnd(1)*28)+10CInt(Rnd(1)*27)+11 DInt(Rnd(1)*28)+116下面可以产生2030（包含20和30）的随机整数的表达式是（B）。Aint(Rnd*10+20)Bint(rnd*11

9、+20)Cint(rnd*20+30)Dint(rnd*30+20)7以下叙述中错误的是（ B ）A一个工程中可以包含多个窗体文件B在一个窗体文件中用Public定义的通用过程不能被其他窗体调用C窗体和标准模块需要分别保存为不同类型的磁盘文件D用dim定义的窗体层变量只能在该窗体中使用8下面各关系中，当X取小数或负数时都能成立的式子是（ D ）AInt(x)=abs(x)Bint(x)=abs(x)Cint(x)abs(x)Dint(x)abs(x)9如果想在程序中反复使用一个日期型数据“01/01/2005”，为了避免在编写程序时反复输入这个数据，也为了一次能够修改程序中所有用到这个数据的语

10、句，可以采用（ C ）A将这个数据声明为字符串常量，用一个常量标识符代表它B将这个数据声明为字符串变量，用一个变量标识符表示它C将这个数据声明为日期型常量，用一个常量标识符代表它D将这个数据声明为日期型变量，用一个变量标识符表示它10以下关系表达式中，其值为false的是（ A ）AABCAbCBthetheyCVISUAL=UCase(Visual)DIntegerInt11表达式Int(Rnd(0)+1)+int(rnd(1)-1)的值为（B）。A1 B0 C-1 D212Visual Basic布尔运算符Xor, Or, Eqv,And中，级别最高的运算符是（D ）。AXor BOr C

11、 Eqv DAnd13下列（D ）是满足要求的正确表达式：年龄在20到60之间（包括20和60）或工资少于500的女职工。A20=年龄=60 and工资500 or性别=“女”B20年龄60 and工资500 or性别=“女”C20年龄 and年龄60 or工资500 and 性别=“女”D（20=年龄 and 年龄=60 or 工资500）and 性别=“女”14假设变量boolVar是一个布尔型变量，则下面的赋值语句正确的是（D）。AboolVar=True BboolVar=.True.C. boolVar=#True# DboolVar=3b+1 or cd and b mod ctr

12、ue B1 C-1 D0二、填空题1A=7，B=3，C=4，则表达式A mod 3+B3/C5的值为_ 2 .2一元二次方程有实根的条件是，并且，表示该条件的布尔表达式是_a0 and b*b-4*a*c=0_。3若A=20，B=80，C=70，D=30，则表达式A+B160 or (B*C200 and Not D60)的值是_TRUE_。4下列语句段在运行时的显示结果是_5_。Clsx=10.34+8Print len(x)第5章 数据的输入输出1语句Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是（ C ）A-36B1C-1D-722CLS方法可以清除窗体或图

13、片框中的（C）A. 在设计阶段使用picture属性设置的背景位图B. 在设计阶段放置的控件C. 在运行阶段产生的图形和文字D以上全部内容3为了使命令按钮（名称为Command1）右移200，应使用的语句是（C）ACommand1.move-200BCommand1.move 200Ccommand1.left=command1.left+200Dcommand1.left=command1.left-2004inputbox函数的4个参数中，必选参数的作用是（B）。A输出信息 B定义提示信息C定义隐含信息 D定义输入的位置5以下关于MsgBox的叙述中，错误的是（ D ）AMsgBox函数返

14、回一个整数B通过MsgBox函数可以设置信息框中的图标和按钮的类型CMsgBox语句没有返回值DMsgBox函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量6执行X$=inputbox（“请输入X的值”）时，在弹出的对话框中输入123，在列表框选中第1个列表项(数据为256)，使y的值是123456的语句是（A）。Ay=x$+list1.list(0)By=x$+List1.list(1)Cy=val(x$)+val(list1.list(0)Dy=val(x$) & val(list1.list(1)7在窗体上画一个名称为command1的命令按钮。单击命令按钮时执行如下事件

15、过程：Private sub command1_click()a$=software and hardwareb$=right(a$,8)c$=mid(a$,i,8)msgbox a$, , b$,c$,1end sub则在弹出的信息框标题栏中显示的标题是（ B ）Asoftware and harewareBhardwareCsoftwareD18执行如下语句：a=InputBox(“Today”,“Tomorrow”，“Yesterday”，“Day before yesterday”,5)将显示一个输入对话框，在对话框的输入区中显示的信息是（ C ）。ATodayBTomorrow CY

16、esterdayDDay before yesterday9. 下面不能在信息框中输出“VB”的是（ D ）。AMsgBox ”VB” Bx= MsgBox (”VB”) CMsgBox (”VB”) DCall MsgBox (”VB”)10在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click() a = 12345 Print Format$(a, 000.00)End Sub程序运行后，单击命令按钮，窗体上显示的是（ B ）。A123.45 B12345.00C12345 D00123.4511用来设置文字字体是否斜

17、体的属性是（ D ）。AFontUnderline BFontBoldCFontSlope DFontItalic12执行下列语句：strInput=InputBox(“请输入字符串”,”字符串对话框”,”字符串”)将显示输入对话框。此时如果直接单击“确定”按钮，则变量strInput的内容是（ C ）。A“请输入字符串” B”字符串对话框” C”字符串” D空字符串13下列叙述正确的是（ C ）。AMsgBox 语句的返回值是一个整数B. 执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作CMsgBox语句的第一个参数不能省略D如果省略 MsgBox语句的第三个参数(Titl

18、e)，则信息框的标题为空14以下不能输出”Program”的语句是（ D ）。APrint Mid(“VBProgram”,3,7)BPrint Right(“VBProgram”,7)CPrint Mid(“VBProgram”,3)DPrint Left(“VBProgram”,7)15窗体上有一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click() x = VisualBasicProgramming a = Right(x, 11) b = Mid(x, 7, 5) c = MsgBox(a, ,b)End Sub运行程序后单击命令

19、按钮，以下叙述中错误的是（ D ）。A信息框的标题是BasicB信息框中的提示信息是ProgrammingCc的值是函数的返回值DMsgBox的使用格式有错16下面程序运行时，若输入395，则输出结果是（ B ）。Private Sub Command1_Click() Dim x% x = InputBox(请输入一个3位整数) Print x Mod 10, x 100, (x Mod 100) 10End Sub运行程序，单击命令按钮，窗体上显示的内容为（ ）。A3 9 5 B5 3 9C5 9 3 D3 5 917假定有如下的窗体事件过程：Private Sub Form_Click(

20、) a$ = Microsoft Visual Basic b$ = Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（ C ）。AMicrosoft Visual BMicrosoft CBasic D518在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click( )a=inputbox(“Enter an integer”)

21、b=inputbox(“Enter an integer”)text1.text=b+aEnd sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是（A）。A108 B18 C810 D出错第6章 常用标准控件一、选择题1决定控件上文字的字体字型字号效果的属性是（D）AText BCaption CName DFont2文本框控件中将Text1的内容全部显示为所定义的字符的属性项是（A）Apasswordchar B需要编程来实现 Cpassword D以上都不是3如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的（ C）属性。AValue B

22、visible CEnabled DDefault4通过文本框（ D ）事件过程可以获取文本框中输入字符的ASCII值。AChangeBGotFocusCLostFocus DKeyPress5运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的（ D ）事件。AClickBDblClickCGotfocusDChange6以下关于复选框的说法，正确的是（ B ）A. 复选框的Enabled属性用于决定该复选框是否被选中B复选框的Value属性决定该复选框是否被选中C. 复选框的Checked属性决定该复选框是否被选中

23、D. 复选框的Visible属性决定该复选框是否被选中7( C)使图像控件中的图像自动适宜控件的大小。A将控件的Autosize属性设为TrueB将控件的Autosize属性设为FalseC将控件的stretch属性设为TrueD将控件的Stretch属性设为False8确定一个控件在窗体上的位置的属性是（ C ）。AWidth和Height BWidth或Height CTop 和Left DTop或Left9设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表内容的是（ C ）。AList1.List BList1.ListIndex CList1.Text DL

24、ist1.Index10为了防止用户随意将光标置于控件上，应（D）。A将控件的TabIndex属性设置为0B将控件的TabStop属性设置为trueC将控件的Tabstop属性设置为falseD将控件的Enabled属性设置为false11下列对象不能响应Click事件的是（ D ）。A列表框 B图片框C窗体 D计时器12在Visual Basic中，要使标签的标题居中显示，则将其Alignment属性设置为（ B ）。A0 B2C1 D313设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是（B）。APicture1.Pi

25、cture=”File1.jpg”BPicture1.Picture=LoadPicture(“File1.jpg”)CLoadPicture(“File1.jpg”)DCall LoadPicture(“File1.jpg”)14若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是（ D ）A把所有单选按钮的Index属性改为相同值B把所有单选按钮的Index属性改为连续的不同值C把所有单选按钮的Caption属性值改为相同D把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值15Visual Basic为命令按钮提供的Ca

26、ncel属性是( A )A. 用来指定命令按钮是否为窗体的取消按钮B. 用来指定命令按钮的功能是停止一个运行程序C. 用来指定命令按钮的功能是关闭一个运行程序D. 用来指定命令按钮的功能是中断一个程序的运行16若要获得滚动条的当前值，可访问的属性是（ B ）ATextBValueCMaxDMin17设窗体上有名称为Option1的单选按钮，且程序中有语句：If option1.value=true then下面语句中与该语句不等价的是（ C ）AIf option1.value thenBIf option1=true thenCIf value=true thenDIf option1 th

27、en18能够存放组合框的所有项目内容的属性是（ C ）ACaptionBTextCListDSelected19要使两个单选按钮属于同一个框架，正确的操作是（ A ）A先画一个框架，再在框架中画两个单选按钮B先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中C先画两个单选按钮，再用框架将单选按钮框起来D以上三种方法都正确20要使文本框只具有垂直滚动条，则（ C ）A将其Multiline设置为True，同时将Scrollbars属性设置为0B将其Multiline设置为True，同时将Scrollbars属性设置为1C将其Multiline设置为True，同时将Scrollbar

28、s属性设置为2D将其Multiline设置为True，同时将Scrollbars属性设置为3二、填空题1要使文本框获得输入焦点，则应采用文本框控件的 setfocus 方法。2为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的 Interval 属性设置为500。3当对象得到焦点时，会触发 Gotfocus 事件，当对象失去焦点时，将触发Lost Focus事件。4要想在文本框中显示垂直滚动条，必须把_scrollbars_属性设置为2，同时还应把multiline属性设置为true。5把“Visual Basic程序设计”添加到列表框lstBooks的语句

29、为 LstBooks.AddItem “Visual Basic程序设计” 。6假定有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picture1），应执行的语句是 Picture1.Picture=LoadPicture(“pic2.gif”) 。7编程实现加法运算，在两个文本框中输入加数，用标签表示结果，单击按钮进行计算，完成下列计算过程。Private sub command1_click()Dim A as integer, B as integerA=_val(text1.text)_B=val(text2.text)_label1.caption_=A+

30、BEnd sub8窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。Private Sub Combo1_Click() Dim temp temp = Combo1.Text _ Combo1.List(Combol.ListIndex)_=combo1.List (0) Combo1.List(0) = tempEnd Sub9设窗体上有一个名称为HScroll1的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的

31、刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填空。Dim pos As IntegerPrivate Sub Form_Load()pos = HScroll1.ValueEnd SubPrivate Sub HScroll1_Change()Print HScroll1.Value或HScroll1 -pospos = HScroll1.ValueEnd Sub10窗体如上图所示，其中汽车是名称为Image1的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Line1。程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车

32、头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。1）Timer1的Interval属性的值应事先设置为 100 。2）Private Sub Command1_Click() Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() If Image1.Left = Line1.x1 Then Image1.Left = Image1.Left -100 End IfEnd Sub第7章 Visual Basic控制结构一、选择题1以下Visual Basic标识符合法的是（ B ）。AForLoop BCons

33、t C9abv Da#x2计算z的值，当x大于等于y时，z=x；否则z=y。下列语句错误的是（ A ）。AIf x = y Then z = x: z = y BIf x = y Then z = x Else z = yCz = y: If x = y Then z = x DIf x b) and (cd), 10, 20)后，x的值是（ B ）A10B20C30D2004如果A为整数且|A|100，则打印“0k”，否则打印“Error”。表示这个条件的单行格式IF语句是（B ）Aif int(A)=A And Sqr(A)100 Then print “ok” Else print “E

34、rror”BIF Fix(A)=A And Abs(A)100 Then print “ok” Else print “Error”Cf Int(A)=A And(A=100,A=100 And A=-100 Then print “ok” Else print “Error”5关于exit for的使用说明正确的是（ D ）Aexit for语句可以退出任何类型的循环B一个循环中只能有一个这样的语句Cexit for表示返回for语句去执行D一个for循环中可以有多条exit for语句6下面循环语句中在任何情况下都至少执行一次循环体的是（ C ）。ADo While BWhile 循环体

35、循环体Loop WendCDo DDo Until 循环体 循环体Loop Until Loop7下列关于DoLoop语句的叙述中不正确的是（ B ）。ADoLoop语句采用逻辑表达式来控制循环体执行的次数B当Do whileLoop或Do untilLoop语句中while 或until后的表达式的值为true或非零时，循环继续CDo Loopwhile语句与Do Loopuntil 语句至少执行一次循环体DDo whileLoop语句与Do untilLoop语句可能不执行循环体。8在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：Privat

36、e Sub Command1_Click()a=inputbox(“请输入日期（131）”)t=”旅游景点：” _& iif(a0 and a10 and a20 and a0 thenprint mid(n$, p)elseprint endend ifA用字符方式输出数据nuB输出数据的整数部分C输出数据的小数部分D只去掉数据中的小数点，保留所有数字输出10下面程序段的执行结果为（B）。X=int(rnd()+4)Select case xCase 5Print ”excellent”Case 4Print ”good”Case 3Print “pass”Case elsePrint ”f

37、ail”End selectAexcellent Bgood Cpass Dfail11若整型变量a的值为2，b的值为3，则下面程序段执行后整型变量c的值为（ A ）。If a 5 Then If b 3 Then c = a * b Else c = a Mod bEnd IfA2 B-1C1 D612窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮Option1构成的控件数组，如下图所示。程序运行后，如果单击某个单选按钮，则执行中Text1的数据与该单选按钮对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的下划

38、线处应填入的内容是（ A ）。Private Sub Option1_Click(Index As Integer) If Text1.Text Then select case _ Case 0 Text2.Text = Val(Text1.Text) Case 1 Text2.Text = Val(Text1.Text) * 10 Case 2 Text2.Text = Val(Text1.Text) * 100 End Select End IfEnd SubAIndex BOption1.Index COption1(Index) DOption1(Index).Value13窗体上有

39、一个名称为Text1的文本框，一个名称为command1的命令按钮。窗体文件的程序如下：Private type xa as integerb as integerend typeprivate sub command1_click()dim y as xy.a=inputbox()if y.a2=y.a/2 theny.b=y.a*y.aelsey.b=fix(y.a/2)end iftext1.text=y.bend sub对以上程序，下列叙述中错误的是（ D ）Ax是用户定义的类型Binputbox函数弹出的对话框中没有提示信息C如输入的是偶数，y.b的值为该偶数的平方Dfix(y.a/

40、2)把y.a/2的小数部分四舍五入，转换为整数返回14有如下程序，该段程序将（A ）。 For i=1 to 10 step 0K=k+2Next iA. 形成无限循环B循环体执行一次后结束循环C语法错误D循环体不执行即结束循环15在窗体上画一个命令按钮和两个标签，其名称分别为command1、Label1和Label2，然后编写如下事件过程：Private sub command1_click()a=0for i=1 to 10a=a+1b=0for j=1 to 10a=a+1b=b+2next jnext ilabel1.caption=str(a)label2.caption=str(

41、b)end sub程序运行后，单击命令按钮，在标签label1和label2中显示的内容分别是（ D ）A10和20B20和110C200和110D110和2016在窗体上画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click() For i = 5 To 1 Step -0.8 Print Int(i); Next iEnd Sub运行程序，单击命令按钮，窗体上显示的内容为（ B ）A5 4 3 2 1B5 4 3 2 1 1C4 3 2 1 1D4 4 3 2 1 117执行以下程序段：a$=abbacddcbafor i=6 to 2 step -2x=

42、mid(a,i,i)y=left(a,i)z=right(a,i)z=ucase(x & y & z)next iprint z输出结果为（ B ）AABCBBBABBACABBABADAABAAB18下面程序计算并输出的是（ A ）Private sub command1_click()a=10s=0dos=s+a*a*aa=a-1loop until a10 then Exit DoLoopPrint iEnd SubA0 B10 C11 D出错20在窗体上画一个名称为command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private sub command1_

43、click()n=val(text1.text)for i=2 to nfor j=2 to sqr(i)if i mod j=0 then exit fornext jif jsqr(i) then print inext iend sub该事件工程的功能是（ C ）A输出n以内的奇数B输出n以内的偶数C输出n以内的素数D输出n以内能被j整除的数二、填空题1设有整型变量s，取值范围为0100，表示学生的成绩。有如下程序段： If s = 90 Then Level = A ElseIf s = 75 Then Level = B ElseIf s = 60 Then Level = C El

44、se Level = DEnd If下面用Select Case结构改写上述程序，使两段程序所实现的功能完全相同。请填空。 Select Case s case _ Is _=90 Level = A Case 75 To 89 Level = B Case 60 To 74 Level = C case _else_ Level = D_End select_2给定年份，下列程序是用来判断该年是否为闰年，请填空。提示：闰年的条件是年份可以被4整除但不能被100整除，或者能被400整除。Private Sub Command6_Click()Dim y as integery=inputBox

45、(“请输入年份”)if（y mod 4=0_ and y mod 1000） or (y mod 400=0) thenprint”是闰年”elseprint”是普通年份”End ifEnd Sub3工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Command1），则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”。请填空。Pr

46、ivate Sub Command1_Click() If Text1.Text = Then MsgBox 请输入半径！ ElseIf Not IsNumeric( Text1.Text（或Text1） ) Then MsgBox 请输入数值数据！ Else r = Val( Text1.Text（或Text1） ) Form2.Show Form2 Print 圆的面积是 & 3.14 * r * r End IfEnd Sub4有如下程序：Private Sub Form_Activate() For j = 1 To 3 x = 3 For i = 1 To 2 x = x + 6 N

47、ext i Next j Print xEnd Sub程序运行后，窗体上显示的结果为 15 5下列程序是用来计算1+2+3+10的程序段，请补充完整该程序。Dim i, s, k As Integers = 0: k = 0For i=10 To 1 step -1 k = k + 1 s = s + kNext iPrint s6执行下面的程序断后，变量S的值为_ 9 . S=5For i=2.6 to 4.9 step 0.6S=s+1Next i7以下程序用于求的值。请填空。Private sub command1_click()s=1t=1for i=1 to 10t=_t*3_s=s

48、+tnext iprint s=; send sub8以下程序用来产生20个（0，99）之间的随机整数，并将其中的偶数打印出来。请填空。Private Sub Command1_Click() Randomize For i = 1 To 20 x=int(rnd*_98+1_) if x/2=_int(x/2)_ then print x x2 Next iEnd Sub9设有如下程序：Private sub form_click()Clsa$=ABCDFGfor i=1 to 6print tab(12-i); _right(a$,i)_ mid(a$,7-i)next iend sub程

49、序运行后，单击窗体，结果如右图所示，请填空。10在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:Private Sub Command1_Click()Dim a as stringA=”123456789”For i=1 to 5Print space(6-i);mid$(a,_ 6-i ,2*i-1)Next iEnd Sub程序运行后，单击命令按钮，窗体上的输出结果如右图所示。请填空。11设有以下的循环：x=1dox=x+2print xloop until _x5_ x6 x=6 x=7要求程序运行时执行3次循环体，请填空。12下列程序的运行结果是 38492 。

50、Dim c as integer, num as integerNum=29483DoC=num mod 10Print c;Num=num10Loop while num013下列程序的输出结果为_。num=2while num 0 Print sEnd Sub以上程序的功能是 计算8+7+6+5+4+3+2+1 。程序运行后，单击窗体，输出结果为 36 。15有下面一个程序段，从文本框中输入数据，如果该数据满足条件“除以4余1，除以5余2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。Private Sub Command1_Click() x = Val(Text1.

51、Text) If x mod 4=1 and x mod 5=2 Then Print x Else Text1.Text = text1.setfocus End IfEnd Sub第8章 数组一、选择题1下面的数组声明语句中（ B ）是正确的。Adim a3,4 as integer Bdim a(3,4) as integer Cdim a3;4 as integerDdim a(3;4) as integer2以下数组定义语句中，错误的是（C）。AStatic a(10) as integerBDim C(3,1 to 4)CDim d(-10)DDim b(0 to 5, 1to 3

52、) as integerBDim a(10) as singleRedim a(1 to 12)3下列数组声明正确的是（ D ）An=5Ddim a() as integerN=5Dim a(1 to n) as integerCdim a() as singleRedim a(3,4) as integerRedim a(1 to n) as integer4语句dim a(-3 to 4,3 to 6) as integer定义的数组的元素个数是（ D ）A18B28C21D325若在窗体模块的声明部分声明了如下自定义类型和数组：Private type reccode as intege

53、rcaption as stringEnd typeDim arr(5) as rec则下面的输出语句中正确的是（ C ）Aprint arr.code(2), arr.caption(2)Bprint arr.code, arr.captionCprint arr(2).code, arr(2).captionDprint code(2), caption(2)6设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（ B ）。AName BIndexCCaption DLeft7以下说法不正确的是（ B）A使用ReDim语句可以改变数组的维数B使用ReDim语句可以改变数组的类型C使用

54、ReDim语句可以改变数组每一维的大小D. 使用ReDim语句可以对数组所有元素进行初始化8下列描述错误的是（ B ）Aredim命令可以独立使用来声明数组变量Bredim命令声明数组变量时，不可以使用变量来定义数组元素的个数Credim命令声明的数组变量是动态数组变量 Dredim命令声明的数组变量可以用erase命令来删除91个二维数组可以存放1个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1个43矩阵（即只有12个元素）的是（ B ）。ADim a(-2 To 0,2)As IntegerBDim a(3, 2)As IntegerCDim a(4,

55、3)As Integer DDim a(-1 To -4，-1 To -3)As Integer10下面正确使用动态数组的是（ A ）。ADim arr() As Integer BDim arr() As Integer ReDim arr(3,5) ReDim arr(50) As StringCDim arr() DDim arr(50) As Integer ReDim arr(50) As Integer ReDim arr(20) 11. 通过复制、粘贴建立了一个名为Command1的命令按钮数组，以下说法错误的是（ B ）A数组中每个命令按钮的名称（Name属性）均为Comman

56、d1B数组中每个命令按钮的标题(Caption属性)都一样C数组中所有命令按钮可以使用同一个事件过程。D. 用下标可以访问数组中的每个命令按钮12窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程：Private Sub Option1_Click(Index As Integer) End Sub下面关于此过程的参数Index的叙述中正确的是（ C ）。AIndex为1表示单选按钮被选中，为0表示未选中BIndex的值可正可负CIndex的值用来区分哪个单选按钮被选中DIndex表示数组中单选按钮的数量13在一个窗体上添加一个命令按钮，名为

57、command1，事件过程如下，则该过程的执行结果是（ C ）Option base 1Private sub command1_click()Dim a(5) as integerDim k as integerDim total as integera(1)=2a(2)=5a(3)=4a(4)=10a(5)=6for k=1 to 5total=total + a(k)next kprint totalend subA10B15C27D3514执行以下Command1的Click事件过程，在窗体上显示（B）。Option Base 0Private Sub Command1_Click()

58、Dim aA=Array(“a”,”b”,”c”,”d”,”e”,”f”,”g”)Print a(1);a(3);a(5)End SubAabc BbdfCace D出错15在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Option Base1Private Sub Command1_Click()Dim aS=0A=Array(1,2,3,4)J=1For i=4 to 1 step -1S=s+a(i)*jJ=j*10Next iPrint sEnd Sub运行上面程序，单击命令按钮，其输出结果是（B）。A4321 B1234 C34 D1216在窗体上添加

59、一个命令按钮，名为command1，事件过程如下：Option base 1Private sub command1_click()Dim a(4,4) as variantFor i=1 to 4For j=1 to 4A(i,j)=(i-1)*3+jNext jNext iFor i=3 to 4For j=3 to 4Print a(I,j);Next jPrintNext iEnd subD8 11 9 12C9 12 10 13B7 10 12 13该程序执行后，结果是（ A ）A9 10 12 1317设在窗体上有一个名称为command1的命令按钮，并有以下事件过程：Privat

60、e sub command1_click()Static b as variantb=array(1,3,5,7,9)End subCfor i=1 to 52tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpnextBfor i=0 to 5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpnext此过程的功能是把数组b中的5个数逆序存放（即排列为9,7,5,3,1）。为实现此功能，省略号处的程序段应该为（ D ）Afor i=0 to 5-12tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpnextDfor i=0 to 52tmp=b(i