若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是__...

单项选择题

设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x=20:y=2:f=x*y
End Function
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Static x As Integer
x=10:y=5:y=f(x)Print x; y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A．10 5
B．20 40
C．20 5
D．10 40

单项选择题

在PasswordChar属性中设置#，但运行时仍显示文本内容，原因是

A．文本框的Locked属性设置为False
B．文本框的Locked属性设置为Tree
C．文本框的Multiline的属性设置为Fasle
D．文本框的Multiline的属性设置为True

单项选择题

程序段如下：
Private Sub Command1_Click()
a=0
for I=15 To 15 Step-2
a=a+I
Next I
Print a,I
End Sub
发生Command1的单击事件后，程序的输出结果是______。

A．0 13
B．15 13
C．0 15
D．15 15

单项选择题

软件设计中，有利于提高模块独立性的一个准则是

A．低内聚低耦合
B．低内聚高耦合
C．高内聚低耦合
D．高内聚高耦合

单项选择题

下列程序执行的结果为
x=25：y=20： z=7
Print"S("；x+2*y；")"

A．S(47)
B．S(165)
C．S(25+7*20)
D．S(87)

单项选择题

在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：
Private Sub Command1_Click()
x=0
DO While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。

A．1和0
B．2和72
C．3和50
D．4和168

单项选择题

为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：Private Sub Command1 Click()
Dim a&,s&,k&
s=1
a=2
For k=2 To 10
a=a*2
s=s+a
Next k
Text1.Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是______。

A．把s=1改为s=0
B．把For k=2 To 10改为For k=1 To 10
C．交换语句s=s+a和a=a*2的顺序
D．把For k=2 To 10改为For k=1 To 10，交换语句s=s+a和a=a*2的顺序

单项选择题

有如下程序：
Dim arr(3, 3)
For j=1 To 3
For k=1 To 3
arr(j，k)=(j-1)* 3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k, j);
Next k
Print
Next j
运行程序后，输出的结果是______。

A．25 36
B．58 69
C．47 58
D．59 68

单项选择题

若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是______。

A．Command1.Enabled=False
B．Command1.Visible=False
C．Command1.Cancel=False
D．Command1.Default=False

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Diml,Num
Randomize
Do
For I=1 To 1000
Num=lnt(Rnd*100)
Print Num;
Select Case Num
Case 12
Exit For
Case 58
Exit Do
Case 65,68,92
End
End Select
Next1
Loop
End Sub
上述事件过程执行后，下列描述中正确的是______。

A．Do循环执行的次数为1000次
B．在For循环中产生的随机数小于或等于100
C．当所产生的随机数为12时结束所有循环
D．当所产生的随机数为65、68或92时窗体关闭、程序结束

单项选择题

在软件开发中，需求分析阶段产生的主要文档是______。

A．软件集成测试计划
B．软件详细设计说明书
C．用户手册
D．软件需求规格说明书

单项选择题

在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1 Click()
Dim a(10) As Integer
For k=10 To 1 Step-1
a(k)=20-2*k
Next k
k=k+7
Print a(k-a(k))
End Sub
运行程序，单击命令按钮，输出结果是______。

A．18
B．12
C．8
D．6

单项选择题

设整型数组a有10个元素，其中前9个元素中数已按小到大顺序排列，下面程序段的作用是______。
x = InputBox("请输入一个整数")
k = 8
Do
If x ＞ = a(k) Then
a(k+1) = x
Exit Do
Else
a(k + 1) = a(k)
If k = 0 Then a(k) = x
k = k - 1
End If
Loop Until k ＜ 0

A．把x中的数插入数组a，使数组中的数仍然保持从小到大的顺序
B．在数组a中找到小于或等于x的数，把x中的数放到这个数的后面
C．把x中的数放到下标为0的数组元素中
D．把数组a中的数依次后移，然后把x中的数放到数组的最前面

单项选择题

阅读程序：
Private Sub Form Click
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num\10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为__。

A．1 3 7 5 9
B．5 4 3 2 1
C．2 4 6 8 10
D．1 2 3 4 5

单项选择题

运行下面程序后，正确的输出结果是______。
Private Sub Command1_Click()
x=6
if x＞6 then
Print "x＞6";
Else
if x＜8 then
Print "x＜8";
Else
if x=6 then
Print: "x=6";
End if
End if
End if
End Sub

