相关题目还是出自最新版本的习题集！

编程题：
1．窗体上有三个文本框和一个命令按钮，程序运行后在如图2所示窗体的“开始值：”文本框和“结束值：”文体框中依次输入两个整数后，单击“计算”命令按钮将在“结果值”文本框中显示出两整数之间的所有奇数的累加和。写出运行界面如图2所示程序的设计步骤、设计方法和过程代码
要求：
（1）按VB程序设计步骤的一般要求写出前三个设计步骤的设计内容；
（2）各控件的名称采用默认名称；
（3）对控件属性的设置只写出具有非默认属性值的属性；
（4）过程代码中应包括相关对象过程的首部和尾部。

2．编写程序，分别求出一组给定数据的和与平均值
要求：
（1）数据和（Ssum）与平均值（Fave）分别用函数过程Ssum和函数过程Fave计算产生；
（2）数据和（Ssum）与平均值（Fave）的输出由主调过程Command1_Click完成。
（3）请把相关过程的过程代码写于给定过程中必要的位置

程序分析题：
1．编写如下事件过程：
Private Sub Form_Click()
   Dim Sum As Integer, i As Integer
   For i = 7 To 4 Step -1
      Select Case i
         Case 4, 7
            Sum = Sum +2
         Case 3, 5
            Sum = Sum + i 
         Case Else
            Sum = Sum + 1
      End Select
   Next i
   Print "Sum="; Sum
End Sub
程序运行后，单击窗体，程序的运行结果是：

VB最新习题集：
P45页 程序分析题：第1道
P48页 程序分析题：第7道
P60页 程序分析题：第7道
P88页 程序分析题：第3道

填空题：
答案在VB最新习题集中自己查找。
1. Visual Basic程序有3种工作模式，即设计模式、__________和中断模式。
2. Left和______属性决定对象左上角点在它所在容器对象里的相对位置坐标。
3. 表达式 10 Mod 3 + 2^3/4\5的值是          ________。
4. Format(12345.4, "000,000.##")函数的值是    ______  _  。

7. 一个过程直接或间接地调用其自身的过程为________________。
8. Visual Basic 6.0所使用的控件分为：标准控件、_______________和可插入对象3类。
9. SDI是指单文档界面，MDI是指____________界面。
10. 二进制文件是以__________为单位进行访问的文件。

12．以下程序的功能是利用随即函数产生了10个0~100之间的随机整数，然后用起泡法降序排序后，输出了全部数据。请将程序补充完整。
Private Sub Form_Click()
  Dim s(1 To 10) As Integer
  Dim i As Integer, j As Integer, t As Integer
  For i = 1 To 10
    s(i) = Int(101*Rnd(1))
  Next i
  For i = 1 To 9
For j = ________________
   If  ________________  Then
          t = s(j): s(j) = s(j+1) :s(j+1) = t
       End If
Next j
     Next i
     For i = 1 To 10 
        Print s(i);
     Next i
   End Sub
13．以下程序的功能是，单击窗体，通过调用过程Search,查找数据元素15在数组中的下标值，如果没有该元素，返回值为-1。请填空。
    Option Base 1
Private Sub Form_Click()
   Dim a() as Variant
   Dim n as integer
   a = Array(2,4,6,8,10,15,17,19)
   Call _______________________
   Print n
End Sub
Private Sub Search(a() as Variant, ByVal key As Variant, index as Integer)
   Dim i as Integer
   For i = LBound(a) To UBound(a)
     If  ________________  Then
       index = i
       Exit Sub
   Next i
   index = -1
End Sub

15．以下程序的功能是：把当前目录下的顺序文件Myfile.txt的内容读入内存，并在文本框Text1中显示出来，请填空。
Private Sub Form_Click()
  Dim indata As String
  Text1.Text = " "
  Open "Myfile.txt" For _________ As #1
  Do While Not _________________
     Input  #1, indata 
     Text1.Text = Text1.Text & indata
  Loop
  Close  #1
End Sub

选择题：
全部来自最新的习题集。自行学习！

以上题目的答案大家自己在习题集中查找！编程题，需要到书中去查找相应的程序！习题集中未必有！

梁老师，我最近找了最新习题集。可一直没找上，老师那有多余的吗？

梁老师，我们几个是大四的，不认识低年级的同学，习题集真的不好找，老师有什么办法帮帮我们吗？

梁老师，我是05级的学生。我和我同学两个由于没修够学分被学校延长学制了，没找上你说的最新习题集，万分着急。
希望梁老师能帮帮我们！