首頁 考試吧論壇 Exam8視線 考試商城 網絡課程 模擬考試 考友錄 實用文檔 求職招聘 論文下載 | ||
![]() |
2011中考 | 2011高考 | 2012考研 | 考研培訓 | 在職研 | 自學考試 | 成人高考 | 法律碩士 | MBA考試 MPA考試 | 中科院 |
|
![]() |
四六級 | 職稱英語 | 商務英語 | 公共英語 | 托福 | 雅思 | 專四專八 | 口譯筆譯 | 博思 | GRE GMAT 新概念英語 | 成人英語三級 | 申碩英語 | 攻碩英語 | 職稱日語 | 日語學習 | 法語 | 德語 | 韓語 |
|
![]() |
計算機等級考試 | 軟件水平考試 | 職稱計算機 | 微軟認證 | 思科認證 | Oracle認證 | Linux認證 華為認證 | Java認證 |
|
![]() |
公務員 | 報關員 | 銀行從業資格 | 證券從業資格 | 期貨從業資格 | 司法考試 | 法律顧問 | 導游資格 報檢員 | 教師資格 | 社會工作者 | 外銷員 | 國際商務師 | 跟單員 | 單證員 | 物流師 | 價格鑒證師 人力資源 | 管理咨詢師考試 | 秘書資格 | 心理咨詢師考試 | 出版專業資格 | 廣告師職業水平 駕駛員 | 網絡編輯 |
|
![]() |
衛生資格 | 執業醫師 | 執業藥師 | 執業護士 | |
![]() |
會計從業資格考試(會計證) | 經濟師 | 會計職稱 | 注冊會計師 | 審計師 | 注冊稅務師 注冊資產評估師 | 高級會計師 | ACCA | 統計師 | 精算師 | 理財規劃師 | 國際內審師 |
|
![]() |
一級建造師 | 二級建造師 | 造價工程師 | 造價員 | 咨詢工程師 | 監理工程師 | 安全工程師 質量工程師 | 物業管理師 | 招標師 | 結構工程師 | 建筑師 | 房地產估價師 | 土地估價師 | 巖土師 設備監理師 | 房地產經紀人 | 投資項目管理師 | 土地登記代理人 | 環境影響評價師 | 環保工程師 城市規劃師 | 公路監理師 | 公路造價師 | 安全評價師 | 電氣工程師 | 注冊測繪師 | 注冊計量師 |
|
![]() |
繽紛校園 | 實用文檔 | 英語學習 | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲 |
注意:
F按值傳遞參數
形參和實參的類型不一定要統一,VB自動進行數據的轉換。
–例如:Private Sub Form_Click()
Dim a As String : a = 2
Call sub1(a)
Print a
End Sub
Private Sub sub1(ByVal b As Integer)
b = b + 1 : Print b
End Sub
F按地址傳遞參數
–當實參是變量時:如果形參規定了類型,則實參必須跟形參保持一致
如果形參沒有規定類型,則VB按要求進行數據類型轉換
–當實參是常量或表達式時:
VB自動用“按值傳遞”的方式進行處理,如果數據類型不統一,VB自動進行數據轉換
例如:1、在應用程序中用“Private function Fun(X as integer,Y as single)”定義了函數Fun。調用函數Fun的過程中的變量I、J均為Integer型,能正確引用函數Fun的是( )
A.Fun(I,J) B.Call Fun(I,3.56) C.Fun(3.14,234) D.Fun("245","231.5")
2.程序中的不同過程之間,不能通過_________進行數據傳遞。
①全局變量 ②窗體或模塊級變量 ③形參與實參結合 ④靜態變量
A. ①②④ B. ①②③ C.②④ D.④
二級考試必考題型:(課后習題)
傳值 傳地址 Static變量 同名變量 遞歸過程
例如:
1、以下有關變量作用域的說法中,錯誤的是( )
A. 只有在標準模塊中用public語句說明的變量才是全局變量
B. 在過程中不能使用public語句說明全局變量
C. 在標準模塊的通用聲明處可用private語句說明模塊級變量
D. 在窗體的通用聲明處可用private語句說明窗體級變量
2.一個名為frm1的窗體,在窗體通用聲明處和過程sub1中分別定義:public k as integer、dim k as integer如何在sub1中訪問全局變量k( )
A.frm1.k B.form.k C.form1.k D.k
例:閱讀程序,給出輸出結果:
(1)字符串處理(數組參數)
Option Base 1
Private Sub Form_Click()
Dim st As String, char As String
Dim data() As String, i As Integer, j As Integer
st = "10281018123811181038"
For i = 1 To Len(st)
If Mid(st, i, 1) <> "8" Then
char = char & Mid(st, i, 1)
Else
j = j + 1
ReDim Preserve data(j)
data(j) = char
char = ""
End If
Next i
Call conver(data, char)
Print char
End Sub
Private Sub conver(a() As String, ch As String)
Dim i As Integer, j As Integer
Dim n As Integer, dec As Integer
For i = 1 To UBound(a)
n = Len(a(i))
For j = 1 To n
dec = dec + Val(Mid(a(i), j, 1) * 8 ^ (n - j))
Next j
ch = ch & Chr(dec)
dec = 0
Next i
End Sub
相關推薦:2011年計算機等級考試二級VB基礎教程匯總北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |