189 8069 5689
如果需要讲详细一点,那就加我QQ531412815
叠彩网站建设公司成都创新互联,叠彩网站设计制作，有大型网站制作公司丰富经验。已为叠彩上1000家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的叠彩做网站的公司定做！
第4题,潜在的错误,这里的错误不是常规错误,属于那种只有在运行是才知道的错误:
Catch ex As Exception
MsgBox(ex.StackTrace)
'永远不会查找下面的错误
Catch ex As ArgumentNullException
MsgBox("Input Test box cannot be null.")
Catch ex As OverflowException
MsgBox("Input Test box 2 cannot be zero!")
Catch ex As FormatException
MsgBox("Input Test box should be numeric format!")
结构化错误处理永远达不到下面这里,因为Catch ex As Exception 已经处理了所有错误.
第5题：
00123
1000 60.50
2000 60.00
3500 59.50
---- -----
6500 60.00
00124
3000 60.50
---- -----
3000 60.50
00125
2000 59.50
1000 58.00
---- -----
3000 58.75
就是按照Ref_ID 分类，有一种方法就是按照Ref_ID 分组，也就是使用SQL语言，不过这里需要该很多，
我就不用了，那么就稍微复杂一点，使用FIND方法,不过有一点必须注意REF_ID必须排序，因为数据库中
已经排好序了，我就不用排了。
Dim rst as ADODB.Recordset
dim refID as string
Rst = GetRecordset
Do While Not rst.EOF
refid=rst(0)
Console.writeline(rst.Fields("Ref_ID")
do
Console.writeline rst.Fields("Qty") vbcrlf rst.Fields("Price"))
rst.MoveNext()
loop while rst(0)=refid
Loop
第6题：就是从一个集合中取元素输出的问题
比较简单的办法就是使用递归
以下是使用VB的方法(可以移植到VB.NET上,因为我对VB.NET的数组到现在还不太会,所以就将就一下)
Dim bUse() As Boolean
Dim lStr() As String * 1
Dim nCount As Byte
-----------------------------------------------------------------------------------
Public Sub Combination(lstStr As String)
Dim i As Byte
Dim j As Byte
Dim StrLen As Byte
StrLen = Len(lstStr)
ReDim bUse(1 To StrLen) As Boolean
ReDim lStr(1 To StrLen) As String * 1
For i = 1 To StrLen
lStr(i) = Mid(lstStr, i, 1)
Next
For i = 1 To StrLen
nCount = i
GoWith StrLen, 1, 0, ""
Next
End Sub
------------------------------------------------------------------------------------
Public Sub GoWith(ECount As Byte, nStart As Byte, Deep As Byte, lastStr As String)
Dim i As Byte
If Deep = nCount Then
Debug.Print lastStr
Exit Sub
End If
For i = nStart To ECount
If Not bUse(i) Then
bUse(i) = True
GoWith ECount, i, Deep + 1, lastStr lStr(i)
bUse(i) = False
End If
Next
End Sub
--------------------------------------------------------------------------------------
Private Sub Form_Load()
Combination "wxyz"
End Sub
--------------------------------------------------------------------------------------
其中GOWITH是真正的递归函数,而Combination是用来预处理字符的
全局变量:
BUSE：用来确定是否使用过这个元素
lSTR：用来保存字符元素
NCOUNT：用来限制递归函数的深度，换句话说，就是输出元素组中的元素个数
实际测试成功，另外我对前三题很感兴趣，希望能够传给我
实在不难，就是不知道你写了代码没有？
答案补充：
Dim xuhao As Integer
Const wenjianjia = "" '自己写好了
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
xuhao = xuhao + 1
If xuhao = 4 Then xuhao = 1
Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")
End Sub
第一个问题：跳转到另一个窗体使用语句 Object.show，
你可以在form1任一控件事件下编写form2.show就行，如果还隐藏form1的话，再添加一句from1.hide
第二个问题
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
op1 = txt1.Text
op2 = txt2.Text
op3 = txt3.Text
op4 = txt4.Text
ba = txt3.Text
If op1 = "" Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
txt1.Text = 100
在这个位置添加一句代码
exit sub
不过我看你这段程序漏洞百出，我改正了一下，不过没明白你为什么用单选按钮去接收文本框的数据，所以就按照你的改了。改正后的代码如下：声明一下，你程序里的txt在我程序里是text，忘改了。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ba As String
op1.Text = Text1.Text
op2.Text = Text2.Text
op3.Text = Text3.Text
op4.Text = Text4.Text
ba = Text3.Text
If op1.Text = "" Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
Text1.Text = 100
Exit Sub
ElseIf op1.Text = 0 Then
MsgBox("你已没有钱了，请重新开始", vbOKOnly + vbInformation, "游戏失败")
Text1.Text = 100
End If
If op2.Text = "" Then
MsgBox("最少需要下注1", vbOKOnly + vbInformation, "输入错误")
ElseIf op2.Text = 0 Then
MsgBox("请输入下注金额", vbOKOnly + vbInformation, "输入错误")
End If
If Val(op1.Text) Val(op2.Text) Then
MsgBox("你没有那么多钱了，请重新输入", vbOKOnly + vbInformation, " 你没那么多钱了")
End If
Dim bytcom As Byte
bytcom = Int(Rnd() * 3)
Select Case bytcom
Case 0
Text4.Text = -(Val(op2.Text) * Val(op3.Text))
Text1.Text = Val(op1.Text) - Val(op2.Text) * Val(op3.Text)
MsgBox("你出布，计算机出剪刀，你输了", vbOKOnly + vbInformation, "很遗憾")
Case 1
Text4.Text = Val(op2.Text) * Val(op3.Text)
Text1.Text = Val(op1.Text) + Val(op2.Text) * Val(op3.Text)
MsgBox("你出布，计算机出石头，你赢了", vbOKOnly + vbInformation, "恭喜")
Case 2
Text4.Text = 0
MsgBox("你出布，计算机出布，平手", vbOKOnly + vbInformation, "不要灰心")
End Select
If Text1.Text = 1000000 Then
MsgBox("恭喜你通关了！重新开始", vbOKOnly + vbInformation, "游戏通关")
Text1.Text = 1000
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If
VB历年真题集
真题一
一、选择题
在下列各题的A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。
（1）为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为
A)PAD图
B)N-S图
C)结构图
D)数据流图
（2）结构化程序设计主要强调的是
A)程序的规模
B)程序的效率
C)程序设计语言的先进性
D)程序易读性
（3）为了使模块尽可能独立,要求
A)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强
B)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱
C)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱
D)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强
（4）需求分析阶段的任务是确定
A)软件开发方法
B)软件开发工具
C)软件开发费用
D)软件系统功能
（5）算法的有穷性是指
A)算法程序的运行时间是有限的
B)算法程序所处理的数据量是有限的
C)算法程序的长度是有限的
D)算法只能被有限的用户使用
（6）对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是
A)快速排序
B)冒泡排序
C)直接插入排序
D)堆排序
（7）如果进栈序列为e1,e2,e3,e4,则可能的出栈序列是
A)e3,e1,e4,e2
B)e2,e4,e3,e1
C)e3,e4,e1,e2
D) 任意顺序
（8）将E-R图转换到关系模式时,实体与联系都可以表示成
A)属性
B)关系
C)键
D)域
（9）有三个关系R、S和T如下:
由关系R和S通过运算得到关系T,则所使用的运算为
A)并
B)自然连接
C)笛卡尔积
D)交
（10）下列有关数据库的描述,正确的是
A)数据处理是将信息转化为数据的过程
B)数据的物理独立性是指当数据的逻辑结构改变时,数据的存储结构不变
C)关系中的每一列称为元组,一个元组就是一个字段
D)如果一个关系中的属性或属性组并非该关系的关键字,但它是另一个关系的关键字,则称其为本关系的外关键字
（11）窗体文件的扩展名是
A) .bas
B) .cls
C) .frm
D) .res
（12）设y是整形变量,能判断y为奇数的表达式是
A)Not(y Mod 20)
B)y Mod 20
C)(y-1)Mod 20
D)y Mod 21
（13）下面说法不正确的是
A) 变量名的长度不能超过255个字符
B) 变量名可以包含小数点或者内嵌的类型声明字符
C) 变量名不能使用关键字
D) 变量名的第一个字符必须是字母
（14）定义有5个整数型元素的数组,正确的语句是
A)Dim a(4) As Integer
B)Option Base 1:Dim a(5)
C)Dim a (5)
D)Dime a(5) As Integer
（15）设a=6,则执行
x=IIF(a5,-1,0)
后,x的值为
A)5
B)6
C)0
D)-1
（16）如果将文本框的Locked属性设置为True,则以下说法正确的是
A) 此时在属性窗口不可以修改文本框的Text属性值
B) 运行时用户不可以在界面修改文本框中的内容
C) 在程序代码中不可以修改文本框的内容,如不可以使用语句Text1.Text="aaa"
D) 以上均不正确
（17）编写如下事件过程:
Private Sub Form_keyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_Keypress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,若按"T"键,则程序输出的结果是
A) T B) t
T T
C) T D) t
t t
（18）以下事件过程可以将打开对话框的标题改为"新时代"的是
A) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.ShowOpen
End Sub
B) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.ShowFont
End Sub
C) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.Show
End Sub
D) Private Sub Command2_Click()
CommonDialog1.DialogTitle="新时代"
CommonDialog1.ShowColor
End Sub
（19）如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的什么属性
A) Value
B) Visible
C) Enabled
D) Default
（20）要使文本框可输入多行文字,要更改的默认选项是
A) SorollBoars和MultiLine
B) Visible
C) ScrillBoars
D) 以上都不是
（21）要触发组合框的DblClick事件,只有将组合框的Style属性设置为
A) 0
B) 1
C) 2
D) 3
（22）在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:
Private Sub Timer1_ _________( )
TxtTime.text=Time
End Sub
在下划线上应填入的内容是
A) Enabled
B) Visible
C) Interval
D) Timer
（23）要使文本框获得输入焦点,则应采用文本框控件的方法是
A) GotFocus
B) LostFocous
C) KeyPress
D) SetFocus
（24）假定有如下的窗体事件过程:
Private Sub Form_Click()
a$="MicrosoftVisual Basic"
b$=Right(a$,5)
c$=Mid(a$,1,9)
MsgBox a$,34,b$,c$,5
End Sub
程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是
A) Microsoft Visual
B) Microsoft
C) Basic
D) 5
（25）下面程序段执行结果为
x=Int(Rnd()+4)
Select Case x
Case 5
Print"excellent"
Case4
Print"good"
Case 3
Print"pass"
Case Else
Print "fail"
End Select
A) excellent
B) good
C) pass
D) fall
（26）设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
A)123456
B)123445
C)5
D)6
（27）在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。
Private Sub Command1_Click()
CommonDialog1.Flags=vbOFNHideReadOnly
CommonDialog1.Filter= "All Files(*.*) |*.*|Text Files(*.txt)|*.txt
CommonDialog1.FilterIndex=1
CommonDialog1.ShowOpen
MsgBox CommonDialog1.FileName
End Sub
程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是
A) All Files(*.*)
B) Text Files(*.txt)
C) Batch Files(*.bat)
D) All Files(*.*) |Text Files(*.txt)
（28）如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的哪个属性
A) Value
B) Visible
C) Enabled
D) Default
（29）函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。
Function Fun1(b As Integer)
if _____ Then
Fun1=0
Else
Fun1=1
End If
End Function
使该功能完整,应在空行处填入以下哪条语句
A)b Mod 20
B)b Mod 2=0
C)b / 2=1
D)b
（30）假定有下表所列的菜单结构:
要求程序运行后,如果单击菜单项"大图标",则在该菜单项前添加一个"√"。以下正确的事件过程是
A) Private Sub bigicon_Click()
bigicon.Checked=False End Sub
B) Private Sub bigicon_Click()
Me.appear.bigicon.Checked=True
End Sub
C) Private Sub bigicon_Click()
bigicon.Checked=True
End Sub
D) Private Sub bigicon_Click()
appear.bigicon.Checked=True
End Sub
（31）下列对变量的定义中,不能定义a为变体变量的是
A)Dim a As Double
B)Dim a As Variant
C)Dim a
D)a=24
（32）有如下程序:
Private Sub Command1_Click()
a$="A WORKER IS HERE"
x=Len(a$)
For i=1 To x - 1
b$=Mid$(a$, i, 3)
If b$="WOR" Then S=S + 1
Next
Print S
End Sub
单击命令按钮，程序运行结果为
A) 1
B) 2
C) 3
D) 5
（33）Mid("Hello Everyone",7,3)的执行结果是
A)yon
B) every
C) Eve
D) one
（34）在窗体上有一个命令按钮,然后编写如下事件过程。
Private Sub Command1_Click()
Dim a(5)As String
FOR i=1 To 5
a(i)=Chr(Asc("A")+ (i-1))
Next
For Each b In a
Print b;
Next
End Sub
程序运行后,单击命令按钮,输出结果是
A)ABCDE
B)1 2 3 4 5
C)abcde
D)出错信息
（35）在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
For i=1 To 4
x=4
For j=1 To 2
x=x+6
Next
Next
Print x
End Sub
程序运行后,单击命令按钮,输出结果是
A)12
B)13
C)16
D)17
二、填空题
请将每一个空的正确答案写在答题卡序号的横线上，答在试卷上不给分。
（1）测试的目的是暴露错误,评价程序的可靠性;而 【1】 的目的是发现错误的位置并改正错误。
（2）某二叉树中度为2的结点有18个,则该二叉树中有 【2】 个叶子结点。
（3）当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行入队运算。这种情况称为 【3】 。
（4）在关系模型中,把数据看成一个二维表,每一个二维表称为一个 【4】 。
（5）在计算机软件系统的体系结构中,数据库管理系统位于用户和 【5】 之间。
（6）下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如: a=5 , n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long, Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值:")
n = InputBox("请输入n的值!")
Do
Tn=Tn * 10 + a
Sn=Sn + Tn
Cout=Cout + 1
【6】
Debug.Print a, n, Sn
End Sub
（7）用户可以用 【7】 语句定义自己的数据类型。
（8）下列程序运行后的输出结果是 【8】 。
Private Sub f(k,s)
s=1
For j=1 To k
s=s*j
Next
End Sub
Private Sub Command1_Click()
Sum=0
For i=1 To 3
Call f(i,s)
Sum=Sum+s
Next
Print Sum
End Sub
（9）函数Int(Rnd*10)+10的值为范围是 【9】 。
（10）有如下 函数过程:
Function gys(By Val x As Integer, ByVal y As Integer) As Integer
Do While y0
preminder=x / y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程,该程序的运行结果是 【10】 。
Private Sub Command1_Click
Dim a As Integer,b As Integer
a=10:b=2
x=gys(a,b)
Print x
End Sub
（11）语句Form2.Show 0 表示 【11】 ;
语句Form3.Show 1 表示 【12】 ;
（12）下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt"For Output As #1
For i=1 To 8
� 【13】 �
Next
Close #1
End Sub
（13）下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form
Dim Y As Single
Open � 【14】 �
Y=3.14159 / 180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i * Y)
Ksc.Cosx=Cos(i * Y)
� 【15】 �
Next i
Close #2
End Sub
真题二
一、选择题
在下列各题的A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。
（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中每个元素距其最终位置不远,为节省时间,应采用的算法是
A)堆排序
B)直接插入排序
C)快速排序
D)B)和C)
（7）栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是
A)ABCED
B)DCBEA
C)DBCEA
D)CDABE
（8）数据库设计包括两个方面的设计内容,它们是
A)概念设计和逻辑设计
B)模式设计和内模式设计
C)内模式设计和物理设计
D)结构特性设计和行为特性设计
（9）关系表中的每一横行称为一个
A)元组
B)字段
C)属性
D)码
（10）设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字 (键或码)为
A)课号,成绩
B)学号,成绩
C)学号,课号
D)学号,姓名,成绩
（11）下列选项中,不属于模块间耦合的是
A) 数据耦合
B) 同构耦合
C) 异构耦合
D) 公用耦合
（12）设a=5,b=4,c=3,d=2,则表达式32*b Or a=c And bc Or cd的值是
A) 1
B) True
C) False
D) 2
（13）以下合法的变量名是
A)A%B
B)Test1
C)1cost
D)And
（14）下列程序运行时输出的结果是
Option Base 1
Private Sub Form_Click()
Dim x(10) As Integer,y(5) As Integer
For i=1 to 10
x(i)=10-i+1
Next
For i= 1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i= 1 to 5
Print y(i)
Next
End Sub
A) 3 7 11 45 19
B) 19 15 11 7 3
C) 1 3 5 7 9
D) 不确定的值
（15）在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:
Private Sub Command1_Click()
a=InputBox("请输入日期 (1~31)")
t="旅游景点:" IIf(a0 And a=10, "长城","")
IIf(a10 And a=20, "故宫","") IIf(a20 And a=31, "颐和园","")
Text1.Text=t
End Sub
程序运行后,如果从键盘上输入16,则在文本框中显示的内容是
A) 旅游景点:长城故宫
B) 旅游景点:长城颐和园
C) 旅游景点:颐和园
D) 旅游景点:故宫
（16）若要求从文本框中输入密码时在文本框中只显示"*"号,则应当在此文本框的属性窗口中设置
A)Text属性值为*
B)Caption属性值为*
C)password属性值为空
D)Passwordchar属性值为*
（17）编写如下两个事件过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode) 恒转换出来都是大写字母
End Sub
Private Sub Form_Keypress(KeyAscii As Integer)
Print Chr(KeyAscii) 看实际情况~~~~
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,如果按"A"键,则程序输出的结果是
A)AA
B)aA
C)Aa
D)aa
（18）单击滚动条的滚动箭头时,产生的事件是
A)Click
B)Scroll
C)Change
D)Move
（19）当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽
A) Name
B) Enabled
C) Caption
D) Visible
（20）要获得当前驱动器应使用驱动器列表框的属性是
A) Path
B) Drive
C) Dir
D) Pattern
（21）在Visual Basic中,组合框是文本框和下列哪一项的特性的组合
A) 复选框
B) 标签
C) 列表框
D) 目录列表框
（22）计时器文件设置时间间隔的属性是
A)Enabeld
B) Index
C)Tag
D) Interval
（23）要使文本框获得输入焦点,则应采用文本框控件的
A)GotFocus方法
B)LostFocus方法
C)KeyPress方法
D)SetFocus方法
（24）在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c="ABCD"
For n=1 To 4
Print ______
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
D
CD
BCD
ABCD
则在______处应填入的内容为
A) Left(c,n)
B) Right(c,n)
C) Mid(c,n,1)
D) Mid(c,n,n)
（25）阅读程序:
Function Fun(a As Integer)
Static c
b=0:b=b+2:c=c+2
F=a*b*c
End Function
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 2
Print Fun(a);
Next
End Sub
运行上面的程序,单击命令按钮,输出结果为
A)8 16
B)9 18
C)10 20
D)7 14
（26）下列程序段的执行结果为
For X=5 To 1 Step -1
For Y=1 To 6-x
Print Tab(Y+5); "*";
Next
Next
A) *****
****
***
**
*
B) *****
****
***
**
*
C) *
**
***
****
*****
D) *
***
*****
*******
*********
（27）下列各选项说法错误的一项是
A) 文件对话框可分为两种,即打开(Open) 文件对话框和保存(Save As) 文件对话框
B) 通用对话框的Name属性的默认值为CommonDialogX,此外,每种对话框都有自己的默认标题
C) 打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定一个文件,并以这个文件名保存当前文件
D) DefaultEXT属性和DialogTitle属性都是打开对话框的属性,但非保存对话框的属性 下列各选项说法错误的一项是
（28）以下语句中那句可以选择指定的表项或取消已选择的表项
A) 列表框.Selected(索引值)
B) 列表框.Selected(索引值)=True|False
C) 列表框.Selected
D) 列表框.Selected=True|False
（29） Sub过程与Function过程最根本的区别是
A) Sub过程可以用Call语句直接使用过程名调用,而Function过程不可以
B) Function过程可以有形参,Sub过程不可以
C) Sub过程不能返回值,而Function过程能返回值
D) 两种过程参数的传递方式不同
（30）要使菜单项MenuOne在程序运行时失效,使用的语句是
A) MenuOne.Visible=True
B) MenuOne.Visible=False
C) MenuOne.Enabled=True
D) MenuOne.Enabled=False
（31）设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组说法错误的是
A) 命令按钮的所有Caption属性都是Command1
B) 在代码中访问任意一个命令按钮只需使用名称Command1
C) 命令按钮的大小都相同
D) 命令按钮共享相同的事件过程
（32）以下关系表达式中,其值为假的是
A)"XYZ" "XYz"
B)"VisualBasic"="visualbasic"
C)"the""there"
D)"Integer""Int"
（33）在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
c="ABCD"
For n=1 To 4
Next
End Sub
程序运行后,单击命令按钮,要求在窗体上显示如下内容:
D
CD
BCD
ABCD
则在处应填入的内容为
A) Left(c,n)
B) Right(c,n)
C) Mid(c,n,1)
D) Mid(c,n,n)
（34）阅读程序:
Option Base 1
Dim arr()As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer
ReDim arr(3,2)
For i = 1 To 3
For j = 1 To 2
arr(i,j)=i*2+j
Next
Next
ReDim Preserve arr(3,4)
For j=3 To 4
arr(3,j)=j+9
Next
Print arr(3,2)+arr(3,4)
End Sub
程序运行后,单击窗体,输出结果为
A) 21
B) 13
C) 8
D) 25
（35）下列程序段的执行结果为
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
二、填空题
请将每一个空的正确答案写在答题卡序号的横线上，答在试卷上不给分。
（1）测试用例包括输入值集和 【1】 值集。
（2）在树形结构中,树根结点没有 【2】 。
（3）数据结构分为逻辑结构与存储结构,线性链表属于 【3】 。
（4）一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体"项目主管"与实体"项目"的联系属于 【4】 的联系。
（5）数据库设计分为以下6个设计阶段:需求分析阶段、 【5】 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
（6）设有如下程序:
Private Sub Form_Click()
Dim a As Integer, s As Integer
n=8:s=0
Do
s=s+n:n=n-1
Loop While n0
Print s
End Sub
以上程序的功能是计算1到8的和。程序运行后,单击窗体,输出结果为 � 【6】 �。
（7）如果不指明函数过程参数的类型,则该参数的数据类型为 【7】 。
（8）下面运行程序后,单击命令按钮,输出的结果是 � 【8】 � 。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t*a(i)
Next
Fun=t
End Function
（9）在Visual Basic的立即窗口内输入以下语句
X=97 CR
?Chr$(X) CR
在窗口中显示的结果是 【9】 。
（10）下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。
例如: a=5 , n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, n As Integer, Cout As Integer
Dim Sn As Long, Tn As Long
Cout=1
Sn=0
Tn=0
a=InputBox("请输入a的值:")
【10】
Do
Tn=Tn * 10 + a
Sn=Sn + Tn
Cout=Cout + 1
【11】
Debug.Print a, n, Sn
End Sub
（11）在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式n!/(n-r)!r!计算,下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值,单击Command1按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。
click()
Private Sub Command 1
Dim r As Integer,n As Integer
n=Text1
r=Text2
Text3=fun(n)/ fun( 【12】 )/ fun(r)
End Sub
Function fun(n As Integer)as long
Dim t As Long
x=1
For k=1 To n
t=t*k
Next
fun=t
End Function
（12）下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量:
Dim PaintStart As Boolean
编写如下事件过程:
Private Sub Form_Load()
DrawWidth=2
ForeColor=vreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PaintStart = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
【13】
End Sub
Private Sub Form_DblClick()
Cls
End Sub
（13）有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click()
Dim x As Single, y As Single
Open "NM1.txt" For Input As #1
Open "NM2.txt" For Input As #2
Do While Not EOF(1)
� 【14】 �
Print x
y=x ^2
� 【15】 �
Print y
Loop
Close #1, #2
End Sub
求采纳为满意回答。