当前位置：首页 >> 最新动态 >> 07年4月计算机等级考试二级VB考前密卷(1)_最新动态_等级考试_IT考试认证_考试中心

07年4月计算机等级考试二级VB考前密卷(1)_最新动态_等级考试_IT考试认证_考试中心 -

(1) 在深度为5的满二叉树中，叶子结点的个数为
A) 32
B) 31
C) 16
D) 15

答案：B

(2) 若某二叉树的前序遍历访问顺序是abdgcefh，中序遍历访问顺序是dgbaechf，则其后序遍历的结点访问顺序是
A) bdgcefha
B) gdfha
C) bdgaechf
D) gdbehfca

答案：D

(3) 一些重要的程序语言(如C语言和Pascal语言) 允许过程的递归调用。而实现递归调用中的存储分配通常用
A) 栈
B) 堆
C) 数组
D) 链表

答案：A

(4) 软件工程的理论和技术性研究的内容主要包括软件开发技术和
A) 消除软件危机
B) 软件工程管理
C) 程序自动化
D) 实现软件可重用

答案：B

(5) 开发软件时对提高开发人员工作效率至关重要的是
A) 的资源管理功能
B) 先进的软件开发工具和环境
C) 程序人员的数量
D) 计算机的并行处理能力

答案：B

(6) 在软件测试设计中，软件测试的主要目的是
A) 实验性运行软件
B) 证明软件正确
C) 找出软件中全部错误
D) 发现软件错误而执行程序

答案：D

(7) 数据处理的最小单位是
A) 数据
B) 数据元素
C) 数据项
D) 数据结构

答案：C

(8) 索引属于
A) 模式
B) 内模式
C) 外模式
D) 概念模式

答案：B

(9) 下述关于数据库系统的叙述中正确的是
A) 数据库系统减少了数据冗余
B) 数据库系统避免了一切冗余
C) 数据库系统中数据的一致性是指数据类型一致
D) 数据库系统比文件系统能管理更多的数据

答案：A

(10) 数据库系统的核心是
A) 数据库
B) 数据库管理系统
C) 模拟模型
D) 软件工程

答案：B

(11) 下列说法错误的是
A) 窗体文件的扩展名为.frm
B) 一个窗体对应一个窗体文件
C) Visual Basic中的一个工程只包含一个窗体
D) Visual Basic中一个工程最多可以包含255个窗体

答案：C

(12) 下列四组控件属性中，属性值的类型不相同的一组是
A) Label控件的Enabled属性与TextBox控件的Enabled属性
B) OptionButton控件的Value属性与CheckBox控件的Value属性
C) Command控件的Default属性与Command控件的Cancel属性
D) Command控件的Visible属性与Form控件的Visible属性

答案：B

(13) 下列方法中不能退出Visual Basic的是
A) 按Alt+Q组合键
B) 按下Alt+F组合键，然后按Esc键
C) 打开"文件"菜单，执行"退出"命令
D) 按F10键，然后按F键，再按X键

答案：C

(14) 任何控件都有的属性是
A) BackColor
B) Caption
C) Name
D) BorderStyle

答案：C

(15) 可以实现从输入一个作为双精度变量a的值的语句是
A) a=InputBox()
B) a=InputBox("请输入一个值")
C) a=Val(InputBox("请输入一个值") )
D) a=Val(InputBox() )

答案：C

(16) 建立一个新的标准模块，应该选择哪个菜单下的"添加模块"命令？
A) "工程"菜单
B) "文件"菜单
C) "工具"菜单
D) "编辑"菜单

(17) 下列语句的输出结果为
Print Format＄(5689.36, "000,000.000")
A) 5,689.36
B) 5,689.360
C) 5,689.3
D) 005,689.360

(18) 设有数组定义语句：Dim a(5) As Integer，List1为列表框控件。下列给数组元素赋值的语句错误的是
A) a(3) =3
B) a(3) =inputbox("input data")
C) a(3) =List1.ListIndex
D) a=Array(1,2,3,4,5,6)

