VB的基础题目有些不会，请大家帮帮忙 谢谢

Question

判断
一个变量在刚被声明尚未被赋值之前没有值。（  n ）
对英文字母的比较，默认情况下是区分大小写的。（  y ）
两个日期时间值可以做减法，但不能做加法。（   ）
表达式 NOT x<3 和 x>3是等价。（   ）
注释行也能使用续行符。（    ）
VB编译生成的可执行文件不再需要工程文件与各个模块文件。（   ）
VB程序中不区分代码字符的大小写。（   ）
当把浮点数赋给整型变量时，会出现溢出错误。（   ）
在同一作用域中，变量名不能重复。（   ）
日期时间型变量既可以保存日期值，也可以保存时间值，但不能同时保存日期和时间值。（   ）
……
2、 选择题（20%）
例题：
下面列出的语句中，没有错误的语句是              
A） txt1.Text+txt2.Text=txt3.Text
B） 12Label1.Caption=1234
C） cmdAdd.Name=cmdSub
D） frmFirst.Move 1000,1000,2000,1200代数运算式 对应的Visual BASIC表达式是：        
A）a/b+c/d  B）a/(b+c)/d   C）(a/b+c)/d  D）a/(b+c/d)下列哪一个是日期型常量
A）”2/1/99”     B）2/1/99       C）#2/1/99#       D）{2/1/99}下列在窗体模块的声明段中声明变量时，不可能使用下列哪个关键字：
A)  Dim       B)  Private       C)  Public      D)  Static表达式 (-11) mod 9 的值为       
A） 1     B）-1      C）2       D）-2要使一个图片框控件自动地附在窗体的一条边上，应该设置它的               属性
A)Picture  B）Align  C）Left  D）AutoSize下列控件中，不具备Caption属性的是：                   
A)ListBox  B）CheckBox  C）Frame  D）正三角形下面哪类控件不支持Change事件：                 
A)TextBox  B）Label  C）PictureBox  D）ListBox下面各类型对象中，没有Move方法的是：                   
A)Line  B）Image  C）Form  D）Shape在列表框中添加一个条目，应使用列表框的什么方法：                  
A)InsertItem  B）AddItem  C）AppendItem  D）RemoveItem
……
3、 读程序，写结果（30%）
例题：
下面程序段执行完毕，窗体上显示的结果是什么？
Dim b As Single,k As Integer
 b=0.2
 p=100
n=0
 Do
  p=p*(1+b)
  n=n+1
 Loop until p>200 
 Print  p,n对下面程序，单击窗体后，窗体上显示什么内容？
Private Sub Form_Click()
 Dim x As Integer,y As Integer,z As Integer
 X=1:y=2:z=3
 Call sub1(x,y,z)
 Call sub1(y,z,x)
Call sub1(y,y,z)
End SubPrivate Sub sub1(byVal x As Integer, y As Integer, z As Integer)
 Dim I As Integer
 X=2*z
 Y=3*z
 Z=x+y
 Print x,y,z
End Sub执行下面程序，单击窗体后，窗体上显示的第一行结果是            ，第三行结果是              。
Private Sub Form_Click()
    Dim Mystr As String
    Dim Mystr1 As String
    Dim Mystr2 As String
    Mystr1 = "B"
    For i = 1 To 3
        Mystr2 = LCase(Mystr1)
        Mystr1 = Mystr1 & Mystr2
        Mystr = Mystr & Mystr1
        Print Mystr
        Mystr1 = Chr(Asc(Mystr1) + i)
    Next
End Sub
执行下面程序，窗体上显示的结果是什么？
Dim  m  As  Integer, n  As  Integer,  k  As  Integer
n=20:k=1
For m=1 to n Step k
 Print m
 n=n-1
 k=k+2
Next
Print n,k
……
4、综合题（30%）
例题：
编写递归函数求1+2+3+……+m的值。
编程计算100～100000之间，共有多少个整数，满足它的各位数字之和为5。
编程计算20＋21＋22＋23＋•••＋210的值。
编程计算100～100000之间，共有多少个整数，满足它的各位数字之和可被3整除。
……

Answer 1

判断 
一个变量在刚被声明尚未被赋值之前没有值。（     n   ） 
对英文字母的比较，默认情况下是区分大小写的。（     y   ） 
两个日期时间值可以做减法，但不能做加法。（     y  ） 
表达式   NOT   x <3   和   x> 3是等价。（    n   ） 
注释行也能使用续行符。（    n     ） 
VB编译生成的可执行文件不再需要工程文件与各个模块文件。（   y    ） 
VB程序中不区分代码字符的大小写。（    y   ） 
当把浮点数赋给整型变量时，会出现溢出错误。（  n     ） 
在同一作用域中，变量名不能重复。（   y    ） 
日期时间型变量既可以保存日期值，也可以保存时间值，但不能同时保存日期和时间值。（    y   ） 

