单项选择题

某人设计了如下程序用来计算并输出7!(7的阶乘)
Private Sub Command1_Click()
t=0
For k=7 To 2 Step-1
t=t*k
Nest
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是______。

A．把t=0改为t=1
B．把For k=7 To 2 Step-1改为For k=7 To 1 Step-1
C．把For k=7 To 2 Step-1改为For k=1 To 7
D．把Next改为Next k

你可能感兴趣的试题

单项选择题

下列选项中不属于面向对象程序设计特征的是______。

A．继承性
B．多态性
C．类比性
D．封装性

单项选择题

在数据库设计中，将E-R图转换为关系模式的过程属于______。

A．需求分析阶段
B．逻辑设计阶段
C．概念设计阶段
D．物理设计阶段

单项选择题

使用白盒测试法时，确定测试数据应该根据______和指定的覆盖标准。

A．程序的内部逻辑
B．程序的复杂结构
C．使用说明书
D．程序的功能

单项选择题

树是结点的集合，它的根结点的数目是______。

A．有且只有1个
B．1或多于1
C．0或1
D．至少有2个

单项选择题

设R是一个二元关系，S是一个三元关系，则下列运算中正确的是______。

A．R-S
B．R×S
C．R∩S
D．R∪S

单项选择题

在结构化程序设计中，模块划分的原则是______。

A．各模块应包括尽量多的功能
B．各模块的规模应尽量大
C．各模块之间的联系应尽量紧密
D．模块内具有高内聚度、模块间具有低耦合度

单项选择题

有下列二叉树，对此二叉树前序遍历的结果是______。

A．ACBEDGFH
B．ABDGCEHF
C．HGFEDCBA
D．ABCDEFGH

单项选择题

结构化程序设计的3种基本结构是______。

A．过程、子程序和分程序
B．顺序、选择和重复
C．递归、堆栈和队列
D．调用、返回和转移

单项选择题

对于循环队列，下列叙述中正确的是______。

A．队头指针是固定不变的
B．队头指针一定大于队尾指针
C．队头指针一定小于队尾指针
D．队头指针可以大于队尾指针，也可以小于队尾指针

单项选择题

对长度为n的线性表进行顺序查找，在最坏情况下需要比较的次数为______。

A．125
B．n/2
C．.n
D．n+1

单项选择题

在新建一个Visual Basic工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为______。

A．Form1.frm
B．工程1.frm
C．TheFirst.frm
D．Form1.vbp

单项选择题

下列______标识符不能作为Visual Basic的变量名。

A．ABCabe
B．b1234
C．28wed
D．crud

单项选择题

已知a=5，b=/，c=12，下列表达式的值为True的是______。

A．a＞b And c＜a
B．a＞b Or c＜a
C．a＞b Xor c＜a
D．a＞a Eqv c＜a

单项选择题

在文本框中输入密码时，要求在文本框中只显示(+)号，则应当设置此文本框的______属性。

A．Text
B．Caption
C．Password
D．PasswordChar

单项选择题

假定在图片框控件Picturel中装入了一个图形，为了在程序运行时清除该图形，则应使用______。

A．选择图片框控件，然后按＜Del＞键
B．执行语句Picture 1_Picture=LoadPicture("")
C．执行语句Picture1.Picture=""
D．选择图片框控件，在属性窗口中选择Picture属性，然后删除该属性的值

单项选择题

在文本框中输入字符时，通过______事件过程可以得到字符的ASCII码值。

A．Change
B．GotFocus
C．KeyPress
D．LostFocus

单项选择题

单击命令按钮时，下列程序段的执行结果是______。
Private Sub Command1 Click()
Dim a As Integer, b As Integer, c As Integer
a=2:b=4:c=6
Call S1(a,b)
Print "a=";a;"b=";b;"c=";c
Call S2(a,b)
Print "a="; a;"b="; b;"c=";e;
End Sub
Private Sub S1(x As Integer, Y As Integer)
Dim c As Integer
x=2x: y=y+2:c=x+y
End Sub
Sub S2(x As Integer, ByVal Y As Integer)
Dim e As Inleger
x=2x: Y=Y+2: e=x+y
End Sub

A．a=1 b=6 c=6a=4 b=6 c=6
B．a=8 b=6 c=6a=8 b=6 c=6
C．a=4 b=c c=6a=8 b=6 c=6
D．a=8 b=6 c=6a=4 b=6 c=6

单项选择题

下列关于复选框的说法，正确的是______。

A．复选框的Enabled属性用于决定该复选框是否可见
B．复选框的Value属性用于决定该复选框是否被选中
C．复选框的Tabindex属性用于决定该复选框在控件数组中的序号
D．复选框的Visible属性用于决定该复选框是否可用

单项选择题

在窗体上面一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是______。
Private Sub pl(n As Integer)
For i=n To 1 Step=1
x=String(i， "*")
Print x
Next i
End Sub
Private Sub Command1_Click()
pl(3)
EndSub

A．******
B．******
C．***
D．******

单项选择题

要在命令按钮控件上显示图像应______。

A．设置Picture属性
B．实现不了
C．先将Style设置为1，然后再设置Picture属性
D．以上都不对

单项选择题

在窗体上面1个名为Text1的文本框和1个名为Labell的标签，再画4个名为Opl的单选按钮控件数组，其Index属性按零度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句______。

图1

图2