单项选择题

软件测试的目的是______。

A．评估软件可靠性
B．发现并改正程序中的错误
C．改正程序中的错误
D．发现程序中的错误

单项选择题

函数过程n的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。

A．Function F1(b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function
B．Function F1(b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd Function
C．Function F1(b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd Function
D．Functionn(b As Integer)If b Mod 2 ＜＞0ThenReturn 0ElseReturn 1End IfEnd Function

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5)As String
For i=1 To 5
a(i):Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是 ____ 。

A．ABCDE
B．1 2 3 4 5
C．abcde
D．出错信息

单项选择题

下列程序的执行结果为______。
Private Sub Command1_Click()
a=100
b=50
if a＜＞b then a=a+b Else b=b-a
Print a,b
End Sub

A．50 50
B．150 50
C．200 200
D．10 10

单项选择题

在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。

A．List
B．Index
C．Listindex
D．Tabindex

单项选择题

用链表表示线性表的优点是 ______。
A) 便于插入和删除操作 B) 数据元素的物理顺序与逻辑顺序相同
C) 花费的存储空间较顺序存储少D) 便于随机存取

单项选择题

在Visual Basic中，表达式3*2\5 Mod3的值是______

A．1
B．0
C．3
D．出现错误提示

单项选择题

设有语句
Open "c：\Test. Dat" For Output As#1
则以下错误的叙述是______。

A．该语句打开C盘根目录下一个已经存在的文件Test.Dat
B．该语句在C盘根目录下建立一个名为Test.Dat的文件
C．该语句建立的文件的文件号为1
D．执行该语句后，就可以通过Print#句向文件Test.Dat中写入信息

单项选择题

当文本框中的内容发生改变时所触发的事件是______。

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

单项选择题

以下说法错误的是 ______。

A．函数过程没有返回值
B．子过程没有返回值
C．函数过程可以带参数
D．子过程可以带参数

单项选择题

下面程序运行后，输出结果是______。
Private Sub mysub(b()As Integer,Optional ByVal n As Integer=2)
For I=1 to 4
b(I)=n*I
Next I
End Sub
Private Sub Command1_Click()
Dim a(1 to 4)As Integer，I As Integer
Call mysub(a()，5)
Mysub a()
ForI=1 to 4
Print a(i);
Next
End Sub
A 1 5 10 15 20 B．2 4 6 8 C．出错 D．0 0 0 0

单项选择题

设x是整型变量，与函数IIf(x＞0，-x，x)有相同结果的代数式是______。

A．|x|
B．-|x|
C．.x
D．-x

单项选择题

决定控件上文字的字体、字形、大小、效果的属性是 ______。

A．Text
B．Caption
C．Name
D．Font

单项选择题

改变驱动器列表框的Drive属性值将激活______事件。

A．Change
B．Scroll
C．KeyDown
D．KeyUp

单项选择题

下列叙述中正确的是______。

A．循环队列是队列的一种链式存储结构
B．循环队列是队列的一种顺序存储结构
C．循环队列是非线性结构
D．循环队列是一种逻辑结构

单项选择题

随机文件用于读数据的语句是______。

A．Get
B．Writ
C．Print
D．Input

若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是______。

你可能感兴趣的试题

在文本框中，要使键入的所有字符都显示“*”号，这时应该设置 ______属性为“*”号。

软件设计中模块划分应遵循的准则是______。

下面不是键盘事件的是______。

软件测试的目的是______。

在PasswordChar属性中设置#，但运行时仍显示文本内容，原因是

程序段如下： Private Sub Command1_Click() a=0 for I=15 To 15 Step-2 a=a+I Next I Print a,I End Sub 发生Command1的单击事件后，程序的输出结果是______。

软件设计中，有利于提高模块独立性的一个准则是

下列程序执行的结果为 x=25：y=20： z=7 Print"S("；x+2*y；")"

有如下程序： Dim arr(3, 3) For j=1 To 3 For k=1 To 3 arr(j，k)=(j-1)* 3+k Next k Next j For j=2 To 3 For k=2 To 3 Print arr(k, j); Next k Print Next j 运行程序后，输出的结果是______。

若要把窗体上命令按钮Command1的状态设置为不可用，应该执行的命令是______。

在软件开发中，需求分析阶段产生的主要文档是______。

在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1 Click() Dim a(10) As Integer For k=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k)) End Sub 运行程序，单击命令按钮，输出结果是______。

