2007年4月全国计算机二级考试VB语言笔试真题-考试君

题型	单选题	填空题
数量	35	9

一、选择题（每题2分，共计70分）

1.

下列叙述中正确的是( )

问题详情

A. 算法的效率只与问题的规模有关，而与数据的存储结构无关
B. 算法的时间复杂度是指执行算法所需要的计算工作量
C. 数据的逻辑结构与存储结构是一一对应的
D. 算法的时间复杂度与空间复杂度一定相关

2.

在结构化程序设计中，模块划分的原则是( )

问题详情

A. 各模块应包括尽量多的功能
B. 各模块的规模应尽量大
C. 各模块之间的联系应尽量紧密
D. 模块内具有高内聚度、模块间具有低耦合度

3.

下列叙述中正确的是( )

问题详情

A. 软件测试的主要目的是发现程序中的错误
B. 软件测试的主要目的是确定程序中错误的位置
C. 为了提高软件测试的效率，最好由程序编制者自己来完成软件的测试工作
D. 软件测试是证明软件没有错误

4.

下面选项中不属于面向对象程序设计特征的是( )

问题详情

A. 继承性
B. 多态性
C. 类比性
D. 封装性

5.

下列对队列的叙述正确的是( )

问题详情

A. 队列属于非线性表
B. 队列按“先进后出”原则组织数据
C. 队列在队尾删除数据
D. 队列按“先进先出”原则组织数据

6.

对下列二叉树( )
　　
进行前序遍历的结果为

问题详情

A. DYBEAFCZX
B. YDEBFZXCA
C. ABDYECFXZ
D. ABCDEFXYZ

7.

某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为( )

问题详情

A. n+1
B. n-1
C. 2n
D. n/2

8.

在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是( )

问题详情

A. 并
B. 交
C. 投影
D. 笛卡儿乘积

9.

在E—R图中,用来表示实体之间联系的图形是( )

问题详情

A. 矩形
B. 椭圆形
C. 菱形
D. 平行四边形

10.

下列叙述中错误的是( )

问题详情

A. 在数据库系统中,数据的物理结构必须与逻辑结构一致
B. 数据库技术的根本目标是解决数据共享问题
C. 数据库技术是指己有数据管理系统的基础上建立数据库
D. 数据库系统需要操作系统的支持

11.

下面可以正确定义2个整形变量和1个字符串变量的语句的是( )

问题详情

A. Dim n,m AS Interger,s AS String
B. Dim a%,b$,c AS String
C. Dim a AS Integer,b,c AS String
D. Dim x%,y AS Integer,z AS String

12.

下列表述中不能判断x是否为偶数的是( )

问题详情

A. x/2=Int(x/2)
B. x Mod 2=0
C. Fix(x/2)=x/2
D. x\2=0

13.

设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是( )

问题详情

A. 窗体的Click事件过程的过程名是Myform_Click
B. 命令按钮的Click事件过程名是C1_Click
C. 命令按钮的Click事件过程的过程名是Command1_Click
D. 上述三种过程名称都是错误的

14.

设窗体上有1个滚动条,要求单击滚动条右端的　　按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是( )

问题详情

A. Max
B. Min
C. SmallChange
D. LargeChang

15.

1个二维数组可以存放1个矩形.在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是( )

问题详情

A. Dim a(-2 To 0,2) AS Integer
B. Dim a(3,2) AS Ingeger
C. Dim a(4,3)AS Ingeger
D. Dim a(-1 To -4,-1 To -3)AS Ingeger

16.

若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是( )

问题详情

A. 8个”$”
B. 1个”$”
C. 8个”*”
D. 无任何内容

17.

设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是( )

问题详情

A. Combo1.RemoveItem Combo1.Text
B. Combo1.RemoveItem4
C. Combo1.RemoveItem Combo1.ListCount
D. Combo1.RemoveItem5

18.

工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是( )

问题详情

A. Private Sub Command1_Click( )
Form2.Show
End Sub
B. Private Sub Command1_Click( )
Form2.Visible
End Sub
C. Private Sub Command1_Click( )
Load Form2
End Sub
D. Private Sub Command1_Click( )
Form2.Load
End Sub

19.

若在某窗体模块中有如下事件过程( )
Private Sub Command1_Click(Index AS Integer)
……
End Sub
则以下叙述中正确的是

问题详情

A. 此事件过程与不带参数的事件过程没有区别
B. 有1个名称为Command1的窗体,单击此窗体则执行此事件过程
C. 有1个名称为Command1的空件数组,数组中有多个不同类型控件
D. 有1个名称为Command1的空件数组,数组中有多个相同类型控件

20.

以下循环语句中在任何情况下都至少执行一次循环体的是( )

问题详情

A. Do While <条件>
循环体
Loop
B. While <条件>
循环体
Wend
C. Do
循环体
Loop Until <条件>
D. Do Until <条件>
循环体
Loop

21.

在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是( )

问题详情

A. Cd1.Action=2
B. Cd1.Action=1
C. Cd1.ShowSave=Ture
D. Cd1.ShowSave=0

22.

下面关于菜单的叙述中错误的是( )

问题详情

A. 各级菜单中的所有菜单项的名称必须唯一
B. 同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同
C. 弹出式菜单用Popupmenu方法弹出
D. 弹出式菜单也用菜单编辑器编辑

23.

已知有下面的过程( )
Private Sub proc1(a As Integer,b As String,Optional x As Boolean)
……
End Sub
正确调用此过程的语句是

问题详情

A. Call procl(5)
B. Call proc1 5,”abc”,False
C. proc1(12,”abc”,True)
D. proc1 5, “abc”

24.

在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是( )

问题详情

A. Private Sub Command1_Click()
Text1.Left=100
End Sub
B. Private Sub Command1_Click()
Text1.Left= Text1.Left-100
End Sub
C. Private Sub Command1_Click()
Text1.Move.Text.Left+100
End Sub
D. Private Sub Command1_Click()
Text1.Move.Text.Left
End Sub

25.

某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是( )

问题详情

A. 在工程属性对话框中把“启动对象”设置为Form2
B. 在Form1的Load事件过程中加入语句 Load Form2
C. 在Form2的Load事件过程中加入语句Form2.Show
D. 在Form2的TabIndex属性设置为１，把Form1的TabIndex属性设置为２

26.

窗体上有１个名称为Text1的文本框和１个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是( )

问题详情

A. Private Sub Command1_Click()
Open “out.txt” For Inpit As#1
Print#1,Text1.Text
Close#1
End Sub
B. Private Sub Command1_Click()
Open “out.txt” For Outpit As#1
Print#1,Text1.Text
Close#1
End Sub
C. Private Sub Command1_Click()
Open “out.txt” For Append As#1
Print#1,Text1.Text
Close#1
End Sub
D. Private Sub Command1_Click()
Open “out.txt” For Random As#1
Print#1,Text1.Text
Close#1
End Sub

27.

为计算1+3+5+……+99的值，某人编程如下
k=1
s=0
While k<=99
k=k+2 : s=s+k
Wend
Print s
在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是( )

问题详情

A. While …Wend循环语句错误，应改为For k=1 To 99 …Next k
B. 循环条件错误，应改为Whlie k<99
C. 循环前的赋值语句k=1错误，应改为k=0
D. 循环中两条赋值语句的顺序错误，应改为s=s+k : k=k+2

28.

下面程序在调试时出现了死循环
Private Sub Command1_Click()
n=InputBox(“请输入一个整数”)
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是( )

问题详情

A. 只有输入的n是偶数时才会出现死循环，否则不会
B. 只有输入的n是奇数时才会出现死循环，否则不会
C. 只有输入的n是大于1000的整数时才会出现死循环，否则不会
D. 输入任何整数都会出现死循环

29.

在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法
算法1：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As#1
End Sub
算法2：
Private Sub Command1_Click()
CommonDialog1.ShowOpen
IfCommonDialog1.FileName<>””Then
Open CommonDialog1.FileName For Input As#1
End If
End Sub
下面关于这两种算法的叙述中正确的是()

问题详情

A. 显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会
B. 显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会
C. 两种算法的执行结果完全一样
D. 算法1允许输入的文件名中含有空格，而算法2不允许

30.

窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2, 1个名称为　　Command1的命令按钮，并有以下程序
　　
Private Sub Command1_Click()
Dim str As String, s As String, k As Integer
s=Text1
Str=””
For k=List1.ListCount-1 to 0 Step-1
If InStr(List.List(k),s)>0 then
str=str&List.List(k)&” ”
End If
Next k
If str=””Then
Text2=”没有匹配的项目”
Else
Text2=str
End If
End Sub
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是( )

问题详情

A. 京
B. 北京南京
C. 南京
D. 没有匹配的项目

31.

在窗体上画1一个名称为Command1的命令按钮，并编写以下程序
Private Sub Command1_Click()
Print fun(“ABCDEFG”)
End Sub
Function fun(st As String) As String
stlen=Len(st)
temp=””
For k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是( )

问题详情

A. ABCDEFG
B. AGBFCE
C. GFEDCBA
D. AGBFCED

32.

在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将 banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中（见图2）。能实现此功能的事件过程是 ( )
　　

问题详情

A. Priate Sub Form_DragDrop(Source As Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y)
End Sub
B. Private Sub banana _DragDrop(Source As Control,X As Single,Y As Single )
Source.Move Picture1.Left+X.Picture1.Top+Y
End Sub
C. Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single )
Source.Move Picture1.Left+X.Picture1.Top+Y
End Sub
D. Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single )
banana.Move banana.Left+X, banana.Top+Y
End Sub