(19) 下列各种形式的循环中，输出"*"的个数最少的循环是
A) a=5 : b=8
      Do
     Print "*"
a=a+1
    Loop While a<b

B) a=5 : b=8
      Do
     Print "*"
a=a+1
    Loop Until a<b

C) a=5 : b=8
Do Until a-b
Print "*"
b=b+1
Loop

D) a=5: b=8
Do Until a > b
Print "*"
a=a + 1
Loop

(20) 下列有关子菜单的说法中，错误的是
A) 除了Click事件之外，菜单项不可以响应其他事件
B) 每个菜单项都是一个控件，与其他控件一样也有其属性和事件
C) 菜单项的索引号必须从1开始
D) 菜单的索引号可以不连续

(21) 如下图所示的两个窗体:

要使其中第一个窗体中的第一个命令按钮来控制显示第二个窗体，第二个命令按钮用来
结束程序的运行(两个按钮名称为Command1和Command2) 。则以下选项中，对这两个
命令按钮编写的事件过程正确的是
A) Private Sub Command1_Click()
      Form2.Show 1
     End Sub
     Private Sub Command2_Click()
      End
     End Sub

B) Private Sub Command1_Click()
      Show 1
    End Sub
    Private Sub Command2_Click()
      End
    End Sub

C) Private Sub Command1_Click()
      Show 1
    End Sub
    Private Sub Command2_Click()
      End
    End Sub
D) Private Sub Command1_Click()
      Show 1. Form2
    End Sub
    Private Sub Command2_Click()
      End
    End Sub

(22) 执行下列程序段后，输出的结果是
For k1=0 To 4
   y=20
   For k2=0 To 3
    y=10
    For k3=0 To 2
     y=y + 10
   Next k3
Next k2
Next k1
Print y
A) 90
B) 60
C) 40
D) 10

(23) 设有如下过程：
Sub ff(x，y，z，)
x=y+z
End Sub
以下所有参数的虚实结合都是传址方式的调用语句是
A) Call ff(5,7,z)
B) Call ff(x,y,z)
C) Call ff(3+x,5+y,z)
D) Call ff(x+y,x-y,z)

(24) 设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效?
A) Style
B) Caption
C) Enabled
D) Default

(25) 通常情况下，垂直滚动条的值是
A) 由下往上递增
B) 由上往下递增
C) 由左到右递增
D) 由右到左递增

(26) 下列程序段的执行结果为
a=95
If a>60 Then I=1
If a>70 Then I=2
If a>80 Then I=3
If a>90 Then I=4
Print "I="; I
A) I＝1
B) I＝2
C) I＝3
D) I＝4

(27) 下列程序段的执行结果为
a=1
b=0
Select Case a
Case 1
   Select Case b
    Case 0
      Print "* *0* *"
    Case 1
      Print "* *1* *"
   End Select
Case 2
   Print "* *2* *"
End Select
A) * *0* *
B) * * 1* *
C) * *2* *
D) 0

(28) 下面程序段执行结果为
x=Int(Rnd() + 4)
Select Case x
   Case 5
      Print "lent"
    Case 4
      Print "good"
    Case 3
      Print "pass"
   Case Else
      Print "fail"
End Select
A) excellent
B) good
C) pass
D) fail

(29) 下列程序段的执行结果为
a=6
For k=1 To 0
   a=a + k
Next k
Print k; a
A) -1 6
B) -1 16
C) 1 6
D) 11 21

(30) 下列程序段的执行结果为
a=1
b=1
   For I=1 To 3
   f=a + b
   a=b
   b=f
   Print f;
Next I
A) 2 3 6
B) 2 3 5
C) 2 3 4
D) 2 2 8

(31) 下列过程定义语句中，形参个数为不确定数量的过程是
A) Private Sub Pro3(x As Double,y As Single)
B) Private Sub Pro3(Arr(3),Option x,Option y)
C) Private Sub Pro3(ByRef x,ByVal y,Arr( ))
D) Private Sub Pro3(ParamArray Arr( ))

(32) 单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click()
   Dim x As Integer, y As Integer
   x=12: y=32
   Call PCS(x, y)
   Print x; y
End Sub
Public Sub PCS(ByVal n As Integer, ByVal m As Integer)
   n=n Mod 10
   m=m Mod 10
End Sub
A) 12 32
B) 2 32
C) 2 3
D) 12 3

(33) 单击一次命令按钮后，下列程序的执行结果是
Private Sub Command1_Click()
   s=P(1) + P(2) + P(3) + P(4)
   Print s
End Sub
Public Function P(N As Integer)
   Static Sum
   For i=1 To N
    Sum=Sum + i
   Next i
   P=Sum
End Function
A) 15
B) 25
C) 35
D) 45

(34) 下列程序的执行结果为
Private Sub Command1_Click()
   Dim s1 As String, s2 As String
   s1="abcdef"
   Call Invert(s1, s2)
   Print s2
End Sub
Private Sub Invert(ByVal xstr As String, ystr As String)
   Dim tempstr As String
   i=Len(xstr)
   Do While i >=1
     tempstr=tempstr + Mid(xstr, i, 1)
     i=i - 1
   Loop
   ystr=tempstr
End Sub
A) fedcba
B) abcdef
C) afd
D) defabc

(35) 阅读下列程序：
Private Sub Command1_Click()
   Dim i As Integer, k As Integer
   k=2
   For i=1 To 3
      Print H(k) ;
    Next i
End Sub
Function H(j As Integer)
   a=0
   Static b
   a=a + 1
   b=b + 1
   H=a*b + j
End Function
程序运行后，单击命令按钮输出结果是
A) 2 3 4
B) 3 4 5
C) 5 6 7
D) 3 5 6

填空题：

(1) 数据结构分为逻辑结构与存储结构，线性链表属于【1】。

(2) 在面向对象方法中，类之间共享属性和操作的机制称为【2】。

(3) 耦合和内聚是评价模块独立性的两个主要标准，其中【3】反映了模块内各成分之间的联系。

(4) 一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体"项目主管"与实体"项目"的联系属于【4】的联系。

(5) 数据库分为以下6个设计阶段：需求分析阶段、【5】、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。

(6) 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：
Private Sub Command1_Click()
【6】
Form2. 【7】
End Sub
试补充完整。

(7) 用户可以用【8】语句定义自己的数据类型。

(8) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   x=0
   Do Until x=-1
     a=InputBox("请输入第一个数字a的值")
     a=Val(A)
     b=InputBox("请输入第二个数字b的值")
     b=Val(b)
     x=InputBox("请输入第三个数字x的值")
     x=Val(x)
     a=a + b + x
   Loop
   Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为【9】。

(9) 当对象得到焦点时，会触发【10】事件，当对象失去焦点时将触发【11】事件。

(10) 把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print KeyCode
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序运行后，如果按下B键，则在窗体上输出的数值是【12】和【13】。

(11) 在文件对话框中，假定有一个名为"fc.exe"的文件，它位于"d:＼pp"目录下，则"FileName"属性的值为【14】；FileTitle属性的值为【15】。

一、选择题：

01-05 B A B D D

06-10 D D A B C

11-15 A A B C C

16-20 A D D C C

21-25 A C B A B

26-30 D A B C B

31-35 D A C A B

二、填空题：

(1) 存储结构

(2) 继承

(3) 内聚

(4) 一对多(1∶N)

(5) 概念设计阶段

(6) Me.Hide
show

(7) Type语句

(8) 12

(9) GotFocus
LostFocus

(10) 66
98

(11) d:＼pp\fc.exe
fc.exe

(16) 下列符号常量的声明中，不合法的是
A) Const a As Single=1.1
B) Const a="OK"
C) Const a As Double=Sin(1)
D) Const a As Integer="12"

答案：C

(17) 在Visual Basic中，要强制用户对所用的变量进行显式声明，这可以在哪里设置?
A) "属性"对话框
B) "程序代码"窗口
C) "选项"对话框
D) 对象浏览器

答案：C

