1、二级 VISUAL+BASIC 笔试 35 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.软件设计中，有利于提高模块独立性的一个准则是（分数：2.00）A.低内聚低耦合B.低内聚高耦含C.高内聚低耦台D.高内聚高耦合2.在窗体上画一个通用对话框图，其 Name 属性为 Cont,瑞画一个命令按钮，Name 属性为 Command1，然后编写如下事件过程： Privute Sub Command1_Click( ) ContFileName=“ “ ContFlags=vbOFNFileMustExist ContFilter=“All
2、 Files| * . *“ ContFilterIndes_3 ContDialogTitle=“Open File“ ContAction=1 If ContFileName=“ “ Then MsgBox “No file selected“ Else Open ContFileName For Input As #1 Do While Not EOF(1) Input #1. b$ Print b$ Loop End If End Sub 以下各选项，对上述事件过程描述错误的是（分数：2.00）A.该事件过程用来建立一个 Open 对话框，可以在这个对话框中选择要打开的文件B.选择后单
3、击“打开”按钮，所选择的文件名即作为对话框的 FileName 属性值C.Open 对话框不仅仅用来选择一个文件，还可以打开、显示文件D.过程中“ConAction=1”用来建立 Open 对话框，它与 ConShowOpen 等价3.最常用的一种基本数据模型是关系数据模型，它的表示应采用（分数：2.00）A.树B.网络C.图D.二维表4.在窗体上画一个命令按钮，然后编写如下程序： Private Sub Comrnand3_Click( ) Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static x As Integer x=x + a
4、 Print x; End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.2 3 4B.2 5 9C.3 5 4D.2 4 35.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2= y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub（分数：2.00）A.
5、0 8B.40 72C.4 50D.78 5016.设有声明语句 Option Base 1 Dim b( -1 To 102 To 920) As Integer（分数：2.00）A.2310B.1920C.1500D.165B17.已知使用 Show 方法的格式为:窗体名称Show模式，如果要使窗体是“模态型”宙体，则“模式”值为（分数：2.00）A.TrueB.0C.1D.False18.MsgBox 函数的返回值的类型为（分数：2.00）A.数值型B.变体类型C.字符串型D.日期型19.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框，一个名称为
6、File1的文件列表框，两个名称分虽为 Lahel1、Label2，标题分别为空白和 “共有文件“的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Label1 中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是 （分数：2.00）A.Private Sub Dir1_Change( ) FilePath=Dir1Path End Sub Private Sub Dive1_Change( ) Dir1Path=Drive1Drive Label1，Caption=File1 ListCount End SubB.Private Su
7、b Dir1_Change( ) FilPath=Dtr1Path End Sub privage Sub Dive1_Change( ) Dir1path=Drive1Drive Lahel1Caption=File1List End SubC.Private Sub Dir1_Change( ) File1. Path = DirPath Label1CaptionFile1, ListCount End Sub Private Sub Drive1_Change( ) Dir1Path = Drive1. Drive Label1Captiol1 = File1ListCount End
8、 Sub(D.Private Sub Dir1_Change( ) File Path = DirPath Label1Caption = File1ListCount End Sub Private Sub Dive1_Change( ) Dir1Path = Drive1Drive Label1Caption = File1List End Sub20.下列叙述中，正确的是（分数：2.00）A.软件就是程序清单B.软件就是存放在计算机中的文件C.软件应包括程序清单及运行结果D.软件包括程序和文档21.下列程序段的执行结果为 a=2 b=0 Select Case a Case 1 Sele
9、ct Case b Case 0 Print “ * * 0 * *“ Case 1 Print“ * * 1 * *“ End selec Case 2 Print “ * * 2 * *“ End Select（分数：2.00）A.* * 0 * *B.* * 1 * *C.* * 2 * *D.022.下列 4 项中说法不正确的是（分数：2.00）A.数据库减少了数据冗余B.数据库中的数据可以共享C.数据库避免了一切数据的重复D.数据库具有较高的数据独立性23.有如下事件过程，单击命令按钮扣，输出结果是 Private Sub Command1 Click( ) Dim b% (1 To
10、4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print “t=“; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function（分数：2.00）A.t=18B.t=24C.t=30D.t=3224.下面哪个程序段能够正确裙带如果 AB，则 A=1，否则 A=-1？（分数：2.00）A.If AB Then A=1 A=-1 Print AB.If AB Then A
11、=l：Print A A=-1：PrintAC.If AB Then A=1：Print A Else A=-1： End IfD.If AB Then A=1 A=-1 Print A Print A25.用来没置文本框有无滚动条的属性是（分数：2.00）A.ScrollBarsB.MultiLineC.SelTextD.SelLength26.在 Visual Basic 种，要使标签的标题栏靠右显示，则将其 Alignment 属性设置为（分数：2.00）A.0B.2C.1D.327.当 Esc 键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree? A) Style D
12、) Default C) Caption D) Cancel（分数：2.00）A.B.C.D.28.下列程序的执行结果为 Private Sub Comrnandl_Click( ) Dim p As Integer, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub（分数：2.00）A.20 12 20 15B.12 20 12 25C.2
13、4 15 12 20D.24 12 12 1529.属性 BorderColor 的作用是（分数：2.00）A.设置直线颜色和形状边界颜色B.设置直线或形状背景颜色C.设置直线或形状边界线的线型D.设置形状的内部颜色30.没有两个串 p 和 q,求 q 在 p 首次出现位置的运算称作（分数：2.00）A.连接B.模式匹配C.求于串D.求串长31.下面的控件可作为其他控件容器的是（分数：2.00）A.PictureBox 和 DataB.Frame 和 ImageC.PictureBox 和 FrameD.Image 和 Data32.如果要将文本框作为密码框使用时，应设置的属性为（分数：2.0
14、0）A.NameB.CaptionC.PasswordCharD.Text33.软件生命周期中花费时间最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护34.Visual Basic 中的数值可以用十六进制或八进制表示，十六进制数的开头符是 s End Sub（分数：2.00）填空项 1:_45.下面是程序是计算给定函数的值，自变量 x，y 的值用 InputBox 函数输入，函数如下： （分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 35 答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.
15、软件设计中，有利于提高模块独立性的一个准则是（分数：2.00）A.低内聚低耦合B.低内聚高耦含C.高内聚低耦台 D.高内聚高耦合解析：解析：模块的独立程度是评价设计好坏的再要度量标准。衡量软件的模块独立性使用耦合性和内聚性两个定性的度量标准。一般优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。2.在窗体上画一个通用对话框图，其 Name 属性为 Cont,瑞画一个命令按钮，Name 属性为 Command1，然后编写如下事件过程： Privute Sub Command1_Click( ) ContFileName=“ “ Cont
16、Flags=vbOFNFileMustExist ContFilter=“All Files| * . *“ ContFilterIndes_3 ContDialogTitle=“Open File“ ContAction=1 If ContFileName=“ “ Then MsgBox “No file selected“ Else Open ContFileName For Input As #1 Do While Not EOF(1) Input #1. b$ Print b$ Loop End If End Sub 以下各选项，对上述事件过程描述错误的是（分数：2.00）A.该事件过
17、程用来建立一个 Open 对话框，可以在这个对话框中选择要打开的文件B.选择后单击“打开”按钮，所选择的文件名即作为对话框的 FileName 属性值C.Open 对话框不仅仅用来选择一个文件，还可以打开、显示文件 D.过程中“ConAction=1”用来建立 Open 对话框，它与 ConShowOpen 等价解析：解析：从本题的本意来说就是要建立一个 Open 对话框，然后选择要打开的文件，程序编写也是如此，所以选项 A)是正确的；选择文件后单击“打开”按钮，所选择的文件名即作为对话框的 FileName 属性值，所以选项 B)也是正确的；Action 属性为 1 与 ShowOpen 方
18、法等价，所以选项 D)是正确的；打开文件对话框可以让用户选择一个文件，由程序使用，所以它并不能真正“打开”文件，而仅仅是用来选择一个文件，从程序代码中可以看出，打开操作和显示操作是由 Else 语句来完成的： Else Open ContFileName For lnput As #1 Do While Not EOF(1) Input #1，b$ Print b$ Loop End If3.最常用的一种基本数据模型是关系数据模型，它的表示应采用（分数：2.00）A.树B.网络C.图D.二维表 解析：解析：关系数据模型用统一的二维表结构表示实体及实体之间的联系(即关系)。4.在窗体上画一个命令
19、按钮，然后编写如下程序： Private Sub Comrnand3_Click( ) Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static x As Integer x=x + a Print x; End Sub 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.2 3 4B.2 5 9 C.3 5 4D.2 4 3解析：解析：在过程 Sub 中，将 Integer 型变量 x 定义为静态变量(Static)，Static 语句的格式与 Dim语句完全一样，但 Static 语句只能出现在事件过程，Sub 过程或 Funct
20、ion 过程中，在过程中的 Static变量只有局部的作用域，即只能在本过程中可见，但可以和模块级变量传递，即使过程结束后，其值仍能保留。Cop 过程是将变量 a 的值加上 x 赋 给 x，然后输出 x 的值；第一次调用 Cop 过程时，x 未赋值，默认为 0，所以输出结果为 2，第二次调用 Tcl 过程时，因为 x 为静态变量，所以它的值为上次调用后的值，即为 2，加上 a 后，x 的值变为 5，输出结果为 5，同理，第三次调用后输出结果为 9。5.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, S
21、hift As Intcger) Const Alt=4 Const Key_f2= y End Sub Public Sub PtoP(Byval n AS Integer, ByVal m Aa Integer) n = n / 10+2 m = m / 10+2 End Sub（分数：2.00）A.0 8B.40 72 C.4 50D.78 50解析：解析：此题是函数过程的调用。 在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方
22、法的特点如下： 传址的结合过程是，当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程是，当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作是在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 PtoP 中有两个形参，两者均为传值方式。主调过程分别把实参 x、y 传递给 PtoP，所以当过程调用结束后，实参 x、y 的值都没有改变，最后输出的值应为 40 72。16.设有声明语
23、句 Option Base 1 Dim b( -1 To 102 To 920) As Integer（分数：2.00）A.2310B.1920 C.1500D.165B解析：解析：Dim b(-1 To 10，2 To 9，20) As Integer 定义了一个三维数组，题目中用了语句“Option Base 1”，所以数组的下界从 1 开始，计算数组元素个数为：(10-(-1)+1)(9-2+1)(20-1+1)=1920。17.已知使用 Show 方法的格式为:窗体名称Show模式，如果要使窗体是“模态型”宙体，则“模式”值为（分数：2.00）A.TrueB.0C.1 D.False解
24、析：解析：此题考核了 Show 方法的使用，Show 方法的格式为： 窗体名称Show模式 Show 方法用来显示一个窗体。如果省略“窗体名称”，则显示当前窗体。参数”模式”用来确定窗体的状态，可以取两种值，即 0 和 1(不是 False 和 True)。当“模式”值为 1(或常量 vbModal)时，表示窗体是“模态型”窗体，在这种情况下，鼠标只在此窗体内起作用，不能到其他窗口内操作，只有关闭该窗口才能对其他窗口进行操作；当“模式”值为 0(或省略参数“模式”值)时，表示窗体为“非模态型”窗体，不用关闭该窗体就可以对其他窗体进行操作；Show 方法兼有装入和显示窗体的双重功能，也就是说，在
25、执行 Show 时，如果窗体不在内存中，则 Show 自动把窗体装入内存，然后显示出来。18.MsgBox 函数的返回值的类型为（分数：2.00）A.数值型 B.变体类型C.字符串型D.日期型解析：解析：MsgBox 函数的返回值是一个整数，这个整数与所选择的命令按钮有关。MsgBox 函数所显示的对话框中有 7 种命令按钮，返回值与这 7 种命令按钮相对应的，见下表。19.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框，一个名称为 File1的文件列表框，两个名称分虽为 Lahel1、Label2，标题分别为空白和 “共有文件“的标签。编写程序，使得驱
26、动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Label1 中显示当前文件夹中文件的数量。如图所示。能够正确实现上述功能的程序是 （分数：2.00）A.Private Sub Dir1_Change( ) FilePath=Dir1Path End Sub Private Sub Dive1_Change( ) Dir1Path=Drive1Drive Label1，Caption=File1 ListCount End SubB.Private Sub Dir1_Change( ) FilPath=Dtr1Path End Sub privage Sub Dive1_C
27、hange( ) Dir1path=Drive1Drive Lahel1Caption=File1List End SubC.Private Sub Dir1_Change( ) File1. Path = DirPath Label1CaptionFile1, ListCount End Sub Private Sub Drive1_Change( ) Dir1Path = Drive1. Drive Label1Captiol1 = File1ListCount End Sub( D.Private Sub Dir1_Change( ) File Path = DirPath Label1
28、Caption = File1ListCount End Sub Private Sub Dive1_Change( ) Dir1Path = Drive1Drive Label1Caption = File1List End Sub解析：解析：驱动器列表框、目录列表框、文件列表框之间可以通过 Path 属性相互联系。如在驱动器列表框的 Change 事件占加入代码 DirlPath=DrivelDrive，在目录列表框的 Change 事件中加入代码FilelPath=DirlPath。要在标签中显示当前文件夹中的文件数量应该在目录列表框的 Change 事件中加入代码 LabellCapt
29、ion=FilelListCount，其中显示当前文件夹中的文件数量应该使用文件列表框的 ListCount 属性，而不是 List 属性。20.下列叙述中，正确的是（分数：2.00）A.软件就是程序清单B.软件就是存放在计算机中的文件C.软件应包括程序清单及运行结果D.软件包括程序和文档 解析：21.下列程序段的执行结果为 a=2 b=0 Select Case a Case 1 Select Case b Case 0 Print “ * * 0 * *“ Case 1 Print“ * * 1 * *“ End selec Case 2 Print “ * * 2 * *“ End Se
30、lect（分数：2.00）A.* * 0 * *B.* * 1 * *C.* * 2 * * D.0解析：解析：此题考查的是 Select Case 结构。 Select Case 结构的一般格式为： Select Case expr Caseexpr1 clause 1 Case expr2 clause 2 Case else clause n End Select 其中 expr 是测试表达式，如果满足 expr n，就执行这条语句，然后退出；条件是 a=2，b=1，所以执行语句 Print “* * 2 * *“。22.下列 4 项中说法不正确的是（分数：2.00）A.数据库减少了数据
31、冗余B.数据库中的数据可以共享C.数据库避免了一切数据的重复 D.数据库具有较高的数据独立性解析：解析：数据库系统具有以下几个特点，一是数据的集成性、二是数据的高共享性与低冗余性、三是数据的独立性，四是数据统一管理与控制。23.有如下事件过程，单击命令按钮扣，输出结果是 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print “t=“; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 F
32、or i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function（分数：2.00）A.t=18B.t=24 C.t=30D.t=32解析：解析：程序开始调用循环语句对数组 b( )赋值，b(j)=j，且数组 b 的上下界分别为 1 和 4；接着将数组 b( )作为对象，调用 Tax 过程，在 Tax 过程中，定义了两个变量 t 即 i，i 作为 For 循环的循环变量，初始值为 2，终值为数组 b 的上界；循环体为“t=t * a(i)”，即将 b(i)的值乘以 t，然后在赋给 t，当循环结束后，程序返回的就是数组 b 中除第一个元素以外所有元
33、素值的乘积，此题的结果为234=24，故输出结果为 t=24。24.下面哪个程序段能够正确裙带如果 AB，则 A=1，否则 A=-1？（分数：2.00）A.If AB Then A=1 A=-1 Print AB.If AB Then A=l：Print A A=-1：PrintAC.If AB Then A=1：Print A Else A=-1： End If D.If AB Then A=1 A=-1 Print A Print A解析：解析：本题考查的是 If Then Else 结构，在此结构中可以有若干组语句块；题意是如果 AB，则A=1，否则 A=-1。25.用来没置文本框有无滚
34、动条的属性是（分数：2.00）A.ScrollBars B.MultiLineC.SelTextD.SelLength解析：解析：在本题中 4 个选项，都是用来设置文本框属性的，它们的作用分别是： MultiLine：决定控件是否允许接收多行文本，如果设置为 False，文本框中只能输入一行文本；如果设置 True，则可以输入多行文本。 SelLength：当前选中的文本的字符数，只能在运行期间设定或者返回。 SelText：表示当前所选取的文本字符串，如果没有选取文本，该返回一个空字符串。 ScrollBars：0：没有滚动条，默认值；1：空间中只有水平滚动条；2：表示控件中只有垂直滚动条；
35、3：同时具有水平和垂直滚动条。26.在 Visual Basic 种，要使标签的标题栏靠右显示，则将其 Alignment 属性设置为（分数：2.00）A.0B.2C.1 D.3解析：解析：本题考查的是标签的 Alignment 属性的设置。 Alignment 属性用来设置标签中标题的位置，可将其设置为 0，1，2，作用如下： 0：标题靠左显示(默认)。 1：标题靠右显示。 2：标题居中显示。27.当 Esc 键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为 Tree? A) Style D) Default C) Caption D) Cancel（分数：2.00）A.B.C.D
36、. 解析：解析：在一个窗体中，只能有一个命令按钮的 Cancel 属性设为 True，当一个命令按钮的 Cancel属性被设置为 True 时，单击该命令按钮与按 Esc 键的作用是相同的，可见答案 D)是正确的。另外 3 个属性的作用分别是： Style：决定按钮显示方式，分标准和图形方式两种。 Defalt：当命令按钮的 Defalt 属性设置为 True 时，若焦点不在任何命令按钮上，则单击命令按钮与按 Enter 键的作用相同。 Caption：用来设置显示在命令按钮上的文本。28.下列程序的执行结果为 Private Sub Comrnandl_Click( ) Dim p As I
37、nteger, q As Integer p=12：q=20 Call Value(p, q) Print p; q End Sub Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub（分数：2.00）A.20 12 20 15B.12 20 12 25C.24 15 12 20 D.24 12 12 15解析：解析：被调过程 Value 的两个参数 m 和 n 前面都有关键字“ByVal”修饰，即在主调过程调用此过程时，实参与形参之间是以传值方式传递信息的，
38、而当实参与形参以传值方式相结合时，形参的改变并没有影响到实参，单单就这一点来说，我们可知，当程序代码执行主调过程中的 PrimP；q 语句时，p 和 q的值应不变，还是 12，20，这样就能够排除选项 A)和选项 B)了。当主调过程调用被调过程时，把实参p，q 的值分别传给形参 m 和 n，这就是说此时形参 m 值为 12，n 值为 20，执行被调过程中的 m=m * 2：n=n-5 语句后，m 值为 24，n 值为 15，所以 Print m；n 后，程序输出的结果为 24 和 15。最后程序输出的结果如选项 C)所示。29.属性 BorderColor 的作用是（分数：2.00）A.设置直
39、线颜色和形状边界颜色 B.设置直线或形状背景颜色C.设置直线或形状边界线的线型D.设置形状的内部颜色解析：解析：在 Visual Basic 中，BorderColor 属性的作用是设置直线的颜色或形状边界线的颜色，所以选项 A)是正确的。直线或形状的背景颜色通过 BackColor 属性来设置，线型通过 BorderStyle 属性设置；形状内部颜色通过 FillColor 属性设置。30.没有两个串 p 和 q,求 q 在 p 首次出现位置的运算称作（分数：2.00）A.连接B.模式匹配 C.求于串D.求串长解析：解析：子串的定位操作通常称作串模式匹配，是各种申处理系统中最重要的操作之一，
40、算法的基本思想是：从主串的开始字符起和模式的第一个字符比较，若相等则继续比较后续字符，否则从主串的下一个字符起再重新和模式的字符比较，依次类推，直至模式中的每一个字符依次和主串中的一个连续的字符序列相等，称匹配成功，否则称匹配不成功。31.下面的控件可作为其他控件容器的是（分数：2.00）A.PictureBox 和 DataB.Frame 和 ImageC.PictureBox 和 Frame D.Image 和 Data解析：解析：在 Visual Basic 中，PictureBox 和 Frame 可作为其他控件的容器，PictureBox 用于显示，包括图片或者文本，并可以装入位图、
41、田标等各种格式的图形文件或者作为其他控件的容器；Frame 可组合相关的对象，将性质相同的控件集中在一起其他控件均不能作为容器容纳其他控件的容器使用。32.如果要将文本框作为密码框使用时，应设置的属性为（分数：2.00）A.NameB.CaptionC.PasswordChar D.Text解析：解析：文本框没有 Caption 属性，所以选项 B)肯定不对；Text 属性返回或设置控件中包含的文本，所以选项 D)也不对；Nmne 属性是标识对象的名称，故选项 A)也不正确，只有选项 C)是设置文本框内容格式的，即用什么字符显示，符合本题的意思。33.软件生命周期中花费时间最多的阶段是（分数：
42、2.00）A.详细设计B.软件编码C.软件测试D.软件维护 解析：解析：软件生命周期分为软件定义、软件开发及软件运行维护 3 个所段。本题中，详细设计、软什编码和软件测试都属于软件开发阶段；维护是软件生命周期的最后一个阶段，也是持续时间最长，花费代价最大的一个阶段，软件工程学的一个目的就是提高软件的可维护性降低维护的代价。34.Visual Basic 中的数值可以用十六进制或八进制表示，十六进制数的开头符是 s End Sub（分数：2.00）填空项 1:_ （正确答案：【10】a(i)=Int(Rnd * 200+100)）解析：【11】a(i) Mod 7=0 【12】End If 解析
43、：求随机数要用到随机函数 Rnd，所以在程序中调用了Rnd 函数，100300 之间的随机函数表示为：a(i)=Int(Rnd * 200+100)；求某个数的倍数要用到取模运算符 Mod，本题中求 7 的倍数，所以表示为：a(i) Mod 7=0；对于条件语句，有 If 开头的必须有 End If结尾，Select Case 开头的，必须要用 End Select 结尾，所以本题中应添加 End If。45.下面是程序是计算给定函数的值，自变量 x，y 的值用 InputBox 函数输入，函数如下： （分数：2.00）填空项 1:_ （正确答案：【13】x0 And y0）解析：【14】x0 And y0 【15】Else 解析：本题用了块 IF 结构根据题目给出的程序可知【13】、【14】是填条件语句的，根据 Then 后面的内容可以确定：【13】应填入 x0 And y0；【14】应填入x0 And y0；函数除了满足上述条件的都是“其他”，所以【15】应为 Else。s
