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

vb考试的计算机情况:

1.做题的时候，尽量保持句子简洁。一句话能表达的，就不要画蛇添足了。现在引用一下本版的lz:“问题是如果我要把text1移到最左边，应该是text 1 . left = 0，结果我多加了一句text1.top=0。我这样写会得分吗？”虽然影响不大，但至少我们心里有一种担当。...

2.当你实际上在电脑上的时候，如果你突然对某个知识点不太清楚，比如忘记了文本中一些方法的表达，不要慌。我们的vb软件大部分都有msdn，会帮你走出困境(只适合突然有些知识点记不清楚的同志)

3.如果只要求修改计算机程序中的属性，切记千万不要修改或添加代码，这样很可能出错。比如一个网友的帖子(来自本节)-“我在做基本操作题的时候，遇到了这样一个问题:我要求拖出一个滚动条，比例尺为100，最小比例尺为1，这样在滚动框外(不包括滚动条两端的按钮)点击，滚动条的值会增加10。

在我的属性窗口上，它被设置为MAX=100 MIN=1 LARGECHANGE=10，然后我紧张得编译了下面的代码:

private h1 _ click()
h1 . value = h1 . value+10
end sub结果运行中没有错误消息，我就保存了！注意题目中没有明确要求“考生不得写程序代码”，所以没什么好说的？这种情况你能得多少分？"

4.至于考试成绩公布，不用担心，每年都一样，考试结束后一个半月到两个半月不等。

5.保存的时候一定要保留好表格和项目，有要求的考生证件，否则没有分。..

4.06.4.1问题类型汇总:

(1)有A、B、C三个变量，分别从1到60。有多少种组合满足勾股定理(A 2+B 2 = C 2)？
回答:private subform _ click()
dim a as integer
dim b as integer
dim c as integer
dim n
for a = 1 to 60
for b = 1 to 60
for c = 1 to 60
如果a ^ 2 + b ^ 2 = c ^ 2则
n = n+1
end if
next

(2)有一个时间控件，一个水平滚动条和一个图像框。在图像框中闪烁图像。闪烁的速度由滚动条的值决定。使用隐藏和显示来完成。

提示:隐藏带卸载，显示带显示；当enable为真或假时，应修复计时器事件。

(3)在题目上画出姓名、电话、邮编。定义了一个结构。从IN5中随机读取第三条记录。TXT并以三种文本显示。阅读的过程。平时要填空问题(因为网友发帖时没说清楚，只好介绍一下大概情况开阔一下眼界)

(4)简单应用:1。写出求回文数的函数过程。

2.一个文本框，里面数组的删除和重排...使用inputbox。如果输入的数字在数组中，如果不在，会弹出一个对话框。

3.文本框中所选字符中出现频率最高的字母被写入文本框…

(5)单击窗口打印如下图案
┌-
├-
│*
│* *
│* * br/]│* * *
└───────
私子窗体_click()

dim i，j为整数

对于i=1到？
for i=1 to 5
'for j=1 to？
for j=1到6-I
print " "；
j = 1的下一个
'到？
对于j=1到i*2-1
打印“*”；
下一页
打印
下一页

对于i=1到4
'对于j=1到？
for j = 1 to I
print " "；
j = 1的下一个
'到？
对于j=1到9-i*2
打印“*”；
下一页
打印
下一页

末端接头

(6)将窗口标题改为“圆角矩形”，在窗体中添加一个圆角矩形的Shape1，填充颜色设置为&HFF00，高度1000，2000
┌-
├-
┏┏-
名称│属性│值
-
Form1 │标题│圆角矩形
-│宽度│2000
│

(7)所有控件都已添加到窗口中。单击开始通话按钮，在文本1中显示通话时间(通话时间每秒增加1)。单击Stop Call按钮停止计时器，单击Calculate Phone Charge按钮调用sub1进程。这些要求是:

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

(2)不能使用变量。

设置:
Name│attribute│value
-
Timer 1│enabled│false
│interval│1000
Private command 1 _ click()
Timer 1 . enabled = true
end Sub
'停止呼叫按钮
Private subcommand 2 _ click()
Time R1 . enabled = false
end Sub[/brText = Val(Text1。Text) + 1
End Sub

(8) - .
提示:
P1。Picture = LoadPicture("文件名")
P2。Picture = LoadPicture("文件名")