DOC《全套试题5》

全套试题5 闭卷考试,考试时间120分钟 选择题(40分,每题2分) 为了保存一个VB应用程序,下列廉洁中正确的是( ) A)只保存窗体文件(.

frm) B)只保存工程文件(.vbp) C)分别保存工程文件和窗体文件 D)分别保存工程文件和标准模块文件(.bas) 若要求在文本框中输入密码时在文本框中显示#号,则应在此文本框的属性窗口中设置( ) A)Text属性值为# B)Caption属性值为# C)PasswordChar属性值为# D)PasswordChar属性值为真 确定一个窗体或控件大小属性是( ) A)Width或Height B)Width和Height C)Top或Left D)Top和Left 假定窗体的名称为(Name属性)为form1,则把窗体的标题设置为 VBTEST 的语句正确的是( ) A)form1.title= VBTEST B) form1.Caption= VBTEST C)form1.test= VBTEST D)form1.name= VBTEST 假定窗体上有一个Text1文本框,为使它的文本内容位于中间并且没有边框,则正确的属性设置为( ) A)Text1.Alignment=1: Text1.BorderStyle=0 B)Text1.Alignment=2: Text1.BorderStyle=1 C)Text1.Alignment=1 : Text1.BorderStyle=1 D)Text1.Alignment=2 : Text1.BorderStyle=0 为了使标签中的内容居中显示,应把Alignment属性设置为( ) A)0 B)1 C)2 D)3 以下Case语句中错误的是 A) Case

0 To

10 B) Case Is>

10 C) Case Is>

10 And Is10 (7) 执行语句s=Len(Mid( VisualBasic ,1,6))后,s的值是 A) Visual B) Basic C)

6 D)

11 在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a =

12345 Print Format$(a, 000.00 ) End Sub 程序运行后,单击命令按钮,窗体上显示的是 A) 123.45 B) 12345.00 C)

12345 D)00123.45 以下关于函数过程的叙述中,正确的是 A) 函数过程形参的类型与函数返回值的类型没有关系 B) 在函数过程中,过程的返回值可以有多个 C) 当数组作为函数过程的参数时,既能以传值方式传递,也能以传址方式传递 D) 如果不指明函数过程参数的类型,则该参数没有数据类型 以下关于变量作用域的叙述中,正确的是 A) 窗体中凡被声明为Private的变量只能在某个指定的过程中使用 B) 全局变量必须在标准模块中声明 C) 模块级变量只能用Private关键字声明 D) Static类型变量的作用域是它所在的窗体或模块文件 以下关系表达式中,其值为False的是 A) ABC >

AbC B) the they C) VISUAL =UCase( Visual ) D) Integer >

Int 确定一个控件在窗体上的位置的属性是 A) Width和Height B) Width或Height C) Top和Left D) Top或Left 可以惟一标识控件数组中的每一个控件属性的是(?) A)Name?B)Caption?C)Index?D)Enabled 在窗体上画一个名称为Command1的命令按钮,再画两个名称分别为Label

1、Label2的标签,然后编写如下程序代码: Private X As Integer Private Sub Command1_Click() X=5:Y=3 Call Proc(X,Y) Label1.Caption= X Label2.caption=Y End Sub Private Sub proc(ByVal a As Integer,ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是 A)5和3 B)25和3 C)25和6 D)5和6 有窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To

15 x=2*i-1 If x Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是 A)

1 B)

5 C)

27 D)

45 在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label

1、Label

2、Label3的标签,然后编写如下代码 Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n=10 z=n+z y=y+z x=x+z Label1.caption=x Label2.caption=y Label3.caption=z End Sub 运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是 A)

10 10

10 B)

30 30

30 C)

30 30

10 D)

10 30

30 以下叙述中错误的是 A) 如果过程被定义为Static类型,则该过程中的局部变量都是Static类型 B) Sub过程中不能嵌套定义Sub过程 C) Sub过程中可以嵌套调用Sub过程 D) 事件过程可以像通用过程一样由用户定义过程名 执行语句Open Tel.dat For Random As #l Len=50后,对文件Tel.dat中的数据能够执行的操作是 A) 只能写,不能读 B) 只能读,不能写 C) 既可以读,也可以写 D) 不能读,不能写 以下叙述中正确的是 A) 一个记录中所包含的各个元素的数据类型必须相同 B) 随机文件中每个记录的长度是固定的 C) Open命令的作用是打开一个已经存在的文件 D) 使用Input #语句可以从随机文件中读取数据

