在窗体上有一个名称为CD1的通用对话框和一个名称为Command1的命令按钮...

单项选择题

在软件生产过程中，需求信息的来源是______。

A．程序员
B．项目经理
C．设计人员
D．软件用户

单项选择题

对建立良好的程序设计风格，下面描述正确的是______。

A．程序应简单、清晰、可读性好
B．符号名的命名只要符合语法
C．充分考虑程序的执行效率
D．程序的注释可有可无

单项选择题

下列工具中，不属于结构化分析的常用工具的是______。

A．数据流图
B．数据字典
C．判定树
D．N-S图

单项选择题

对关系S和R进行集合运算，结果中既包含S中的所有元组也包含R中的所有元组，这样的集合运算称为______。

A．并运算
B．交运算
C．差运算
D．积运算

单项选择题

数据库的故障恢复一般是由______来执行恢复。

A．电脑用户
B．数据库恢复机制
C．数据库管理员
D．系统普通用户

单项选择题

下列选项中，不属于数据模型所描述的内容的是______。

A．数据类型
B．数据操作
C．数据结构
D．数据约束

单项选择题

设有关键码序列(Q，G，M，Z，A，N，B，P，X，H，Y，S，T，L，K，E)，采用堆排序法进行排序，经过初始建堆后关键码值B在序列中的序号是______。

A．1
B．3
C．7
D．9

单项选择题

在窗体上画一个命令按钮，然后编写如下时间过程______。
Print Sub Command1_Click()
a=InputBox("Enter the First interger")
b=InputBox("Enter the Second interger")
Print b+a
End Sub
程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是

A．579
B．123
C．456
D．123456

单项选择题

确定一个控件在窗体上的位置的属性是______。

A．Width或Height
B．Width和Height
C．Top或Left
D．Top和Left

单项选择题

以下______控件没有Caption属性。

A．CommandButton
B．CheckBox
C．TextBox
D．Label

单项选择题

在窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1:Y=Y+5:X=5+X:Print X, Y
End Sub
程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为______。

A．15 16
B．5 6
C．15 15
D．15 6

单项选择题

表达式Str(Len("123"))+Str(77.7)的值是______。

A．3+77.7
B．377.7
C．80.7
D．12377.7

单项选择题

表达式Int(-15.8)+Fix(-15.8)+Int(15.8)+Fix(15.8)的运算结果是______。

A．-1
B．-2
C．0
D．1

单项选择题

编写如下事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Interger, X As Single, Y As Single)
If(ButtonAnd 3)=3 Then
Print"AAAA"
End If
End Sub
程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。

A．按左键并移动
B．按右键并移动
C．同时按下左、右键并移动
D．按什么键都不显示

单项选择题

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是______。

A．Print Cbl.Selected
B．Print Cbl.List(Cbl.ListIndex)
C．Print Cbl.Selected.Text
D．Print Cbl.List(ListIndex)

单项选择题

窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为______。
PriVate Sub Command1_Click()
Dim A As Integer, B As Integer
Text1.SelStart=2:Text1.SelLength=2
A=Val(Text1.SelText):B=Len(Text1.Text)
Print A*B
End Sub

A．68
B．115
C．1700
D．170

单项选择题

使用______方法，可清除列表框中所有的列表项。

A．Remove
B．Clear
C．RemoveItem
D．Move

单项选择题

下列循环能正常结束的是______。

A．x=5Dox=x+1Loop Until x＜0
B．x=1Dox=x+2Loop Until x=10
C．x=10Dox=x+1Loop Until x＞0
D．x=6Dox=x-2Loop Until x=1

单项选择题

程序运行时，当在空文本框中依次输入1234时，窗体上显示的是______。
Private sub Text1_Change()
Print Text1;
End Sub

A．1234
B．12
C．1121231234
D．10

单项选择题

在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是______。
Private Sub Form_Load()
For i=1 To 10
sum=sum+i
Next i
Print "Sum="; sum
End Sub

A．在窗体上输出55
B．在窗体上输出sum=55
C．出错
D．窗体上不输出

单项选择题

在窗体上画两个名称分别为Hscroll1、Hscroll2的滚动条控件；6个名称分别为Label1、Label2、Label3、Label4、Label5、Label6的标签，其中，Label4～Label6分别显示“A”、“B”、“AB”等文字信息，标签Label1、Label2分别显示其右侧的滚动条Value属性值，Label3显示AB的计算结果，如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现求积功能的事件过程是______。

