跪求VB答案，周2要用，有高手帮忙顺手解决，谢谢，高分。
单选题1.下列说法错误的是（ ）。
A) Stop语句用来暂停程序的执行 B) End语句是用来结束一个程序的执行
C) Msgbox语句和Msgbox函数都有返回值 D) MsgBox语句常用于简单的信息显示
2.用Static关键字定义过程是指（ ）。
A) 声明过程名是静态的 B) 声明虚参是静态的
C) 声明函数过程的返回值是静态的 D) 声明过程中的局部变量是静态的
3.关于对象和类，描述错误的是（ ）。
A) 类是同类对象的抽象描述
B) 对象是由类创建的实例
C) 标准工具箱中的控件都是对象实例
D) 添加到窗体上的控件都是对象实例
4.下列说法错误的是（ ）。
A) Stop语句用来暂停程序的执行 B) End语句是用来结束一个程序的执行
C) Msgbox语句和Msgbox函数都有返回值 D) MsgBox语句常用于简单的信息显示
5.要将文本框中的字体设为“隶书”，可设置（ ）的属性为“隶书”。
A) FontBold B)BackItalic C)FontName D)FontSize
6.一个工程中有Form1和Form2两个窗体，（ ）命令可以同时关闭这两个窗体。
A) UnLoad Form2 B) UnLoad Form1 C) UnLoad Me D) End
7.关于对象和类，描述错误的是（ ）。
A) 类是同类对象的抽象描述
B) 对象是由类创建的实例
C) 标准工具箱中的控件都是对象实例
D) 添加到窗体上的控件都是对象实例
8.下列关于属性设置的叙述正确的是（ ）。
A) 所有的对象都有同样的属性
B) 控件的属性只能在设计时修改，运行时无法改变
C) 控件的属性都有同样的默认值
D) 引用对象属性的格式为：对象名称.属性名
9.关于条件语句，下列说法错误的是（ ）。
A) 条件语句中的“条件”可以是逻辑表达式或关系表达式
B) 条件语句中的“条件”可以是数值表达式，非0值表示true，0值表示false
C) 在块结构条件语句中，“语句块”中的语句不能与then在同一行上
D) 块结构的条件语句和单行结构的条件语句都必须以End if结束
10.对于数学表达式X>Y>Z，正确的VB逻辑表达式是（ ）。
A）X>Y AND Y>Z B）X>Y>Z C）X>Y OR Y>Z D）X>Y AND >Z
11. 如果变量a=2、b=3、c=4、d=5，表达式Not a>b And Not d<>c的逻辑值是（ ）。
A）True B）False C）1 D）0
12.Dim x As Variant 与下列哪个语句等价（ ）。
A) Dim x! B) Dim x% C) Dim x D) Dim x＃
13.关于VB中程序运行的方式，以下说法正确的是（ ）。
A) 只能使用解释运行模式
B) 只能使用编译运行模式
C) 既不能使用解释运行模式，也不能使用编译运行模式
D) 既能使用解释运行模式，又能使用编译运行模式
14.下列不属于常量的是（ ）。
A) 12 B) "ch" C) abc D)1.23
15.设组合框Combo1中有3个项目，则以下能删除最后一项的语句是（ ）。
A）Combo1.RemoveItem Text B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3 D）Combo1.RemoveItem Combo1.Listcount
16.下列关于控件的说法，不正确的是（ ）。
A）移动控件的方法：按住鼠标左键不放，拖动到新的位置再放开鼠标键
B）只能从工具栏中选中添加控件，而不能在窗体上复制已经画好的控件
C）利用鼠标的操作，就可以同时修改控件的宽度和高度
D）有些控件没有标题Caption属性
17.执行下面的程序段后，x 的值为（ ）。
x=5
For i=1 To 20 Step 2
x=x+i\3
Next i
A) 35 B) 36 C) 37 D) 38
程序题
1．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
dim a(3,3) as integer
s=0
for i=1 to 3
for j=2 to 3
a(i,j)=i+j
next
next
for i=2 to 3
s=s+a(i,i)
next
print s
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（ ）
2．在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Static S As Integer
Dim I As Integer
S=1
For I =1 to 5
S=S*i
Next i
Print S
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是（ ）
3. 阅读程序
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3 = arr(i)\3 Then Sum =Sum+arr(i)
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为（ ）。
4. 执行下面的程序段后，变量S的值为( ) 。
s=5
For m =2.6 To 4.9 Step 0.6
s=s+m
Next
Print s
5. 以下程序的功能是根据公式S=1-1/3+1/5-1/7+…+ 1/(2n-1)计算前n项之和，程序不完整,请填空完成。
Private Sub Form_Click()
Dim n As Integer
n = Val(InputBox("请输入求和的项数"))
Print fun(n)
End Sub
Private Function fun(n As Integer)
s = 0
f = -1
For i = 1 To n
f = -1 * f
w =
s = s + w
Next
fun = s
End Function
6. 以下程序的功能是：生成20个100到300之间的随机整数x（即100≤x≤300），输出其中能被5整除的奇数并求和。
Private Sub Command1_Click()
Dim i, Sum As Integer
Sum=0
For i = 1 To 20
x = Int(201 * Rnd + 100)
If Then
Print x
Sum = Sum + x
End If
Next i
Print "Sum="; Sum
End Sub
7. 下列程序段的作用是打印出100～999所有的水仙花数(所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。如：153=1^3+5^3+3^3,153是水仙花数。)。
Private Sub Command1_Click()
Dim a, b, c, n As Integer
For n = 100 To 999
a = n \ 100
b = n \ 10 – a * 10
If a ^ 3 + b ^ 3 + c ^ 3 = n Then
Print n
End If
Next
End Sub
8．在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click()
Dim a(5),b(5)
For j =1 to 4
a(j) = 5 * j
b(j) = a(j) * 5
Next j
Text1.text=b(j\2)
End Sub
程序运行后，单击命令按钮，在文本框中显示（ ）。
9．单击命令按钮时，下列程序代码的执行结果为（ ）。
Public Function MyFunc (m As Integer, n As Integer)As Integer
Do While m<>n
Do While m>n
m=m-n
Loop
Do While m<n
n=n-m
Loop
Loop
MyFunc=m
End Function
Private Sub Command1_Click()
Print MyFunc(87,27)
End Sub
10. 下列程序执行后，变量x的值为（ ）。
Dim a As Single,b As Single,c As Single,d As Single
Dim x As Single
a=100
b=20
c=1000
If b>a Then
d=a：a=b：b=d
End if
If b>c Then
x=b
Elseif a>c then
x=c
Else
x=a
End if
11．在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
For i = 1 To 6
If i = 1 Then x = i
If i <= 4 Then
x = x + 1
Else
x = x + 2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为（ ）。
--------------------编程问答-------------------- 题能买出来，答案买不出来？ --------------------编程问答-------------------- adb345345546w34543ri09dvakjk23423
答案在这里，但需要解密 --------------------编程问答-------------------- 考试喽~~~~~~~~~~~~~~ --------------------编程问答--------------------
这样你一辈子也不会成材！论坛签名======================================================================
当您的问题得到解答后请及时结贴.
http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html
http://topic.csdn.net/u/20100428/09/BC9E0908-F250-42A6-8765-B50A82FE186A.html
http://topic.csdn.net/u/20100626/09/f35a4763-4b59-49c3-8061-d48fdbc29561.html
如何给分和结贴？
http://community.csdn.net/Help/HelpCenter.htm#结帖
如何给自己的回帖中也加上签名？
http://blog.csdn.net/q107770540/archive/2011/03/15/6250007.aspx --------------------编程问答-------------------- 这就是中国的教育，可悲、可怜、可叹... --------------------编程问答-------------------- 书到用时方恨少 --------------------编程问答-------------------- 这样的学生，能做什么，怪不得现在毕业即失业 --------------------编程问答-------------------- 直接告诉老师，答案在CSDN。。。 --------------------编程问答-------------------- 你继续Orz吧 --------------------编程问答-------------------- e10adc3949ba59abbe56e057f20f883e
解密了就知道了，这题太小儿科了 --------------------编程问答-------------------- 一看标题就知道是找虐贴. --------------------编程问答--------------------
--------------------编程问答--------------------
楼主肯定是迫不得已的，男儿膝下有黄金，不然是不会轻易orz的，楼主你起来吧，堂堂正正的做人，像个男子汉。0r2
补充：VB , 基础类
