有如下程序： Private Sub Form_Click() Dim ...

单项选择题

在窗体上有一个文本框控件，名称为TextTime；--个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ ______ TxtTime.text=Time End Sub 在下画线上应填入的内容是

A．Enabled
B．Visible
C．Interval
D．Time

单项选择题

能够将Picture对象Picl加载当前目录中的face.bmp的语句是

A．Pic1.Picutre=LoadPicture(App.path &"face.bmp")
B．Pic1.LoadPicture(App.path &"face.bmp")
C．Picutre1.Picutre=LoadPicture(App.path &"face.bmp")
D．Picture1.LoadPicture(App.path &"face.bmp")

单项选择题

将一个窗体设置为MDI子窗体的方法是

A．将窗体的名称改为MDI
B．将窗体的MDIChild属性设为True
C．将窗体的MDIChild属性设为False
D．将窗体的Enabled属性设为False

单项选择题

确定复选框是否选中，可访问的属性是

A．Value
B．Checked
C．Selected
D．Caption

单项选择题

编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) 　Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) 　Print Chr(KeyAscii) End Sub 在一般情况下(即不按住“Shift”键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是

A．A A
B．a A
C．A a
D．a a

单项选择题

在窗体上添加一个按钮，名为Command1，然后编写如下的事件过程，输出结果为 Prinvate Sub Comandl_Click() 　　For i=1 To 4 　　　　x=4 　　　　For j=1 To 3 　　　　　　x=3 　　　　　　For k=1 To 2 　　　　　　　　x=x+5 　　　　　　Next 　　　　Next 　　Next 　　Print x End Sub

A．13
B．26
C．30
D．40

单项选择题

下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x一11 End Function Private Sub Command1_Click() For k=1 To 2 Y=Fun(k)：Print Y Next End Sub

A．-10 -7
B．10 8
C．1 3
D．0 4

单项选择题

单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() 　Print Fun(23,18) End Sub Public Function Fun(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 Fun=m End Function

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

单项选择题

为了提高测试的效率，应该

A．随机选取测试数据
B．取一切可能的输入数据作为测试数据
C．在完成编码以后制定软件的测试计划
D．集中对付那些错误群集的程序

单项选择题

有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer 　　Sum=0 　　For i=2 To 10 　　　　 If i Mod 2＜＞0 And i Mod 3=0 Then 　　　　　Sum=Sum+i 　　　　End If 　　Next 　　Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．12
B．30
C．24
D．18

单项选择题

关闭当前的工程并退出Visual Basic的快捷键是

A．Alt+B
B．Alt+Q
C．Alt+Shift
D．Alt+a

单项选择题

在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到

A．GotFocus事件
B．Click事件
C．Change事件
D．DblClick事件

单项选择题

在程序运行期间可以将图形装入窗体、图片框或图像框的函数是

A．DrawStyle
B．AutoSize
C．PasswordChar
D．LoadPicture

单项选择题

假设线性表的长度为z，则在最坏情况下，冒泡排序需要的比较次数为

A．log₂n
B．n²
C．D(n^1.5)
D．n(n-1)/2

单项选择题

一个关系中属性个数为l时，称此关系为

A．对应关系
B．单一关系
C．一元关系
D．二元关系

单项选择题

软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指

A．模块间的关系
B．系统结构部件转换成软件的过程描述
C．软件层次结构
D．软件开发过程

单项选择题

下列叙述中，不符合良好程序设计风格要求的是

A．程序的效率第一，清晰第二
B．程序的可读性好
C．程序中要有必要的注释
D．输入数据前要有提示信息

单项选择题

设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是

A．menu1.Enabled=True
B．menu1.Enabled=False
C．menu1.Visible=True
D．menu1.Visible=False

单项选择题

数据处理的最小单位是

A．数据
B．数据元素
C．数据项
D．数据结构

单项选择题

在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。设窗体Form1标题为“myform1”，双击控件数组中的第3个按钮，打开代码编辑器，写下如下代码： Privae Sub M1_Click(Index As Integer) 　Form1.Caption="myform 2" End Sub 运行时，单击按钮数组中的第1个按钮，窗体标题为

A．Form1
B．M1
C．myform1
D．myform2

单项选择题

软件生命周期中所花费用最多的阶段是

A．详细设计
B．软件编码
C．软件测试
D．软件维护

单项选择题

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下： private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integer 　　n=3 　　For i=1 To 5 　　　　arr(i)=i 　　　　arr1(n)=2*n+i 　　Next 　　Print arr1(n)；art(n) End Sub 程序的运行结果为

A．3 11
B．11 3
C．13 3
D．3 13

单项选择题

表达式Right("Beijing"，4)的值是

A．Beij
B．jing
C．eiji
D．ijin

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer 　　If X＜20 Then 　　　　Y=X 　　Else 　　　　Y=20+X 　　End If　　 func=Y End Function Private Sub Form_MouseDown(Button As Integer,_Shift As Integer，X As Single，Y As Single) 　　SW=False End Sub Private Sub Form_MouseUp(Button As Integer,_Shift As Integer，X As Single，Y As Single) 　　SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer 　　intNum=InputBox("") 　　If SW Then 　　　　Print func(intNum) 　　End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

A．输出0
B．输出25
C．输出45
D．无任何输出

单项选择题

在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2。编写如下两个事件过程： Dim Str1 As String，str2 As String Private Sub form_load() 　Text1.Text="" 　Text2.Text="" 　Text1.Enabled=False 　Text2.Enabled=False End Sub Private Sub Form_KeyPress(KeyAscii As Integer) 　str1=str1&Chr(KeyAscii) End Sub Prirate Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) 　str2=str2&Chr(KeyCode) End Sub Private Sub Command1_Click() 　Text1.Text=str1 　Text2.Text=str2 　str1="" 　str2="" End Sub 当在设计阶段的窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为

A．abc
B．不显示任何信息
C．ABC
D．出错

单项选择题

在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load() 　　List1.AddItem "Item 1" 　　List1.AddItem "Item 2" 　　List1.AddItem "Item 3" End Sub Private Sub Command1_Click() 　　List1.List(List1.Listcount)="AAAA" End Sub 程序运行后，单击命令按钮，其结果为

A．把字符串"AAAA"添加到列表框中，但位置不能确定
B．把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C．把列表框中原有的最后一项改为"AAAA"
D．把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)

