表达式Mid("SHANGHAI"，6，3)的值是( )。

单项选择题

在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form Load()
Show
Text1. Text=""
Text2. Text=""
Text1. SetFocus
End Sub
Private Sub Text1_Change()
Text2. Text=Mid(Text1. Text, 8)
End Sub
程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是______。

A) Beijing
B) China
C) Beijing
D) BeijingC

单项选择题

下列关于货币型数据的描述，正确的是( )。

A．货币型数据有时可以表示成整型数据
B．货币型数据与浮点型数据完全一样
C．货币型数据是由数字和小数点组成的字符串
D．货币型数据是小数点位置固定的实型数

单项选择题

下列不属于软件工程的3个要素的是

A) 工具
B) 过程
C) 方法
D) 环境

单项选择题

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_Clcik()
　　Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
　　s=s+a(k)
　Next k
　Print s
End Sub

A．10
B．14
C．15
D．120

单项选择题

按条件f对关系R进行选择，其关系代数表达式为______。

单项选择题

图像框和图片框在使用时的不同之处是( )。

A) 图片框比图像框占内存少
B) 图像框内还可包括其他控件
C) 图片框有Stretch属性而图像框没有
D) 图像框有Stretch属性而图片框没有

单项选择题

下列符号常量的声明中，不合法的是

A) Const a As Single=1.1
B) Const a="OK"
C) Const a As Double=Sin(1)
D) Const a As Integer="12\

单项选择题

滚动条可以响应的事件是
　　A) Load B) Scrol1 C) Click D) Mouse Down

单项选择题

在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
b=5
c=6
Print a=b+c
End Sub
程序运行后，单击命令按钮，输出的结果是______。

A) a=11
B) a=b+c
C) a=
D) False

单项选择题

某人在窗体上画了一个名称为Timer 1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。
Private Sub Timer1_Timer()
Labe11．Caption：Times
End Sub
在程序执行时发现未能实现上述目的，那么，应做的修改是( )。
A) 通过属性窗口把计时器的Interval属性设置为2000
B) 通过属性窗口把计时器的Enabled属性设置为False
C) 把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D) 把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

单项选择题

文本框Text1的KeyDown事件过程如下：
Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时( )。

A) 是否按下了＜Alt＞键或＜Ertl＞键
B) 按下的是哪个数字键
C) 所按的键盘键的键码
D) 按下的是哪个鼠标键

单项选择题

某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function MaxValue(a()As integer)As Integer
Dim max%
max=1
For k=2 To 10
If a(k)＞a(max)Then
max=k
End If
Next k
MaxValue=max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 ( )。

A) 语句max=1应改为max=a(1)
B) 语句For k=2 To 10应改为For k=1 To 10
C) If语句中的条件a(k)＞a(max)应改为a(k)＞max
D) 语句MaxValue=max应改为MaxValue=a(max)

单项选择题

有人编写了如下程序：
Private Sub Form_Click()
Dim s As Integer, x As Integer
s=0
x=0
Do While s=10000
x=x+1
s=s+x^2
Loop
Print s
End Sub
上述程序的功能是：计算s=1+2²+3²+…+n²+…，直到s＞10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是( )。

A) 把x=0改为x=1
B) 把Do While s=10000改为Do While s＜=10000
C) 把Do While s=10000改为Do while s＞10000
D) 交换x=x+1和s=s+x^2的位置

单项选择题

下面程序执行时，在窗体上显示的是
Private Sub Command1_Click()
Dim a(10)
For k=1 To 10
a(k)=11-k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub

A) 3 B) 5 C) 7 D) 9

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Dption Base 1
Private Sub Command1_Click()
d=0
c=10
x=Array(10, 12, 21, 32, 24)
For i=1 To 5
If x(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。

A) 89 B) 99 C) 23 D) 77

单项选择题

在窗体上添加一个命令按钮，名为Command1，事件过程如下，则执行结果是______。

A) 2 4 6 8
B) 1 3 5 7
C) 3 6 6 12
D) 4 8 12 16

单项选择题

为了获得当前未被使用的文件号，可以利用VB提供的______函数来实现。
(A) FreeFile
(B) Open
(C) Input
(D) Path

单项选择题

在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base 1
Private Sub Command1_Click()
Dim c As Integer,d As Integer
d=0
c=6
X=Array(2，4，6，8，10，12)
For i=1 To 6
If X(i)＞c Then
d=d+X(i)
c=X(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，单击命令按钮，则在窗体上输出的结果为( )。

A) 10
B) 12
C) 16
D) 20

单项选择题

在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。

