请教大家一些VB的基本问题.朋友要考试.但我不会VB.麻烦请会的有空的朋友解答下.谢谢大家.万分感激一、选择题
1、Visual Basic是一种面向（D）的程序设计语言。
（A）用户 （B）事件 （C）程序 （D）对象
2、表达式Abs（-3）+int(3.14)的值为（B）。
（A）5 （B）6 （C）0.14 （D）6.14
3、下列控件中可用于接受用户输入文本，又可用于显示文本的是（ ）。
（A）Label 控件 （B)TextBox 控件
（C）Timer 控件 （D）CommandButton 控件
4、在Select判断结构中，下面的表述中不正确的是（C）。
（A）Case 1 （B）Case a > 5 （C）Case 3 To 6 （D) Case is <10
5、在VB语言中，求余运算符是（B）。
（A）％ （B）MOD
（C）* （D）/
6、VB编程中顺序文件的处理将用到关键字是（ ）。
（A) File （B) Save （C) Open （D) Disk
7、以下关于VB列表框的叙述中（ ）是错误的。
（A）可通过属性“Item”，返回列表框中的项目
（B）可通过属性“Text”，得到当前列表项中的内容
（C）可通过属性“ListIndex”返回当前选中的列表项的索引
（D）可通过属性“ListCount”返回列表框中项目的数目
8、设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（ ）。
（A） 1 （B） -1 （C） True （D） False
9、语句If x=1 Then y=1,下列说法正确的是（ ）。
（A）x=1和 y=1 均为赋值语句
（B）x=1和 y=1均为关系表达式
（C）x=1为关系表达式，y=1为赋值语句
（D）x=1为赋值语句，y=1为关系表达
10、设有语句: a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（ ）。
（A） 字符串"20" （B） 字符串"120"
（C） 默认值100 （D） 数值120
11、设有语句: a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（ ）。
（A） 字符串"20" （B） 字符串"120"
（C） 默认值100 （D） 数值120
12、用于显示弹出式菜单的方法名是( )
（A）ShowOpen （B）ShowMenu （C） ShowPopup （D）PopupMenu三、程序阅读题
1．
Private Sub Command1_Click()
a=3
b=1
For i=1 To 3
f=a + b
a=b
b=f
Next i
Print f
End Sub
以上程序段运行后，f的结果为 。
2、设有如下通用过程：
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
程序运行后,单击命令按钮,则在文本框中显示的内容是 。四、编写程序
1、选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。2、 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
1、Visual Basic是一种面向（D）的程序设计语言。
（A）用户 （B）事件 （C）程序 （D）对象
2、表达式Abs（-3）+int(3.14)的值为（B）。
（A）5 （B）6 （C）0.14 （D）6.14
3、下列控件中可用于接受用户输入文本，又可用于显示文本的是（ ）。
（A）Label 控件 （B)TextBox 控件
（C）Timer 控件 （D）CommandButton 控件
4、在Select判断结构中，下面的表述中不正确的是（C）。
（A）Case 1 （B）Case a > 5 （C）Case 3 To 6 （D) Case is <10
5、在VB语言中，求余运算符是（B）。
（A）％ （B）MOD
（C）* （D）/
6、VB编程中顺序文件的处理将用到关键字是（ ）。
（A) File （B) Save （C) Open （D) Disk
7、以下关于VB列表框的叙述中（ ）是错误的。
（A）可通过属性“Item”，返回列表框中的项目
（B）可通过属性“Text”，得到当前列表项中的内容
（C）可通过属性“ListIndex”返回当前选中的列表项的索引
（D）可通过属性“ListCount”返回列表框中项目的数目
8、设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（ ）。
（A） 1 （B） -1 （C） True （D） False
9、语句If x=1 Then y=1,下列说法正确的是（ ）。
（A）x=1和 y=1 均为赋值语句
（B）x=1和 y=1均为关系表达式
（C）x=1为关系表达式，y=1为赋值语句
（D）x=1为赋值语句，y=1为关系表达
10、设有语句: a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（ ）。
（A） 字符串"20" （B） 字符串"120"
（C） 默认值100 （D） 数值120
11、设有语句: a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（ ）。
（A） 字符串"20" （B） 字符串"120"
（C） 默认值100 （D） 数值120
12、用于显示弹出式菜单的方法名是( )
（A）ShowOpen （B）ShowMenu （C） ShowPopup （D）PopupMenu三、程序阅读题
1．
Private Sub Command1_Click()
a=3
b=1
For i=1 To 3
f=a + b
a=b
b=f
Next i
Print f
End Sub
以上程序段运行后，f的结果为 。
2、设有如下通用过程：
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
程序运行后,单击命令按钮,则在文本框中显示的内容是 。四、编写程序
1、选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。2、 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
6c
7a
8d
9c
10a
12d
.........
1、Visual Basic是一种面向（D）的程序设计语言。
（A）用户 （B）事件 （C）程序 （D）对象
2、表达式Abs（-3）+int(3.14)的值为（B）。
（A）5 （B）6 （C）0.14 （D）6.14
3、下列控件中可用于接受用户输入文本，又可用于显示文本的是（B）。
（A）Label 控件 （B)TextBox 控件
（C）Timer 控件 （D）CommandButton 控件
4、在Select判断结构中，下面的表述中不正确的是（C）。
（A）Case 1 （B）Case a > 5 （C）Case 3 To 6 （D) Case is <10
5、在VB语言中，求余运算符是（B）。
（A）％ （B）MOD
（C）* （D）/
6、VB编程中顺序文件的处理将用到关键字是（c）。
（A) File （B) Save （C) Open （D) Disk
7、以下关于VB列表框的叙述中（a）是错误的。
（A）可通过属性“Item”，返回列表框中的项目
（B）可通过属性“Text”，得到当前列表项中的内容
（C）可通过属性“ListIndex”返回当前选中的列表项的索引
（D）可通过属性“ListCount”返回列表框中项目的数目
8、设x=4,y=8,z=7，表达式x <y And (Not y>z) Or z <x的值是（d ）。
（A） 1 （B） -1 （C） True （D） False
9、语句If x=1 Then y=1,下列说法正确的是（c ）。
（A）x=1和 y=1 均为赋值语句
（B）x=1和 y=1均为关系表达式
（C）x=1为关系表达式，y=1为赋值语句
（D）x=1为赋值语句，y=1为关系表达
10、设有语句: a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（a）。
（A） 字符串"20" （B） 字符串"120"
（C） 默认值100 （D） 数值120
11、设有语句: a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（ ）。
（A） 字符串"20" （B） 字符串"120"
（C） 默认值100 （D） 数值120
12、用于显示弹出式菜单的方法名是(d )
（A）ShowOpen （B）ShowMenu （C） ShowPopup （D）PopupMenu 三、程序阅读题
1．
Private Sub Command1_Click()
a=3
b=1
For i=1 To 3
f=a + b
a=b
b=f
Next i
Print f
End Sub
以上程序段运行后，f的结果为 9 。
2、设有如下通用过程：
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 。 四、编写程序
1、选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1601-5000元，征2%的税；多于5000元，超过部分征5%的税。
在窗体上添加一个文本框(textbox)和一个标签(label)和一个按钮（conmmandbutton)
Private Sub Command1_Click()
inputtxt = Val(Text1.Text)'
Select Case inputtxt
Case 0 To 1600
Label1.Caption = "你输入的金额为：" & inputtxt & " 元，应征税：0 元"
Case 1601 To 5000
zs = inputtxt / 100 * 2
Label1.Caption = "你输入的金额为：" & inputtxt & " 元，应征税：" & zs & " 元"
End Select
If inputtxt > 500 Then
zs = (inputtxt - 5000) / 100 * 5 + 100
Label1.Caption = "你输入的金额为：" & inputtxt & " 元，应征税：" & zs & " 元"
End If
End Sub2、 编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输出。
Private Sub Form_Load()
For i = 100 To 200
If i Mod 3 = 0 Then
he = he + i
msg = msg & " " & i
End If
Next
Label1.Caption = msg
MsgBox he
End Sub