1、二级 VISUAL+BASIC 笔试 301 及答案解析(总分：87.00，做题时间：90 分钟)一、B选择题/B(总题数：25，分数：75.00)1.Print 方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是_。（分数：3.00）A.逗号B.空格C.冒号D.分号2.符号%是声明 _ 类型变量的类型定义符。（分数：3.00）A.VafiantB.IntegerC.SingleD.String3.下列 _ 语句可以为动态数组分配实际元素个数。（分数：3.00）A.public 语句B.static 语句C.Dim 语句D.ReDim 语句4.为了暂时关闭计时器，应把计时器的某个
2、属性设置为 Falss，这个属性是 _ 。（分数：3.00）A.VisbleB.TimerC.IntervalD.Enabled5.在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入 234，输出结果为 _。 Function Fun(ByVal num As Long)As Long Dim k As Long k=1 num=Abs(num) Do While num k=k* (num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long
3、 Dim r As Long n=In put Box(“请输入一个数“) n=CLng(n) r=Fun(n) Print r End Sub（分数：3.00）A.20B.24C.9D.286.假设有文件列表框 File1、驱动器列表框 Drivel 和目录列表框 Dirl，为了使三者同步，在下列语句中，正确的语句是 _。 File1. Path=Did.Path File1. FileName=Dirl.FileName Dirl.Path=Drivel.Drive Dirl. Path=Drivel. Path（分数：3.00）A.和B.和C.、和D.以上全部7.以下选项中不属于一个 V
4、isual Basic 应用程序组成模块的是 _。（分数：3.00）A.启动模块B.窗体模块C.类模块D.标准模块8.以下描述中正确的是 _。（分数：3.00）A.标准模块中的任何过程都可以在整个工程范围内被调用B.如果工程中不包含 Sub Main 过程，则程序一定首先执行第一个建立的窗体C.如果工程中包含 Sub Main 过程，则程序将首先执行该过程D.在一个窗体模块中可以调用在其他窗体中被定义为 Public 的通用过程9.表达式 26/4*3 的值是 _ 。（分数：3.00）A.1B.2C.18.75D.1810.有如下程序，其运行结果为 _。 Dim Sum As String*4
5、 Read Sum, X, Y% Print Sum, Z Date “X+Y:之和“, 300, 200. 613 End（分数：3.00）A.X+Y:之和 501B.X+Y 之和 500.613C.X+Y: 501D.X+Y: 50061311.要利用通用对话框控件来显示“保存文件”对话框，需要调用控件的 _ 方法。（分数：3.00）A.ShowPrimerB.ShowSaveC.ShowOpenD.ShowColor12.CommonDialog 控件可以显示 _ 种对话框。（分数：3.00）A.4 种B.5 种C.6 种D.7 种13.在 Visual Basic 中，要使一个窗体从内
6、存中释放，应该使用的语句是 _。（分数：3.00）A.ShowB.HideC.LoadD.Unload14.图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是_。（分数：3.00）A.AutoSizeB.AppearanceC.AutoRedrawD.Stretch15.如果要改变窗体的标题，需要设置窗体对象的 _ 属性。（分数：3.00）A.NameB.CaptionC.BorderStyleD.BackColor16.在下面向文件中写入数据的命令语句中，不正确的是 _。（分数：3.00）A.Print#文件号，输出项列表B.Print#文件号，Unsing；输出列表项
7、C.Write#文件号，输出列表D.Write#文件号，Unsing；输出列表17.要使列表框中的列表项显示成复选框形式，则应将其 Style 属性设置为 _。（分数：3.00）A.1B.0C.TrueD.False18.假设在窗体 Form1 画一个通用对话框控件 CommonDialogl，要建立“打开文件”对话框，为了使得该对话框的标题显示为“打开文件”，那么可以实现该功能的语句是 _。（分数：3.00）A.CommonDialogDialogTile= “打开文件“B.CommonDialogDialogTile( “打开文件“)C.CommonDialogFileTile=“打开文件
8、“D.CommonDialogFileTile(“打开文件“)19.在 Visual Basic 应用程序中，以下正确的描述是 _。（分数：3.00）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和过程的调用均可以嵌套D.过程的定义和过程的调用均不能嵌套20.用下面的语句所定义的数组的元素个数是 Dim arr(3 To 6. -2 to 2)（分数：3.00）A.20B.12C.15D.2421.编写如下程序： Private Sub Form Click() a$=: “4321“: b$=“abcd“ For 3=1 To 4 P
9、rint Mid$(a$，5-j，1)+Nid$(b$, j, 1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 _。（分数：3.00）A.alb2c3d4B.b4c3d2elC.eld2c3b4D.la2b3c4d22.在窗体上画一个名称为 Lisu 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 _。（分数：3.00）A.For i = 0 To List1. ListCount-1 NextB.For i = 0 To List1.Count-1 NextC.For i = 0 To List1. ListCount NextD.F
10、or i = 0 To List1. Count Next23.在窗体上有若干控件，其中有一个名称为 Text1 文本框。影响 Text1 的 Tab 顺序的属性是 _。（分数：3.00）A.TabIndexB.TabStopC.EnabledD.Visible24.下面程序的功能是由随机函数产生 100 个在 200700 之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max=
11、 _ For j=2 To 100 If a(j)max Then max=a(j) : p=j Next j Print “The largest number is “ ; max Print “The position is“; p End（分数：3.00）A.0B.a(1)C.1.7E+38D.1.7E-3825.在窗体上画一个命令按钮，名称为 Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a=0 Then x=x-1 Else If b0 Th
12、en End If End If If c0 Then x=3 Else x=4 End If Print x End Sub 程序运行后，单击命令按钮，其输出结果为 _。（分数：3.00）A.34B.4C.35D.3二、B填空题/B(总题数：6，分数：12.00)26.以下程序段执行后 y 的值是U 【1】 /U。 x=3.7 y=Int(x+0.6) Print y（分数：2.00）填空项 1:_27.在菜单编辑器中建立一个菜单，其主菜单项的名称为 nmuEdit，Visible 属性为 False。程序运行后，如果用鼠标右键单击窗体，则弹出与 mnvEdit 对应的菜单。以下是实现上述功
13、能的程序，请填空。 Private Sub FormU 【2】 /U(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then U【3】 /UmnuEdit End If End Sub（分数：2.00）填空项 1:_28.阅读以下程序： Private Sub Form_click() Dim k, n, m As integer n = 20 m = 1 k = 1 Do While k = n m=m+2 k = k + 1 Loop Print m End Sub 单击窗体程序的执
14、行结果是U 【4】 /U。（分数：2.00）填空项 1:_29.下面的程序用“冒泡”法将数组 a 中的 10 个整数按升序排列，请将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a = Array(549, 45, 324, 561, 439, 258, 87, 435, 587, 823) For i =U 【5】 /U For j =U 【6】 /U If a(i)U 【7】 /Ua(j) Then al = a(i) a(i) = a(j) a(j) = al End If Next j Next i For i = 1
15、 To 10 Print a(i) Next i End Sub（分数：2.00）填空项 1:_30.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = “ “ Text2.Text = “ “ End Sub 程序运行后，在第一个文本框(T
16、ext1)和第二个文本框(Text2)中分别输入 1234 和 4321，然后单击命令按钮，则输出结果为U 【8】 /U。（分数：2.00）填空项 1:_31.下列程序的功能是求出所有的 1-100 之间的孪生素数。孪生素数是指两个素数的差为 2，如 3 和5，11 和 13 等，请填空。 Private Sub Form_Click() Dim i As Integer For i = 3 To 97 Step 2 IfU 【9】 /UThen Print i, i + 2 End If Next i End Sub Public Funtion Prime (ByVal n As Inte
17、ger) As Boolean Dim i as Integer For i = 2 To n - 1 IfU 【10】 /UThen Exit For End If Next i If i = n Then Prime = True Else Prime = False End If End Function（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 301 答案解析(总分：87.00，做题时间：90 分钟)一、B选择题/B(总题数：25，分数：75.00)1.Print 方法可以输出多个表达式，若使用标准格式输出，各表达式的分隔符应是_。（分数：3.00）A.逗号
18、 B.空格C.冒号D.分号解析：解析 Print 方法中，使用紧凑格式输出，各表达式的分隔符应是分号，使用标准格式输出，各表达式的分隔符应是逗号。2.符号%是声明 _ 类型变量的类型定义符。（分数：3.00）A.VafiantB.Integer C.SingleD.String解析：解析 Integer 数据类型 Integer 变量存储为 16 位(两个字节)的数值形式，其范围为-32768 32767。Integer 的类型声明字符是百分比符号(%)。3.下列 _ 语句可以为动态数组分配实际元素个数。（分数：3.00）A.public 语句B.static 语句C.Dim 语句D.ReDi
19、m 语句 解析：解析 ReDim 语句在过程级别电使用，用于为动态数组变量重新分配存储空间。4.为了暂时关闭计时器，应把计时器的某个属性设置为 Falss，这个属性是 _ 。（分数：3.00）A.VisbleB.TimerC.IntervalD.Enabled 解析：解析 控件的 Enabled 属性表示其是否有效，如果想使某个控件失效，可以将它的 Enabled 属性设为 False。5.在窗体画一个命令按钮，然后编写如下过程，程序运行后，单击命令按钮，在输入对话框中输入 234，输出结果为 _。 Function Fun(ByVal num As Long)As Long Dim k As
20、 Long k=1 num=Abs(num) Do While num k=k* (num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n=In put Box(“请输入一个数“) n=CLng(n) r=Fun(n) Print r End Sub（分数：3.00）A.20B.24 C.9D.28解析：解析 此程序的功能是对输入的整数在 fun 函数中求出其每位数字的积，循环结构的作用是对传来的数据进行位数的分解，分别得到个位、十位、百位
21、等的数字，再将其累乘到变量 k 中，并把 k 的值作为函数的返回值，因此 234 的三位数字相乘的结果是 24。6.假设有文件列表框 File1、驱动器列表框 Drivel 和目录列表框 Dirl，为了使三者同步，在下列语句中，正确的语句是 _。 File1. Path=Did.Path File1. FileName=Dirl.FileName Dirl.Path=Drivel.Drive Dirl. Path=Drivel. Path（分数：3.00）A.和 B.和C.、和D.以上全部解析：解析 因为目录列表框 Path 属性的改变将产生 Change 事件，所以在 Dirl 的 Chan
22、ge 事件过程中，把 Dirl.Path 赋给 Filel.Path，就可以产生同步效果。在 Drivel 的 Change 事件过程中，把Drivel.Drive 赋给 Dirl.Path 也可以产生同步效果。从而使文件列表框、驱动器列表框和目录列表框三者同步。7.以下选项中不属于一个 Visual Basic 应用程序组成模块的是 _。（分数：3.00）A.启动模块 B.窗体模块C.类模块D.标准模块解析：解析 一个 Visual Basic 应用程序主要由 3 种模块组成、分别是窗体模块、标准模块和类模块。8.以下描述中正确的是 _。（分数：3.00）A.标准模块中的任何过程都可以在整个
23、工程范围内被调用B.如果工程中不包含 Sub Main 过程，则程序一定首先执行第一个建立的窗体C.如果工程中包含 Sub Main 过程，则程序将首先执行该过程D.在一个窗体模块中可以调用在其他窗体中被定义为 Public 的通用过程 解析：解析 标准模块中可以包含私有和公共过程；工程的启动对象(Form 或 Sub Main)决定了工程中首先被执行的部分。9.表达式 26/4*3 的值是 _ 。（分数：3.00）A.1B.2 C.18.75D.18解析：解析 运算符“*的优先级大于“/”，所以先进行 43 的运算，再进行 26/12 的运算，最后的结果是 2，故应选 B。10.有如下程序，
24、其运行结果为 _。 Dim Sum As String*4 Read Sum, X, Y% Print Sum, Z Date “X+Y:之和“, 300, 200. 613 End（分数：3.00）A.X+Y:之和 501B.X+Y 之和 500.613C.X+Y: 501 D.X+Y: 500613解析：解析 由于“Dim Sum As String*4”定义字符型变量 Sum 的长度为 4 个字节，因而 Read 语句读Sum 变量时，仅读对应字符常量的前 4 个字符；Y%为整形变量，在 Read-Data 语句中，对应的数值常量经四舍五入后读入，所以选择 C。11.要利用通用对话框控件
25、来显示“保存文件”对话框，需要调用控件的 _ 方法。（分数：3.00）A.ShowPrimerB.ShowSave C.ShowOpenD.ShowColor解析：解析 CommonDialog 控件的 ShowSave 方法显示 CommonDialog 控件的“另存为”对话框。12.CommonDialog 控件可以显示 _ 种对话框。（分数：3.00）A.4 种B.5 种C.6 种 D.7 种解析：解析 CommonDialog 控件有六种对话框，分别可以显示“颜色”、“字体”、“帮助”、“打开”、“打印”和“保存”对话框。13.在 Visual Basic 中，要使一个窗体从内存中释放
26、，应该使用的语句是 _。（分数：3.00）A.ShowB.HideC.LoadD.Unload 解析：解析 有关窗体的语句和方法有 Load 语句、Unload 语句、Show 方法以及 Hide 方法。Load 语句的作用是把一个窗体装入内存，Unload 语句与 Load 语句的功能相反，Unload 语句从内存中删除指定的窗体，所以本题应选择 B。Show 方法用来显示一个窗体。Hide 方法用宋将窗体暂时隐蔽起来，但并没有从内存中删除。14.图像框有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是_。（分数：3.00）A.AutoSizeB.AppearanceC.Au
27、toRedrawD.Stretch 解析：解析 Stretch 属性：选回/设置一个值，决定是否调整图形的大小以适应图像控件。 Appearance 属性：返回/设置一个对象在运行时是否以 3D 效果显示。图像框控件无 Autosize 和AutoRedraw 属性。15.如果要改变窗体的标题，需要设置窗体对象的 _ 属性。（分数：3.00）A.NameB.Caption C.BorderStyleD.BackColor解析：解析 窗体的 Caption 属性决定了窗体对象在显示时的标题。16.在下面向文件中写入数据的命令语句中，不正确的是 _。（分数：3.00）A.Print#文件号，输出项
28、列表B.Print#文件号，Unsing；输出列表项C.Write#文件号，输出列表D.Write#文件号，Unsing；输出列表 解析：解析 Print#语句的功能是把数据写入文件中，其语句格式如下： 格式Print#文件号，Spc(n)ITab(n)表达式表)；|， 和 Print#语句一样，用 Write#语句可以把数据写入顺序文件中，其格式如下： Write#文件号，表达式表17.要使列表框中的列表项显示成复选框形式，则应将其 Style 属性设置为 _。（分数：3.00）A.1 B.0C.TrueD.False解析：解析 Style 属性：该属性用于确定控件外观，只能在设计时确定。其
29、取值可以设置为 0 (标准形式)或 1(复选框形)。18.假设在窗体 Form1 画一个通用对话框控件 CommonDialogl，要建立“打开文件”对话框，为了使得该对话框的标题显示为“打开文件”，那么可以实现该功能的语句是 _。（分数：3.00）A.CommonDialogDialogTile= “打开文件“ B.CommonDialogDialogTile( “打开文件“)C.CommonDialogFileTile=“打开文件“D.CommonDialogFileTile(“打开文件“)解析：解析 DialogTitle 属性用来设置对话框的标题。在默认情况下，“打开”对话框的标题是“
30、打开”，“保存”对话框的标题是“保存”。现在需要将“打开文件”对话框的标题设置为“打开文件”，所以需要将 DialogTile 属性的值设置为“打开文件”，而设置属性值正确的语法应该是；控件名属性名；值。而 FileTitle 属性用来指定文件对话框中所选择的文件名(不包括路径)。19.在 Visual Basic 应用程序中，以下正确的描述是 _。（分数：3.00）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套 C.过程的定义和过程的调用均可以嵌套D.过程的定义和过程的调用均不能嵌套解析：解析 过程必须分开定义，但是在调用的时候可以嵌套。20.用下
31、面的语句所定义的数组的元素个数是 Dim arr(3 To 6. -2 to 2)（分数：3.00）A.20 B.12C.15D.24解析：解析 本题中的二维数组的元素数目等于 45 共 20 个。21.编写如下程序： Private Sub Form Click() a$=: “4321“: b$=“abcd“ For 3=1 To 4 Print Mid$(a$，5-j，1)+Nid$(b$, j, 1)； Next j Print End Sub 程序运行后，单击窗体，其输出结果为 _。（分数：3.00）A.alb2c3d4B.b4c3d2elC.eld2c3b4D.la2b3c4d 解
32、析：解析 For 循环共执行了 4 次，每次用 Mid$函数取出 a$和 b$的子串输出，a$是倒序，每次取一个字符，b$是顺序，每次取一个字符，连接在一起输出，输出表达式用分号结束，表示下一次接着输出，故输出结果为 1a2b3c4d。22.在窗体上画一个名称为 Lisu 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 _。（分数：3.00）A.For i = 0 To List1. ListCount-1 Next B.For i = 0 To List1.Count-1 NextC.For i = 0 To List1. ListCount NextD.For i =
33、0 To List1. Count Next解析：解析 ListCount 的值表示列表框中项目的数量。ListCount-1 表示列表中最后一项的序号。23.在窗体上有若干控件，其中有一个名称为 Text1 文本框。影响 Text1 的 Tab 顺序的属性是 _。（分数：3.00）A.TabIndex B.TabStopC.EnabledD.Visible解析：解析 Tabindex 属性决定了按 Tab 键时，焦点在各个控件移动的顺序。TabStop 用于返回或设置一个值，该值用来指示是否能够使用 TAB 键来将焦点从一个对象移动到另一个对象。当设置此属性为False，则使用 Tab 键移
34、到此控件时会自动跳到下一个 TabIndex 属性值的控件。 Enabled 属性决定控件是否允许操作。Visible 属性决定控件是否可见。24.下面程序的功能是由随机函数产生 100 个在 200700 之间的整数，然后找出最大者，并记下是第几个数，但程序不完整，请选择适当的内容在下划线处将程序补充完整。 Dim a(100) For j=1 To 100 a(j)=Int(Rnd*501+200)：Print a(j) Next j : Print p=1 : max= _ For j=2 To 100 If a(j)max Then max=a(j) : p=j Next j Prin
35、t “The largest number is “ ; max Print “The position is“; p End（分数：3.00）A.0B.a(1) C.1.7E+38D.1.7E-38解析：解析 Rnd 随机数函数产生一个在(0，1)区间的任意一个单精度随机实数(不含 0 和 1)。 Int 函数返回不大于自变量的最大整数。数组 a 用来存放 100 个随机数。此程序的第一个 For 循环，其中Int(Rnd*501)产生 0500 的随机整数，Int(Rnd*501)+200 产生 200700 的随机整数，该 For 循环的功能是产生 100 个在 200700 间的整数，
36、并将它们存放在一维数组 a 中。程序的后半部分的功能是在数组中依照从第一个元素到最后一个元素的顺序，查找最大的一个数并将之赋值给 max，并且找出最大数所在的位置，并把它赋值给 p。max 是当前查找的元素中的最大值，p 记录该元素的位置，显然在下划线处应填写数组的第一个元素，即 a(1)。25.在窗体上画一个命令按钮，名称为 Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer If a=0 Then x=x-1 Else If b0 Then End If End
37、 If If c0 Then x=3 Else x=4 End If Print x End Sub 程序运行后，单击命令按钮，其输出结果为 _。（分数：3.00）A.34B.4 C.35D.3解析：解析 本题先定义了三个变量 a、b 和 c，由于没有给它们赋值，因此他们的值都为 0。接着执行后面的 If 语句，条件“a=0”为 True，执行“x=x-1”后 x 的值为-1。接着执行第二个 If 语句，判断条件“c0”为 False，执行 Else 后面的语句后 x 的值为 4。所以最后输出 x 的值为 4。二、B填空题/B(总题数：6，分数：12.00)26.以下程序段执行后 y 的值是U
38、 【1】 /U。 x=3.7 y=Int(x+0.6) Print y（分数：2.00）填空项 1:_ （正确答案：4）解析：解析 返回参数的整数部分，其类型和参数相同。语法 Int(number)：必要的 number 参数是Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。27.在菜单编辑器中建立一个菜单，其主菜单项的名称为 nmuEdit，Visible 属性为 False。程序运行后，如果用鼠标右键单击窗体，则弹出与 mnvEdit 对应的菜单。以下是实现上述功能的程序，请填空。 Private Sub FormU 【2】 /U(Button
39、As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then U【3】 /UmnuEdit End If End Sub（分数：2.00）填空项 1:_ （正确答案：MouseDown PopupMenu）解析：解析 PopupMenu 方法的使用形式如下：对象PopupMenu 菜单名，标志，x，y。其中：x， y：是快捷菜单显示的位置。标志：指定快捷菜单的行为。当标志为 0 时，快捷菜单中的项只能对鼠标左键起反应。当标志为 1 时，快捷菜单中的项对鼠标左键和右键都起反应。标志为 2 时，PopupMen
40、u 方法只能用在 MouseDown 事件过程。28.阅读以下程序： Private Sub Form_click() Dim k, n, m As integer n = 20 m = 1 k = 1 Do While k = n m=m+2 k = k + 1 Loop Print m End Sub 单击窗体程序的执行结果是U 【4】 /U。（分数：2.00）填空项 1:_ （正确答案：41）解析：解析 本题的循环体共要执行 20 次，m 的最终值为 1+2*20=41。29.下面的程序用“冒泡”法将数组 a 中的 10 个整数按升序排列，请将程序补充完整。 Option Base 1
41、Private Sub Command1_Click() Dim a a = Array(549, 45, 324, 561, 439, 258, 87, 435, 587, 823) For i =U 【5】 /U For j =U 【6】 /U If a(i)U 【7】 /Ua(j) Then al = a(i) a(i) = a(j) a(j) = al End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub（分数：2.00）填空项 1:_ （正确答案：1 To 9 i+ 1 To 10 ）解析：解析 最外层的循环负责
42、从第一个元素到第九个元素中取出一个，内层循环负责从外层循环取出的元素的后继所有元素和其比较，如果比外层循环取出的元素小，则将二者的位置对换。30.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = “ “ Text2.Text = “ “ E
43、nd Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 1234 和 4321，然后单击命令按钮，则输出结果为U 【8】 /U。（分数：2.00）填空项 1:_ （正确答案：12344321）解析：解析 TextBox 的 Text 属性用来设置或返回文本框编辑区中的文本。31.下列程序的功能是求出所有的 1-100 之间的孪生素数。孪生素数是指两个素数的差为 2，如 3 和5，11 和 13 等，请填空。 Private Sub Form_Click() Dim i As Integer For i = 3 To 97 Step 2 IfU 【9】 /U
44、Then Print i, i + 2 End If Next i End Sub Public Funtion Prime (ByVal n As Integer) As Boolean Dim i as Integer For i = 2 To n - 1 IfU 【10】 /UThen Exit For End If Next i If i = n Then Prime = True Else Prime = False End If End Function（分数：2.00）填空项 1:_ （正确答案：Prime(i)And Prime(i+2) n Mod i=0）解析：解析 此题 Prime 函数用来判断参数 n 是否为素数，如果是，则返回 False，否则返回 0，所以【10】处应填“n Mod i=0”。要找出 100 以内的所有孪生素数可采用以下方法：可用循环变量 i 从第一个素数 3 开始判断该数和它的下一个奇数(只有奇数才有可能是素数)是否同时为素数，如果是，则把该数和它的下一个奇数输出，然后循环变量加 2，接着进行判断。此处判断某数是否为素数，可以通过调用函数 Prime 来实现，故【9】处应填写“Prime(i) And Prime(i +2)”。
