第一篇：VB考试试卷及答案一
Visual Basic程序设计基础
试题一（每小题2分，共10分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】
过程JiSuan用于计算e = 1 + 1/1!+ 1/2!+ 1/3!+ …+1/n!的值，直至末项小于0.00001（不包含小于0.00001的项），并用消息框显示结果。
【程序】
Option Explicit Private Sub JiSuan()Dim e As single,(1), i As long e = 1: t = 1:(2)(3)i = i + 1: e = e + t:(4)Loop(5)End Sub 【供选择的答案】
（1）A、t As String B、Dim t As String C、Dim t As Single D、t As Single（2）A、i = 1 B、i = 2 C、i = 0 D、i = 3（3）A、While t >= 0.00001 B、Do While t >= 0.00001 C、While e >= 0.00001 D、Do While e >= 0.00001（4）A、t = t * i B、t = 1/(i * t)C、t = t / i D、t = 1 / i（5）A、MsgBox “近似值为：” + t B、MsgBox “近似值为：” & t C、MsgBox “近似值为：” + e D、MsgBox “近似值为：” & e
试题二（每小题2分，共8分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】
程序界面如下图所示，程序运行时要求有以下功能：
1.单击“加粗”复选框（Check1）,若复选框被选中，则设置标签(Label1)上显示的文字为加粗，否则设置为不加粗。
2.单击“选择颜色”按钮(Command1)将显示“颜色”对话框，若单选按钮“前景色”（Option1）被选中，则设置Label1的前景色为用户选择的颜色，否则设置Label1的背景色为用户选择的颜色。通用对话框控件名称为CommonDialog1。
第1页，共9页
【程序】
Private Sub Check1_Click()Label1.FontBold = False If(6)Then Label1.FontBold = True End Sub Private Sub Command1_Click()Dim c As Long :(7): c =(8)If(9)Then Label1.ForeColor = c Else Label1.BackColor = c End Sub 【供选择的答案】
（6）A、Check1.Value = True B、Check1.Value = False C、Check1.Value = 1 D、Check1.Value = 0（7）A、CommonDialog1.ShowOpen B、CommonDialog1.ShowColor C、CommonDialog1.ShowSave D、CommonDialog1.Action = 1（8）A、CommonDialog1.ForeColor B、CommonDialog1.FontColor C、CommonDialog1.BackColor D、CommonDialog1.Color（9）A、Option1.Value B、Option1.Value = 1 C、Option1.Value = false D、Option1.Value = 0
试题三（每小题2分，共10分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】
程序界面如上面两图所示，程序运行时要求有以下功能：
1.当用户单击“增加”按钮(Command1)，若文本框(Text1)中的内容不为空，则将文本框中的内容添加到列表框末尾，并自动将文本框中的内容选中。
第2页，共9页 2.当用户单击“删除”按钮(Command2)，若列表框中没有表项被选中，则用消息框提示“没有选择表项”，否则删除被选中的表项。
3.文本框仅允许输入数字字符与退格字符(ASCII码值为8)。【程序】
Private Sub Command1_Click()Dim s As String, t As String s = Text1.Text If s = ““ Then Exit Sub(10): Text1.SetFocus Text1.SelStart = 0:(11)End Sub Private Sub Command2_Click()If List1.ListIndex =-1 Then MsgBox ”没有选择表项“ Else(12)End Sub Private Sub Text1_(13)If(14)Then KeyAscii = 0 End Sub 【供选择的答案】（10）A、List1.AddItem s，List1.ListCount B、List1.AddItem s, 0 C、List1.AddItem s, List1.ListCount1 p = i For j = _(18)If _(19)Then p = j Next j If p <> i Then _(20)Text2.Text = Text2.Text + c(i)Next i Text2.Text = _(21)End Sub Private Sub swap(a As String, b As String)Dim t As String: t = a: a = b: b = t End Sub 【供选择的答案】（15）A、Len(s)B、Val(s)C、Asc(s)D、Length(s)（16）A、ReDim c()B、Dim c()as string C、ReDim c(1 to slen)D、Dim c(1 to slen)（17）A、Mid(s,i)B、Left(s,i)C、Mid(s,i,1)D、Asc(Mid(s,i,1))（18）A、1 to slen-i B、i+1 to slen C、i to slen-1 D、1 to slen（19）A、c(p)>c(j)B、c(p)
第4页，共9页 C、c(j)D、c(i)
试题五（每小题2分，共8分）
阅读下列程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序】
Dim a As Byte Private Sub Form_click()'Dim a As Byte '(1)a = a + 2 Call aa(a)'(2)Print a;End Sub Sub aa(b As Byte)'(3)b = a + 2 End Sub 【供选择的答案】（22）单击窗体两次后，窗体上显示的内容是什么？
A、0 0
B、2 2
C、2 4
D、4 8（23）其它代码不变，仅将程序中的语句（1）前面的单引号“’”删除，单击窗体两次后，窗体上显示的内容是什么？
A、0 0
B、2 2
C、2 4
D、4 8（24）其它代码不变，仅将程序中的语句（2）改为call aa(a+2)，单击窗体两次后，窗体上显示的内容是什么？
A、0 0
B、2 2
C、2 4
D、4 8（25）其它代码不变，仅将程序中的语句（3）改成sub aa(byval b as byte)，单击窗体两次后，窗体上显示的内容是什么？
A、0 0
B、2 2
C、2 4
D、4 8
试题六（每小题2分，共12分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】
程序界面如下图所示，程序运行时要求有以下功能：
1.单击影像框(Image1)，定时器（timer1）开始运行；再次单击影像框，定时器停止运行。
2.定时器运行时，每隔一定时间更换影像框中的图片：第1次显示“c:pic1.bmp”的图片，第2次显示“c:pic2.bmp”的图片，第3次显示“c:pic3.bmp”的图片，第4次又显示“c:pic1.bmp”的图片„„依次类推。
3.滚动条(HScroll1)用于控制定时器Timer1的Timer事件时间间隔。
第5页，共9页
【程序】
Dim i As Byte Private Sub Form_Load()HScroll1.Min = 1000: HScroll1.Max = 10000: HScroll1.SmallChange = 1000 HScroll1.LargeChange = 3000: HScroll1.Value = 1000 : i = 1 Timer1.Enabled = False: Timer1.Interval = HScroll1.Value End Sub Private Sub HScroll1_Change()_(26)End Sub Private Sub Image1_Click()_(27)End Sub Private Sub Timer1_Timer()Dim fn As String fn = ”c:pic“ +_(28)+ ”.bmp“ _(29)if i < 3 then i = i + 1 else _(30)End Sub 【供选择的答案】（26）A、Timer1.Interval = HScroll1.Value B、Timer1.Index= HScroll1.Value C、HScroll1.Value = Timer1.Interval D、HScroll1.Value= Timer1.Index（27）A、Timer1.Enabled = Not Timer1.Enabled B、Timer1.Enabled = True C、Timer1.Interval = 0 D、Timer1.Enabled = False（28）A、Trim(Chr(i))B、Str(i)C、Trim(Str(i))D、Chr(i)（29）A、Image1.Image = LoadPicture(fn)B、Image1.Image = fn C、Image1.Picture = LoadPicture(fn)D、Image1.Picture = fn（30）A、i = i1（31）程序启动后，单击滚动条右边箭头一次，再单击滑块与右边箭头空白处一次后，滚动条的Value属性的值为：
A、3000 B、4000 C、5000 D、6000
第6页，共9页
试题七（每小题2分，共8分）
阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。【程序说明】
程序界面如下图所示，程序运行时要求有以下功能：
1.在窗体的Load事件过程中，设置图片框p1中的内部坐标系如下：图片框左、右边线在其内部坐标系中的横坐标分别为0、200，上、下边线在其内部坐标系中的纵坐标分别为50、-50。
2.单击“中心线”按钮（Command1），在图片框的水平和垂直的中心位置画两条直线，效果如左下图所示。
3.单击“画图”按钮（Command2），在图片框上画5个大小相等并水平相接的圆，效果如右下图所示。
【程序】
Private Sub Form_Load()_(32)End Sub Private Sub Command1_Click()_(33)P1.Line(100, 50)-(100,-50)End Sub Private Sub Command2_Click()Dim r As Integer r = _(34)For i = _(35)p1.Circle(r * i, 0), r, vbBlue Next i End Sub 【供选择的答案】（32）A、p1.Scale(-50,0)-(50,200)B、p1.Scale(0,-50)-(200,50)C、p1.Scale(50,0)-(-50,200)D、p1.Scale(0,50)-(200,-50)（33）A、p1.Line(200,0)-(0,0)B、p1.Line –(200,0)第7页，共9页 C、p1.Line(0,-50)-(200,-50)D、p1.Line(0,50)-(200,50)（34）A、p1.ScaleWidth / 5 B、p1.Width / 5 C、p1.ScaleWidth / 10 D、p1.Width / 10（35）A、9 to 1 Step-1 B、1 to 9 Step 2 C、1 to 5 D、5 to 1 Step-1
试题八（8分）
编程，用Inputbox函数输入x，根据下面公式计算y值，并在窗体上显示y值。代码写在窗体的Click事件过程中。
x3当x3x2当1≤x≤3y =
x当0x10当x≤0
试题九（8分）
编写一个自定义函数CalcAVG，计算Single类型一维数组所有元素的平均值。
试题十（14分）
界面设计、运行时状态如下图所示，按照下列要求定义各事件过程：
1.2.3.4.为窗体的Load事件编写代码，使得文件列表框(File1)仅显示文本文件(*.txt)实现驱动器列表框(Drive1)和目录列表框(Dir1)，及文件列表框(File1)的联动。单击文件列表框中某一文件，将被选中文件的内容原样显示在文本框(Text1)中。单击“退出”按钮(Command1)，结束程序运行。
参考答案
试题一：DABCD 试题二：CBDA
试题三：AADAC 试题四：ACCBAAB 第8页，共9页 试题五：DBCC 试题六：AACCAC 试题七：DACB 试题八：（8）
Private Sub Form_click()
Dim x As Single, y As Single ’1分
x = Val(InputBox(”x=“))
’1分
Select Case x ’5分
Case Is > 3
y = x + 3
Case Is >= 1
y = x * x
Case Is > 0
y = Sqr(x)
Case Else
y = 0
End Select
Print y ’1分 End Sub 试题九：（8）
'函数头定义2分，其中数组参数定义1分，返回值类型1分
Function CalcAVG(a()As Single, n As Integer)As Single
Dim h As Single, i As Integer '变量定义1分
For i = 1 To n '循环2分
h = h + a(i)'累加1分
Next i
CalcAVG = h / n '函数赋值1分,求平均值1分 End Function
试题十：（14）
Private Sub Command1_Click()
End
'1分
End Sub
Private Sub Form_Load()
File1.Pattern = ”*.txt“
'1分 End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
'1分 End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
'1分 End Sub
Private Sub File1_Click()
Dim fs As String, s As String
'获取完整文件名3分
If Right(File1.Path, 1)= ”“ Then
fs = File1.Path + File1.FileName
Else
fs = File1.Path + ”” + File1.FileName
End If
Open fs For Input As #1 '打开文件2分
While Not EOF(1)
'循环2分
Line Input #1, s
'读取行1分 '累加1分
Text1.Text = Text1.Text + s + Chr(13)+ Chr(10)
Wend
Close #1
'打开文件1分 End Sub 第9页，共9页
第二篇：VB期末考试试卷及答案
VB期末考试试卷及答案
一·选择题
1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（B）
A属性、控件和方法
B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块
2.所有控件都有一个共同的属性，这个属性是（C）
A text
B font
C name
D caption
3.下列叙述中错误的是（A）
A 工程文件扩展名是.vbg
B 标准模块文件的扩展名是.bas
C 窗体模块的扩展名是.frm
D 类模块的扩展名是.cls
4.当要编写一个新的Visual Basic程序时，所做的第一件事是（A）
A 新建一个工程
B 编写代码
C 设置属性
D 添加Active X控件
5.下面控件中，没有caption属性的是（B）
A 框架
B 组合框
C 命令按钮
D 复选按钮
6.在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（B）
A MultiLine
B PasswordChar
C Text
D selText
7.若要将窗体从内存中卸载出去，其实现的方法是（D）
A Show
B Hide
C Load
D UnLoad
8.下列关于过程叙述不正确的是（D）
A 过程的传值调用是将实参的具体值传值传递给形参
B 过程的传址调用是将实参在内存的地址 传递给形参
C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的D 无论过程传值调用还是传地址调用，参数传递都是双向的
9.某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（C）
A 在Form1的Load事件过程中加入语句Load Form2
B 在Form2的Load事件过程中加入语句Form2.Show
C 在“过程属性”对话框中把“启动对象”设置为Form2
D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2
10.以下关于文件的叙述中，正确的是（B）
A 以Output方式打开一个不存在的文件时，系统将显示出错信息
B 以Append方式打开的文件，既可以进行读操作，也可以进行写操作
C 在随机文件在，每个记录的长度是固定的
D 无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相同的 11.设a=6，b=8，c=10 则函数IIf(a A 10 B 6 C 8 D 12 12.下面程序的执行结果为（B） I=”1” : j=”2” I=val(i)+val(j) J=val(“12”) If i<>j Then print i-j Else printj-i A 9 B-9 C 12 D 0 13.下面程序的执行结果为（A） Dim S(10)AS Integer For i=0 to 10 S(I)=2*i Next i Print S(S(3)) A 12 B 6 C 0 D 4 二·程序填空题： 1.在窗体上画一个命令按钮（Command1）和一个标签（Label1），为命令按钮编写以下事件，其功能是求数组中各元素之和，并将结果在标签上显示，请在指定位置填上正确代码将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a(3,2)AS Integer S =0 For i= 1 to 3 For j= 1 to 2 a(I,j)= i+j s= 【1】 Next j Next i 【2】 End Sub 2.下面程序的功能是产生10个小于100（不含100）的随机正整数，并统计其中 5的倍数所占比例，请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() Randomise Dim a(10)As Integer For j =1 to 10 a(i)= 【3】 If 【4】 Then k= k+1 Print a(j) Next j Print Print k /10 End Sub 3.以下程序运行后，在Text1中输入任意字符串，单击命令按钮，将Text1中的字符串转换为大写，再将字符串逆置（如ABCD--DCBA），在Text2中显示逆置后的字符串。请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() St = Ucase(Text1.text) For i= 【5】 To 1 Step-1 S2= s2+Mid(s1, 【6】, 1) Text2.text= s2 End Sub 4.Next i设有如下的循环，要求程序运行时执行3次循环，请在指定位置填上正确代码将程序补充完整。 Dim x As Integer X = 1 Do x = x+2 Print x Loop Until 【7】 5.在窗体上画一个组合框（Combo1）、一个列表框（List1）和一个命令按钮（Command1）。下面程序的功能是在组合框中选择一个大学名称，单击命令按钮，则所选大学 名称将添加在列表框中，当组合框中没有要选的大学名称时，输入一个名称，则此大学名称在添加列表框中的同时也会添加到组合框中，请在指定位置填上正确代码将程序补充完整。 Private Sub Form_Load() Combo1.AddItem”交通大学” Combo1.AddItem”理工大学” Combo1.AddItem”财经大学” Combo1.AddItem”外贸大学” End Sub Private Sub Command1_Click() 【8】 Flag=Flase For i=0 to 【9】 If Combo1.List(i)=Combo1.Text Then flag=True : Eixt For End If Next i If Not flag Then 【10】 End Sub 6.下面程序的功能是对数组的元素值用选择法按递增顺序排序，请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() Dim ia(),i%,max%,imax%.t% Ia=Array(3,8,5,6,7,4,9) For i =0 To 5 : imax = i For j = i+1 To 6 If 【11】 Then imax =j Next j T=ia(i) : 【12】 : ia(imax)=t Next i For i=0 To 6 : Print ia(i) : Next i End Sub 7.窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请在指定位置填上正确代码将程序补充完整。 Private Sub Command1_Click() Text1=”” Open”c:test.txt” For Input As #1 Do While Not 【13】 Line Input#1,S Text1.text=Text1.text+ 【14】 +chr(13)+chr(10) Loop 【15】 End Sub 答案： 1.S+a(I,j) 2.Label1 0 = S 3.Int(Rnd*99) 4.a(i)mod 5=0 5.Len(S1) 6.i 7.x=7 8.List1.AddItem Combo1.text 9.3/ListCount 10.Combo1.AddItem Combo1.text 11.a(j)>imax 12.ia(i)=ia(imax) 13.Eof 14.S 15.Close #1 三·阅读程序，在答题纸指定位置写出程序运行结果。 1.以下程序运行后，单击命令按钮，写出程序的运行结果。 Private Sub Command1_Click() Dim n%,b,t t =1 : b =1 : n =2 Do While n<=4 If b > 1 Then Exit Do b = b*n : t = t+b : n = n+1 Loop Print “t=”& t End Sub 2.在窗体中添加一个命令按钮Command1，并编写如下程序： Private Sub Command1_Click() X =InputBox(x) If x^2<=9 Then y= 1/x If x^2>9 Then y= x^2+1 If(x^2)-7=9 Then y=x Print “y=”&y End Sub 程序运行后，在InputBox中输入4，单击命令按钮，写出程序的运行结果。3.窗体上画一个命令按钮，并编写以下事件过程和子过程： Private Sub Command1_Click() Dim x As Integer, y As Integer x =12 : y = 20 Call Value(x,y) Print “x=”&x, “y=”&y End Sub Private Sub Value(ByVal m As Integer, n As Integer) m=m*2 ： ｎ=n-5 End Sub 程序运行后，单击命令按钮，写出程序的输出结果。 4.窗体上画一个命令按钮和一个图像框，并编写以下事件过程： Private Sub Command1_Click() Dim a(3,3) For m =1To3 For n= 1 To 3 If n = m Or n = 4 –m Then a(m,n)=m+n Else a(m,n)=0 End If Picture1.Print a(m,n) Next n Picture1.Print Next m End Sub 程序运行后，单击命令按钮，图像框中显示的内容是什么? 5.在窗体上画一个列表框和一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click() List1.RemoveItem1 List1.RemoveItem2 End Sub Private Sub Form_Load() List1.AddItem”兰州” List1.AddItem”甘肃” List1.AddItem”交通” List1.AddItem”大学” End Sub 程序运行后，单击命令按钮，写出在列表框中显示的结果。 答案： 1.3 2.4 3.12；15 4.2 0 4；0 4 0；4 0 6 5兰州；大学 四·编写程序：输出（1,100）之间同时被5和7整除的数的个数及其它们的和。 答案：Private Sub Form1_Click() Dim s%,c% For i=1 to 100 If i Mod 5=0 And i Mod 7=0 Then s = s+1 c = c +i End If Next i Print s, c End Sub 北京语言大学网络教育学院 《VB》模拟试卷一 注意： 1.试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。请监考老师负责监督。2.请各位考生注意考试纪律，考试作弊全部成绩以零分计算。3.本试卷满分100分，答题时间为90分钟。 4.本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。 一、【单项选择题】(本大题共20小题，每小题2分，共40分)在每小题列出的四个选项中只有一个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。 1、关于VB的特点描述错误的是（c）。[A] VB编程是可视化编程 [B] 是面向对象的程序设计 [C] 不可以访问数据库 [D] 采用事件驱动编程机制 2、下面关于鼠标的指针设置说法不正确的是（d）。[A] 可以使用MouseIcon设置鼠标的形状 [B] 可以使用MousePointer设置鼠标的形状 [C] MousePointer设为99时，可用MouseIcon设置鼠标的形状 [D] MouseIcon只能通过属性窗口选择鼠标形状 3、Dim Snow（1 to 12，1），As Integer 是大小为（c）的二维数组。[A]13*2 [B] 13*1 [C] 12*2 [D] 12*1 4、在工具箱里的都是（a）。[A] 标准控件 [B] 外部控件 [C] ActiveX控件 [D] 可插入对象（OLE） 5、一个窗体大小改变时被触发的事件是（b）。[A] Click事件 [B] Resize事件 [C] Initialize事件 [D] Unload事件 6、下列关于控件说法不正确的是（c）。[A] Agent控件用于设置动画行为 [B] TextBox用于接收用户输入的信息 [C] Frame用于将控件分为若干组，当框架移动时，其中的控件不移动 [D] ListBox向列表中添加一个新的项目 7、关于CheckBox控件描述错误的是（d）。[A] 是复选框按钮，用√表示选中 [B] Value用来表示复选框状态。[C] Value为1表示选中该框 [D] Value为0表示该框被禁止，显示灰色 8、关于Shape控件描述正确的是（b）。[A] 用于向窗体添加矩形、圆形等图形 [B] Arial取值有7种，FillStyle取值有8种 [C] Arial用于设置显示控件的形状 [D] FillStyle用来设置控件填充风格。 9、下面不属于循环控制语句的是（a）。[A] if…then… [B] Do While…Loop [C] While…wend [D] For…to… 10、关于基本运算操作符描述正确的是（c）。[A] / 表示整除运算 [B] 表示除法运算 [C] Mod表示求余运算 [D] * 表示加法运算 11、下面关于函数和过程说法不正确的是（d）。[A] 函数和过程都可以有参数也可以都没有参数 [B] 使用函数和过程便于节省代码输入时间 [C] 使用函数和过程便于程序的结构化和修改查看 [D] 函数和过程没有本质区别 12、窗体的（a）用来描述窗体和控件的特征。[A]属性 [B] 事件 [C] 结构 [D] 方法 13、能够改变窗体边框线类型的属性是（b）。[A] FontStyle [B] BorderStyle [C] BackStyle [D] Border 14、下面关于函数功能的说法不正确的是（c）。 [A] PainPicture用于将位图显示在指定设备场景中并将位图背景设为透明 [B] InputBox接收用户输入的信息 [C] LoadCursorFormFile()用于设置动画光标 [D] SetClassLong()设置动画光标 15、关于控件属性描述错误的是（c）。[A] 每个控件都有自己的属性 [B] 所有的控件都有Name属性 [C] Name属性只能在属性窗口中修改 [D] Caption属性可在代码窗口或属性窗口里设置 16、真正读取、写入和修改数据库，并处理数据仓库中所有内部事务的是（b）。[A] 用户界面 [B] 数据库引擎 [C] 数据仓库 [D] 数据库表 17、下列各种窗体事件中，不能由用户触发的事件是（D）。[A] Load事件和Unload事件 [B] Click事件和Unload事件 [C] Click事件和Dbclick事件 [D] Load事件和Initialize事件 18、关于WebBrowser控件描述不正确的是（B）。[A] WebBrowser控件用于创建Web浏览器 [B] 利用WebBrowser控件的GoSearch方法向后移动一个项目 [C] 利用WebBrowser控件的Navigate方法移动到URL或打开HTML文件 [D] 利用WebBrowser控件的GoHome方法移至当前主页。 19、当本地计算机要关闭客户机与服务器应用程序的TCP连接或监听套接字时，应调 用Winsock控件的（D）方法。[A]Unload [B] Open [C] Accept [D] Close 20、关于MAPI控件说法正确的是（D）。 [A] MAPI即邮件应用程序编程接口，有两种：MAPISession和MAPIMessages [B] MAPISession可以签到并建立一个MAPI会话，也可以从一个MAPI会中签退。[C] MAPIMessages允许用户执行各种邮件系统函数 [D] MAPI控件在运行时是可见的，并且这些控件都没有事件。 二、【多项选择题】(本大题共5小题，每小题2分，共10分)在每小题列出的四个选项中有二至四个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。多选、少选、错选均无分。 21、关于播放音频、视频文件说法正确的是（ABCD）。 [A] 播放声音文件可以用Microsoft Windows 提供的mciExecute API [B] 播放声音文件可以用VB 6.0 Multimedia MCI控件 [C] 播放视频文件可以用mciExecute Multimedia MCI API [D] 播放视频文件可以用VB 6.0 Multimedia MCI控件 22、VB中为用户提供了两种图形加载方式，描述正确的是（ABCD）。[A] 一种是在设计时加载图像 [B] 一种是在运行时加载图像 [C] 设计时加载图像用属性或者粘贴加载 [D] 运行时加载图像用函数LoadPicture或LoadResPicture加载 23、下面关于数据库的描述正确的是（ABD）。[A] 数据库是一组特定的数据集合，是提供数据的基地。[B] 数据库中的数据集合组成特定的表。 [C] 表中每一行为一个字段，每一列为一条记录 [D] 每个字段描述它所含有的数据，每个字段有自己的数据类型 24、VB6.0提供了三个非常强大的Internet控件：（ABD）。[A] WinSock [B] WebBrowser [C] TCP [D] Internet Transfer 25、关于WinSock控件描述正确的是（ABCD）。 [A] WinSock控件用于显示网络适配器地址、主机地址和主机名 [B] WinSock控件提供一种访问TCP和UDP的网络服务 [C] WinSock控件的LocallIP返回本地机器IP地址 [D] 当本地计算机希望和远程计算机建立连接时要调用WinSock控件的Connect方法 三、【判断题】(本大题共5小题，每小题2分，共10分)正确的填T，错误的填F，填在答题卷相应题号处。 26、VB中图形图像的载体有三种：窗体、图像控件、图片框控件。（T） 27、WinSock的LocalPort返回本地机器名。（F） 28、当本地计算机希望和远程计算机建立连接时，要调用WinSock控件的Connect方法。 （T） 29、Internet Transfer控件支持FTP和HTTP协议。（T）30、Timer控件提供定时时间间隔的功能。（T） 四、【填空题】（本大题共5小题，10个空，每空2分，共20分）请将答案填写在答题卷相应题号处。 31、窗体的BorderStyle属性用于设置窗体的（边界类型），该属性有（6）种取值。 32、创建窗体后可以看见窗体由（标题栏）、控制按钮和（窗体）组成。 33、VB是微软推出的可视化、面向（对象）、采用事件驱动的（结构化）设计语言。 34、当前VB6.0采用的主要访问技术有三种：ADO，DAO和RDO，其中（ADO）将要替代（DAO）、（RDO）。 35、（控件数组）是一组具有相同名称、类型、事件和属性值的控件。 五、【简答题】（本大题共2小题，每小题10分，共20分）请将答案填写在答题卷相应题号处。 36、执行下面的程序段后，写出i和s的值。 s = 2 For i = 3.2 To 4.9 Step 0.8 s = s + 1 Next i 循环步长为0.8 第一次循环 i从3.2开始，s=s+1 即s=3 第二次循环 i=4，s=s+1 即s=4 第三次循环 i=4.8，s=s+1 即s=5 然后i=5.6>4.9，循环结束。所以i=5.6，s=5。 37、请写出函数过程与子过程的区别。 函数有返回值而过程没有返回值， 大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（b）属性。A．Caption B．Name C．Text D．Index 2．设变量x = 4，y =-1，a = 7，b =-8,下面表达式（a）的值为“假”。A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT(y < b)3．表达式Int(Rnd*71)+10产生的随机整数范围是（c）。A．（10，80）B．（10，81）C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（c）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（d）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（d）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（a）是有效的。 A．sum = sum-sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（b）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（d）属性来实现。A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（b）。Private Sub command1_click()Dim m(10) For k = 1 To 10 m(k)= 114 Case 3 Print “y=”;x ^ 3 + 100 End Select End Sub 2． Private Sub command1_click()Dim a, b, c, d, e As String a = “Zheng Zhou” b = “Zhong Yuan Gong Xue Yuan” c = a + “ ” + b d = Left(a, 1)+ Mid(a, 7, 1)e = Left(b, 1)+ Mid(b, 12, 1)Print c Print d;e End Sub 3．设有Sub过程： Private Sub p1(x As Integer, ByVal y As Integer)x = 4 ：y = 5 ：z = 6 End Sub 则如下程序段的运行结果是: Private Sub Command1_Click()Dim x As Integer, y As Integer x = 1: y = 2: z = 3 Print x, y, z Call p1(x, y)Print x, y, z End Sub 4． Private Sub command1_click()k = 0 For i = 1 To 3 k = k + 1 a = i * i * k Print a;Next i End Sub 5． Private Sub command1_click()Dim a(5, 5)As Integer For i = 1 To 5 For j = 1 To 5 a(i, j)= i * 2 + j Print a(i, j);Next j Print Next i End Sub 6．设有Function过程: Private Function f1(b, a)a = a * a: b = b * b f1 = a-b End Function 则如下程序段的运行结果是什么？ Private Sub command1_click()a = 4: b = 3 a = f1(a, b)Print a End Sub 七．编程题（共30分） 注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题； 其他学生做 第1、2、3、4 小题。 1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分） 90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。 2．求n!,n由键盘输入。（7分） 3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。（8分）4．产生并输出一个6×6的二维数组A：（8分） （1）两条对角线上元素的值为1，其余元素为小于30的随机整数。（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。 5．输出1+2+„„+100的和，并求出1～100 之间能被17整除的数据的个数（8分）6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分） VB试题答案及评分标准 一、单项选择题（每题1分，共10分）1．B 2．A 3．C 4．C 5．D 6．D 7．A 8．B 9．D 10．B 二、填空题（每空1分，共10分）1．n Mod 13=0 And n Mod 17=0 1、对象 3．LEFT(“Visual Basic 6.0”,6)4．6 5．False 6．Autosize 7． ： 8．Option Explict 9．Const Dim 三、将下列数学表达式转换成VB表达式（每题1分，共6分） 1、a^2+2*a*b+b^2 2、x^(1/3)*y^(1/4) 3、8*exp(x)*log(10) 4、2*sin(3.1416/4)*cos(3.1416/4) 5、(x+y+z)/sqr(x^2+y^2+z^2) 6、log(1+abs((a+b)/(a-b))) 四、判断题（每题1分，共10分）1．× 2．√ 3．× 4．√ 5．× 6．√ 7．× 8．× 9．× 10．√ 五、根据题意，将下列程序补充完整（每空1分，共10分）1．（1）int(rnd*91)+10（2）I<10 2．（1）i*j（2）next i 3．（1）int(sqr(x))或者x-1（2）flag=1 4．（1）dim f(15)as integer（2）f(I-1)+f(I-2) 六、写出下面程序的输出结果（每题4分，共24分） 1、y=65 2、Zheng Zhou Zhong Yuan Gong Xue Yuan 2分 ZZZG 2分 3．1 2 3 4 2 3 4．1 8 27 5．3 4 5 6 7 5 6 7 8 9 7 8 9 10 11 9 10 11 12 13 11 12 13 14 15 6．-7 七、编写程序 1.private sub command1_click()dim x as integer,grade as string 1分 x=text1.text 1分 select case x 4分 case 90 to 100 grade=”A” case 80 to 89 grade=”B” case 70 to 79 grade=”C” case 60 to 69 grade=”D” case is<60 grade=”E” case else msgbox “请重新输入”end select print “该学生成绩为”+grade 1分 end sub 2．Private Sub command1_click()Dim n as integer,f as long 1分 n=text1.text 1 f=1 for I=1 to n 3 f=f*I next I text2.text=f 2 end sub 分 分 分 3． Private Sub Command1_Click()Dim a(1 To 20)As Integer ' 1分 Randomize For i = 1 To 20 2分 a(i)= Int(Rnd * 100)Print a(i);Next Print For i = 1 To 19 3分 For j = i + 1 To 20 If a(i)> a(j)Then t = a(i): a(i)= a(j): a(j)= t End If Next j Next i For i = 1 To 20 2分 Print a(i);Next i End Sub 4． Private Sub Command1_Click()Dim a(1 To 6, 1 To 6)As Integer ' 1分 Dim aver As Single Randomize For i = 1 To 6 3分 For j = 1 To 6 If i = j Or i + j = 7 Then a(i, j)= 1 Else a(i, j)= Int(Rnd * 30)End If Print a(i, j);Next j Print Next i Print Max = 0: Min = 30 4分 For i = 1 To 6 s = 0 For j = 1 To 6 s = s + a(i, j)Next j aver = s / 6 If aver > Max Then Max = aver: row_max = I If aver < Min Then Min = aver: row_min = i Next i Print row_max, row_min End Sub 5． Private Sub Command1_Click()Dim i As Integer, c As Integer Dim s As Integer For i = 1 To 100 4分 s = s + i If i Mod 17 = 0 Then c = c + 1 Next i Print “1+2+...+100=”;s 2 Print “能被17整数的数据有”;c;“个” 2分 End Sub 6． Private Sub Command1_Click()Dim x As Integer x = InputBox(“x=”)1分 Print x;Max = x: Min = x: s = x 2分 For i = 2 To 10 3分 x = InputBox(“x=”)：Print x;s = s + x If x > Max Then Max = x If x < Min Then Min = x Next i Print s / 10 1分 Print Max, Min 1分 End Sub 应该不是真的。 分 VB程序设计试题及答案 （一）一、单选题 1.VB6.0是一种面向 B 的编程环境。 (A)机器(B)对象 (C)过程(D)应用 2.要使FormI窗体的标题栏显示“欢迎使用VB”，以下 D 语句是正确的。 (A)Forml.Caption=“欢迎使用VB” (B)Forml.Caption='欢迎使用VB' (C)Forml.Caption=欢迎使用VB (D)Forml.Caption=“欢迎使用VB” 3.若要使命令按钮不可操作，要对 A 属性进行设置。 (A)EnabIed(B)Visible (C)Backcolor(D)Caption 4.如果在窗体上已经创建了一个文本框对象TextI，可以通过 C 事件获得输入键值的ASCII码。 (A)Change(B)LostFocus (C)KeyPress(D)GotFocus 5.下面 A 是合法的变量名。 (A)X_yz(B)123ab。(C)integer(D)X-Y 6.以下关系表达式 中，其值为False的是 A。 (A)“ABC”>“AbC”(B)“女”>“男” (C)“BASIC”=UCase(“basic)(D)”123“<”23“ 7.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是 A。 (A)x=1:y=1:z=1(B)x=1,y=1,z= 1(C)x=y=z=1(D)xyz=1 8.VB提供了结构化程序设计的三种基本结构，三种基本结构是 D。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D。 (A)If sex=”男“ And age=4O And InStr(duty，”教授“)>O Then n=n+l (B)If sex=”男“ And age=4O And(duty=”教授“ Or duty=”副教授“)Then n=n+l (C)If sex=”男“ And age=4O And Right(duty，2)=”教授“ Then n=n+l (D)If sex=”男“ And age=4O And duty=”教授“ And duty=”副教授“ Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是 D。(A)Do While…Loop循环和Do…Loop Until循环至少都执行一次(B)Do While…Loop循环和Do…Loop Until循环可能都不执行 (C)Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D)Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下 B 是正确的For…Next结构。 (A)For x=1 To Step 10(B)For x=3 To-3 Step-3 … … Next x Next x(C)For x=1 To 10(D)For x=3 to 10 step re: … … Next x Next y If i=10 Then GoTO re 12.如下数组声明语句，B 是正确的。 (A)Dim a[3,4] As Integer (B)Dim a(3,4)As Integer (C)Dim a(n,n)As Integer (D)Dim a(3 4)As Integer 13.下列语句中（假定变量n有值），能正确声明可变长数组的是 A。 (A)Dim a()As Integer(B)Dim a()As Integer ReDim a(n)ReDim a(n)As String (C)Dim a()As Integer(D)Dim a(10)As Integer ReDim a(3, 4)ReDim a(n+10) ReDim Preserve a(4, 4) 14.要想从子过程调用后返回两个结果，下面子过程语句说明合法的是 C。 (A)Sub f2(ByVal n%, ByVal m%)(B)Sub f1(n%, ByVal m%) (C)Sub f1(n%, m%)(D)Sub f1(ByVal n%, m%) 15.设有如下程序段： Public Sub F1(n%) … n=3*n+… End Sub Private Sub Command1_Click() Dim n%, m% n=3 m=4 … ‘调用F1语句 … End Sub 则在Command1_Click事件中有效的调用语句是 B。(A)Call F1(n+m)(B)Call F1(m)(C)Call F1(5)(D)Call F1(m+5) 16.用来设置粗体字的属性是 C。 (A)FontItalic(B)FontName(C)FontBold(D)FontSize 17.假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为 D。 Dim x As Integer Sub Timer1_Timer() For i=1 to 10 x=x+Next i End Sub (A)1000(B)10000(C)10(D)以上都不对 18.在下列关于通用对话框的叙述中，错误的是 B。 (A)CommonDialog1.ShowFont显示“字体”对话框 (B)在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回 (C)在“打开”或“另存为”对话框中，用户选择的文件名机器路径可以经FileName属性返回 (D) 19.当用户按下并且释放一个键后会触发KeyPress、KeyUp和KeyDown事件，这三个事件发生的顺序是 C。 (A)KeyPress、KeyDown、KeyUp(B)KeyDown、KeyUp、KeyPress(C)KeyDown、KeyPress、KeyUp (D)没有规律 20.在下面关于顺序文件的描述中，正确的是 C。(A)顺序文件中每行的长度都是相同的。(B)可以通过编程对文件中的某行方便地进行修改 (C)数据以ASCII码的形式存放在文件中，所以可通过记事本打开(D)文件的组织结构复杂 21.随机文件是因为 C。 (A)文件中的内容是通过随机数产生的(B)文件中的记录号通过随机数产生的(C)可对文件中的记录根据记录号随机地读/写(D)文件的每条记录的长度是随机的 22.从磁盘上读入一个文件名为“c:t1.txt”顺序文件，如下 A 正确。 (A)F=“c:t1.txt” Open F For Input As #1(B)F=“c:t1.txt” Open “F” For Input As #2(C)Open “c:t1.txt” For Input As #1 (D)Open c:t1.txt For Input As #2 23.坐标度量单位可由通过来 D 改变。 (A)Drawstyle属性(B)DrawWidth属性 (C)Scale方法(D)ScaleMode属性 24.指令“Circle(1000, 1000), 500, 8,-6,-3”将绘制 A。(A)画圆(B)椭圆(C)圆弧(D)扇形 25.用ADO数据控件建立与数据源的链接，设置操作过程按 A 顺序进行。 ①选择数据源连接方式；②选择数据库类型；③指定数据库文件名；④指定记录源 (A)① ② ③ ④(B)② ③ ④ ① (C)③ ① ② ④(D)① ③ ② ④ 二、填空题 1．VB是建立在BASIC语言基础上的可见 化编程语言或编程环境。 2．在窗体上已建立多个控件如Text1、Label1、Command1，若要程序一运行时焦点就定位在Command1控件上，应对Command1控件设置 TabIndex 属性的值为 0。 3．在VB中，1234、123456&、1.2346E+5、1.2346D+5这4个常数分别表示 整形、长整形、单精度、双精度 类型。4．表示x是5的倍数或是9的倍数的逻辑表达式为 x mod 5 = 0 or x mod 9=0。 5．数组声明时下标下界默认为0，利用 Opation Base 1 语句可以使下标为1。 6．传地址方式是当过程被调用时，形参和实参共享 存储单元。7．窗体中的模块级变量应在 窗口模块 段声明，它作用于该窗体的全局范围。 8．当用户单击滚动条的空白处时，滑块移动的增量值由 LargeChange 属性决定。 9．如果菜单标题的某个字母前输入一个“&”符号，那么该字母就成了热键字母；如果建立菜单时在标题文本框中输入一个“1) x(0)= 1 x(1)= 1 For i = 2 To n1)+ x(i1 Print x(i)，If(i + 1)Mod 5 = 0 Then Print Next End Sub 输出结果： 1 2 3 8 13 21 34(2)Public Function f(m%, n%) Do While m< >n Do While m> n: m=m-n: Loop Do While m< n: n=n-m: Loop Loop f=m End Function Print f(24, 18) End Sub 输出结果：6(3) Public x as Integer Private Sub Fomr_Click() Dim x as Integer x=10 print ＂x=＂;x End Sub 输出结果: x=10 2.补充程序 (1)以下是冒泡法排序的程序，要求将数组里的数按升序排列，将其补充完整。 Private Sub Command1_Click() Dim a(), iMin%, n%, i%, j%, t% a = Array(8, 6, 9, 3, 2, 7) n = ubound(a)' 获得数组的下标上界 For i = 0 To n-1 For j = 0 To n-i-1 If a(j)>a(i)Then t = a(j): a(j)= a(j + 1): a(j + 1)= t End If Next j Next i For i = 0 To n Print a(i);Next i End Sub (2)用递归的方法求n!Private Sub Command1_Click()Print ”fac(4)=“;fac(4)End Sub Public Function fac As Integer If n = 1 Then fac = 1 Else Fac=fac*n End If End Function VB程序设计试题及答案 （三）一、单选题 1.Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。 (A)事件驱动(B)按过程顺序执行(C)从主程序开始执行(D)按模块顺序执行 2.若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。 n=n*j n=n*j Next j Next j Print n Print n Next I Next i(C)n=1(D)n=1(A)Backcolor(B)BorderStyle(C)Forecolor(D)Backstyle 3.在Visual Basic中最基本的对象是 C，它是应用程序的基石，是其他控件的容器。 (A)文本框(B)命令按钮(C)窗体 (D)标签 4.要判断在文本框是否按下Enter键，应在文本框的 D 事件中判断。(A)Change(B)KeyDown(C)Click(D)KeyPress 5.数学表达式3≤x (A)3<=x<10(B)3<=x AND x>10(C)x>=3 Or x<10(D)x>=3 AND x<10 6.Rnd函数不可能为下列 B 值。 (A)0(B)1(C)0.1234(D)0.0005 7.赋值语句:a=123+Mid(”123456“，3，2)执行后，a变量中的值是 D。 (A)”12334“(B)123(C)12334(D)157 8.对于语句If x=l Then y=l，下列说法正确的是 C。 (A)x=l和y=l均为赋值语句 (B)x=l和y=l均为关系表达式 (C)x=l为关系表达式，y=l为赋值语句 (D)x=l为赋值语句，y=l为关系表达式 9.下面程序段表示求两个数中的大数，D 不正确。 (A)Max=IIf(x>y，x，y)(B)If x>y Then Max=x Else Max=y(C)Max=x(D)Ify>=x Then Max=y If y>=x Then Max=y Max=x 10.当在文本框中输入“ABCD”4个字符时，窗体上显示的是 C。 Private Sub Text1_Change()Print Text1;End Sub(A)ABCD(B)A(C)AABABCABCD(D)A B AB C ABC D ABCD 11.下列哪个程序段不能分别正确显示1！、2！、3！、4！的值 B。(A)For i=1 to 4(B)For i=1 to 4 n=1 For j=1 to i For j=1 to I n=1 For j=1 to4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 12.如下数组声明语句，则数组a包含元素的个数有 A。 Dim a(3,-2 to 2, 5) (A)120(B)75(C)60(D)13 13.以下程序的输出结果是 D。 Dim a a=Array(1, 2, 3, 4, 5, 6, 7)For i=Lbound(a)to Ubound(a) a(i)=a(i)*a(i)Next i Print a(i) (A)49(B)0(C)不确定(D)程序出错 14.在过程中定义的变量，若希望离开该过程后，还能保存过程中局部变量的值，则应使用关键字 D 在过程中定义局部变量。 (A)Dim(B)Private(C)Public(D)Static 15.如下程序，运行的结果是 B。 Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Public Sub p2(x%, ByVal y%) Dim c% x=2*x: y=y+2: c=x+y End Sub Private Sub Command1_Click() a=2: b=4: c=6 Call p1(a, b) Print “a=”;a;“b=”;b;“c=”;c Call p2(a, b) Print “a=”;a;“b=”;b;“c=”;c End Sub (A)a=2 b=4 c=6(B)a=4 b=6 c=10 a=4 b=6 c=10 a=8 b=8 c=16(C)a=4 b=6 c=6(D)a=4 b=6 c=14 a=8 b=6 c=6 a=8 b=8 c=6 16.复选框的Value属性为1时，表示 B。 (A)复选框未被选中(B)复选框被选中 (C)复选框内有灰色的勾(D)复选框操作有误 17.下面关于菜单的说法中，错误的是 B。 (A)每个菜单项都是一个控件与其他控件一样也有自己的属性和事件 (B)除了Click事件之外，菜单项还能响应其他的，如DbClick事件 (C)菜单项的快捷键不能任意设置 (D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择 18.下面关于多重窗体的叙述中，正确的是 B。(A)作为启动对象的Main子过程中能放在窗体模块中(B)如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载或加载哪一个窗体 (C)没有启动窗体，程序不能执行(D)以上都不对 19.当用户将焦点移到另一个应用程序时，当前应用程序的活动窗体将 D。(A)发生DeActivate事件(B)发生LostFocus事件 (C)发生DeActivate和LostFocus事件(D)DeActivate和LostFocus事件都不发生 20.顺序文件是因为 D。 (A)文件中的数据按每行的长度从小到大排序好的(B)文件中的数据按某个关键数据项从大到小进行排序(C)文件中的数据按某个关键数据项从小到大进行排序(D)数据按进入的先后顺序存放的，读出也是按原写入的先后顺序读出 21.文件号最大可取值为 B。 (A)255(B)511(C)512(D)256 22.Print #1, STR$1中的Print是 A。 (A)文件的写语句(B)在窗体上显示的方法 (C)子程序名(D)以上均不是 23.以下的属性和方法中 C 可重定义坐标系。(A)Drawstyle属性(B)DrawWidth属性 (C)Scale方法(D)ScaleMode属性 24.封闭图形的填充方式由下列 C 属性决定。(A)DrawStyle, DrawMode(B)AutoRedraw, ClipControls (C)FillStyle, FillColor(D)ForeColor, BorderColor 25.下列字符串中，D 不包含在ADO数据控件的ConnectionString属性中。(A)Microsoft Jet 4.0 OLE DB Provider(B)Data Source=C:Mydb.mdb(C)Persist Security Info=False(D)2-adCmdTable 二、填空题 1．在代码窗口对窗体的BorderStyle、MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 在运行时设计是无效的。 2．在文本框中，通过 SelStart 属性能活得当前插入点所在的位置。 3．表达式Ucase(Mid(“abcdefgh”, 3, 4))的值是 CDEF。4．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 And a+c>b+3 Or Not d的值是 False。 5．要获得动态数组的上界通过 UBound 函数，下界通过 LBound 函数。 6．由Array函数建立的数组，其变量类型必须是 variant 类型。 7．VB中的变量按其作用域分为全局变量、模块变量和 局部变量 变量。 8．复选框的 Value 属性设置为2——Grayed时，变成灰色，禁止用户选择。 9．滚动条响应的重要事件有 Scroll 和Change。10．假定有一个通用对话框控件CommonDialog1，除了用COmmonDialog1.Action=3显示颜色对话框之外，还可以用 showcolor 方法显示。 11．窗体Form1的左上角坐标为(-200, 250)，窗体Form1的右下角的坐标为(300,-150)，则X轴的正向向 右，Y轴的正向向 上。 12．使用Circle方法画扇形，起始角、终止角取值范围为 0~2π。 13．在运行状态改变ADO数据控件的数据源连接属性后，必须使用 Refresh 方法激活这些变化。14．VB中工程文件的扩展名为 vbg。 15．如果在窗体上已经创建了一个文本框对象Text1，可以通过 Keypress 事件获得输入键值的ASCII码。16．VB中对象的三要素是 属性、事件 和 方法。 三、编程应用题 1.程序阅读 (1)Private Sub Command1_Click() Dim s as String, i% s=＂abcd＂ For i=Len(s)to 1 step-1 Print Mid(s, i, 1)Next i End Sub 输出结果： d c b a(2)Sub Swap1(ByVal x%, ByVal y%)Dim t% t = x: x = y: y = t End Sub Sub Swap2(ByRef x%, ByRef y%)Dim t% t = x: x = y: y = t End Sub Sub Command1_Click() Dim a%, b% a = 10: b = 20 Print ”调用Swap1前 a和b的值为：“;a;b Call Swap1(a, b)Print ”调用Swap1后按传值方式 a和b的值为：“;a;b a = 10: b = 20 Call Swap2(a, b)Print ”调用Swap2后按传地址方式 a和b的值为：“;a;b End Sub 输出结果 调用Swap1前 a和b的值为：10 20 调用Swap1后按传值方式 a和b的值为：10 20 调用Swap2后按传地址方式 a和b的值为： 20 10(3)Private Sub Command1_Click() Dim x%, y%, z% x=242: y=44 z=x*y Do Until x=y If x>y Then x=x-y Else y=y-x Loop Print x, z/x End Sub 输出结果: 22 484 2.补充程序 (1)以下是求1～18之间某个数的阶乘的程序，具体的数值n由滚动条HScroll1获得，结果显示在窗体下部的两个Label标签里。补充完整如下程序。 Private Sub HScroll1_Change()Dim i As Integer, s As Double s = 1 n = Hscroll1.Value If n <> 0 Then For i = 1 To n s = s*i Next i End If Label2.Caption = n & ”!= " Label3.Caption = s End Sub (2)以下程序的功能是：已知数组a，删除数组中某个元素。 Private Sub Command1_Click() Dim a(), key%, i%, j% a=Array(1, 6, 8, 3, 5, 9, 10, 2, 4, 7) key=9 For i=0 to UBound(a)If a(i)=9 Then For j=i+1 to UBound(a)a(j)=a(j+1) Next j ReDim a(j)=a(i) MsgBox(＂删除完成＂) Exit Sub End If Next i MsgBox(＂找不到要删除的元素＂)End Sub 读程序并填空 1．给定程序的功能是输出一组数的最大值和最小值，在画线处填入适当内容，将程序补充完整。 Private Sub End Function 4．给定程序的功能是建立并输出除主、副对角线上的元素为5外，其余元素都为1的方阵，在画线处填入适当内容，将程序补充完整。Command1_Click() X=Array(-112, 18, 20,-5,-100, 82, 91, 56, 78, 99, Private Sub Command1_Click()100) Max=x(0) Min=x(0) For I=1 To 10 If x(I)>Max Then _____________ End if If x(I)>Min Then _____________ End if Next I Print “MAX=”;Max , “MIN=”;Min End Sub 2．若A2+B2+C2 , 则A，B，C称为一组勾股数，如下程序是找出100以内的所有勾股数，并按A，B，C顺序输出。请在画线处填入适当内容。 Private Sub Command1_Click() For A=2 To 99 For B=A+1 To 100 C=_____________ If ____________ And C<=100 Then Print A, B, C End If Next B Next A End Sub 3．本程序的功能是计算输入数的阶乘，请在画线处填上适当的内容使程序完整。 Private Sub form_Click() Do N=Val(InputBox(“请输入一个大于0的整数：”)) Loop Until N>0 Print Fact(N) End Sub Private Function Fact(M) Fact= _______________（1分） For I=2 To ____________（2分） Fact = ______________（2分） Next I Dim A(10,10) For I=1 To 10 For J=_______________（2分） If __ _____________ Then A(I, J)=5 Else A(I, J)=1（1分）Next J Next I For I=1 To 10 For J=1 To 10 Print A(I, J);Next J __ __________ （2分）Next I End Sub 编写一个程序，在程序运行时输入一个0—99999之间的整数，判断输入的是几位数，并在窗体输出结果。 编写一个程序，在窗体上添加两个命令按钮，运行程序时，单击[开始]按钮，在窗体输出1~100之间所有能被3整除的数。单击[结束]按钮，结束程序。第三篇：VB模拟试卷一(含答案)
第四篇：大一VB期末考试试卷及答案
第五篇：VB程序设计试题及答案(一)
点击咨询 