A．Private Sub Command1_Click()Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))End Sub
B．Privae Sub Command1_Click()Label3.Caption=HScroll1.Value * HScroll2.ValueEnd Sub
C．Private Sub Command1_Click()Label3.Caption=HScroll1*HScrcll2End Sub
D．Pfivate Sub Command1_Click()Label3.Caption=HScroll1.Text * HScroll2.TextEnd Sub

单项选择题

设a=6，则执行x=IIf(a＞5, -1, 0)后，x的值为______。

A．5
B．6
C．0
D．-1

单项选择题

以下程序执行后，在窗体上输出的图案是______。
Form1.Cls
For a=1 To 5
Print Space(5-a); String(a, "*")
Next a

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

单项选择题

假定窗体上有一个标签，名为Label。为了使该标签透明并且没有边框，则正确的属性设置为______。

A．Label1.BackStyle=0Label1.BorderStyle=0
B．Label1.BackStyle=1Label1.BorderStyle=1
C．Label1.BackStyle=TrueLabel1.BorderStyle=True
D．Label1.BackStyle=FalseLabel1.Borderstyle=False

单项选择题

单击命令按钮时，下列程序段的执行结果为______。
Private Sub Command1_Click()
Print Func1(24, 18)
End Sub
Public Function Func1(m As Integer, n As Integer)As Integer
Do While m＜＞n
Do While m＞n:m=m-n:Loop
Do While m＜n:n=n-m:Loop
Loop
Func1=m
End Function

A．8
B．6
C．4
D．2

单项选择题

下列程序段执行后，输出的结果是______。
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y

A．90
B．60
C．40
D．10

单项选择题

使用语句Dim A(1 To 10) As Integer声明数组A后，以下叙述正确的是______。

A．A数组中的所有元素值为0
B．A数组中的所有元素值不确定
C．A数组中的所有元素值为Empty
D．执行语句“Erase A”后，A数组中的所有元素值为Null

单项选择题

以下程序段的功能是______。
x=8.6
y=Int(x+0.5)
Print y

A．输出y的绝对值
B．实现x的四舍五入
C．实现x的绝对值
D．实现y的四舍五入

单项选择题

在窗体上建立一个命令控件数组Command1，并双击第一个命令按钮，编写如下事件过程：
Private Sub Command1_Click(Index As Integer)
Command1(Index).Caption=Format$(Now, "hh:mm:ss")
End Sub
以下描述正确的是______。

A．当单击某个命令按钮时，数组中所有命令按钮的Caption属性将被设置为当前时间
B．当单击某个命令按钮时，该按钮的Caption属性将被设置为当前时间
C．程序有错误
D．窗体的Caption属性将被设置为当前时间

单项选择题

有如下的一个函数过程：
Function fn(ByVal num As Long)
Dim k As Long
k=1:num=Abs(num)
Do While num
k=k*(num Mod 10)
num=num\10
Loop
fn=k
End Function
通过以下事件过程调用该函数，程序运行后，在输入对话框中输入数字“123”，则运行结果为______。
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox("请输入一个数值")
n=CLng(n):r=fn(n)
Print r
End Sub

A．12
B．6
C．3
D．1

单项选择题

下列关于函数过程的叙述中，正确的是______。

A．如果不指明函数过程参数的类型，则该参数没有数据类型
B．函数过程的返回值可以有多个
C．函数过程形参的类型与函数返回值的类型没有关系
D．当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

单项选择题

以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以4余1，除以5余2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容，在横线处应填写______。
Private Sub Command1_Click()
x=Val(Text1.Text)
If______Then
Print x
Else
Text1.SetFocus
Text1.Text=""
End If
End Sub

A．x%4=1 And x%5=2
B．x%4=1 Or x%5=2
C．x Mod 4=1 And x Mod 5=2
D．x Mod 4=1 Or x Mod 5=2

单项选择题

要求当鼠标在图片框Picture1中移动时，立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。

A．Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, XAs Single Y As Single)Picture1.Print X, YEnd Sub
B．Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, XAs Single, Y As Single)Print X, YEnd Sub
C．Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, XAs Single, Y As Single)Picture.Print X, YEnd Sub
D．Private Sub Form_MouseMove(Button As Integer Shift As Integer, X As Single, Y As Single)Picture1.Print X, YEnd Sub

单项选择题

一个工程中包含两个名称分别为Form1、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程，其定义格式为：
Form1中定义的过程：
Private Sub Fun1()
……
End Sub
Form2中定义的过程：
Private Sub Fun2()
……
End Sub
Func中定义的过程：
Private SubFun3()
……
End Sub
在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是______。

A．上述3个过程都可以在工程中的任何窗体或模块中被调用
B．Fun1和Fun2过程能够在工程中各个窗体或模块中被调用
C．上述3个过程都只能在各自被定义的模块中调用
D．只在Fun3过程能够被工程中各窗体或模块调用

单项选择题

在窗体上有一个名称为CD1的通用对话框和一个名称为Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题为“保存”，缺省文件名为“ABC”，在“文件类型”栏中显示*.txt。则能够满足上述要求的程序是______。

A．Private Sub Command1_Click()CD1.FileName="ABC"CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"|CD1.FilterIndex=1CD1.DialogTitle="保存"CD1.Action=2End Sub
B．Private Sub Command1_Click()CD1.FileName="ABC"CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CD1.FilterIndex=2CD1.DialogTitle="保存"CD1.Action=2End Sub
C．Private Sub Command1_Click()CD1.FileName="保存"CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CD1.FilterIndex=2CD1.DialogTitie="ABC"CD1.Action=2End Sub
D．Private Sub Command1_Click()CD1.FileName="ABC"CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc"CD1.FilterIndex=1CD1.DialogTitle="保存"CD1.Action=1End Sub

单项选择题

已知在菜单编辑器中设计了窗体的快捷菜单，其主菜单为a1，且取消其“可见”属性，如图所示。运行时，以下______事件过程可以使快捷菜单的菜单项响应鼠标右键单击。

A．Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)If Button=2 Then PopupMenu a1, 2End Sub
B．Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)PopupMenu a1, 0End Sub
C．Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)PopupMenu a1End Sub
D．Private Sub Form_MouseDown(Button As Integer, Shift As_Integer, X As Single, Y As Single)If(Button=vbLetfButton) Or (Button=vbRightButton)Then PopupMenu a1End Sub

单项选择题

下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是______。
Private Sub Command1_Click()
Dim Num(25)As Integer, Chr1 As String
Chr1=UCase(InputBox("请输入字母字符串"))
For k=1 To Len(Chr1)
n=Asc(Mid(Chr1, k, 1))-Asc("A")
If n＞=0 Then
Num(n)=Num(n)+1
End If
Next k
m=Num(0)
For k=1 To 25
If m＜Num(k)Then
m=Num(k)
End If
Next k
Print m
End Sub

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

你可能感兴趣的试题

在软件生命周期中，能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是______。

线性表常采用的两种存储结构是______。

软件需求分析阶段的工作，可以分为四个方面：需求获取、编写需求规格说明书、需求评审和______。

在软件生产过程中，需求信息的来源是______。

对建立良好的程序设计风格，下面描述正确的是______。

下列工具中，不属于结构化分析的常用工具的是______。

对关系S和R进行集合运算，结果中既包含S中的所有元组也包含R中的所有元组，这样的集合运算称为______。

数据库的故障恢复一般是由______来执行恢复。

下列选项中，不属于数据模型所描述的内容的是______。

设有关键码序列(Q，G，M，Z，A，N，B，P，X，H，Y，S，T，L，K，E)，采用堆排序法进行排序，经过初始建堆后关键码值B在序列中的序号是______。

确定一个控件在窗体上的位置的属性是______。

以下______控件没有Caption属性。

在窗体上有一个名称为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() Static X As Integer Static Y As Integer Cls Y=1:Y=Y+5:X=5+X:Print X, Y End Sub 程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为______。

表达式Str(Len("123"))+Str(77.7)的值是______。

表达式Int(-15.8)+Fix(-15.8)+Int(15.8)+Fix(15.8)的运算结果是______。

编写如下事件过程： Private Sub Form_MouseMove(Button As Integer, Shift As Interger, X As Single, Y As Single) If(ButtonAnd 3)=3 Then Print"AAAA" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是______。

窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为______。 PriVate Sub Command1_Click() Dim A As Integer, B As Integer Text1.SelStart=2:Text1.SelLength=2 A=Val(Text1.SelText):B=Len(Text1.Text) Print A*B End Sub

使用______方法，可清除列表框中所有的列表项。

下列循环能正常结束的是______。

程序运行时，当在空文本框中依次输入1234时，窗体上显示的是______。 Private sub Text1_Change() Print Text1; End Sub

在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是______。 Private Sub Form_Load() For i=1 To 10 sum=sum+i Next i Print "Sum="; sum End Sub

设a=6，则执行x=IIf(a＞5, -1, 0)后，x的值为______。

以下程序执行后，在窗体上输出的图案是______。 Form1.Cls For a=1 To 5 Print Space(5-a); String(a, "*") Next a

假定窗体上有一个标签，名为Label。为了使该标签透明并且没有边框，则正确的属性设置为______。

单击命令按钮时，下列程序段的执行结果为______。 Private Sub Command1_Click() Print Func1(24, 18) End Sub Public Function Func1(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do While m＜n:n=n-m:Loop Loop Func1=m End Function

下列程序段执行后，输出的结果是______。 For k1=0 To 4 y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y+10 Next k3 Next k2 Next k1 Print y

使用语句Dim A(1 To 10) As Integer声明数组A后，以下叙述正确的是______。

以下程序段的功能是______。 x=8.6 y=Int(x+0.5) Print y

在窗体上建立一个命令控件数组Command1，并双击第一个命令按钮，编写如下事件过程： Private Sub Command1_Click(Index As Integer) Command1(Index).Caption=Format$(Now, "hh:mm:ss") End Sub 以下描述正确的是______。

下列关于函数过程的叙述中，正确的是______。

要求当鼠标在图片框Picture1中移动时，立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是______。

已知在菜单编辑器中设计了窗体的快捷菜单，其主菜单为a1，且取消其“可见”属性，如图所示。运行时，以下______事件过程可以使快捷菜单的菜单项响应鼠标右键单击。

在窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click()
Static X As Integer
Static Y As Integer
Cls
Y=1:Y=Y+5:X=5+X:Print X, Y
End Sub
程序执行时，单击命令按钮Command1三次后，窗体上显示的结果为______。

编写如下事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Interger, X As Single, Y As Single)
If(ButtonAnd 3)=3 Then
Print"AAAA"
End If
End Sub
程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为______。

窗体上有一个命令按钮和一个文本框，程序执行后，在文本框中输入12345，单击命令按钮后的输出结果为______。
PriVate Sub Command1_Click()
Dim A As Integer, B As Integer
Text1.SelStart=2:Text1.SelLength=2
A=Val(Text1.SelText):B=Len(Text1.Text)
Print A*B
End Sub

程序运行时，当在空文本框中依次输入1234时，窗体上显示的是______。
Private sub Text1_Change()
Print Text1;
End Sub

在窗体上没有进行任何属性设置，然后编写如下事件过程，则程序运行结果是______。
Private Sub Form_Load()
For i=1 To 10
sum=sum+i
Next i
Print "Sum="; sum
End Sub

以下程序执行后，在窗体上输出的图案是______。
Form1.Cls
For a=1 To 5
Print Space(5-a); String(a, "*")
Next a

单击命令按钮时，下列程序段的执行结果为______。
Private Sub Command1_Click()
Print Func1(24, 18)
End Sub
Public Function Func1(m As Integer, n As Integer)As Integer
Do While m＜＞n
Do While m＞n:m=m-n:Loop
Do While m＜n:n=n-m:Loop
Loop
Func1=m
End Function

下列程序段执行后，输出的结果是______。
For k1=0 To 4
y=20
For k2=0 To 3
y=10
For k3=0 To 2
y=y+10
Next k3
Next k2
Next k1
Print y

以下程序段的功能是______。
x=8.6
y=Int(x+0.5)
Print y

在窗体上建立一个命令控件数组Command1，并双击第一个命令按钮，编写如下事件过程：
Private Sub Command1_Click(Index As Integer)
Command1(Index).Caption=Format$(Now, "hh:mm:ss")
End Sub
以下描述正确的是______。