设整型数组a有10个元素，其中前9个元素中数已按小到大顺序排列，下面程序段的作用是______。 x = InputBox("请输入一个整数") k = 8 Do If x ＞ = a(k) Then a(k+1) = x Exit Do Else a(k + 1) = a(k) If k = 0 Then a(k) = x k = k - 1 End If Loop Until k ＜ 0

阅读程序： Private Sub Form Click ____ Dim num As Integer, digit As Integer num=InputBox("输入数据") Do While num＜＞0 digit=num Mod 10 num=num\10 Print digit； Loop End Sub 程序运行后，如果从键盘上输入12345，则输出结果为______。

运行下面程序后，正确的输出结果是______。 Private Sub Command1_Click() x=6 if x＞6 then Print "x＞6"; Else if x＜8 then Print "x＜8"; Else if x=6 then Print: "x=6"; End if End if End if End Sub

软件测试的目的是______。

函数过程n的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码的是______。

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(i):Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是 ____ 。

下列程序的执行结果为______。 Private Sub Command1_Click() a=100 b=50 if a＜＞b then a=a+b Else b=b-a Print a,b End Sub

在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。

用链表表示线性表的优点是 ______。 A) 便于插入和删除操作 B) 数据元素的物理顺序与逻辑顺序相同 C) 花费的存储空间较顺序存储少D) 便于随机存取

在Visual Basic中，表达式3*2\5 Mod3的值是______

设有语句 Open "c：\Test. Dat" For Output As#1 则以下错误的叙述是______。

当文本框中的内容发生改变时所触发的事件是______。

以下说法错误的是 ______。

设x是整型变量，与函数IIf(x＞0，-x，x)有相同结果的代数式是______。

决定控件上文字的字体、字形、大小、效果的属性是 ______。

改变驱动器列表框的Drive属性值将激活______事件。

下列叙述中正确的是______。

随机文件用于读数据的语句是______。

在文本框中，要使键入的所有字符都显示“”号，这时应该设置 ______属性为“”号。

程序段如下：
Private Sub Command1_Click()
a=0
for I=15 To 15 Step-2
a=a+I
Next I
Print a,I
End Sub
发生Command1的单击事件后，程序的输出结果是______。

下列程序执行的结果为
x=25：y=20： z=7
Print"S("；x+2*y；")"

有如下程序：
Dim arr(3, 3)
For j=1 To 3
For k=1 To 3
arr(j，k)=(j-1)* 3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k, j);
Next k
Print
Next j
运行程序后，输出的结果是______。

在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1 Click()
Dim a(10) As Integer
For k=10 To 1 Step-1
a(k)=20-2*k
Next k
k=k+7
Print a(k-a(k))
End Sub
运行程序，单击命令按钮，输出结果是______。

设整型数组a有10个元素，其中前9个元素中数已按小到大顺序排列，下面程序段的作用是______。
x = InputBox("请输入一个整数")
k = 8
Do
If x ＞ = a(k) Then
a(k+1) = x
Exit Do
Else
a(k + 1) = a(k)
If k = 0 Then a(k) = x
k = k - 1
End If
Loop Until k ＜ 0

阅读程序：
Private Sub Form Click
Dim num As Integer, digit As Integer
num=InputBox("输入数据")
Do While num＜＞0
digit=num Mod 10
num=num\10
Print digit；
Loop
End Sub
程序运行后，如果从键盘上输入12345，则输出结果为__。

运行下面程序后，正确的输出结果是______。
Private Sub Command1_Click()
x=6
if x＞6 then
Print "x＞6";
Else
if x＜8 then
Print "x＜8";
Else
if x=6 then
Print: "x=6";
End if
End if
End if
End Sub

在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(5)As String
For i=1 To 5
a(i):Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b;
Next
End Sub
程序运行后，单击命令按钮，输出结果是 ____ 。

下列程序的执行结果为______。
Private Sub Command1_Click()
a=100
b=50
if a＜＞b then a=a+b Else b=b-a
Print a,b
End Sub

用链表表示线性表的优点是 ______。
A) 便于插入和删除操作 B) 数据元素的物理顺序与逻辑顺序相同
C) 花费的存储空间较顺序存储少D) 便于随机存取

设有语句
Open "c：\Test. Dat" For Output As#1
则以下错误的叙述是______。