A) Private Sub List1_Click()
Label1. Caption=List1. ListIndex
End Sub
B) Private Sub List1_Click()
Label1. Name=List1. ListIndex
End Sub
C) Private Sub List1_Click()
Label1. Name=List1. Text
End Sub
D) Private Sub List1_Click()
Label1. Caption=List1. Text
End Sub

单项选择题

下列程序的功能是；将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt" For Output As #1
For i=1 To 8
__________
Next i
Close #1
End Sub
A) print #1,i B) input #1,i
C) print #1 D) input #1

单项选择题

下面叙述中正确的是______。

A) 随机文件中记录的长度不是固定不变的
B) 随机文件由若干条记录组成，并可以按记录号访问各个记录
C) 不能按任意顺序访问随机文件中的数据
D) 可以同时对打开的随机文件进行读写操作

单项选择题

声明一个变量为局部变量应该用

A) Global
B) Private
C) Static
D) Public

表达式Mid("SHANGHAI"，6，3)的值是( )。

你可能感兴趣的试题

已知一棵二叉树前序遍历和中序遍历分别为ABDEGCFH和DBGEACHF，则该二叉树的后序遍历为

算法分析的目的是______。

设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为________。 (A) 349 (B) 350 (C) 255 (D) 351

源程序的文档化不包括( )。

表达式Mid("SHANGHAI"，6，3)的值是( )。

下面关于对象概念的描述中错误的是

在下列关于二叉树的叙述中，正确的一项是

下列叙述中正确的是( )。

对长度为n的线性表排序，在最坏情况下，比较次数不是n(n-1)/2的排序方法是

软件需求分析阶段的工作，可以分为4个方面：需求获取、需求分析、编写需求规格说明书以及( )。

表达式Val(".123E2")的值是( )。

为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为______。

下列关于货币型数据的描述，正确的是( )。

下列不属于软件工程的3个要素的是

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Clcik() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next k Print s End Sub

按条件f对关系R进行选择，其关系代数表达式为______。

图像框和图片框在使用时的不同之处是( )。

下列符号常量的声明中，不合法的是

滚动条可以响应的事件是 A) Load B) Scrol1 C) Click D) Mouse Down

在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程： Private Sub Command1_Click() b=5 c=6 Print a=b+c End Sub 程序运行后，单击命令按钮，输出的结果是______。

文本框Text1的KeyDown事件过程如下： Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Integer) … End Sub 其中参数KeyCode的值表示的是发生此事件时( )。

下面程序执行时，在窗体上显示的是 Private Sub Command1_Click() Dim a(10) For k=1 To 10 a(k)=11-k Next k Print a(a(3)\a(7) Mod a(5)) End Sub

在窗体上添加一个命令按钮，名为Command1，事件过程如下，则执行结果是______。

为了获得当前未被使用的文件号，可以利用VB提供的______函数来实现。 (A) FreeFile (B) Open (C) Input (D) Path

在窗体上画一个名为List1的列表框、一个名为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。

下列程序的功能是；将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。 Private Sub Form_Click() Dim i As Integer Open "Num.txt" For Output As #1 For i=1 To 8 __________ Next i Close #1 End Sub A) print #1,i B) input #1,i C) print #1 D) input #1

下面叙述中正确的是______。

声明一个变量为局部变量应该用

设一棵完全二叉树共有699个结点，则在该二叉树中的叶子结点数为________。
(A) 349
(B) 350
(C) 255
(D) 351

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
Private Sub Command1_Clcik()
　　Dim a
a=Array(1,2,3,4,5)
For k=1 To 4
　　s=s+a(k)
　Next k
　Print s
End Sub

滚动条可以响应的事件是
　　A) Load B) Scrol1 C) Click D) Mouse Down

在窗体上画一个命令按钮(名称为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
b=5
c=6
Print a=b+c
End Sub
程序运行后，单击命令按钮，输出的结果是______。

文本框Text1的KeyDown事件过程如下：
Private Sub Text 1_KeyDown(KeyCode As Integer,Shift As Integer)
…
End Sub
其中参数KeyCode的值表示的是发生此事件时( )。

下面程序执行时，在窗体上显示的是
Private Sub Command1_Click()
Dim a(10)
For k=1 To 10
a(k)=11-k
Next k
Print a(a(3)\a(7) Mod a(5))
End Sub

为了获得当前未被使用的文件号，可以利用VB提供的______函数来实现。
(A) FreeFile
(B) Open
(C) Input
(D) Path

下列程序的功能是；将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。
Private Sub Form_Click()
Dim i As Integer
Open "Num.txt" For Output As #1
For i=1 To 8
__________
Next i
Close #1
End Sub
A) print #1,i B) input #1,i
C) print #1 D) input #1