第一篇：VB等級考試題目

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

VB等級考試題目

練習中--§§ 準考證號:12X2a0101vbp §§ 姓名:練習001 §§ 班級:所有專業.杭州師范大學

計算機技術基礎(VB程序設計)課程練習近平臺.學號:12X2a0101vbp 姓名:練習001 班級:所有專業

注意：回答完所有試題之后，需要點擊本頁面最后的【交卷完成，退出系統】按鈕。

題號一二三四五

題型判斷題 單選題 程序填空題 程序閱讀題 程序設計題

說明點擊題型名稱可以跳轉到相應題型

一、判斷題

第1題：從幾十個項目中任選其中一項或多項時可選用列表框或組合框控件來實現。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：錯

對

和False。

錯

第2題：Boolean類型數據，可以用來保存邏輯值True參考答案：對

對

錯

第3題：在VB中，對象是代碼和數據的集合。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：對

對

錯

第4題：在行If語句中，關鍵字End If必不可少。

參考答案：錯

對

錯

第5題：執行語句“C=Point(50,100)”，可將窗體坐標(50,100)處點的顏色值存入變量C。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：對

對

錯

第6題：在設計Windows應用程序時，用戶可以使用系統本身提供的某些對話框，這些對話框可以直接從系統調入而不必由用戶用“自定義”的方式進行設計。

參考答案：對

對

錯

第7題：定時器控件只能響應Timer事件。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：對

對

錯

第8題：Print #語句的作用是將數據從文件中讀出并顯示在窗體上。

參考答案：錯

對

錯

第9題：如果B是一個字節型變量，那么B可以用來保存數值-1。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：錯

對

錯

第10題：如果在定義過程時，一個形式參數使用地址傳遞方式說明，則調用過程時與之對應的實參只能按地址方式傳遞。

參考答案：對

對

錯

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

二、單選題

第1題：在VB中，______被稱為對象。

參考答案：D

A、模塊和類

B、方法和事件

C、窗、控件、屬性

D、窗體和控件

第2題： 設置文本框text1，要求只能顯示信息，不能接受輸入的信息，______能實現該操作。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：B

A、Text1.maxlength=0

B、Text1.enabled=false

C、Text1.visible=false

D、Text1.width

第3題：窗體文件的擴展名為______。

參考答案：A

A、FRM

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

B、CLS

C、BAS

D、FRX

第4題：將通用對話框類型設置為“另存為”對話框，應修改______屬性。

參考答案：C

A、Filter

B、Font

C、Action

D、FileName

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

第5題：下列______方法或函數可以調用外部的可執行文件。

參考答案：B

A、Show

B、Shell

C、Input

D、Open 第6題：表達式16/2-2^ 3*7 MOD 9的結果是 ______。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：A

A、6

B、0

C、9

D、以上都不對

第7題：Visual Basic可以用以下哪一條屬性來設置畫圓方法的邊框類型______。

參考答案：B

A、BorderWidth

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

B、BorderStyle

C、DrawWidth

D、FillColor

第8題：下列關于Select Case的敘述中，錯誤的是______。

參考答案：D

A、Case 10 To 100 表示判斷Is是否介于10與100之間

B、Case“abc”,“ABC”表示判斷Is是否和“abc”、“ABC”兩個字符串中的一個相同

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

C、Case “X” 表示判斷Is是否為大寫字母X

D、Case-7,0,100 表示判斷Is是否等于字符串“-7，0，100”

第9題：InputBox函數用來返回用戶輸入的值，該值的類型是______。

參考答案：C

A、整型

B、字節型

C、字符串型

D、邏輯型

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

第10題： 因修改文本框中的數據而觸發的事件是。

參考答案：A

A、change

B、Getfocus

C、SetFocus

D、LostFocus

精心收集

精心編輯

精致閱讀 如需請下載！______

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

三、程序填空題

第1題：【程序說明】本程序統計3～100之間所有素數的個數；最后將素數的個數寫入順序文件

e:dataout.txt中。

Private Sub Command1_Click()

Dim i As Integer, flag As Boolean

Dim t1 As Integer, t2 As Integer

----1----

i = 0

For t1 = 3 To 100

flag = True

For t2 = 2 To Int(Sqr(t1))

If----2----then flag = False

Next t2

If flag then

i = i+1

End If

Next t1

----3----

Close #1

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

End Sub

請在左邊文本框當中輸入正確答案。

或open

參考答案：open “e:dataout.txt” for output as #“e:dataout.txt” for append as #1

請在左邊文本框當中輸入正確答案。

參考答案：t1 mod t2=0

請在左邊文本框當中輸入正確答案。精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：Write #1,I或print #1,I