(18) 下列语句中，获得列表框List1中项目个数的语句是
A) x=List1.ListCount
B) x=ListCount
C) x=List1.ListIndex
D) x=ListIndex

答案：A

(19) 要获得当前器应使用驱动器列表框的属性是
A) Path
B) Drive
C) Dir
D) Pattern

答案：B

(20) 如果将文本框的MaxLength属性设置为0，则文本框中的字符不能超过
A) 8K
B) 16K
C) 32K
D) 64K

答案：C

(21) 当在滚动条内拖动滚动块时触发
A) KeyUp事件
B) KeyPress事件
C) Scroll事件
D) Change事件

答案：C

(22) 设有声明语句
Dim b(-1 To 10, 2 To 9, 20) As Integer
则数组b中全部元素的个数
A) 2310
B) 2016
C) 1500
D) 1658

答案：B

(23) 设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   Const Alt=4
   Const Key_F2=&H71
   altdown%=(Shift And Alt) > 0
   f2down%=(KeyCode=Key_F2)
   If altdown% And f2down% Then
     Text1.Text="BBBBB"
   End If
End Sub
上述程序运行后，如果按【Shift+F2】，则在文本框中显示得是
A) Alt+F2
B) BBBBB
C) 随机出几个数
D) 文本框平均内容无变化

答案：D

(24) 设已经在"菜单编辑器"中了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应右键菜单的是
A) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     If Button=2 Then PopupMenu Bs, 2
   End Sub
B) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     PopupMenu Bs
   End Sub
C) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     PopupMenu Bs,0
   End Sub
D) Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
         X As Single, Y As Single)
     If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs
   End Sub

答案：A

(25) 下列程序的功能是调用字体对话框来设置文本框字体，单击按钮弹出对话框后，按Cancel键退出对话框，则
Private Sub Command1_Click()
   CommonDialog1.CancelError=True
   CommonDialog1.Flags=cdlCFEffects Or cdlDFBoth
   CommonDialog1.Action=4
   CommonDialog1.ShowFont
   Text1.Font.Name=CommonDialog1.FontName
   Text1.Font.Size=CommonDialog1.FontSize
   Text1.Font.Bold=CommonDialog1.FontBold
   Text1.Font.Italic=CommonDialog1.FontItalic
   Text1.Font.Underline=CommonDialog1.FontUnderline
   Text1.FontStrikethru=CommonDialog1.FontStrikethru
   Text1.ForeColor=CommonDialog1.Color
End Sub
A) Text1的字体不发生变化
B) Text1的字体发生变化
C) Text1的字体和颜色发生变化
D) 程序出错！

答案：D

(26) 要将名为MyForm的窗体显示出来，正确的使用方法是
A) MyForm.Show
B) Show.MyForm
C) MyForm Load
D) MyForm Show

答案：A

(27) 下列程序段的执行结果为
a=5
For k=1 To 0
    a=a + k
Next k
Print k; a
A) -1 6
B) -1 16
C) 1 5
D) 11 21

答案：C

(28) 下列程序段的执行结果为
a=3
b=1
For I=1 To 3
   f=a + b
   a=b
   b=f
   Print f
Next I
A) 4 3 6
B) 4 5 9
C) 6 3 4
D) 7 2 8

答案：B

(29) 下列程序段的执行结果为
I=9
x=5
Do
   I=I + 1
   x=x + 2
Loop Until I >=7
Print "I="; I
Print "x="; x
A) I＝4x＝5
B) I＝7x＝15
C) I＝6x＝8
D) I＝10x＝7

答案：D

(30) 以下程序段运行时从上输入字符"-"，则输出结果为
op$=InputBox("op=")
If op$="+" Then a=a + 2
If op$="-" Then a=a - 2
Print a
A) 2
B) -2
C) 0
D) +2

答案：B

(31) 以下程序段的输出结果为
Dim l, a(10) , p(3)
k=5
For i=0 To 10
     a(i) =i
Next i
For i=0 To 2
     p(i) =a(i  (i + 1) )
Next i
For i=0 To 2
    k=k + p(i)  2
