vb考試的上機(jī)情況：
1.大家在做題時(shí)候，盡量保持語(yǔ)句的簡(jiǎn)潔性，如果一句語(yǔ)句可以表達(dá)就不要再畫蛇添足，現(xiàn)在引用本版快某lz的說(shuō)法：“題目是要我把text1移動(dòng)到最左邊，就應(yīng)該是text1.left=o,結(jié)果我還多了一句text1.top=0，這樣寫會(huì)不會(huì)得分?。俊彪m然影響不是很大，但是至少讓我們?cè)谛睦砩嫌幸环N擔(dān)熊...
2.真正上機(jī)的時(shí)候如果突然對(duì)莫一塊知識(shí)點(diǎn)不是很清晰，如忘記了text中的某些方法的表達(dá)，不要驚慌，我們大多數(shù)的vb軟件中都有msdn，它會(huì)幫你走出困境（只適合突然對(duì)某些知識(shí)點(diǎn)有些記憶不清楚的同志們）
3.如果上機(jī)程序中只要求你修改屬性，記住千萬(wàn)不要在修改代碼或者添加代碼，那樣很可能出錯(cuò)，如一位網(wǎng)友的貼子（源于本板塊）——“我在做基礎(chǔ)操作題目時(shí)遇到了這樣的一個(gè)題目：要求拖出一個(gè)滾動(dòng)條，刻度為100 ，最小刻度為1，使得單擊滾動(dòng)框以外的地方（不包括滾動(dòng)條兩頭按鈕），使?jié)L動(dòng)條的VALUE值增加10個(gè)刻度。
我在屬性窗口上，設(shè)置為MAX=100 MIN=1 LARGECHANGE=10，然后由于太緊張一至于還編了代碼如下：
Private sub H1_click()
H1.value=H1.value+10
End sub結(jié)果運(yùn)行中沒(méi)有出錯(cuò)信息，我就保存了！注明一點(diǎn)就是題目中沒(méi)有明確要求說(shuō)“考生不得編寫程序代碼”，就什么都沒(méi)說(shuō)？color=Blue]請(qǐng)問(wèn)在這種情況下能得幾分？ ”
4.至于考試成績(jī)的公布大家不要著急，大體每年都是一樣的，考試結(jié)束后1個(gè)半月至2個(gè)半月不等 。
5.保存的時(shí)候，一定要注意窗體和工程都要保存，而且存在要求的考生文件下，否則會(huì)沒(méi)有分的..
4.06.4.1題型匯總：
（1）有a,b,c三個(gè)變量，范圍分別是1－60,問(wèn)滿足勾股（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）有一個(gè)時(shí)間控件，一個(gè)水平滾動(dòng)條、一個(gè)圖像框。在一個(gè)圖像框中閃爍顯示一個(gè)圖像。閃爍的速度由滾動(dòng)條的值決定。要求使用隱藏和顯示來(lái)作。
提示：隱藏用unload顯示用show ；timer事件應(yīng)該是enable為真是動(dòng)為假時(shí)不動(dòng) 。
（3）在題目上繪一個(gè)姓名、電話號(hào)碼、郵政編碼。定義了一個(gè)結(jié)構(gòu)體。隨機(jī)的從IN5.TXT讀出第三條記錄顯示在三個(gè)文本里。寫讀出的過(guò)程 。通常為填空題（因?yàn)榫W(wǎng)友在發(fā)貼時(shí)候也沒(méi)有說(shuō)清楚，只好把大體情況介紹一下，給大家提供開(kāi)闊一下眼界）
（4）簡(jiǎn)單應(yīng)用：1.編寫求回文數(shù)字的function 過(guò)程
2.一個(gè)文本框，里面的數(shù)組的刪除和重排……用inputbox如果輸入的數(shù)是數(shù)組中的，不是則彈出對(duì)話框
3.文本框中選中的字符中出現(xiàn)次數(shù)最多的字母寫在文本框中…
（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）把窗口的標(biāo)題改為“圓角矩形”,在form中添加一個(gè)圓角矩形的Shape1,并設(shè)置填充顏色為&HFF00，高1000，寬2000
┌────────
├────────
│
│ ┏────┓
│ │ │
│ │ │
│ ┕────┛
│
└───────
屬性設(shè)置:
Name │ 屬性 │ 值
───┼────┼─────
Form1 │Caption │圓角矩形
───┼────┼─────
│BackStyle │1-Opaque
Shape1│BackColor │&HFF00
│Width │2000
│Height │1000
│Shape │4-Rounded Rectangle
（7）在窗口中已經(jīng)添加了所有控件，單擊開(kāi)始通話按鈕，則在Text1中顯示通話時(shí)間(通話時(shí)間每秒加1),單擊停止通話按扭，停止計(jì)時(shí)，單擊計(jì)算話費(fèi)按扭調(diào)用sub1過(guò)程,要求：
(1)每個(gè)事件只能寫一條語(yǔ)句
(2)不能使用變量
屬性設(shè)置:
Name │ 屬性 │ 值
───┼────┼─────
Timer1 │Enabled │False
│Interval │ 1000
代碼：
’開(kāi)始通話按鈕
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
’停止通話按鈕
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
’計(jì)算話費(fèi)
Private Sub Command3_Click()
Call Sub1
End Sub
’計(jì)時(shí)器
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) + 1
End Sub
(8)--------------------------------------------------------------------------------
不用變量，如何將兩圖片框中的圖片交換？
提示：
P1.Picture = LoadPicture("文件名 ")
P2.Picture = LoadPicture(" 文件名")
1.大家在做題時(shí)候，盡量保持語(yǔ)句的簡(jiǎn)潔性，如果一句語(yǔ)句可以表達(dá)就不要再畫蛇添足，現(xiàn)在引用本版快某lz的說(shuō)法：“題目是要我把text1移動(dòng)到最左邊，就應(yīng)該是text1.left=o,結(jié)果我還多了一句text1.top=0，這樣寫會(huì)不會(huì)得分?。俊彪m然影響不是很大，但是至少讓我們?cè)谛睦砩嫌幸环N擔(dān)熊...
2.真正上機(jī)的時(shí)候如果突然對(duì)莫一塊知識(shí)點(diǎn)不是很清晰，如忘記了text中的某些方法的表達(dá)，不要驚慌，我們大多數(shù)的vb軟件中都有msdn，它會(huì)幫你走出困境（只適合突然對(duì)某些知識(shí)點(diǎn)有些記憶不清楚的同志們）
3.如果上機(jī)程序中只要求你修改屬性，記住千萬(wàn)不要在修改代碼或者添加代碼，那樣很可能出錯(cuò)，如一位網(wǎng)友的貼子（源于本板塊）——“我在做基礎(chǔ)操作題目時(shí)遇到了這樣的一個(gè)題目：要求拖出一個(gè)滾動(dòng)條，刻度為100 ，最小刻度為1，使得單擊滾動(dòng)框以外的地方（不包括滾動(dòng)條兩頭按鈕），使?jié)L動(dòng)條的VALUE值增加10個(gè)刻度。
我在屬性窗口上，設(shè)置為MAX=100 MIN=1 LARGECHANGE=10，然后由于太緊張一至于還編了代碼如下：
Private sub H1_click()
H1.value=H1.value+10
End sub結(jié)果運(yùn)行中沒(méi)有出錯(cuò)信息，我就保存了！注明一點(diǎn)就是題目中沒(méi)有明確要求說(shuō)“考生不得編寫程序代碼”，就什么都沒(méi)說(shuō)？color=Blue]請(qǐng)問(wèn)在這種情況下能得幾分？ ”
4.至于考試成績(jī)的公布大家不要著急，大體每年都是一樣的，考試結(jié)束后1個(gè)半月至2個(gè)半月不等 。
5.保存的時(shí)候，一定要注意窗體和工程都要保存，而且存在要求的考生文件下，否則會(huì)沒(méi)有分的..
4.06.4.1題型匯總：
（1）有a,b,c三個(gè)變量，范圍分別是1－60,問(wèn)滿足勾股（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）有一個(gè)時(shí)間控件，一個(gè)水平滾動(dòng)條、一個(gè)圖像框。在一個(gè)圖像框中閃爍顯示一個(gè)圖像。閃爍的速度由滾動(dòng)條的值決定。要求使用隱藏和顯示來(lái)作。
提示：隱藏用unload顯示用show ；timer事件應(yīng)該是enable為真是動(dòng)為假時(shí)不動(dòng) 。
（3）在題目上繪一個(gè)姓名、電話號(hào)碼、郵政編碼。定義了一個(gè)結(jié)構(gòu)體。隨機(jī)的從IN5.TXT讀出第三條記錄顯示在三個(gè)文本里。寫讀出的過(guò)程 。通常為填空題（因?yàn)榫W(wǎng)友在發(fā)貼時(shí)候也沒(méi)有說(shuō)清楚，只好把大體情況介紹一下，給大家提供開(kāi)闊一下眼界）
（4）簡(jiǎn)單應(yīng)用：1.編寫求回文數(shù)字的function 過(guò)程
2.一個(gè)文本框，里面的數(shù)組的刪除和重排……用inputbox如果輸入的數(shù)是數(shù)組中的，不是則彈出對(duì)話框
3.文本框中選中的字符中出現(xiàn)次數(shù)最多的字母寫在文本框中…
（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
（6）把窗口的標(biāo)題改為“圓角矩形”,在form中添加一個(gè)圓角矩形的Shape1,并設(shè)置填充顏色為&HFF00，高1000，寬2000
┌────────
├────────
│
│ ┏────┓
│ │ │
│ │ │
│ ┕────┛
│
└───────
屬性設(shè)置:
Name │ 屬性 │ 值
───┼────┼─────
Form1 │Caption │圓角矩形
───┼────┼─────
│BackStyle │1-Opaque
Shape1│BackColor │&HFF00
│Width │2000
│Height │1000
│Shape │4-Rounded Rectangle
（7）在窗口中已經(jīng)添加了所有控件，單擊開(kāi)始通話按鈕，則在Text1中顯示通話時(shí)間(通話時(shí)間每秒加1),單擊停止通話按扭，停止計(jì)時(shí)，單擊計(jì)算話費(fèi)按扭調(diào)用sub1過(guò)程,要求：
(1)每個(gè)事件只能寫一條語(yǔ)句
(2)不能使用變量
屬性設(shè)置:
Name │ 屬性 │ 值
───┼────┼─────
Timer1 │Enabled │False
│Interval │ 1000
代碼：
’開(kāi)始通話按鈕
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
’停止通話按鈕
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
’計(jì)算話費(fèi)
Private Sub Command3_Click()
Call Sub1
End Sub
’計(jì)時(shí)器
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) + 1
End Sub
(8)--------------------------------------------------------------------------------
不用變量，如何將兩圖片框中的圖片交換？
提示：
P1.Picture = LoadPicture("文件名 ")
P2.Picture = LoadPicture(" 文件名")