Option Base 1
Dim sales(12) As Long
Private Sub Form_Load()
Open "c:\sales.txt" For Input As #1
For k=1 Fo 12
Input #1, sales(k)
Nextk
Close #1
End Sub
Private Sub(Index As Integer)
Dim Sum As Long, k As Integer, month As Integer
sum=0
month=Index*
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next k
Labell.Caption=__. Caption & "销售总额:"
Text1=Sum
End Sub

A．Opl_Click 3 Opl(Index)
B．Opl_Click 0 Optionl(Index)
C．Optionl_Click 1 Opl(Index)
D．Optional_Click 2 Optionl(Index)

单项选择题

在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Privale Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String, n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n, str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为______。

A．pp
B．pP
C．PP
D．Pp

单项选择题

下列程序执行后，变量X的值为______。
Dim fl.b,c,d As Single
Dim X As Single
fl=10
b=30
c=400
If b＞fl Then
d=fl: fi=b: b=d
End If
If b＞c Then
X=b
Else If fl＞c Then
X=c
Else
X=a
End If

A．10
B．30
C．400
D．430

单项选择题

下列程序的运行结果是______。
Private Function myfun(m,n)
Do While m＞n
Do While m＞n: m=m-n: Loop
Do While n＞m: n=n-m: Loop
Loop
myfun=m
End Function
Private Sub Command1_Click()
print myfun(9, 8)
End Sub

A．2
B．1
C．4
D．3

单项选择题

为了使列表框中的项目分为多列显示，需要设置的属性为______。

A．Columns
B．Style
C．List
D．MultiSelect

单项选择题

假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项不可见，应使用的语句为______。

A．MenuItem.Enabled=False
B．MenuItem.Enabled=True
C．MenuItem.Visible=True
D．Menultem.Visible=Flase

单项选择题

在通用对话框中打开“颜色对话框”的方法是______。

A．ShowOpen
B．MenuItem.Enabled=True
C．MenuItem.Visible=True
D．MenuItem.Visible=Flase

单项选择题

某人设计了如下程序用来计算并输出7!(7的阶乘)
Private Sub Command1_Click()
t=0
For k=7 To 2 Step-1
t=t*k
Nest
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是______。

A．把t=0改为t=1
B．把For k=7 To 2 Step-1改为For k=7 To 1 Step-1
C．把For k=7 To 2 Step-1改为For k=1 To 7
D．把Next改为Next k

单项选择题

下列操作不能向工程中添加窗体的是______。

A．执行“工程”菜单中的“添加窗体”命令
B．单击工具栏中的“添加窗体”按钮
C．右击窗体，在弹出的菜单中选择“添加窗体”命令
D．右击工程资源管理器，在弹出的菜单中选择“添加”命令，然后在下一级菜单中选择“添加窗体”命令

单项选择题

下列描述不正确的是______。

A．某个子过程中声明的局部变量，其使用范围仅限定于该子过程内
B．某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中
C．不同子过程中的局部变量可以具有相同的名称
D．不同子过程中具有相同的名称的局部变量是同一变量

单项选择题

在窗体上建立通用对话框需要添加的控件是______。

A．Data控件
B．Form控件
C．CommonDialog控件
D．VBComboBox控件

单项选择题

关于MDI窗体，下列说法正确的是______。

A．一个应用程序可以有多个MDI窗体
B．子窗体可以移到MDI窗体以外
C．不可以在MDI窗体上放置按钮控件
D．MDI窗体的子窗体不可以拥有菜单

单项选择题

下列关于文件的叙述中，错误的是______。

A．使用Append方式打开文件时，文件指针被定位于文件尾
B．当以Input打开文件时，如果文件不存在，则自动建立一个新文件
C．顺序文件的各个记录的长度可以不同
D．随机文件打开后，既可以进行读操作，也可以进行写操作

单项选择题

在Visual Basic中，______可以作为“启动对象”。

A．Sub Main过程或任何窗体
B．任何窗体或过程
C．Sub Main其他任何模块
D．任何标准模块

单项选择题

若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指______。

A．按钮左端到窗体左端的距离
B．按钮左端到图片框左端的距离
C．按钮中心点到窗体左端的距离
D．按钮中心点到图片框左端的距离

单项选择题

下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。空白处应填入的内容是______。
Private Type Ang
K AS Integer
Sinx As Single
Cosx As Single
End Type
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
Elld Stub

A．"..\Data1.txt" For RandomAS#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

单项选择题

为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是______。

A．CD1.DialogTitle=“对话框窗口”
B．CD1.Action=“对话框窗口”
C．CD1.FileName=“对话框窗口”
D．CD1.Filter=“对话框窗口”

单项选择题

在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序：

Private Sub Form Load()
Command2.Enabled=False
Check1.Value=1
End Sub
刚运行程序时，看到的窗体外观是______。

单项选择题

设在窗体中有一个名称为List1的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是______。

A．Private Sub Command1_Click()List1.ClearEnd Sub
B．Private Sub Command1_Click()List1.Clear List1.ListIndexEnd Sub
C．Private Sub Command1_Click()List1.Removeltem List1.ListIndexEnd Sub
D．Private Sub Command1_Click()List1.RemoveltemEnd Sub

单项选择题

窗体上有两个文本框Text1、Text2以及一个命令按钮Command1，编写下列程序：
Dim Y As Integer
Private Sub Command1_Click()
Dim X As Integer
x=2
Text1.Text=p2(p1(X),Y)
Text2.Text=Pl(X)
End Sub
Private Function pl(X As Integer)As Integer
x+x+y: y=x+y
pl=x+y
End Function
Private Function p2(X As Integer, Y As Integer)As Integer
p2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为______。

A．2 42 4
B．2 44 8
C．4 48 8
D．10 1058 58