Next i
Print k
A) 20
B) 21
C) 56
D) 32

答案：B

(32) 下列程序的执行结果为
Private Sub Command1_Click()
   Dim x As Integer, y As Integer
   x=12: y=20
   Call Value(x, y)
   Print x; y
End Sub
Private Sub Value(ByVal m As Integer, ByVal n As Integer)
   m=m * 2: n=n - 5
   Print m; n
End Sub
A) 20 12
     20 15
B) 12 20
     12 25
C) 24 15
     12 20
D) 24 12
     12 15

答案：C

(33) 在窗体上画一个命令按钮，然后编写下列程序
Private Sub Command3_Click()
   Tcl 2
   Tcl 3
   Tcl 4
End Sub
Sub Tcl(a As Integer)
   Static x As Integer
   x=x + a
   Print x;
End Sub
程序运行后，单击命令按钮，输出结果为
A) 2 3 4
B) 2 5 9
C) 3 5 4
D) 2 4 3

答案：B

(34) 下面程序段，运行后的结果是Private Sub Command1_Click()
   Dim b%(1 To 4) , i%, t#
   For i=1 To 4
      b(i) =i
   Next i
   t=Tof(b() )
   Print "t="; t,
End Sub
Function Tof(a() As Integer)
   Dim t#, i%
   t=1
   For i=2 To UBound(A)
      t=t * a(i)
   Next i
   Tof=t
End Function
A) t＝18
B) t＝24
C) t＝30
D) t＝32

答案：B

(35) 单击按钮时，以下程序运行后的输出结果是
Private Sub Command1_Click()
   Dim x As Integer, y As Integer, z As Integer
   x=1: y=2: z=3
   Call God(x, x, z)
   Print x; x; z
   Call God(x, y, y)
   Print x; y; y
End Sub
Private Sub God(x As Integer, y As Integer, z As Integer)
   x=3 * z + 1
   y=2 * z
   z=x + y
End Sub
   A) 6 6 12
      7 11 11
   B) 8 5 10
      5 11 11
   C) 9 6 12
      9 10 15
   D) 8 10 10
      5 9   10

答案：A

填空题：

(1) 在树结构中，树根结点没有【1】。

答案：前件
解析：在树结构中，每一个结点只有一个前件，称为父结点，没有前件的结点只有一个，称为树的根结点；每一个结点可以有多个后件，它们都称为该结点的子结点。没有后件的结点称为叶子结点。

(2) Jackson结构化程序方法是英国的M.Jackson提出的，它是一种面向【2】的设计方法。

