这是一份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
程序运行后，单击命令按钮，其输出结果为（   ）。
   num=num+1
--------------------编程问答-------------------- 这里不做考试题目 --------------------编程问答-------------------- --------------------编程问答-------------------- 建议转移到江湖板块

--------------------编程问答-------------------- 出钱就有人做 --------------------编程问答-------------------- ADDBBCDADACDBDAACB 不保证结果的正确性，不过正确率应该会大于25% --------------------编程问答-------------------- - -正确率25%，哥哥，你会害死人滴 --------------------编程问答-------------------- 这就是你们老师出的题目?1和4相同,3与7相同 --------------------编程问答-------------------- 采集得好快
http://www.lampchina.net/ask/MTYyODkzNg.html --------------------编程问答-------------------- 不要以为有了CSDN，神马考试题毕业论文设计都可以往这里一丢…… --------------------编程问答-------------------- 应该没人做... --------------------编程问答--------------------

Sub SB()

dim LzSb

dim NotSb



LzSb="这是一份VB考试题目...."

NotSb.exeute

NotSb.find.text="我擦,你当我们CSDN的网友们是shabi呢!"

NotSb.Notexecute



end sub

--------------------编程问答--------------------





SELECT id,who,state FROM currentBBS



输出值：



No1 LZ SB

--------------------编程问答-------------------- 评论比题目好看。哈哈！！楼主，你真牛！！哈哈 --------------------编程问答-------------------- 又见找虐贴啊 --------------------编程问答-------------------- 结贴率0,技术分0,没保障啊.
人家WOW卖点卡都知道装备不行的先G后卡. --------------------编程问答-------------------- 4楼说的在理

补充：VB ,  VBA