33.

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click()
Dim a(5.5) As Integer
For i=1 To 5
a(I,j)*5\10
Next j
Next i
S=0
For i=1 To 5
S=s+a(i,i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是( )

问题详情

A. 15
B. 13
C. 11
D. 9

34.

在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是( )
　　

问题详情

A. Private Sub Text1__KeyPress(KeyAscii AS Integer)
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val(Text1)
If a>=0 or a<=100 Then
Text2.SetFocus
Else
Text1. SetFocus ; MsgBox(“分数错”)
End If
End If
End Sub
B. Private Sub Text1__KeyPress(KeyAscii AS Integer)
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Text1.SetFocus
Else
Text2. SetFocus ; MsgBox(“分数错”)
End If
End If
End Sub
C. Private Sub Text1__KeyPress(KeyAscii AS Integer)
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val(Text1)
If a<0 And a>100 Then
Text2.SetFocus
Else
Text1. SetFocus ; MsgBox(“分数错”)
End If
End If
End Sub
D. Private Sub Text1__KeyPress(KeyAscii AS Integer)
If KeyAscii=13 Then ‘回车符的ACSII码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Text2.SetFocus
Else
Text1. SetFocus ; MsgBox(“分数错”)
End If
End If
End Sub

35.

在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序
Const n=5,m=4
Dim a(m,n)
Private Sub Command1_Click()
K=1
For i=1 To m
For j=1 To n
a(i,j)=k
k=k+1
Next j
Next i
Private Sub Command2_Click()
Summ=0
For i=1 To m
For j=1 To n
If i=1 Or i=m Then
Summ=summ+a(i,j)
Else
If j=I Or j=n Then
Summ=summ+a(i,j)
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1_Click()的作用是二维数组a 中存放1个 m行n列的矩阵；过程Command2_Click()的作用是( )

问题详情

A. 计算矩阵外围一圈元素的累加和
B. 计算矩阵除外一圈以外的所有元素的累加和
C. 计算矩阵第1列和最后一列元素的累加和
D. 计算矩阵第1行和最后一行元素的累加和

二、填空题（每空2分，共计30分）

36.

在深度为7的满二叉树中，度为2的结点个数为______。

问题详情

37.

软件测试分为白箱（盒）测试和黑箱（盒）测试，等价类划分法属于______ 测试。

问题详情

38.

在数据库系统中，实现各种数据管理功能的核心软件称为______。

问题详情

39.

软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于______阶段。

问题详情

40.

在结构化分析使用的数据流图（DFD）中，利用______对其中的图形元素进行确切解释。

问题详情

41.

1+ + + +…….n
最大的n。请填空
Private Sub Command1Click()
Dim s ,m,n AS Integer
m=Val(InputBox(“请输入一个大于100的整数”))
n=
s=0
Do While s
N=n+1
S=s+n*n
Loop
Print "满足不等式的最大n是" __
End Sub

问题详情

42.

下面程序的功能是把文件file11.txt中重复字符去掉后（即若有多个字符相同，则只保留1个）写入文件file2.txt。请填空。
Private Sub Command1Click()
Dim inchar AS String,temp AS String,outchar AS String
Outchar=” ”
Open=”file1.txt” For Input AS #1
Open=”file2.txt” For Output AS
n=LOF( )
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
If InStr(outchar,temp)= Then
outchar=outchar & temp
End If
Next k
print #2, __
close #2
close #1
End Sub

问题详情

43.

在窗体上先画1个名为Text1的文本框和平个名为Label1的标签,再画1个名为OP1的有4个单选按钮数组,其Index属性按季度顺序为 0∽3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击1个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第3季度”单选按钮产生的结果。请填空。
　　
Dim sales(12) As Long
Private Sub FormLoad()
open “sales.txt” For Input AS #1
For k=1 To 12
Input #1,sales(k)
Next k
Close #1
End Sub
Private Sub ____ (Index, AS Integer)
Dim sum AS Long ,k AS Ingeger,month AS Ingeger
sum=0
m_dj=Index* ______
For k=1 To 3
m_dj=month+1
sum=sum+sales(month)
Next k
Label1.Capti_dj=Opl(Index). ______& “销售总额：”
Text1=sum
End Sub

问题详情

44.

某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False
Function Prime(a As Integer)AS Boolean
Dim k As Interger,isprime AS Boolean
If a<2 Then
isprime=False
Else
isprime=True
k=2
Do While k
If a Mod k=0 Then
isprime=False
ELSE
k=k+1
End IF
LOOP
End If
prime=isprime
End Function
在测试时发现有1个非素数也被判断为素数，这个错判的数是______

问题详情

2007年4月全国计算机二级考试VB语言笔试真题

题型介绍

一、选择题（每题2分，共计70分）

下列叙述中正确的是( )

在结构化程序设计中，模块划分的原则是( )

下列叙述中正确的是( )

下面选项中不属于面向对象程序设计特征的是( )

下列对队列的叙述正确的是( )

对下列二叉树( ) 进行前序遍历的结果为

某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为( )

在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是( )

在E—R图中,用来表示实体之间联系的图形是( )

下列叙述中错误的是( )

下面可以正确定义2个整形变量和1个字符串变量的语句的是( )

下列表述中不能判断x是否为偶数的是( )

设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是( )

设窗体上有1个滚动条,要求单击滚动条右端的 按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是( )

1个二维数组可以存放1个矩形.在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是( )

若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是( )

设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是( )

工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是( )

若在某窗体模块中有如下事件过程( )Private Sub Command1_Click(Index AS Integer)……End Sub则以下叙述中正确的是

以下循环语句中在任何情况下都至少执行一次循环体的是( )

在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是( )

下面关于菜单的叙述中错误的是( )

已知有下面的过程( )Private Sub proc1(a As Integer,b As String,Optional x As Boolean)……End Sub正确调用此过程的语句是

在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是( )

某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是( )

窗体上有１个名称为Text1的文本框和１个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是( )

为计算1+3+5+……+99的值，某人编程如下k=1s=0While k<=99k=k+2 : s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是( )

下面程序在调试时出现了死循环Private Sub Command1_Click()n=InputBox(“请输入一个整数”)DoIf n Mod 2=0 Thenn=n+1Elsen=n+2Else IfLoop Until n=1000End Sub下面关于死循环的叙述中正确的是( )

在窗体上画1一个名称为Command1的命令按钮，并编写以下程序Private Sub Command1_Click()Print fun(“ABCDEFG”)End SubFunction fun(st As String) As Stringstlen=Len(st)temp=””For kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是( )

在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将 banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中（见图2）。能实现此功能的事件过程是 ( )

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click()Dim a(5.5) As IntegerFor i=1 To 5a(I,j)*5\10Next jNext iS=0For i=1 To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是( )

二、填空题（每空2分，共计30分）

在深度为7的满二叉树中，度为2的结点个数为______。

软件测试分为白箱（盒）测试和黑箱（盒）测试，等价类划分法属于______ 测试。

在数据库系统中，实现各种数据管理功能的核心软件称为______。

软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于______阶段。

在结构化分析使用的数据流图（DFD）中，利用______对其中的图形元素进行确切解释。

1+ + + +…….n最大的n。请填空Private Sub Command1__Click()Dim s ,m,n AS Integerm=Val(InputBox(“请输入一个大于100的整数”))n=______s=0Do While sN=n+1S=s+n*nLoopPrint "满足不等式的最大n是" ______End Sub

对下列二叉树( )
　　
进行前序遍历的结果为

设窗体上有1个滚动条,要求单击滚动条右端的　　按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是( )

若在某窗体模块中有如下事件过程( )
Private Sub Command1_Click(Index AS Integer)
……
End Sub
则以下叙述中正确的是

已知有下面的过程( )
Private Sub proc1(a As Integer,b As String,Optional x As Boolean)
……
End Sub
正确调用此过程的语句是

为计算1+3+5+……+99的值，某人编程如下
k=1
s=0
While k<=99
k=k+2 : s=s+k
Wend
Print s
在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是( )

下面程序在调试时出现了死循环
Private Sub Command1_Click()
n=InputBox(“请输入一个整数”)
Do
If n Mod 2=0 Then
n=n+1
Else
n=n+2
Else If
Loop Until n=1000
End Sub
下面关于死循环的叙述中正确的是( )

在窗体上画1一个名称为Command1的命令按钮，并编写以下程序
Private Sub Command1_Click()
Print fun(“ABCDEFG”)
End Sub
Function fun(st As String) As String
stlen=Len(st)
temp=””
For k
fun=temp
End Function
程序运行时，单击命令按钮，则窗体上显示的是( )

在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将 banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中（见图2）。能实现此功能的事件过程是 ( )
　　

在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程
Option Base 1
Pribate Sub Command1_Click()
Dim a(5.5) As Integer
For i=1 To 5
a(I,j)*5\10
Next j
Next i
S=0
For i=1 To 5
S=s+a(i,i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是( )

1+ + + +…….n
最大的n。请填空
Private Sub Command1Click()
Dim s ,m,n AS Integer
m=Val(InputBox(“请输入一个大于100的整数”))
n=
s=0
Do While s
N=n+1
S=s+n*n
Loop
Print "满足不等式的最大n是" __
End Sub