整理2006.4.1二级vb考试资料的结论
出处：www.examlink.com 作者：小罗 日期：2007年01月23日 14时20分
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
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
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
next
end sub
最后更新时间：2008-11-04 18:30:28
文章评论
共有 0 位网友发表了评论
看了此文的用户还看了以下内容……
编辑推荐的所有文章
精彩专题
频道精选
考试热门文章Top10
热评
本周
本月
考试热门文章Top10
热评
本周
本月
考试热门文章Top10
热评
本周
本月