第2題：【程序說明】

自制一個簡單的圖片瀏覽器。在窗體上建立一個圖片框控件、一個時鐘控件和一個命令按鈕。運行時，顯示第一張圖片，單擊“瀏覽”按鈕每隔1秒在圖片框中顯示另一張圖片，顯示到最后一張圖片時，又從第一張開始顯示。（假設在C:Windows目錄下有1.bmp、2.bmp、……、8.bmp這樣8張圖片需顯示）

Dim----1---As Integer

Private Sub Form_Load()

I = 1

Picture1.Picture = LoadPicture(“c:windows1.bmp”)

Picture1.AutoSize = True

End Sub

Private SubTimer1_----2----

If----3----Then

I =I+1

Else

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

I = 1

End If

Picture1.Picture = LoadPicture(“c:windows” & I & “.bmp”)

End Sub

請在左邊文本框當中輸入正確答案。

參考答案：I

請在左邊文本框當中輸入正確答案。

參考答案：Timer()

請在左邊文本框當中輸入正確答案。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：I <= 7或I<8

第3題：【程序說明】

該程序執行后，輸出一個右上三角元素（含對角線）為1，其余元素為0 的5×5的矩陣。

Private Sub Form_Click()

Dim a(1 To 5, 1 To 5)As Integer

Dim I As Integer, j As Integer

For I = 1 To 5

For j = 1 To 5

If----1----Then

----2----

End If

Next j

Next I

For I = 1 To 5

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

For j = 1 To 5

Form2.Print “ ”;a(I, j);

Next j

----3----

Next I

End Sub

請在左邊文本框當中輸入正確答案。

參考答案：I<=j或j>=I

請在左邊文本框當中輸入正確答案。

參考答案：a(I,j)=1

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

請在左邊文本框當中輸入正確答案。

參考答案：print

第4題：【程序說明】

如圖，程序運行時，用戶可以在文本框中輸入文本，單擊command1“添加”按鈕后將文本中輸入的內容加到列表框的末尾，用戶選某列表框的某一個列表項后，單擊command2“刪除”按鈕，將刪除該列表項；如果沒有任何一項選中，將有出錯提示“先選擇，再刪除！”。

> Private Sub Command1_Click()‘ 添加按鈕

If Len(Text1.Text)<> 0 Then

----1----

Text1.Text = “"

Text1.SetFocus

End If

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

End Sub

Private Sub Command2_Click()‘刪除按鈕

If----2----Then

MsgBox ”先選擇，再刪除！“

Else

----3----

End If

End Sub

請在左邊文本框當中輸入正確答案。

參考答案：List1.AddItem Text1.Text

請在左邊文本框當中輸入正確答案。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：List1.ListIndex =-1

請在左邊文本框當中輸入正確答案。

參考答案：List1.RemoveItem List1.ListIndex

四、程序閱讀題

第1題：請寫出在Text1、Text2、Text3中依次輸入3、2后，單擊窗體時Label1的顯示結果。

精心收集

精心編輯

精致閱讀

如需請下載！、1演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

Private Sub Form_Click()

Dim a As Single, b As Single

a = Text1.Text: b = val(Text2.Text+text3.text)

Label1.Caption = Str(a * a + b * b)

End Sub

請在左邊文本框當中寫出正確的答案。

A、18

B、9144

C、153

D、以上答案都不對

參考答案：C

第2題：寫出程序運行時單擊窗體后，a1.dat文件的結果和窗體上的輸出結果。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

Private Sub Form_Click()

Dim a(1 to 3)As Integer, k As Integer, i As Integer, j As Integer

Open ” a1.dat“ For Output As #1

J=1

For i = 1 To 3: j = i * j: Print #1, j;: Next i

Close #1

Open ” a1.dat“ For Input As #1

k = 0

Do While Not EOF(1)

k = k + 1: Input #1,a(k)

Loop

Close #1

For i = k To 1 Step-1: Form1.Print a(i);: Next i

End Sub

請在左邊文本框當中寫出正確的答案。

A、窗體：6 2 1

文件：6 2 1

B、精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

窗體：1 2 6

文件：6 2 1

C、窗體1 2 6

文件：1 2 6

顯示結果。

D、窗體：6 2 1

文件：1 2 6

參考答案：D

