我是學(xué)軟件的,以后也會(huì)從事這個(gè)行業(yè),現(xiàn)在軟件證書最吃香的當(dāng)然是國(guó)家軟件工程師了,不過有點(diǎn)難度,涉及的范圍比較廣,還要靠自己的努力,還有就是不知道你對(duì)什么編程語(yǔ)言感興趣,如果對(duì)JAVA感興趣,那就主要學(xué)這個(gè),有專門的JAVA工程師的認(rèn)證,如果是別的語(yǔ)言也有相應(yīng)的證書,呵呵,相信你,加油,以后相互討教,呵呵
目前創(chuàng)新互聯(lián)建站已為成百上千的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、潁東網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng),共同發(fā)展。
如果需要講詳細(xì)一點(diǎn),那就加我QQ531412815
第4題,潛在的錯(cuò)誤,這里的錯(cuò)誤不是常規(guī)錯(cuò)誤,屬于那種只有在運(yùn)行是才知道的錯(cuò)誤:
Catch ex As Exception
MsgBox(ex.StackTrace)
'永遠(yuǎn)不會(huì)查找下面的錯(cuò)誤
Catch ex As ArgumentNullException
MsgBox("Input Test box cannot be null.")
Catch ex As OverflowException
MsgBox("Input Test box 2 cannot be zero!")
Catch ex As FormatException
MsgBox("Input Test box should be numeric format!")
結(jié)構(gòu)化錯(cuò)誤處理永遠(yuǎn)達(dá)不到下面這里,因?yàn)镃atch ex As Exception 已經(jīng)處理了所有錯(cuò)誤.
第5題:
00123
1000 60.50
2000 60.00
3500 59.50
---- -----
6500 60.00
00124
3000 60.50
---- -----
3000 60.50
00125
2000 59.50
1000 58.00
---- -----
3000 58.75
就是按照Ref_ID 分類,有一種方法就是按照Ref_ID 分組,也就是使用SQL語(yǔ)言,不過這里需要該很多,
我就不用了,那么就稍微復(fù)雜一點(diǎn),使用FIND方法,不過有一點(diǎn)必須注意REF_ID必須排序,因?yàn)閿?shù)據(jù)庫(kù)中
已經(jīng)排好序了,我就不用排了。
Dim rst as ADODB.Recordset
dim refID as string
Rst = GetRecordset
Do While Not rst.EOF
refid=rst(0)
Console.writeline(rst.Fields("Ref_ID")
do
Console.writeline rst.Fields("Qty") vbcrlf rst.Fields("Price"))
rst.MoveNext()
loop while rst(0)=refid
Loop
第6題:就是從一個(gè)集合中取元素輸出的問題
比較簡(jiǎn)單的辦法就是使用遞歸
以下是使用VB的方法(可以移植到VB.NET上,因?yàn)槲覍?duì)VB.NET的數(shù)組到現(xiàn)在還不太會(huì),所以就將就一下)
Dim bUse() As Boolean
Dim lStr() As String * 1
Dim nCount As Byte
-----------------------------------------------------------------------------------
Public Sub Combination(lstStr As String)
Dim i As Byte
Dim j As Byte
Dim StrLen As Byte
StrLen = Len(lstStr)
ReDim bUse(1 To StrLen) As Boolean
ReDim lStr(1 To StrLen) As String * 1
For i = 1 To StrLen
lStr(i) = Mid(lstStr, i, 1)
Next
For i = 1 To StrLen
nCount = i
GoWith StrLen, 1, 0, ""
Next
End Sub
------------------------------------------------------------------------------------
Public Sub GoWith(ECount As Byte, nStart As Byte, Deep As Byte, lastStr As String)
Dim i As Byte
If Deep = nCount Then
Debug.Print lastStr
Exit Sub
End If
For i = nStart To ECount
If Not bUse(i) Then
bUse(i) = True
GoWith ECount, i, Deep + 1, lastStr lStr(i)
bUse(i) = False
End If
Next
End Sub
--------------------------------------------------------------------------------------
Private Sub Form_Load()
Combination "wxyz"
End Sub
--------------------------------------------------------------------------------------
其中GOWITH是真正的遞歸函數(shù),而Combination是用來預(yù)處理字符的
全局變量:
BUSE:用來確定是否使用過這個(gè)元素
lSTR:用來保存字符元素
NCOUNT:用來限制遞歸函數(shù)的深度,換句話說,就是輸出元素組中的元素個(gè)數(shù)
實(shí)際測(cè)試成功,另外我對(duì)前三題很感興趣,希望能夠傳給我
對(duì),二級(jí)vb就是MicroSoft
Visual
Basic
6.0
我都考過了,挺簡(jiǎn)單的,在6.0的環(huán)境下考試
vb.net和6.0還是有區(qū)別的,不過大體上是一樣的
Public?Class?Form3
Dim?A(19)?As?Integer?'聲明數(shù)組20個(gè)
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Label1.Text?=?""
Label3.Text?=?""
Randomize()
Dim?i?As?Integer
For?i?=?0?To?UBound(A)
A(i)?=?CInt(Rnd()?*?400?+?100)'隨機(jī)數(shù)100~500
Label1.Text?=?A(i)??"??"
If?(i?+?1)?Mod?5?=?0?Then??'每5個(gè)數(shù)就換行
Label1.Text?=?vbCrLf
End?If
Next
Dim?mina?As?Integer
mina?=?Amin(A)
If?mina??0?Then
Label3.Text?=?"比第一個(gè)數(shù)組元素值大的數(shù)組元素中值最小的是:"??mina
Else
Label3.Text?=?"沒有比第一個(gè)數(shù)組元素大數(shù)!"
End?If
End?Sub
Function?Amin(ByVal?Aa()?As?Integer)?As?Integer
Dim?first?As?Integer
Dim?tmpmin?As?Integer
Dim?j,?i?As?Integer
Dim?tmpa()?As?Integer?=?A
first?=?A(0)??'第一個(gè)數(shù)出來
For?j?=?1?To?UBound(tmpa)?’從第二個(gè)數(shù)冒泡
tmpmin?=?tmpa(j)
For?i?=?j?To?UBound(tmpa)
If?tmpa(i)??tmpmin?Then?'從小數(shù)到大數(shù)冒泡
tmpa(j)?=?tmpa(i)
tmpa(i)?=?tmpmin
tmpmin?=?tmpa(j)
End?If
Next
Next
For?i?=?0?To?UBound(tmpa)
If?tmpa(i)??first?Then?’從小數(shù)開始比較,如果小比第一個(gè)元數(shù)大就退出
tmpmin?=?tmpa(i)?'?取到比第一個(gè)元數(shù)大的數(shù)
Exit?For
End?If
Next
Return?tmpmin?'返回值
End?Function
End?Class
1、(X=a) And (X=b)
2、Msgbox()
3、13
4、實(shí)現(xiàn)窗體隱藏
5、11
6、Function
7、TextBox1.Focus()
8、.sln (似乎不區(qū)分語(yǔ)言,統(tǒng)一的)
9、方法
10、C# .NET (我也用它設(shè)計(jì)過:)
11、Form1.Close()
12、Windows 窗體
13、不知道
14、聲明常量
15、s = a.ToString()
16、GetError
17、不知道
下一篇題目太猛了……
用數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)里如下做表
ID 題目 選項(xiàng)A 選項(xiàng)B 選項(xiàng)C 選項(xiàng)D 參考答案
。。。..
.......
每次選取固定數(shù)量的題作為一屏
當(dāng)前題目:vb.net考試的簡(jiǎn)單介紹
鏈接URL:http://muchs.cn/article22/phepjc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供面包屑導(dǎo)航、網(wǎng)站改版、外貿(mào)建站、虛擬主機(jī)、網(wǎng)站導(dǎo)航、網(wǎng)站排名
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)