二、填空题(30分,每空2分) ?结构化程序设计中把程序的结果规定为___【1】2】____、_【3】__三种基本结构. 以下程序的功能是:从键盘上输入若干个学生的考试分数,当输入负数时结束输入,然后输出其中的最高分数和最低分数.请在 [1] 和[2] 处填入适当的内容,将程序补充完整. Private Sub Form_Click() Dim x As Single,amax As Single,amin As Single x=InputBox( Enter a score ) amax=x amin=x Do While 【4】 If x>

amax Then Amax=x End If If 【5】Then Amin=x End If x=InputBox( Enter a score ) Loop Print Max= ;

amax, Min= ;

amin End Sub 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的【6】属性设置为【7】 . 建立随机文件TEST.DAT,存放学生的姓名和部分,然后把该文件中的数据读出来显示.请将下列程序补充完整. Type Record Student As String *

20 Score As Single End Type Dim Class As Record Open Test.dat For ____【8】_____ As #1 Len = Len(Class) Class.Student = LiuMin : Class.Score =

596 Put #1, 1, Class Close #1 Open Test.dat For Random As #1 Len = Len(Class) _____【9】______ Print STUDENT: , Class, Student Print SCORE: , Class, Score Close #1 End 以下程序的功能是:生成20个200到300之间的随机整数,输出其中能被5整除的数并求出它们的和.请填空 Private Sub Command1_Click() For i=1 To

20 x=Int( 【10】 *200+100) If 【11】 =0 Then Print x S=S+ 【12】 End if Next i Print Sum= ;

S End Sub 在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1和Label2及Caption属性分别为 城市名称 和空白的标签.程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示 已成功添加输入项 如图所示;

如果存在,则在Lable2中给出提示 输入项已在组合框中 .请在【13】、【14】和【15】处将程序补充完整. Private Sub Combo1_ 【13】 (KeyAscii As Integer) If KeyAscii=13 Then For i=0 To Combo1.ListCount-1 If Combo1.Text= 【14】 Then Label2.Caption= 输入项已在组合框中 Exit Sub End if Next i Label2.Caption= 已成功添加输入项 Combo1. 【15】 Combo1.Text End if End Sub

三、编程(30分,每题10分) 编制程序实现从键盘读入一数字,求此数字的绝对值,并输出结果. 输入10个同学的数学成绩,找出最高分和最低分,计算平均分 打开文本文件a.dat,将其中的所有小写字母转换为大写字母后,保存为文本b.dat. 答案:

一、选择题 1.C 2.C 3.B 4.B 5.D 6.C 7.C 8.C 9.B 10.A 11.B 12.A 13.A 14.C 15.B 16.B 17.A 18.C 19.C 20.B

二、填空题 1.顺序 2.选择 3.循环 4.x>

=0 5.x=x 6.interval 7.500 8. RANDOM 9. GET #1,1,CLAS 10.Rnd或Rnd(n) 11.X mod

5 12. x 13. keypress 14. Combol.list(i) 15. Additem

三、编程题

1、 Sub myabs() Dim absa As Integer, a As Integer a=inputbox( Enter an integer a ) absa=a if a<

0 then absa=-a end if print | ;

a;

|= ;

absa

2、 Dim scores(1 To 10) As Single Dim maxScore As Single Dim minScore As Single Dim avgScore As Single For i =

1 To

10 scores(i) = InputBox( 输入分数[0,100] ) Next maxSocre = scores(1) minScore = scores(1) avgScore =

0 For i =

1 To

10 If maxSocre <

scores(i) Then maxSocre = scores(i) End If If minScore >

scores(i) Then minScore = scores(i) End If avgScore = avgScore + scores(i) Next avgScore = avgScore /

10 Print 最高分: ;

maxSocre Print 最低分: ;

minScore Print 平均分: ;

avgScore

3、 Sub sum() Open c:a.dat For Input As #1 Open c:b.dat For Output As #1 Do While Not EOF(1) Line Input #1, In........