Answer 2

判断:
1、×
2、√
3、×（这个就要看你怎么加了，如果是转换成Long类型，再进行相加，最后再转换为Date类型的话，可以，不过好象有个上限。相加的值不能超过9999-12-31）
4、×
5、×
6、√
7、√
8、×
9、√
10、×
第十题的意思我不是很懂，我只是按我自己的理解给答案
我的理解是这样 ，看下面的代码：
Dim tmpDate As Date
tmpDate = Now()
Debug.Print tmpDate
变量tmpDate为日期变量
你看看打印出来的结果有没有时间。。
（注：日期类型的变量占8字节，其中4字节为日期，另外4字节为时间）
选择题：
1、D
2、不明白什么是代数，sorry
3、C
4、D
5、D
6、B
7、A
8、D
9、A
10、B
第三大题自己打开VB试试

Answer 3

第三大题
1. 207.36        4
2.  6             9             15 
 2             3             5 
 6             9             15
3. Bb
BbCc
BbCcEe
4.  1 
 2 
 3 
 4 
 5 
 6 
 7 
 8 
 9 
 10 
 11 
 12 
 13 
 14 
 15 
 16 
 17 
 18 
 19 
 20 
 0             41 

Answer 4

嘻嘻嘻 谢谢z_wenqian 和给各位帮助~ 不过那位能帮我写一下第4题就更好阿~！ 帮帮我把~

Answer 5

'4.1
Private Function NumberSum(ByVal Max As Long, Optional ByVal Min As Long = 1) As Long
Dim lMin As Long, lMax As Long
Dim i As Long
Dim Sum As Long
    On Error Resume Next
    lMin = Min
    lMax = Max
    If lMax < lMin then
        i = lMin
        lMin = lMax
        lMax = i
    End If
    For i = lMin To lMax
        Sum = Sum + i
    Next i
    NumberSum= Sum
End Function'4.2
Const Min As Long = 100
Const Max As Long = 100000
Dim i As Long, j As Long
Dim tmp As Long,Sum As Long
Dim NumCount As Long
For i = Min To Max
    tmp = i
    Sum = 0
    For j = 1 To Len(tmp)
        Sum = Sum + Mid(tmp, j, 1)
    Next j
    If (Sum Mod 5) = 0 Then NumCount = NumCount + 1
Next i
Debug.Print NumCount'4.3 参考4.1'4.4
Const Min As Long = 100
Const Max As Long = 100000
Dim i As Long, NumCount As Long
For i = Min To Max
    If (i Mod 3) = 0 Then NumCount = NumCount + 1
Next i
Debug.Print NumCount
'只要能被3整除的数,各位数相加的结果必然可以被3整除
'至于5嘛,我暂时还没发现有什么规律，所以代码比较复杂点

Answer 6

唉，第四大题(昨天休息，今天给你)1.
Function AddNum(ByVal n As Long) As Long
    If n = 1 Then
        AddNum = n
    Else
        AddNum = n + AddNum(n - 1)
    End If
End Function2.
Sub iCount5()
    Dim i As Long, j As Long, k As Long, l As Long, c As Long
    For i = 0 To 5
        For j = 0 To 5 - i
            For k = IIf(i + j, 0, 1) To 5 - i - j
                For l = 0 To 5 - i - j - k
                    c = c + 1
                Next l
            Next k
        Next j
    Next i
print c
End Sub
结果 c=1203.
Sub AddNum()
    Dim i As Long, c As Long
    For i = 20 To 220
        c = c + i
    Next i
    Print c
End Sub
结果 c=24120或
Sub iCount()
    Debug.Print CLng((20 + 220)) * (220 - 20 + 1) / 2
End Sub
结果 c=24120
4.
Sub iCount3()
    Dim i As Long, c As Long
    For i = 100 To 100000
        If i Mod 3 = 0 Then c = c + 1
    Next i
    Print c
End Sub
结果 c=33300

Answer 7

等下肯定问你Function和Sub要怎么用

Answer 8

第四大题2: 又少一层循环，效率提高，55次循环就能求出结果120
Sub iCount5()
    Dim i As Long, j As Long, k As Long, c As Long
    For i = 0 To 5
        For j = 0 To 5 - i
            For k = IIf(i + j, 0, 1) To 5 - i - j
                c = c + (5 - i - j - k) + 1
            Next k
        Next j
    Next i
    Print c
End Sub