整理2006.4.1二级vb考试资料的结论（1）

文章作者 100test 发表时间 2007:03:10 18:13:28
来源 100Test.Com百考试题网

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(" 文件名")