下面程序的执行结果是 Private Sub Command1_Click(...

单项选择题

窗体上有一个名称为Timer1的计时器控件，一个名称为Shape1的形状控件，其Shape属性值为3(Circle)。编写程序如下：
Private Sub Form_Load()
Shape1.Top=0
Timer1.Interval=100
End Sub
Private Sub Timer1_Timer()
Static x As Integer
Shape1.Top=Shape1.Top+100
x=x+1
If x Mod 10=0 Then
Shape1.Top=0
End If
End Sub
以下关于上述程序的叙述中，错误的是______。

A．每执行一次Timer1_Timer事件过程，x的值都在原有基础上增加1
B．Shape1每移动10次回到起点，重新开始
C．窗体上的Shape1由下而上移动
D．Shape1每次移动100

单项选择题

设有下面程序代码：
Option Base 1
Private Sub Command1_Click()
Dim x(6)
a=Array(4, 2, 5, 1, 6, 3)
b=Array(64, 24, 98, 27, 58, 41)
For k=1 To 6
x(a(k))=b(k)
Next k
For k=1 To 6
Print x(k);
Next k
End Sub
程序运行时的输出是

A．27 24 41 64 98 58
B．64 24 98 27 58 41
C．24 27 41 58 64 98
D．98 64 58 41 27 24

单项选择题

打开菜单编辑器的快捷键是______。

A．Ctrl+E
B．shift+E
C．Alt+E
D．Tab+E

单项选择题

下列程序段的执行结果为 ____ 。
a=6
For k=1 To n
a=a+k
Next
Print k; a

A．-16
B．-116
C．16
D．11 21

单项选择题

设有如图所示窗体和以下程序：
Private Sub Command1_Click()
Text1.Text="Visual Basic"
End Sub
Private Sub Text1_LostFocus()
If Text1.Text＜＞"BASIC" Then
Text1.Text=" "
Text1.SetFocus
End If
End Sub

程序运行时，在Text1文件框中输入“Basic”(如图所示)，然后单击Command1按钮，则产生的结果是 ____

A．文本框中无内容，焦点在文本框中
B．文本框中为“Basic”，焦点在文本框中
C．文本框中为“Basic”，焦点的按钮上
D．文本框中为“Visual Basic”，焦点的按钮上

单项选择题

以下合法的VB变量名是

A．#1
B．123_a
C．string
D．x_123

单项选择题

在设计程序时，应采纳的原则之一是______。

A．程序结构应有助于读者理解
B．不限制goto语句的使用
C．减少或取消注解行
D．程序越短越好

单项选择题

面向对象方法中，继承是指______。

A．一组对象所具有的相似性质
B．一个对象具有另一个对象的性质
C．各对象之间的共同性质
D．类之间共享属性和操作的机制

单项选择题

以下叙述中错误的是

A．Sub Main是定义在标准模块中的特定过程
B．一个工程中只能有一个Sub Main过程
C．Sub Main过程不能有返回值
D．当工程中含有Sub Main过程时，工程执行时一定最先执行该过程

单项选择题

要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是______。

A．Ifx mod 7=2 Then Print x
B．If x-(x\7)*7=2 Then Print x
C．If x-(x/7)*7=2 Then Print x
D．If x-Int(x/7)*7=2 Then Print x

单项选择题

在设计阶段，当按Ctrl+R键时，所打开的窗口是______。

A．代码窗口
B．工具箱窗口
C．工程资源管理器窗口
D．属性窗口

单项选择题

使用语句Dim A(1 To 10)As Integer声明数组A之后，以下说法正确的是 ____ 。

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

单项选择题

在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写
如下程序代码：
Private X As Integer
Private Sub Command1_Click()
X=5: Y=3
Call proc(X, Y)
Label1. Caption=X
Label2. Caption=Y
End Sub
Private Sub proc(a As Integer, ByVal b As Integer)
X=a*a
Y=b+b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。

A．25和3
B．5和3
C．25和6
D．5和6

单项选择题

为了从当前文件夹中读入文件File1.txt，某人编写了下面的程序：
Private Sub Command1_Click()
Open "File1.txt" For Output As #20
Do While Not EOF(20)
Line Input #20,ch$=
Print ch
Loop
Close #20
End Sub
程序调试时，发现有错误，下面的修改方案中正确的是______

A．在Open语句中的文件名前添加路径
B．把程序中各处的“20”该为“1”
C．把Print ch语句改为Print #20，ch
D．把Open语句中的Output改为Input

单项选择题

下面程序的执行结果是
Private Sub Command1_Click()
a=0 k=1
Do While k＜4
x=k^k^a:k=k+1
Print x;
Loop
End Sub

A．1 4 27
B．1 1 1
C．1 4 9
D．0 0 0

单项选择题

窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。

A．Private Sub Text1_Change()Labell.Caption=Text1.TextEnd Sub
B．Private Sub Text1_Click()Labell.Caption=Text1.TextEnd Sub
C．Private Sub Labell_Change()Labell.Caption=Text1.TextEnd Sub
D．Private Sub Labell_Click()Labell.Caption=Text1.TextEnd Sub

单项选择题

设窗体上有名称为Option1的单选按钮，且程序中有语句：
If Option1.Value=True Then
下面语句中与该语句不等价的是______。

A．If Option1.Value Then
B．If Option1=True Then
C．If Value=True Then
D．If Option1 Then

单项选择题

设a=2，b=3，c=4，d=5，下列表达式的值是______。
a＞b And c＜=d Or 2*a＞c

A．True
B．False
C．-1
D．1

单项选择题

设有下列程序：
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。

A．100
B．50
C．120
D．70

单项选择题

在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为
For i=1 To 3
For j=1 To 3
For k=1 To 2
x=x+3
Next k，j，i
Text1.Text=str(x)

A．21
B．42
C．54
D．72

单项选择题

下面程序计算并输出的是______。
Private Sub Comand1_Click()
a=10
s=0
Do
s=s+aaa
a=a-1
Loop Until a＜=0
Print s
End Sub

A.1²+2³+3³+…+10³的值
B.10!+…+3!+2!+1!的值
C.(1+2+3+…+10)³的值
D.10个10³的和

单项选择题

两个或两个以上模块之间关联的紧密程度称为______。

A．耦合度
B．内聚度
C．复杂度
D．数据传输特性

单项选择题

窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程：
Private Sub Text1_Change(Index As Integer)
Select Case Index
Case 0
Text1(1).FontSize=Text1(0).FontSize*2
Text1(1).Text=Text1(0).Text
Case 1
Text1(0).FontSize=Text1(1).FontSize/2
Text1(0).Text=Text1(1).Text
Case Else
MsgBox "执行Else分支"
End Select
End Sub
关于上述程序，以下叙述中错误的是______。

A．Index用于标识数组元素
B．本程序中Case Else分支的语句永远不会被执行
C．向任何一个文本框输入字符，都会在另一个文本框中显示该字符
D．下标为0的文本框中显示的字符尺寸将越来越小

单项选择题

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

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

单项选择题

下列关于线性链表的叙述中，正确的是______。

A．各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致
B．各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续
C．进行插入与删除时，不需要移动表中的元素
D．以上说法均不正确

单项选择题

下列语句中正确的是

A．If A≠B Then Print"A不等于B"
B．If A＜＞B Then Printt"A不等于B"
C．If A＜＞B Then Print"A不等于B"
D．If A≠B Print"A不等于B"

单项选择题

运行下面的程序后，输出的结果为
Cls
Dim t(5,5)as Integer
For i=1 To 5:t(i,i)=1:Next
For i=1 To 5
For j=1 To 5
Print t(i,j)，
Next
Print
Next

A．1 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 1
B．11111
C．1 0 0 0 00 1 0 0 00 0 1 0 00 0 0 1 00 0 0 0 1
D．1 1 1 1 1

单项选择题

以下关于框架的叙述中，错误的是______。

A．框架能够响应Click事件
B．框架是一个容器
C．框架的Enabled属性为False时，框架内的控件均被屏蔽
D．框架可以获得焦点

单项选择题

软件测试方法中的黑盒测试法和白盒测试法是常用的方法，其中黑盒测试法主要是用于测试______。

A．结构合理性
B．程序正确性
C．软件功能
D．程序内部逻辑

单项选择题

下列程序的运行结果是______。
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．Not
B．Like
C．Mod
D．And

单项选择题

通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是

A．Dir
B．Path
C．Drive
D．FileName

下面程序的执行结果是 Private Sub Command1_Click() a=0 k=1 Do While k＜4 x=k^k^a:k=k+1 Print x; Loop End Sub

你可能感兴趣的试题

以下关于过程及过程参数的描述中，错误的是

将E-R图转换为关系模式时，实体和联系都可以表示为______。

写了叙述中正确的是______。

设有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim x(6) a=Array(4, 2, 5, 1, 6, 3) b=Array(64, 24, 98, 27, 58, 41) For k=1 To 6 x(a(k))=b(k) Next k For k=1 To 6 Print x(k); Next k End Sub 程序运行时的输出是

打开菜单编辑器的快捷键是______。

下列程序段的执行结果为 ____ 。 a=6 For k=1 To n a=a+k Next Print k; a

以下合法的VB变量名是

在设计程序时，应采纳的原则之一是______。

面向对象方法中，继承是指______。

以下叙述中错误的是

要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是______。

在设计阶段，当按Ctrl+R键时，所打开的窗口是______。

使用语句Dim A(1 To 10)As Integer声明数组A之后，以下说法正确的是 ____ 。

下面程序的执行结果是 Private Sub Command1_Click() a=0 k=1 Do While k＜4 x=k^k^a:k=k+1 Print x; Loop End Sub

窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 ______。

设窗体上有名称为Option1的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句中与该语句不等价的是______。

设a=2，b=3，c=4，d=5，下列表达式的值是______。 a＞b And c＜=d Or 2*a＞c

设有下列程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox("请输入一个整数") y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。

在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为 For i=1 To 3 For j=1 To 3 For k=1 To 2 x=x+3 Next k，j，i Text1.Text=str(x)

下面程序计算并输出的是______。 Private Sub Comand1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a＜=0 Print s End Sub

两个或两个以上模块之间关联的紧密程度称为______。

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

下列关于线性链表的叙述中，正确的是______。

下列语句中正确的是

运行下面的程序后，输出的结果为 Cls Dim t(5,5)as Integer For i=1 To 5:t(i,i)=1:Next For i=1 To 5 For j=1 To 5 Print t(i,j)， Next Print Next

以下关于框架的叙述中，错误的是______。

软件测试方法中的黑盒测试法和白盒测试法是常用的方法，其中黑盒测试法主要是用于测试______。

下列程序的运行结果是______。 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

下列运算符中，优先级别最低的是

通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是

下面程序的执行结果是
Private Sub Command1_Click()
a=0 k=1
Do While k＜4
x=k^k^a:k=k+1
Print x;
Loop
End Sub

设有下面程序代码：
Option Base 1
Private Sub Command1_Click()
Dim x(6)
a=Array(4, 2, 5, 1, 6, 3)
b=Array(64, 24, 98, 27, 58, 41)
For k=1 To 6
x(a(k))=b(k)
Next k
For k=1 To 6
Print x(k);
Next k
End Sub
程序运行时的输出是

下列程序段的执行结果为 ____ 。
a=6
For k=1 To n
a=a+k
Next
Print k; a

下面程序的执行结果是
Private Sub Command1_Click()
a=0 k=1
Do While k＜4
x=k^k^a:k=k+1
Print x;
Loop
End Sub

设窗体上有名称为Option1的单选按钮，且程序中有语句：
If Option1.Value=True Then
下面语句中与该语句不等价的是______。

设a=2，b=3，c=4，d=5，下列表达式的值是______。
a＞b And c＜=d Or 2*a＞c

设有下列程序：
Private Sub Form_Click()
x=50
For i=1 To 4
y=InputBox("请输入一个整数")
y=Val(y)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为______。

在窗体上添加一个命令按钮，名为Command1，一文本框，名为text1，则执行如下事件过程后，文本框中的输出为
For i=1 To 3
For j=1 To 3
For k=1 To 2
x=x+3
Next k，j，i
Text1.Text=str(x)

下面程序计算并输出的是______。
Private Sub Comand1_Click()
a=10
s=0
Do
s=s+aaa
a=a-1
Loop Until a＜=0
Print s
End Sub

运行下面的程序后，输出的结果为
Cls
Dim t(5,5)as Integer
For i=1 To 5:t(i,i)=1:Next
For i=1 To 5
For j=1 To 5
Print t(i,j)，
Next
Print
Next

下列程序的运行结果是______。
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