答案：数据结构
解析：结构化分析方法主要包括：面向数据流的结构化分析方法(SA-Structured analysis），面向数据结构的Jackson方法(JSD-Jackson system development method) 和面向数据结构的结构化数据系统开发方法(DSSD-Data structured system development method）。

(3) 面向对象的模型中，最基本的概念是对象和【3】。

答案：类
解析：面向对象模型中，最基本的概念是对象和类。对象是现实世界中实体的模型化；将属性集和方法集相同的所有对象组合在一起，可以构成一个类。

(4) 软件设计模块化的目的是【4】。

答案：降低复杂性
解析：模块化是指解决一个复杂问题时自顶向下逐层把软件系统划分成若干模块的过程，由此分解来降低复杂性。

(5) 数据模型按不同应用层次分成3种类型，它们是概念数据模型、【5】和物理数据模型。

答案：逻辑数据模型
解析：数据模型按不同层次分成概念数据模型、逻辑数据模型和物理数据模型三类。

(6) 在Visual Basic的立即窗口内输入以下语句
X＝65<CR>
?Chr$(X) <CR>
在窗口中显示的结果是【6】。

答案：A
解析： Chr$(）是求ASCII字符的函数，格式是Chr$(表达式），其中"表达式"应该是合法的ASCII码值，Chr$(）函数把"表达式"的值转换为相应的ASCII字符。本题中X＝65对应的ASCII码是字符A，所以显示的结果应该是A。

(7) 下列程序是判断一个整数(>=3) 是否为素数，请补充完整。
Dim n As Integer
n=InputBox("请输入一个整数(>=3) ")
k=Int(Sqr(n) )
i=2
swit=0
While i <=k And swit=0
     If n Mod i=0 Then
         【7】
     Else
         【8】
     End If
Wend
If swit=0 Then
     Print n; "是一个素数。"
Else
     Print n; "不是一个素数。"
End If

    答案：swit=0
          swit=1
    解析：素数是只能被1和本身整除的正整数，在本题的程序中，swit是一个标志变量，如果"swit＝0"，则表示n不能被整除；如果能被一个整数整除，则swit变为1；
    While循环执行的条件有两个，一个是"I<=k",另一个是"swit=0",必须两个条件同时成立才执行循环，当I>k时，显然不必再检查n是否能被I整除；而如果"swit=1"，则表示n已被整除，肯定不是素数，也不必检查了。
只有"I<=k"和"swit=0"两者同时成立时才需要检查"n是否为素数"，循环只有一个判断操作，即判断n能否被I整除，如果不能，则I=I+1。以便为下一次判断作准备。

(8) 下面程序是用来打印九九乘法表的，请补充完整。
Dim i As Integer, j As Integer, Str1$
Str1=""
For i=1 To 9
    For j=1 To 9
       If 【9】 Then
          Str1=Str1 + Str$(j) + "×" + Str$(i) + "=" + Str$(Val(i  j) )
       Else
          Str1=Str1 & Chr(13)
            【10】
        End If
        Next j
Next i
Print Str1

    答案：j<=i
          j>i
    解析： (1) Exit语句总是出现在If语句或Select Case语句内部，而If语句或Select Case语句在循环内嵌套，用Exit语句中断循环。函数首先定义了两个Integer型变量i、j，并将空格赋给Str1；第一个For循环的变量I从1到9步长为1，第二个循环的变量i也是从1到9步长为1，循环体为选择结构，它是用来输出i*j的值，所以j的值应该小于此时i的值，那么If的判断语句为j<=i，当满足条件时执行Then后面的语句，即输出i*j的值，如果不满足执行Else后面的语句，并跳出内循环。

(9) 在窗体上有一个命令按钮，然后编写如下程序：
Function Trans(ByVal num As Long) As Long
   Dim k As Long
   k=1
   Do While num
      k=k * (num Mod 10)
      num=num ＼ 10
   Loop
   Trans=k
   Print Trans
End Function
Private Sub Command1_Click()
   Dim m As Long
   Dim s As Long
   m=InputBox("请输入一个数")
   s=Trans(m)
End Sub
程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为【11】 ,在输入
对话框中输入"987"输出【12】 ,在输入对话框中输入"879"，输出结果为【13】。

    答案：504
          504
    解析：关键字ByVal用来实现传值，也就是说在定义通用过程时，如果形参前面有关键字Byval，则该参数用传值方式传递，否则用传址方式传递；在Sub过程中，先将输入的"456"赋给变量m，m作为参数，调用Trans过程；在Trans过程中以num作为Do While的循环条件；在循环体中，调用Mod函数，将num的个位数字与k相乘，然后赋给k，第一次循环时，num的值是789，所以k的值为9，执行num = num ＼ 10后，num的值为78，循环三次后，num变为0，退出循环，k值等于9×8×7＝504，并将k的值作为返回值；当输入"987"或"879"时执行相同的操作，结果都为504。可以看出，此程序可用于求一个数值各位上数值的乘积。

(10) 下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。
Sub PR()
    Randomize
    Dim a(10)
    For j=1 To 10
     a(i) =Int( 【14】 )
     If 【15】 Then k=k + 1
     Print a(j)
   Next j
   Print
   Print k / 10
End Sub

    答案：(99 * Rnd）+ 1
          a(j) Mod 5 = 0
    解析：小于100的随机正整数用(99 * Rnd）+ 1来表示；求倍数用取模来表示，即a(j) Mod 5 = 0，用k作计数器，累计计算能被5整除的数的个数。