试卷详情
-
二级VISUAL BASIC笔试-227
-
[单项选择]下列描述中正确的是( )。
A. 软件工程只是解决软件项目的管理问题
B. 软件工程主要解决软件产品的生产率问题
C. 软件工程的主要思想是强调在软件开发过程中需要应用工程化原则
D. 软件工程只是解决软件开发过程中的技术问题
-
[单项选择]有下列函数过程:
Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer
Do While y<>0
reminder=x MOd y
x=y
y=reminder
Loop
fun1=x
End Function
在下列按钮单击事件中调用该函数,则该程序的运行结果是( )。
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a=100
b=25
x=fun1(a,b)
Print x
End Sub
A. 0
B. 25
C. 50
D. 100
-
[单项选择]有下列程序段,其输出结果是( )。
a=0:b=0
For i=-1 To -2 Step -1
For j=1 To 2
b=b+1
Next j
a=a+1
Next i
Print a;b
A. 2 3
B. -2 2
C. 4 2
D. 2 4
-
[单项选择]下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。清选择正确的程序段( ),完成程序。
Pnvae Sub Command1_Click( )
Dim arr(1 To 20)
For i=1 To 20
arr(i)______
Text1.Text=Text1.Text & arr(i)& Chr(13)& Chr(10)
Next i
Sum=0
For Each X______
IfX>50 Then
Print Tab(20);X
Sum=Sum+X
End If
Next X
Print Tab(20);"Sum=";Sum
End Sub
A. Int(Rnd*99+1) In arr
B. Int(Rnd) In arr
C. Int(Rnd*99+1) In arr()
D. Int(Rnd) In arr()
-
[单项选择]为了使列表框中的项目分为多列显示,需要设置的属性为( )。
A. Columns
B. Style
C. List
D. MultiSelect
-
[单项选择]按文件的访问方式不同,可以将文件分为( )。
A. 顺序文件、随机文件
B. 文本文件和数据文件
C. 数据文件和可执行文件
D. ASCⅡ文件和二进制文件
-
[填空题]已知变量boo1Var是一个布尔型的变量,如果要给其赋值为True,则正确的赋值语句是______。
-
[单项选择]下列程序段的执行结果是( )。
a=75
Ifa>60 Then i=1
Ifa>70 Then i=2
Ifa>80 Then i=3
Ifa<90 Then i=4
Print"i=";i
A. i=1
B. i=2
C. i=3
D. i=4
-
[填空题]在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:
Private Sub Form_C1ick( )
Textl.Text="VB Programming"
End Sub
Private SubText1_change( )
Picture1.Print"VB程序设计"
End SUb
程序运行后,单击窗体,则在文本框中显示的内容是______,而在图片框中显示的内容是______。
-
[单项选择]对长度为n的线性表进行顺序查找,在最坏情况下需要比较的次数为( )。
A. 125
B. n/2
C. n
D. n+1
-
[单项选择]窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是( )。
Pfivate Sub Command1_click( )
Picture1.Picture=LoadPicture("C:/picture.ipg")
Picture1.Cis
Picture1.Print"picture"
End Sub
A. 窗体无显示,图片框显示图片和文字picture
B. 窗体上出现picture文本,图片框无显示
C. 窗体上出现picture文本,图片框显示图片picture.jpg
D. 窗体无显示,图片框只显示picture文字
-
[单项选择]在新建一个VisualBasic工程时,将新建窗体的Name属性设置为TheFirst,则默认的窗体文件名为( )。
A. Form1.frm
B. 工程1.frm
C. TheFirst.frm
D. Form1.vbp
-
[填空题]在面向对象方法中,______描述的是具有相似属性与操作的一组对象。
-
[单项选择]下列( )事件过程可以将打开文件对话框的标题改变为“new Caption”。
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
-
[单项选择]下列程序运行时输出的结果是( )。
Option Base 1
Const a=10
Private Sub Form_Click( )
Dim x(
A. As Integer
-
[填空题]在数据的存储结构中,不仅需要存储各数据元素的信息,还要存放各元素之间______的信息。
-
[单项选择]窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单击命令按钮,输出结果是( )。
Private Sub Command1_Click( )
Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
S=S+a(k)
Next k
Print S
End Sub
A. 10
B. 14
C. 15
D. 120
-
[单项选择]已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的Visual Basic表达式为( )。
A. E^*Sin(30*3.14/180)*2*X/X+Y*Log(X)
B. Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)
C. Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*Log(x)
D. Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X)
-
[填空题]深度为5的满二叉树中,叶子结点的个数为______。
-
[单项选择]在使用打印直接输出信息时,下列哪个属性或方法实现了使文件结束打印( )。
A. Print方法
B. Page属性
C. NewPage方法
D. EndDoc方法
-
[单项选择]在窗体上画一个名称为Text1的文本框,然后画三个单选按钮,并用这三个单选按钮建立一个控件数组,名称为Option1,程序运行后,如果单击某个单选按钮,则文本框中的字体将根据所选择的单选按钮切换,请选择空白处合适的语句( )。
Private Sub Option1_Click(Index AS Integer)
Select Case______
Case 0
a="宋体"
Case 1
a="黑体"
Case 2
a="楷体 GB2312"
End Select
Text1.______=a
End Sub
A. Option Text
B. Index Text
C. Index Font
D. Option Font
-
[单项选择]数据库系统的核心是( )。
A. 数据模型
B. 数据库管理系统
C. 数据库
D. 数据库管理员
-
[单项选择]要建立一个随机文件记录学生的信息,下列定义了学生的记录类型,由学号、姓名、五门课程成绩(百分制)组成,下列的定义正确的是( )。
A. Type stu
B. Type stu
C. Type stu
D. Type stu
-
[填空题]Jackson方法是一种面向______的结构化方法。
-
[单项选择]下列程序的运行结果是( )。
Private Sub Command1_Click( )
a=1.5
b=1.5
Call fun(a,b)
Print a,b
End Sub
Private Sub fun(x,y)
x=y*y
y=y+x
End Sub
A. 2.25 3.75
B. 1.5 2.25
C. 1.5 0.75
D. 0.75 1.5
-
[单项选择]栈和队列的共同点是( )。
A. 都是先进先出
B. 都是先进后出
C. 只允许在端点处插入和删除元素
D. 没有共同特点
-
[单项选择]设有变量声明为“Dim aDate As Date”,则为变量aDate正确赋值的表达方式是( )。
A. aDate=#8/2008#
B. aDate=#"8/8/2008"#
C. aDate=Date("8/8/2008")
D. aDate=Format("m/d/yy","8/8/2008")
-
[填空题]下列程序用于在带垂直滚动条的文本框Text1中输出3到100之间的全部素数。请填空。
Private Sub Command1_click( )
Text1.Text=""
For n=3 to 100
k=Int(Sqr(n))
i=2
Flag=0
Do While i<= ______And Flag=0
If n Mod i=0 Then
Flag=1
Else
i=i+1
End If
Loop
Lf ______Trhen
Text1.Text=Text1.Text & Str(n) & Chr(13) & Chr(10)
End If
Next n
End Sub
-
[填空题]表达式"12345"<>"12345"&"ABC"的值是______。
-
[单项选择]假定有一个菜单项,名为MenuItem,为了在运行时使该菜单项不可见,应使用的语句为( )。
A. MenuItem.Enabled=False
B. MenuItem.Enabled=Trme
C. MenuItem.Visible=True
D. MenuItem.Visible=Flase
-
[单项选择]源程序的文档化不包括( )。
A. 符号名的命名要有实际意义
B. 正确的文档形式
C. 良好的视觉组织
D. 正确的程序注释
-
[单项选择]下列叙述正确的是( )。
A. 算法的执行效率与数据的存储结构无关
B. 算法的空间复杂度是指算法程序中指令(或语句)的条数
C. 算法的有穷性是指算法必须能在执行有限个步骤之后终止
D. 以上三种描述都不对
-
[填空题]执行下列语句后,输出结果是______。
s$="ABCDEFG"
Print lnStr(s$,"efg")
Print LCase$(s$)
-
[单项选择]表达式Str(Len("123"))+Str(77.7)的值是( )。
A. 377.7
B. 377.7
C. 80.7
D. 12377.7
-
[填空题]按照“先进先出”的原则组织数据的结构的是______。
-
[单项选择]数据的存储结构是指( )。
A. 数据所占的存储空间
B. 数据的逻辑结构在计算机的存放形式
C. 数据在计算机中的顺序存储方式
D. 存储在计算机外存中的数据
-
[单项选择]下列事件过程的功能是:建立一个名为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_Click( )
Dim Y As Single
Dim i As Integer
Dim Ksc As Ang
Open______
Y=3.14159/180
For i=1 To 90
Ksc.K=i
Ksc.Sinx=Sin(i*Y)
Ksc.Cosx=Cos(i*Y)
______
Next i
Close #2
End Sub
A. "../Data1.txt"For Random As #1 Len=10 Put #1,i,Ksc
B. "../Data1.txt"For Random As #1 Len=10 Put #1,Y,Ksc
C. "../Data1.txt"For Random As #1 Put #1,i,Ksc
D. "../Data1.txt"For Random As #1 Put #1,Y,Ksc
-
[单项选择]为了提高软件模块的独立性,模块之间最好是( )。
A. 控制耦合
B. 公共耦合
C. 内容耦合
D. 数据耦合
-
[单项选择]待排序的关键码序列为(33,18,9,25,67,82,53,95,12,70),要按关键码值递增的顺序排序,采取以第一个关键码为基准元素的快速排序法,第一趟排序后关键码33被放到第( )个位置。
A. 3
B. 5
C. 7
D. 9
-
[单项选择]下列程序段错误的是( )。
A. Dim a As Integer
B. Dim a(),b()
C. Dim a As Variant
D. Dim a()As Variant
-
[单项选择]窗体上添加一个文本框Text1,编写下列代码:
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+5)& KeyCode
End Sub
程序运行时,在文本框中输入“ab”,则在窗体上输出为( )。
A. F65
B. F65
C. G66
D. G65
-
[单项选择]在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(SmEng)。则在下列横线处
合适的语句是( )。
Private Sub Form_Click( )
Open"C:///SDat.txt"For Output AS 1
For i=1 To 5
SmNo=InputBox("请输入学号")
StuName=InputBox("请输入姓名")
StuEndg=Val(InputBox("请输入英语成绩"))
______
Next i
Close #1
End Sub
A. Input #1,StuNo,StuName,StuEndg
B. Put #1,StuNo,StuName,StuEndg
C. Write #1,StuNo,StuName,StuEndg
D. Get #1,StuNo,StuName,StuEndg
-
[填空题]在鼠标事件过程MouseDown和MouseUp中,参数Button的值为1、2、4时,分别代表按下鼠标的______、______和______按钮。