vb考试的上机情况：

   1.大家在做题时候，尽量保持语句的简洁性，如果一句语句可以表达就不要再画蛇添足，现在引用本版快某lz的说法：“题目是要我把text1移动到最左边，就应该是text1.left=o,结果我还多了一句text1.top=0，这样写会不会得分啊？”虽然影响不是很大，但是至少让我们在心理上有一种担熊...

   2.真正上机的时候如果突然对莫一块知识点不是很清晰，如忘记了text中的某些方法的表达，不要惊慌，我们大多数的vb软件中都有msdn，它会帮你走出困境（只适合突然对某些知识点有些记忆不清楚的同志们）

   3.如果上机程序中只要求你修改属性，记住千万不要在修改代码或者添加代码，那样很可能出错，如一位网友的贴子（源于本板块）——“我在做基础操作题目时遇到了这样的一个题目：要求拖出一个滚动条，最大刻度为100 ，最小刻度为1，使得单击滚动框以外的地方（不包括滚动条两头按钮），使滚动条的VALUE值增加10个刻度。

   我在属性窗口上，设置为MAX=100   MIN=1       LARGECHANGE=10，然后由于太紧张一至于还编了代码如下：

Private sub H1_click()
H1.value=H1.value+10
End sub结果运行中没有出错信息，我就保存了！注明一点就是题目中没有明确要求说“考生不得编写程序代码”，就什么都没说？color=Blue]请问在这种情况下能得几分？ ”

   4.至于考试成绩的公布大家不要着急，大体每年都是一样的，考试结束后1个半月至2个半月不等 。

   5.保存的时候，一定要注意窗体和工程都要保存，而且存在要求的考生文件下，否则会没有分的..

   4.06.4.1题型汇总：

（1）有a,b,c三个变量，范围分别是1－60,问满足勾股（a^2+b^2=c^2)定理的组合有多少种？
   答案：Private Sub Form_Click()
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim n
    For a = 1 To 60
        For b = a To 60
            For c = 1 To 60
                If a ^ 2 + b ^ 2 = c ^ 2 Then
                    n = n + 1
                End If
            Next
        Next
    Next
Print n
End Sub

（2）有一个时间控件，一个水平滚动条、一个图像框。在一个图像框中闪烁显示一个图像。闪烁的速度由滚动条的值决定。要求使用隐藏和显示来作。 

  提示：隐藏用unload显示用show ；timer事件应该是enable为真是动为假时不动 。

（3）在题目上绘一个姓名、电话号码、邮政编码。定义了一个结构体。随机的从IN5.TXT读出第三条记录显示在三个文本里。写读出的过程　。通常为填空题（因为网友在发贴时候也没有说清楚，只好把大体情况介绍一下，给大家提供开阔一下眼界）

（4）简单应用：1.编写求回文数字的function 过程

          2.一个文本框，里面的数组的删除和重排……用inputbox如果输入的数是数组中的，不是则弹出对话框

          3.文本框中选中的字符中出现次数最多的字母写在文本框中…

（5）单击窗口打印如下图案
┌────────
├────────
│         *
│       ***
│     *****
│   *******
│ *********
│   *******
│     *****
│       ***
│         *
└───────
private sub form_click()

dim i,j as integer

for i=1 to ?
for i=1 to 5
     ’for j=1 to ?
     for j=1 to 6-i
         print " ";
     next
     ’for j=1 to ?
     for j=1 to i*2-1
         print "*";
     next
     print
next

for i=1 to 4
    ’for j=1 to ?
    for j=1 to i 
        print " ";
    next
    ’for j=1 to ?
    for j=1 to 9-i*2
        print "*";
    next
    print
next

end sub

（6）把窗口的标题改为“圆角矩形”,在form中添加一个圆角矩形的Shape1,并设置填充颜色为&HFF00，高1000，宽2000
┌────────
├────────
│     
│   ┏────┓
│   │               │
│   │               │
│   ┕────┛ 
│         
└───────
属性设置:
Name   │   属性     │     值
───┼────┼─────
Form1  │Caption    │圆角矩形
───┼────┼─────
            │BackStyle │1-Opaque 
Shape1│BackColor │&HFF00 
            │Width       │2000  
            │Height      │1000
            │Shape      │4-Rounded Rectangle

（7）在窗口中已经添加了所有控件，单击开始通话按钮，则在Text1中显示通话时间(通话时间每秒加1),单击停止通话按扭，停止计时，单击计算话费按扭调用sub1过程,要求：

   (1)每个事件只能写一条语句

   (2)不能使用变量

属性设置:
Name   │   属性     │     值
───┼────┼─────
Timer1 │Enabled    │False
            │Interval   │ 1000
代码：
’开始通话按钮
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
’停止通话按钮
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
’计算话费
Private Sub Command3_Click()
    Call Sub1
End Sub
’计时器
Private Sub Timer1_Timer()
    Text1.Text = Val(Text1.Text) + 1
End Sub

(8)--------------------------------------------------------------------------------
不用变量，如何将两图片框中的图片交换？
提示：
P1.Picture = LoadPicture("文件名 ")
P2.Picture = LoadPicture(" 文件名")