关于VB考试的，都是很基础的，但我从来没听过课，求解答！感激不尽，尽快啊，谢谢

Question

1. 在文本框上显示文本的属性是（）。
A. Value
B. Text
C. Print
D. Enabled
2. InputBox函数返回值的类型为（）。
A. 字符串
B. 数值
C. 变体
D. 数值或字符串（视输入的数据而定）

Int(-3.14)的值是
A. -3
B. -3.14
C. -4
D. 3.14
10. Function过程的定义，不必须有的是（　）。
A. 过程的名称
B. 虚参
C. End Function
D. 给过程赋值
11. 列表项选择后得到的选中索引是指（）。
A. Value
B. ListValue
C. Index
D. ListIndex
12. 定时器定时工作所触发的事件是（）。
A. Click()
B. Change()
C. Timer()
D. Load()
13. 指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14将绘制以下哪种图形？（ ）
A. 圆
B. 椭圆
C. 扇形
D. 圆弧
二、 填空题1 ( 每题10分，共2题，共20分 )
16. 设有如下通用过程：
Public Sub fun(a() As Integer, x As Integer)
　　 For i = 1 To 5
　 　 x = x + a(i)
　　 Next
　　End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
　　Dim arr(5) As Integer, n As Integer
　　For i = 1 To 5
　　 arr(i) = 2* i
　　Next
　　fun arr, n
　　Text1.Text = Str(n)
　　End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是 。
17. 阅读下列程序段
Option Explicit
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
str1 = "ABCDEFG"
MySub str1, str2
Print str2
End Sub

Private Sub MySub(ByVal a As String, b As String)
Dim c As String
Dim i As Integer
For i = Len(a) To 1 Step -1
c = c+ Mid(a, i, 1)
Next
b= c
End Sub
程序运行后，“print”语句的输出结果是_GFEDCBA_ _。

Answer 1

1. 在文本框上显示文本的属性是（）。
A. Value
B. Text
C. Print
D. Enabled
答案：B
2. InputBox函数返回值的类型为（）。
A. 字符串
B. 数值
C. 变体
D. 数值或字符串（视输入的数据而定）
答案：A
Int(-3.14)的值是
A. -3
B. -3.14
C. -4
D. 3.14
答案：C
10. Function过程的定义，不必须有的是（　）。
A. 过程的名称
B. 虚参
C. End Function
D. 给过程赋值
答案：B。函数过程的定义有两种方法：
　（1） 在代码窗口中，利用“工具”菜单下的“添加过程”命令，插入一个函数过程模板来定义
　（2）在代码窗口中，把插入点放在所有现有过程之外，直接输入函数来定义
　　 [ Private | Public ] [ Static] Function 函数名（[参数列表]）[As 数据类型]
　　　 [局部变量和常数声明] ‘用Dim 或Static声明
　　　 [ 语句块 ]
　　　 [ 函数名=表达式 ]
　　　 [ Exit Function]
　　 语句块
　　　 [ 函数名=表达式 ]
　　　 End Function

11. 列表项选择后得到的选中索引是指（）。
A. Value
B. ListValue
C. Index
D. ListIndex
答案：D
12. 定时器定时工作所触发的事件是（）。
A. Click()
B. Change()
C. Timer()
D. Load()
答案：C
13. 指令Circle（2000，3000），2000，QBColor，－3.14/2，－3.14将绘制以下哪种图形？（ ）
A. 圆
B. 椭圆
C. 扇形
D. 圆弧
答案：C，其中QBColor后跟参数应为QBColor（vaule）
二、 填空题1 ( 每题10分，共2题，共20分 )
16. 设有如下通用过程：
Public Sub fun(a() As Integer, x As Integer)
　　 For i = 1 To 5
　 　 x = x + a(i)
　　 Next
　　End Sub
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
　　Dim arr(5) As Integer, n As Integer
　　For i = 1 To 5
　　 arr(i) = 2* i
　　Next
　　fun arr, n
　　Text1.Text = Str(n)
　　End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是 。
答案：30
程序运行代码乳如下：
Public Sub fun(a() As Integer, x As Integer)
For i = 1 To 5
x = x + a(i)
Next
End Sub
'在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮 , 然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(5) As Integer, n As Integer
For i = 1 To 5
arr(i) = 2 * i
Next
fun arr, n
Text1.Text = Str(n)
End Sub
17. 阅读下列程序段
Option Explicit
Private Sub Command1_Click()
Dim str1 As String
Dim str2 As String
str1 = "ABCDEFG"
MySub str1, str2
Print str2
End Sub

Private Sub MySub(ByVal a As String, b As String)
Dim c As String
Dim i As Integer
For i = Len(a) To 1 Step -1
c = c+ Mid(a, i, 1)
Next
b= c
End Sub
程序运行后，“print”语句的输出结果是_GFEDCBA_ _。
答案：GFEDCBA
个人答案仅供参考追问

请问兄台，有多大把握，我是真的一点都不知道啊！

追答

及格应该没有问题

追问

选择题能保证全对吗？

追答

第11题，不知道，凭感觉，其他的应该没有问题