试卷详情
-
二级VISUAL BASIC笔试19
-
[单项选择]关于Move方法,下列叙述正确的是
A. 用来移动窗体和控件,不能改变其大小
B. “对象”是窗体时,移动基准以屏幕左边界和上边界为准
C. Move方法移动除计时器以外的所有标准控件
D. “对象”是控件时,移动基准以屏幕左边界和上边界为准
-
[单项选择]一棵有16个结点的完全二叉树,对它按从上到下,从左至右给结点编号,则对于编号为7的结点X,它的父结点及右子结点的编号分别为
A. 2,14
B. 2,15
C. 3,14
D. 3,15
-
[单项选择]以下合法的变量名是
A. Len1
B. Len
C. 6Len
D. Len@a
-
[单项选择]关于结构化程序设计原则和方法的描述错误的是
A. 选用的控制结构只准许有一个入口和一个出口
B. 复杂结构应该用嵌套的基本控制结构进行组合嵌套来实现
C. 不允许使用GOTO语句
D. 语言中没有的控制结构,应该采用前后一致的方法来模拟
-
[单项选择]击窗体中的对象后,Visual Basic将显示的窗口是
A. 工具箱
B. 项目(工程)窗口
C. 代码窗口
D. 属性窗口
-
[单项选择]为了在程序运行时,使被遮的窗口又重现,用窗体的Picture属性设置的背景图像会自动重画,设置值为True的属性是
A. Scale
B. AutoRedraw
C. Resize
D. AutoSize
-
[单项选择]下列叙述中正确的是
A. 只有窗体才是Visual Basic中的对象
B. 只有控件才是Visual Basic中的对象
C. 窗体和控件都是Visual Basic中的对象
D. 窗体和控件都不是Visual Basic中的对象
-
[单项选择]Visual Basic预先设置好的,能够被对象识别的动作是
A. 方法
B. 事件
C. 对象
D. 属性
-
[单项选择]在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Dim x As Integer,y As Integer x = 41: y = 54 Call sub1(x,y) x = x + 1 Print x; y End Sub Private Sub sub1(n As Integer, ByVal m As Integer) n=n Mod 10 m=m/10 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是
A. 41 54
B. 2 54
C. 1 3
D. 42 3
-
[填空题]软件开发环境是全面支持软件开发全过程的 【4】 集合。
-
[单项选择]下面子过程语句说明合法的是
A. Sub f1(s1 As String*8)
B. Sub f1(n()As IntegeAs Integer
C. Function f1(f1 As IntegeAs Integer
D. Function f1(By Val n As Intege
-
[单项选择]为了使文本框同时具有水平和垂直滚动条,应先将MultiLine属性设置为True,然后再将 ScrollBars属性设置为
A. 0
B. 1
C. 2
D. 3
-
[单项选择]以下关于Visual Basic程序模块的描述正确的是
A. 标准模块中的所有过程可以在整个工程文件的范围内被调用
B. 窗体模块Form1中的过程可以调用其他窗体中被声明为Public的通用过程
C. 如果工程文件中包含sub Main过程,则运行该工程文件时,一定先执行sub Main过程
D. 如果工程文件中不包含sub Main过程,则程序从第一个创建的窗体开始运行
-
[填空题]在程序执行闲置循环过程中,程序的控制权被系统占用。若要获得控制权,可以使用一个语句,这样用户可以在获得系统的控制权后进行其他操作,这个语句是 【7】 。
-
[填空题]要求打开随机文件“c:/Example.txt”文件,文件号为1,实现的语句是 【8】 。
-
[单项选择]将E-R图转换到关系模式时,实体与联系都可以表示成
A. 属性
B. 关系
C. 键
D. 域
-
[单项选择]在窗体中添加两个文本框,其名称分别为Text1和Text2;两个标签,其名称分别为Label1和Label2。编写程序,使得程序运行后,在文本框Text2中输入小写字母,能转换为比此字母的ASCII码小4的大写字母,结果显示在文本框Text1中。如输入“efg”,则输出的结果为“ABC”,能够实现上述功能的程序是
A. Private Sub Form Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Intege Text1.Text=Chr(KeyCode-4) End Sub
B. Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Intege Text1.Text=Text1.Text+Chr(KeyCode-4) End Sub
C. Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Intege Text1.Text=Text1.Text+Chr(KeyCOde-4) End Sub
D. Private Sub Form_Load() Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_Click(KeyCode As Integer,Shift As Intege Text1.Text=Chr(KeyCode-4) End Sub
-
[填空题]程序如下:
Private Sub Form_Click( )
Const PI=3.14159
Dim r As Single,S As Single
R=InputBox("请输入圆的半径","输入数据","50")
S = PI*r*r
Print "S=";Format(S,"###,###.##")
End Sub
程序运行后,单击窗体,将显示一个输入对话框,输入数据35,单击“确定”按钮后,输出结果为 【9】 。
-
[单项选择]在窗体上画两个文本框(其名称分别为Textl和Text2)和一个命令按钮(其名称为 Command1),然后编写如下两个事件过程: Private Sub Command1_Click( ) Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change( ) Text2.Text=UCase(Text1.Text) End Sub 程序运行后,单击命令按钮,则在Text2文本框中显示的内容是
A. Microsoft Visual Basic
B. microsoft visual basic
C. MICROSOFT VISUAL BASIC
D. 空字符串
-
[填空题]下列程序运行后,在窗体上打印的结果是 【14】 。
Private Sub test(a, b,c)
a = a + 1: b = b + 2:C = C + 3
End Sub
Private Sub Command1 Click( )
x = 1:v = 2:z = 3
Call test(x,y + 3, (z))
Print "Main:";x;y;z
End Sub
-
[单项选择]某线性表采用顺序存储结构,每个元素占4个存储单元,首地址为200,则第12个元素的存储地址为
A. 248
B. 247
C. 246
D. 244
-
[填空题]响应某个事件后所执行的操作通过一段程序代码来实现,这样的一段程序代码叫做 【6】 。
-
[单项选择]设已经建立如下表的菜单结构:
A. 标题
B. 名称
C. 层次
D. 数据库操作
E. Db
F. 1
G. 添加记录
H. Tj
I. 2
J. 查询记录
K. Cx
L. 2
M. 按姓名查询
N. Xm
-
[单项选择]假定窗体的名称(Name属性)为Form1,则将窗体的标题设置为“等级考试”的语句为
A. Form1="等级考试"
B. Caption="等级考试"
C. Form1.Text="等级考试"
D. Form1.Name="等级考试"
-
[填空题]在长度为n的线性表中顺序查找元素x时,成功查找的平均查找长度为 【2】 。
-
[单项选择]在窗体中添加一个命令按钮,名称为Commandl,然后编写如下程序: Private Sub Command1_Click( ) Dim a As Integer,b As String,C As Integer a = 1234 : b = Str(a) c = Len(b) Print c End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是
A. 0
B. 5
C. 6
D. 7
-
[单项选择]在窗体上画一个命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1 Click( ) Dim Arr1(12)As Integer, Arr2(3)As Integer Dim Sum As Integer Sum = 2 For i=1 To 12 Arrl(i)= i Next i For i=1 To 3 Arr2(i)= Arrl(i*i) Next i For i = 1 To 3 Sum = Sum + Arr2(i) Next i Print Sum End Sub 程序运行后,单击命令按钮,在窗体上的输出结果为
A. 16
B. 24
C. 32
D. 36
-
[单项选择]假定有下面的程序段: For i=1 To 3 For j = 1 To i For k=j To 3 Print "i = ";i,"j=";i,"k =";k Next k Next j Next i 这是一个三重循环程序,在这个程序中,外层、中层和内层循环的循环次数是
A. 3、6和14
B. 3、8和16
C. 3、4和12
D. 3、9和18
-
[填空题]语句Static x(7,8)As Double定义了 【13】 个元素。
-
[单项选择]为了使标签覆盖背景,应将BackStyle属性设置为
A. 0
B. 1
C. True
D. False
-
[单项选择]在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程: Private Sub Command1_Click( ) A=Text1.Text+Text2.Text Print a End Sub Private SUb Form胃Load( ) Text1.Text= " " Text2.Text=" " End Sub程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44,然后单击命令按钮,则输出结果为
A. 77
B. 33+44
C. 3344
D. 4433
-
[填空题]在面向对象的方法中,一个对象请求另一个对象为其服务是通过发送 【3】 来完成的。
-
[单项选择]在窗体上画两个文本框(其Name属性分别为了ext1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程: Private Sub Command1_Click( ) x = 0: n = 0 Do Until x >= 30 x = (n + 2)* (n + 3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为
A. 2和30
B. 2和240
C. 3和50
D. 4和30
-
[填空题]编写如下通用过程:
Sub proc(By Val num As Long,ByRef ren As Long)
Dim k As Long
K = 1
num=Abs(num)
Do While num
k= k *(num Mod 10)
num=num/ 10
Loop
ren=k
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1 Click( )
Dim n As Long, r As Long
n=InputBox("请输入一个整数")
n = CLng(n)
proc n,r
Print r
End Sub
程序运行后,单击命令按钮,在输入对话框中输入345,输出结果是 【15】 。
-
[单项选择]有如下程序: Function F(a As Integer) b = 0 Static C b = b + 1 c = c + 2 F = a + b + c End Function Private Sub Command1_Click( ) Dim a As Integer a = 2 For i=1 To 3 Print F(a); Next i End Sub 运行上面的程序,单击两次命令按钮,在窗体上输出结果为
A. 4 4 4
B. 4 5 6
C. 5 7 9
D. 11 13 15
-
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1 Click( ) Dim a a=Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i)* j i = j * 10 Next i Print s End Sub 运行上面的程序,单击命令按钮,其输出结果为
A. 4321
B. 12
C. 34
D. 1234
-
[单项选择]下列工具中,需求分析常用的工具是
A. PAD
B. PFD
C. N-S
D. DFD
-
[单项选择]算法指的是
A. 计算机程序
B. 解决问题的计算方法
C. 排序算法
D. 解题方案准确而完整的描述
-
[单项选择]下面列出的条目中,哪些是数据库技术的主要特点 Ⅰ.数据的结构化 Ⅱ.数据的冗余度小 Ⅲ.较高的数据独立性 Ⅳ.程序的标准化
A. Ⅰ、Ⅱ和Ⅲ
B. Ⅰ和Ⅱ
C. Ⅰ、Ⅱ和Ⅳ
D. 都是
-
[单项选择]对序列(7,19,24,13,31,8,82,18,44,63,5,29)进行一趟排序后得到的结果如下:(7,18,24,13,5,8,82,19,44,63,31,29),则可以认为使用的排序方法是
A. 希尔排序
B. 插入排序
C. 快速排序
D. 选择排序
-
[填空题]计时器事件之间的间隔通过 【11】 属性设置。
-
[单项选择]下列关于队列的叙述正确的是
A. 在队列中只能插入数据
B. 在队列中只能删除数据
C. 队列是先进先出的线性表
D. 队列是先进后出的线性表
-
[单项选择]设有如下变量声明Dim timel As Date,为变量time1正确赋值的表达式是
A. time1=#11:34:04#
B. time1=Format(Time,"yy:mm:dd")
C. time1=#"11:34:04"#
D. fime1=Format("hh:mm:ss",Tim
-
[单项选择]下列有关测试的论述中,错误的是
A. 证明错误存在
B. 证明错误不存在
C. 发现程序中的错误
D. 提供诊断信息
-
[填空题]在窗体上画一个列表框,然后编写如下两个事件过程:
Private Sub Form_Click( )
List1.RemoveItem 1
List1.Removeltem 3
List1.RemoveItem 1
End Sub
Private Sub Form Load( )
List1.AddItem "ItemA"
List1.AddItem "ItemB"
List1.AddItem "ItemC"
List1.AddItem "ItemD"
List1.AddItem "ItemE"
End Sub
运行上面的程序,然后单击窗体,列表框中所显示的项目为 【10】 。
-
[填空题]给出了数据库物理存储结构与物理存取方法称为数据库的 【5】 。
-
[单项选择]在窗体上画一个名称为Timer1的计时器、一个名称为Command1的命令按钮和一个名称为Labell的标签。程序如下: Private Sub Command1_Click( ) Timer1.Enabled=True Timer1.Interval=1000 End Sub Private Sub Timerl_timer( ) Labell.Caption=Time End Sub 当运行程序后,单击命令按钮,将在标签中显示的内容为
A. Time
B. True
C. 1000
D. 10:06:55
-
[填空题]下列过程的功能是:用来计算并输出S=1+1/2+1/3+…+1/100的值,请完善下列程序。
Furiction SumD (n As Integer)As Single
s = 1
i = 1
Do
i = i + 1
s = s + 1 / i
Loop Until 【12】
SumD = s
End Function
Private Sub Form Click( )
sum1=SumD(100)
Print "sum1="; sum1
End Sub
-
[单项选择]在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click( ) a = 0 For m=1 To 10 a = a + 1 b = 0 For j=1 To 10 a = a + 1 b = b + 2 Next j Next m Print a,b End Sub 程序运行时,单击命令按钮Command1后,窗体上显示的结果为
A. 10 20
B. 20 110
C. 110 20
D. 200 110