单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后输写如下程序： Private Sub Command1_Click() Dim x，y，z As Integer 　　x=5 　　y=7 　　z=0 　　Text1.Text="" 　　Call Funl(x,y,z) 　　Text1.Text=Str(z) End Sub Sub Funl(ByVal a As Integer，ByVal b As Integer，c As Integer) 　　C=a+b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是

A．0
B．12
C．Str(Z)
D．没有显示

单项选择题

以下用户自定义函数 Function Func(a As Integer，b As Integer)As Integer Static m As Integer．i As Integer 　m=0：i=2 　i=i+m+i 　m=i+a-i-b 　Func=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim k As Integer，m As Integer，p As Integer 　　k=4：m=1 　　P=Func(k,m) 　　Print P End Sub 程序运行后，单击命令按钮，输出结果为

A．8
B．9
C．10
D．11

有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

你可能感兴趣的试题

以下不是面向对象思想中的主要特征的是

下列说法正确的是

下面的属性中，用于自动调整图像框中图形内容的大小的是

在深度为5的满二叉树中，叶子结点的个数为

下列程序段的执行结果为 m=2 n=3 Do m=m+n n=n+1 Loop While m＜10 Print m;n

以下语句用于打开一个顺序文件Open“C:\MyFile.txt”For OutPut，但是该语句的一个重要错误是没有

数据库系统的核心是

在窗体上有一个文本框控件，名称为TextTime；--个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timer1_ ______ TxtTime.text=Time End Sub 在下画线上应填入的内容是

能够将Picture对象Picl加载当前目录中的face.bmp的语句是

将一个窗体设置为MDI子窗体的方法是

确定复选框是否选中，可访问的属性是

在窗体上添加一个按钮，名为Command1，然后编写如下的事件过程，输出结果为 Prinvate Sub Comandl_Click() For i=1 To 4 x=4 For j=1 To 3 x=3 For k=1 To 2 x=x+5 Next Next Next Print x End Sub

下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x一11 End Function Private Sub Command1_Click() For k=1 To 2 Y=Fun(k)：Print Y Next End Sub

单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(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 Fun=m End Function

为了提高测试的效率，应该

有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为

关闭当前的工程并退出Visual Basic的快捷键是

在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到

在程序运行期间可以将图形装入窗体、图片框或图像框的函数是

假设线性表的长度为z，则在最坏情况下，冒泡排序需要的比较次数为

一个关系中属性个数为l时，称此关系为

软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指

下列叙述中，不符合良好程序设计风格要求的是

设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是

数据处理的最小单位是

软件生命周期中所花费用最多的阶段是

在窗体上添加一命令按钮，其名为Command1，然后编写代码如下： private Sub Command1_Click() Dim arr(5)As Integer，arr1(5)AS Integer n=3 For i=1 To 5 arr(i)=i arr1(n)=2*n+i Next Print arr1(n)；art(n) End Sub 程序的运行结果为

表达式Right("Beijing"，4)的值是

有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer 　　Sum=0 　　For i=2 To 10 　　　　 If i Mod 2＜＞0 And i Mod 3=0 Then 　　　　　Sum=Sum+i 　　　　End If 　　Next 　　Print Sum End Sub 程序运行后，单击窗体，输出结果为

下列程序段的执行结果为 m=2 n=3 Do 　　m=m+n 　　n=n+1 Loop While m＜10 Print m;n

单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() 　Print Fun(23,18) End Sub Public Function Fun(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 Fun=m End Function

有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer 　　Sum=0 　　For i=2 To 10 　　　　 If i Mod 2＜＞0 And i Mod 3=0 Then 　　　　　Sum=Sum+i 　　　　End If 　　Next 　　Print Sum End Sub 程序运行后，单击窗体，输出结果为