第3題：請寫出鼠標點擊彈出菜單第一項后窗體上的Private Sub Form_MouseDown(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

If Button = 2 Then PopupMenu mnuPopup, 10 End Sub

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

'mnuChoice1、2、3順序為菜單項mnuPopup的下一級子菜單名

Private Sub mnuChoice1_Click()

m = ”信息科學與工程學院“

print m

End Sub

Private Sub mnuChoice2_Click()

m = ”護理學院“

print m

End Sub

Private Sub mnuChoice3_Click()

m = ”材化學院“

print m

End Sub

請在左邊文本框當中寫出正確的答案。

A、信息科學與工程學院

B、護理學院

C、材化學院

D、無顯示

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：A

現的結果。

第4題：寫出程序運行時單擊窗體后，在圖片框上出Private Sub Form_Load()

Picture1.Width = Picture1.Height End Sub Private Sub Form_Click()Dim i As Single, x As Single, y As Single Picture1.Scale(-100, 100)-(100,-100)For i = 0 To 2 * 3.1415926 Step 0.1 * 3.1415926

x = 100 * Cos(i)

y = 100 * Sin(i)

Picture1.Line(0, 0)-(x, y), RGB(255, 0, 0)Next i End Sub

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

請在左邊文本框當中寫出正確的答案。

A、從圖片框中心出發畫了10條紅色直線, 直線長度為100單位

B、從圖片框中心出發畫了20條紅色直線, 直線長度為100單位，其軌跡形成一個圓。

C、轉動一條長度為100單位的藍色直線，其軌跡形成一個圖片框的內接圓

D、轉動一條長度為100單位的紅色直線，其軌跡形成一個圖片框的內接圓

參考答案：B

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

五、程序設計題

在E盤上建以自己【姓名+準考證號】為名的文件夾，并在該文件夾下面根據設計題中小題個數建相應的子文件夾，子文件夾名為

【設計題*】,并把每小題結果文件保存在相應的子文件夾中。

例如：考生張三的準考證號為0100101，做設計題中的第1小題，文件保存位置是：E:張三0100101設計題1

第1題：編程，求算式1+1/2！+1/3！+1/4！+……前10項的和。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：

Private Sub Command1_Click()

Dim I as integer, s as single，a as single

a = 1: s = 0

For i = 1 To 10

a = a / i

s = s + a

Next i

Print ”1+1/2!+1/3!+……=“;s

End Sub

第2題：設計一個用于輸入學生信息的應用程序。界面如圖所示（民族有漢族、苗族、壯族等；政治面貌有：群眾、團員、黨員）。要求：

（1）輸入完畢后單擊確定按鈕，能在另一窗口顯示輸入的信息

（2）單擊取消按鈕，將取消所輸入的信息。

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

參考答案：

Public info As String

Dim s As String

Private Sub Command1_Click()

info = ”學號為“ + Text1.Text + ”,姓名為 “ + Text2.Text + ”, 性別為“ + s +

”，民族為“ + Combo1.Text + ”，政治面貌為“ + Combo2.Text+”.”

Form2.Show

End Sub

Private Sub Command2_Click()

Call Form_Load

End Sub

Private Sub Form_Load()

Text1.Text = ”“ :Text2.Text = ”“

Option1.Value = True :Option2.Value = False

Combo1.Text = ”漢族“ :Combo2.Text = ”群眾“

End Sub

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

Private Sub Option1_Click()

s = ”男“

End Sub

Private Sub Option2_Click()

s = ”女“

End Sub

第3題：編程實現兩個文本文件的合并，要求用驅動器、目錄、文件列表框選擇文件1，單擊按鈕1后，調用通用對話框選擇文件2；單擊按鈕2后，將文件2的內容添加到文件1原來內容之后，然后刪除文件2。

參考答案：

Dim fn As String

Private Sub Command1_Click()

CommonDialog1.Filter = ”(*.txt)|*.txt“

CommonDialog1.ShowOpen

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

End Sub

Private Sub Command2_Click()

Dim s As String

Open fn For Append As #1

Open CommonDialog1.FileName For Input As #2

Do While Not EOF(2)

Line Input #2, s

Print #1, s

Loop

Close

Kill CommonDialog1.FileName

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

If Right(File1.Path, 1)= ”“ Then

fn = File1.Path + File1.FileName

Else

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

fn = File1.Path + ”“ + File1.FileName

End If

End Sub

Private Sub Form_Load()

File1.Pattern = ”*.txt“

End Sub

第4題：設計一程序，界面如圖所示。程序運行后，單擊“計時開始”命令按鈕，開始計時，并在文本框1中以如圖所示格式顯示計時時間，單擊“計時結束”命令按鈕后，停止計時，并根據時間計算上網費用，計算的方法如下（不足15分鐘忽略不計，超過15分鐘則按1小時計算）。

參考答案：

Dim n As Integer, h As Integer, m As Integer

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

If m >= 15 Then h = h + 1

If h<10 Then

cash = 1.5 * h

ElseIf h<60 Then

cash = h

Else

cash = 0.8 * h

End If

Text2.Text = cash

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

n = n + 1

h = n 3600

精心收集

精心編輯

精致閱讀 如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

m =(n Mod 3600)60

s = n Mod 60

Text1.Text = h & ”小時“ & m & ”分“ & s & ”秒"

End Sub

將你的考生文件夾打包上傳:

注意：提交文件是以“姓名+準考證號”進行壓縮的打包文件(查看文件打包并上傳的演示動畫）

<==

精心收集

精心編輯

精致閱讀

如需請下載！

演講稿 工作總結 調研報告 講話稿 事跡材料 心得體會 策劃方案

注意：

未做完所有試題之前請不要點擊右邊的【交卷完成，退出系統】按鈕。點擊【交卷完成，退出系統】按鈕提交結果之后將視為結束練習，退出系統！<=＝注意左邊提示

【你的IP:192.168.104.43】

.Copyright(C)2006-2009

Designed By RSIDE

.精心收集

精心編輯

精致閱讀 如需請下載！

第二篇：2012年計算機等級考試二級VB考點及習題

上學吧：http://

上學吧：http://

上學吧：http://

上學吧：http://

上學吧：http://

上學吧：http://

m = UBound(a): n = UBound(b)

上學吧：http://

上學吧：http://

上學吧為您提供計算機二級VB考試資料下載：http://

第三篇：普通話等級考試說話題目完整50篇

普通話考試說話題目

1號《我的學習生活》2號《我的業余生活》 3號《我的業余愛好》4號《我的爸爸》

5號《我的媽媽》6號《我最尊敬的老師》 7號《我最尊敬的人》8號《我的童年》

9號《我的一個愿望》10號《我最要好的朋友》 11號《我喜愛的體育運動》12

13號《一次難忘的旅行》14

15號《學習普通話的體驗》16

17號《家鄉新變化》18

19號《家鄉的風俗》

21號《怎樣與同事（同學）相處》

23號《談談鄰里關系》

25號《給我深刻印象的一部電影》

27號《我最喜歡聽的一首歌》

29號《我的拿手菜》

31號《廣告評說》

33號《謙虛是美德》

35號《我心目中的教師職業》

37號《自然環境和我》

39號《我最喜愛的一種小動物》

41號《一個愉快的假日》

43號《我所在的集體》

45號《我的一個夢想》

47號《《花季、雨季》觀后感》

49號《童年趣事》號《最難忘的一件事》 號《我和電視》 號《我的家鄉話》 號《家鄉的氣候》 20號《家鄉風光》 22號《談談社會公德》 24號《雨》 26號《我最愛讀的小說》 28號《我看語言美》 30號《記憶深刻的故事》 32號《說勤儉》 34號《我的職業》 36號《我最感興趣的一件事》 38號《商品質量和我》 40號《我的家庭》 42號《一句格言給我的啟示》 44號《我的讀書生活》 46號《我最得意的一件事》 48號《談談自己對某一社會現象的看法》50號《我最喜歡的一種花卉》

第四篇：普通話等級考試說話題目萬能例文

普通話考試說話題目萬能例文

話題1 我的愿望（或理想）

我最大的愿望就是，我能過上衣食無憂的寬裕生活，我掙的錢能夠讓我和我的家人天天吃上西紅柿炒雞蛋，這道菜的做法是……

話題2 我的學習生活

我認為，作為一個大學生，我們的學習生活不應該僅僅局限在課堂上，除了課堂知識，我們也應該學習實踐能力。比如去年暑假，我就在家鄉的烹調學校學習了西紅柿炒雞蛋這道菜的做法……

話題3 我尊敬的人

我最尊敬的人是我的叔叔，他是一名廚師，雖然文化不高，但是很有敬業心，連西紅柿炒雞蛋這道菜都做的十分的認真……

話題4 我喜歡的動物（植物）

我喜歡的動物是雞，因為雞渾身都是寶，除了肉可以吃，她還會下蛋，下的雞蛋如果用來做西紅柿炒雞蛋就太好吃了……

我喜歡的植物是西紅柿，西紅柿那鮮艷的顏色實在太誘人了，尤其是做西紅柿炒雞蛋這道菜的時候……

話題5 童年的記憶 我的童年是在農村度過的，我在12歲前住在外婆家里，外婆收入不高，過年過節我們吃的最好的菜就是西紅柿炒雞蛋了，這道菜的做法是……

話題6 我喜歡的職業

我喜歡的職業是，做一個優秀的廚師，鉆研出最好的飯菜，哪怕是西紅柿炒雞蛋這樣的普通菜也要做出水平，這道菜的做法是……

話題7 難忘的旅行

這個暑假我去華北第一峰——小五臺山旅行了，我的夙愿終于圓滿了，在山腳下我度過了10天快樂的生活，因為農家院的房東大媽天天用柴雞蛋和家種番茄給我做西紅柿炒雞蛋吃，這道菜她是這樣做的……

話題8 我的朋友 :

我最好的朋友是小王，他是我的高中同學。細膩周到是他最大的優點，記得高考之后，他特意花了一個月學習做菜，他做的最好的一道菜是西紅柿炒雞蛋……

話題9 我喜歡的文學（或其他）藝術形式

我最喜歡的文學是隨筆，前兩天我讀了一本隨筆《酸甜苦辣》，這本書用很多名菜的做法來暗喻玄妙的人生，作者著重描述了西紅柿炒雞蛋這道菜……

話題10 談談衛生與健康

關注個人健康最關鍵的是注重飲食平衡，我們不能大魚大肉，也不能不注意營養，有的菜，比如西紅柿炒雞蛋，就能夠做到葷素搭配膳食平衡

話題11 我的業余生活

在家的時候，我最喜歡的做一些能夠讓家變得更加溫馨的事情，比如幫媽媽做飯，記得小時候我學會的第一道菜就是西紅柿炒雞蛋

話題12 我喜歡的季節（或天氣）

我最喜歡夏天，因為夏天產的西紅柿最為美味，夏天雞蛋也比較便宜，這個季節做西紅柿炒雞蛋是再好不過了，這道菜的做法是……

話題13 學習普通話的體會（這個難度比較大）

在學習普通話的過程中，我才真正的意識到我們的祖國是多么的遼闊，我們的同學來自天南海北，方言差別巨大，飲食習慣也差異顯著。比如西紅柿炒雞蛋這道菜，在不同的地方里，方言的表述都不一樣，菜的做法也不一樣…

話題14 談談服飾（挑戰……）服飾有兩個功能，一個是美觀，一個是實用，而實用是包含保暖用途和特殊用途的。比如廚師服，就還有防止油漬沾染衣物和防止菜品污染的作用。不過有的菜，做起來非常省事，連廚師服都不用穿也不用擔心油湯四濺。這道菜的做法是

話題15 我的假日生活

這個暑假我早早就回家了，在家的時候，我最喜歡的做一些能夠讓家變得更加溫馨的事情，比如幫媽媽做飯，記得小時候我學會的第一道菜就是西紅柿炒雞蛋…

話題16 我的成長之路

我的成長歷程中，一些小事情起到了很大的作用，記得小時候，我學著跟媽媽做菜，可是開始的時候做不好，正是媽媽逼著我堅持下來，才磨煉了我的意志。當我第一次獨立做好菜時，我激動萬分。這道菜就是西紅柿炒雞蛋…

話題17 談談科技發展與社會生活

知識改變命運，科技改變生活。科技的發展正在滲入我們生活的每個角落。就拿家家戶戶都要做的烹調這件事來說，變化就很大。以前的時候，我們做西紅柿炒雞蛋這道菜是這樣做的…

話題18 我知道的風俗 我的家鄉有這樣一個風俗，在小孩子過生日的時候要吃雞蛋，生日的中午要是荷包蛋面條，還要吃煮雞蛋，晚飯則一般吃西紅柿炒雞蛋……

話題19 我和體育

小時候我媽媽讓我參加長跑訓練，那時候我正在長身體，訓練強度大，讓我覺得總是吃不飽飯。教練為了我好，經常給我開小灶，我最常吃的就是西紅柿炒雞蛋……他是這樣做的……

話題20 我的家鄉

我的家鄉是廣西桂林，我的家鄉有美麗的山水，有悠久的歷史，也有誘人的小吃美食，其中最有名的就是西紅柿炒雞蛋了……它的做法是……

話題21 談談美食

話題22 我喜歡的節日

我最喜歡的節日不是熱鬧的春節，也不是浪漫的情人節，而是能夠讓我再父母面前盡盡孝心的父親節母親節，在這個日子里，我可以為爸爸媽媽做一些力所能及的小事，比如，讓辛勤一年的媽媽休息一天，由我來為家庭做一頓飯，我最拿手的菜，就是西紅柿炒雞蛋了…… 話題23 談談我所在的集體

我所在的班集體是一個充滿友愛，團結互助，溫暖和睦的大家庭。不僅同學關系良好，連老師也對我們親如一家，經常請我們到他家里吃飯，記得老師最喜歡做的一道菜便是西紅柿炒雞蛋……

話題24談談社會公德（職業道德）

我們一直強調工作要有職業道德，那么職業道德到底什么呢？我的理解是工作任務之內的事情，不論自己的心情，自己的想法，一定要按照規程做到最好。比如五星級賓館的大廚，不能因為客人僅僅點了一道西紅柿炒雞蛋就敷衍了事，而是要認真的按照菜譜操作……

話題25 談談個人修養

個人修養最重要的一個方面就是不自私，以大局為重，比如工作時，只要是任務之內的事情，不論自己的心情、自己的想法，一定要按照規程做到最好。比如五星級賓館的大廚，不能因為客人僅僅點了一道西紅柿炒雞蛋就敷衍了事，而是要認真的按照菜譜操作……

話題26 我喜歡的明星

我最喜歡的明星是預防艾(baidu)滋(baidu)病形象大使***，上次他探訪艾(baidu)滋(baidu)病人時毫無矯揉造作，堅持和艾(baidu)滋(baidu)病人一同進餐，還親自下廚為他們做了一道西紅柿炒雞蛋…

話題27 我喜歡的書刊

我最喜歡的書刊是《XX美食》，這本雜志不僅僅向我們介紹各地的珍饈美食，而且還常常教我們發掘生活中的點滴平常的美味，比如西紅 它就多次向我們介紹不同的做法，其中一種最經典的方法是……

話題28 談談對環境保護的認識

環境保護不僅僅是政府部門的大規模行動，我們在日常活動中也應當從細節入手保護好環境。例如我們可以做到拒絕食用野生動物，如蛇、蛙，也要少食用對環境危害大的食物，如發菜。這些菜品不僅會傷害環境，也可能會對我們的健康不利。而一道家常的西紅柿炒雞蛋一定會對我們的身體大有裨益。它的做法也很簡單……

話題29 我向往的地方

我最向往的地方是北歐，那里環境優雅民風淳樸，社會和諧文化身后，不像有的國家富便富罷，卻是個追求物欲的地方。北歐的人們生活水平高，但是對對奢華要求不高，有時候一道西紅柿炒雞蛋就是待客的美味了，他們往往會這樣做這道菜……

話題30 購物（消費）的感受

消費的時候人一定要有理性，明白我們需要的是什么，千萬不要成為沖動的消費者。比如才就餐是，我們萬萬不可為了面子點過多過奢華的菜，那樣是奢靡浪費的行為。有一次我在一個小山村的小館子，饑餓之極的我曾經想點很多才，但是淳樸的老板建議我只吃一道西紅柿炒雞蛋，這才是我真正需要的，他是這樣做這道菜的……

第五篇：2011年計算機等級考試二級VB考點及習題1

2011年計算機等級考試二級VB考點及習題 §

1、VB的特點、運行環境、對象、屬性、方法、事件各概念，尤其是方法和事件的區分。

熟悉VB的IDE，VB開發應用程序的一般步驟。

特點：GUI(集成開發環境)、OLE(對象的連接和嵌入)、OOP(面向對象);

運行環境：Windows(VB5.0以上在32位操作系統)

方法：對象可以執行的動作或行為;(主動性)

事件：使某個對象進入活動狀態的一種操作或動作。(被動性)

例題：

1、VB的使用目的是()。

A.開發Windows應用程序 B.圖象處理

C.制作WAV文件 D.文字處理

2、一個對象可以執行的動作和可被對象識別的動作分別稱為()。

A.方法、事件 B.事件、方法 C.方法、屬性 D.事件、屬性

3、一只白色的足球被踢進球門，則白色、足球、踢、進球門是()。

A.屬性、對象、方法、事件 B.屬性、對象、事件、方法

C.對象、屬性、方法、事件 D.對象、屬性、事件、方法

§

2、熟練應用窗體、控件。掌握窗體的常用方法(Hide、Show、Print、Cls、Refresh、Move)、屬性和事件(Load、Activate、Click)。

Load事件、Unload事件、End語句

常用控件：CommandButton(Default、Cancel、Enabled、Style、DisabledPicture、DownPicture)、Label(AutoSize)、TextBox(Alignment、MaxLength、PasswordChar、Multiline、ScrollBars注：Multiline=True)、OptionButton(Value)、ListBox(屬性：listlistcountlistindexselected、方法：AddItem、RemoveItem、Clear)、ComboBox(P27)、HscrollBar、VscrollBar(min、Max、Value)、PictureBox(print方法)、Timer(運行時不可見、只有Timer事件、Interval)方法、屬性、事件的掌握。

容器控件：Form、Picture、Frame 特殊控件：菜單的使用(只響應Click事件)

1、以下窗體名中哪些是非法的窗體名()。

對象名命名規則：以字母或漢字開頭，后面可以是字母、數字、下劃線、漢字。(變量名類似)

A._aform B.3frm C.f_1 D.frm 5 E.f_1*

2、一個名稱為myfrm,標題屬性為form1的窗體，它的單擊事件名應為()。

A.myfrm_click B.form1_click

C.form_click D.me_click

3、執行下面語句：print ―5*20‖ 的結果是()。

A.―5*20‖ B.出現錯誤信息 C.5*20 D.100

4、下列語句代碼哪一些可正常執行(正常執行是指系統不給出出錯提示);

A、Print 32765 + 3 B、Print 5 + 7 = 14

C、Print 256 / 128 D、Print “14” + 12 E、Print “14” & 12

5、以下使用方法的代碼中，正確的是()。

A、Label1.Setfocus B、Form1.Clear

C、Text1.SetFocus D、Combo1.Cls

6、在程序中可以通過復選框和單選按鈕的()屬性值來判斷他們的當前狀態。

A.Caption B.Value C.Checked D.Selected

7、將復選框的Value屬性設為“2”,其效果與把它的Enabled屬性設為“False”有何異同?若把一個控件的Visible屬性設為“False”,意味著什么?

8、當用戶單擊命令按鈕時，()屬性可以使得命令按鈕對激發事件無效。

A.Name B.Enabled C.Default D.Cancel

9、在文本框Text1和Text2中分別輸入35與48，變量S與X分別為字符型與整型，以下賦值語句的執行結果是什么?

s = Text1.Text + Text2.Text x = Text1.Text + Text2.Text

s = Text1.Text & Text2.Text x = Text1.Text & Text2.Text

s = Val(Text1.Text)+ Text2.Text

x = Val(Text1.Text)+ Text2.Text

s = Val(Text1.Text)& Text2.Text

x = Val(Text1.Text)& Text2.Text

例如：

1、if 語句：

Private Sub Form_Click()

Dim x As Integer, y As Integer

Dim z As Single

x = 0.2

y = 1

If(x >= 1)Then

z = Log(x)

ElseIf x >= 0 And x < 1 And y >= 0 Then

z = 2 * x3

i = i + 1

If p >= 10 Then Exit For

Next i

Print i, p, n

End Sub

一、InputBox函數

MsgBox函數(注意參數含義及順序)

x=InputBox(_____,______,_______)

寫出顯示下圖信息框的MsgBox函數

§

5、數組

1、數組的上、下界：Ubound()、Lbound()

2、數組的大小的計算、數組的結構：(二維數組：以列存放)

3、Erase語句：重新初始化靜態數組的元素、或釋放動態數組的存儲空間。

4、For Each –Next結構語句

5、用Array函數給數組賦值(只能給Variant類型的變量賦值)

6、控件數組(load/Unload Object(Index))

動態數組(Redim語句)

數組分類：

固定大小數組 Option Base語句功能

Preserve語句功能

例如：

n數組重點算法：

n一數組，求其中最大和最小;n對一數組排序(選擇法、冒泡法、直接排序法)

n在一數組中查找指定的數(順序、二分查找);n刪除一數組中重復的數

2、在窗體模塊的通用聲明處用下面的語句聲明變量、數組、正確語句有()個。

A.Public a(5)as integer B.Public n as integer

C.Public st as string*10 D.Private b()as integer

3、下列語句中的()語句可以用來正確地聲明一個動態數組。

A.Private A(n)as integer B.Dim A()as integer

C.Dim A(,)as integer D.Dim a(1 to n)

4、下列關于數組的說法中正確的是()。

A.在過程中，不能用private語句定義數組

B.利用Redim語句重新定維時，不得改變已經說明過的數組的數據類型。

C.數組重新定維后，原有的數據元素內容將不予保留

5、過程的形參為數組時，以下定義語句中正確的是()。

A.private sub sort(a()as integer)

B.private sub sort(a(10)as integer)

C.private sub sort(a(,)as integer)

D.private sub sort(byval a()as integer)

6、某過程的說明語句中，正確的數組說明語句是______。

Const N As Integer=4 : Dim L As Integer

① Dim x(L)As Integer

② Dim A(K)As Integer

Const K As Integer=3

③ Dim B(N)As Integer

④ Dim Y(2000 To 2008)As Integer

A.①②④ B.①③④ C.③④ D.②③ §

7、文件管理控件

文件處理 順序文件和隨機文件的打開(open)語句，EOF函數，讀寫語句。

do while not eof(1)do until eof(1)

print #1, write #1，input #1,a,b,c line input #1,s input(#1,100)

get #1,a put #1,‖af‖

打開方式：

順序文件Open “文件路徑+文件名(包括文件后綴)” For Output As #1-511

Open “文件路徑+文件名(包括文件后綴)” For Append As #1-511

Open “文件路徑+文件名(包括文件后綴)”For Input As #1-511

隨機文件：Open “文件路徑+文件名(包括文件后綴)”For Random As #1-511

二進制文件：Open “文件路徑+文件名(包括文件后綴)”For Binary As #1-511

Open語句打開文件的注意

1.如果以Output、Append、Random、Binary模式打開一個不存在的文件時，VB自動創建一個相應文件;

2.在Input Random Binary模式下，可以用不同的文件號打開同一文件，但Output Append方式不可以;

3.所有當前使用的文件號必須是唯一的;

4.如果以Output模式打開一個已存在的文件，即使沒有進行寫操作原來數據也將被覆蓋。

Close語句注意：(Reset)

1.直接使用 Close語句(缺省文件號)，則所有用Open語句打開的活動文件都被關閉;

2.當程序結束時，所有打開的文件自動被關閉。

Lock和Unlock語句注意：

1.對于二進制文件，Lock和Unlock的是字節范圍;

2.對于隨機文件，Lock和Unlock的是記錄范圍;

3.對于順序文件，Lock和Unlock的是整個文件，即使指明范圍也不起作用;

4.缺省情況下Lock和Unlock的范圍是整個文件;

5.Lock和Unlock總是成對使用。

特別注意：在關閉文件或結束程序之前，必須用Unlock語句對先前鎖定的文件解鎖，否則會產生難以預料的錯誤。

1.要對順序文件進行寫操作，下列打開文件語句中正確的是()。

Open “file1.txt” for output as #1

Open “file1.txt” for input as #1

Open “file1.txt” for Random as #1

Open “file1.txt” for binary as #

12.在VB中文件訪問的類型有()。

A.順序、隨機、二進制 B.順序、隨機、字符

A.順序、十六進制、隨機 D.順序、記錄、字符

例如：將文件Data1中的無序數據和Data2中的有序數據插入到Data3中，要求：Data3中的數據必須也是排好序。請填寫空白處以實現該題功能。

Private Sub Form_Click()

Dim a()As Integer, b()As Integer

Dim k As Integer, i As Integer

Open “e:data1.txt” For Input As #2

Open “e:data2.txt” For Input As #3

Do While Not EOF(2)

k = k + 1

ReDim Preserve a(k)

Input #2, a(k)Loop _______k=0______________________ Do While Not EOF(3)k = k + 1 ReDim Preserve b(k)Input #3, b(k)Loop Call insert(a, b)Open “e:data3.txt” For Output As #4 _k=ubound(b)____________________________ For i = 1 To k Print #4, b(i)Next i Close End Sub Private Sub insert(a()As Integer, b()As Integer)Dim m As Integer, i As Integer Dim n As Integer, j As Integer m = UBound(a): n = UBound(b)_redim preserve b(m+n)_______________________ i = 0 Do While i < m i = i + 1 j = n Do While j >= 1 And a(i)< b(j)If a(i)< b(j)Then ___b(j+1)=b(j)_______________________ j = jj))

Next j

ch = ch & Chr(dec)

dec = 0

Next i

End Sub §8.鼠標方法、文本、圖形及多媒體處理

(1)常用鼠標方法(MouseDown, MouseUp,MouseMove)

(2)數據輸出的格式化處理(Format函數)

(3)圖形控件Line、Shape使用畫點(Pset)、線(Line)、圓(Circle)

例如：在Form_Click事件中執行如下語句的正確結果是()。

Print Format(1236.54,―+##,##0.0%‖)

A.123456 B.+123,654.0% C.+123,6.54% D.+123,654 §9數據庫

1.計算機數據管理的三階段：

人工管理—>文件管理—>數據庫管理

2.數據模型：

層次模型(樹型結構)—>網絡模型(無向圖形)—>關系模型(二維關系表)

3.數據控件(Data)的重要屬性：

Conncet:確定數據訪問類型(Access(缺省值)dbaseFoxpro)

DatabaseName:確定數據控件使用的數據庫

Access表包含―.mdb‖的文件中，該屬性值就是：.mdb

dbaseFoxpro數據庫時,該屬性值是：包含數據庫文件的路徑

RecordSource:確定訪問數據表的名稱

4.常用的綁定控件：標簽、文本框、檢查框、組合框、列表框、圖片框、圖象控件、DBCombo、Dblist、DBGrid

常用屬性： DataSource:指定一個數據控件(Data控件)

DataField:指定顯示的數據表的哪一字段。