关于VB考试的选择题目

Question

1. 与传统的程序设计语言相比，Visual Basic最突出的特点是 ( )
A) 结构化程序设计
B) 程序开发环境
C) 事件驱动编程机制
D) 程序调试技术
2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是(
A) 工程资源管理器窗口
B) 工具箱窗口
C) 属性窗口
D) 代码窗口
3. 对象是 d
A) 代码的组合
B) 数据的组合
C) 代码或数据的组合
D) 代码和数据的组合
4. 以下叙述正确的是
A) 窗体的NAME属性指定窗体的名称，用来标识一个窗体
B) 窗体的NAME属性的值是显示在窗体标题栏中的文本

C) 可以在运行期间改变对象的NAME属性的值

D) 对象的NAME属性值可以为空
5. 如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性
A) Value

B) Visible

C) Enabled

D) Default
6. 从键盘上输入两个字符串，分别保存在变量str1T和str2中。确定第二个字符串在第一个字符串中起始位置的函数是
A) Left

B) Mid

C) String

D) Instr
7.表达式(-1)*Sgn(-100+Int(Rnd*100))的值是
A) 1

B) 0

C) -1

D) 随机数
8. 有如下事件过程：
Private Sub Form_Click()
a="123" : b="456"
x=val(a)+val(b)
print x\100
End Sub
程序运行后，单击窗体，则窗体显示的内容是
A) 5

B) 6

C) 123

D) 579
9.可以同时删除字符串前导和尾部空格的函数是
A) Ltrim

B) Rtrim

C) Trim

D) Mid
10.下列程序段的执行结果为
a=95
If a>60 Then I=1
If a>70 Then I=2
If a>80 Then I=3
If a>90 Then I=4
Print "I="; I
A) I=1

B) I=2

C) I=3

D) I=4
11.如下数组声明语句，正确的是
A) Dim a[3,4] As Integer

B) Dim a(3,4) As Integer

C) Dim a(n,n) As Integer

D) Dim a(3 4) As Integer
12. 单击一次命令按钮后，下列程序的执行结果是
Private Sub Command1_Click()
s=P(1) + P(2) + P(3) + P(4)
Print s
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum + i
Next i
P=Sum
End Function
A) 15

B) 25

C) 35

D) 45
13.表示滚动条控件取值范围最大值的属性是
A) Max

B) LargeChange

C) Value

D) Max-Min
14.设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效?
A) Style

B) Caption

C) Enabled

D) Default
15. 要设置标签框是否有边框，应设置的属性是
A) BackColor

B) ForeColor

C) BorderStyle

D) Visiual
第6题选D吗??是C还是D啊?

Answer 1

1. 与传统的程序设计语言相比，Visual Basic最突出的特点是 C

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是D
3. 对象是D
4. 以下叙述正确的是 A
5. 如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的哪一个属性 C
6. 从键盘上输入两个字符串，分别保存在变量str1T和str2中。确定第二个字符串在第一个字符串中起始位置的函数是 D
7.表达式(-1)*Sgn(-100+Int(Rnd*100))的值是 A
8. 有如下事件过程：A
9.可以同时删除字符串前导和尾部空格的函数是 C
10.下列程序段的执行结果为 D
11.如下数组声明语句，正确的是B
12. 单击一次命令按钮后，下列程序的执行结果是 C
13.表示滚动条控件取值范围最大值的属性是A
14.设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效? A
15. 要设置标签框是否有边框，应设置的属性是 C

选D

返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

语法

InStr([start, ]string1, string2[, compare])

InStr 函数的语法具有下面的参数：

部分 说明
start 可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1 必要参数。接受搜索的字符串表达式。
string2 必要参数。被搜索的字符串表达式。
Compare 可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。

设置

compare 参数设置为：

常数 值 描述
vbUseCompareOption -1 使用Option Compare 语句设置执行一个比较。
vbBinaryCompare 0 执行一个二进制比较。
vbTextCompare 1 执行一个按照原文的比较。
vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

返回值

如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2 找到的位置
start > string2 0

说明

InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。

InStr 函数示例
本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' 被搜索的字符串。
SearchChar = "P" ' 要查找字符串 "P"。

' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
' 小写 p 和大写 P 在文本比较下是一样的。
MyPos = Instr(4, SearchString, SearchChar, 1)

' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
' 小写 p 和大写 P 在二进制比较下是不一样的。
MyPos = Instr(1, SearchString, SearchChar, 0)

' 缺省的比对方式为二进制比较（最后一个参数可省略）。
MyPos = Instr(SearchString, SearchChar) ' 返回 9。

MyPos = Instr(1, SearchString, "W") ' 返回 0。

Answer 2

C D D A C D A A C D B C A A C