我很喜歡這種題目
創(chuàng)新互聯(lián)建站是專業(yè)的永吉網(wǎng)站建設(shè)公司,永吉接單;提供成都做網(wǎng)站、成都網(wǎng)站設(shè)計,網(wǎng)頁設(shè)計,網(wǎng)站設(shè)計,建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進行永吉網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團隊,希望更多企業(yè)前來合作!
-------------------------------------------------------------------------
第7題,問題出在兩方面
Public Function CalculateArea(ByVal SideBase As Double, ByVal Height As Double, _ Optional
ByVal AssignToArea As Boolean = False) As Double
Dim Area As Double = (SideBase * Height) / 2
中間的 _ 有問題,應(yīng)該去掉
還有objShape = CType(objShape, clsTriangle) 有錯誤,不能轉(zhuǎn)換
注釋掉objShape = CType(objShape, clsTriangle)
刪除_后,得到結(jié)果
true
false
-330
--------------------------------------------------------------------------
第8題,就是以acc_grp_cust_tbl表為基礎(chǔ),查找cust_tbl并輸出
一般的話使用涉及兩個表的話使用SHAPE語句(以SQL為基礎(chǔ)的語句)
雖然兩者使用時差不多,但是理論比較難懂,我這里也不講了,我使用ADO+SQL方法
先說明一下程序中的一個細節(jié),也是問題比較容易忽略的
1400 0 1 2
1500 3 4
1600 5
說明一個問題Cust_id1 Cust_id2 Cust_id3 Cust_id4 字段不是數(shù)值,而是類似字符的東西(因為可能是
備注)
定義rsgrp對應(yīng)acc_grp_cust_tbl ,rscust對應(yīng)cust_tbl
預(yù)先設(shè)置好rsgrp和rscust的連接(使用VB的方法,可以移植到VB.NET上)
do until rscust.eof
strline=rscust(0) " "
strSQL="SELECT * FROM CUST_TBL WHERE cust_id='" RSGRP(1) "' OR CUST_ID='" RSGRP(2) "' OR CUST_ID='" RSGRP(3) "' OR CUST_ID='" RSGRP(4) "'"
RSGRP.OPEN STRSQL
if rsgrp.recordcount0 then
rsgrp.movefirst
do until rsgrp.eof
strLine=strline rscust(3) " " rscust(2) "/"
rsgrp.movenext
loop
end if
rscust.close
strline=left(strline ,len(strline)-1)
'去除最后一個"/"
console.writeline(strline)
loop
如果需要講詳細一點,那就加我QQ531412815
第4題,潛在的錯誤,這里的錯誤不是常規(guī)錯誤,屬于那種只有在運行是才知道的錯誤:
Catch ex As Exception
MsgBox(ex.StackTrace)
'永遠不會查找下面的錯誤
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)化錯誤處理永遠達不到下面這里,因為Catch ex As Exception 已經(jīng)處理了所有錯誤.
第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語言,不過這里需要該很多,
我就不用了,那么就稍微復(fù)雜一點,使用FIND方法,不過有一點必須注意REF_ID必須排序,因為數(shù)據(jù)庫中
已經(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題:就是從一個集合中取元素輸出的問題
比較簡單的辦法就是使用遞歸
以下是使用VB的方法(可以移植到VB.NET上,因為我對VB.NET的數(shù)組到現(xiàn)在還不太會,所以就將就一下)
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:用來確定是否使用過這個元素
lSTR:用來保存字符元素
NCOUNT:用來限制遞歸函數(shù)的深度,換句話說,就是輸出元素組中的元素個數(shù)
實際測試成功,另外我對前三題很感興趣,希望能夠傳給我
題1:
最簡單了,高中就學(xué)過的等差數(shù)列,公式代過來就行拉
SUB A()
return 100*101/2
END SUB
題2:
更簡單拉,小學(xué)初中就學(xué)過長度乘高度等于面積
FUNCTION B(Width as integer, Height as integer) AS INTEGER
return Width*Height
END FUNCTION
標題名稱:包含vb.net的考試題的詞條
文章來源:http://muchs.cn/article20/doheijo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供標簽優(yōu)化、營銷型網(wǎng)站建設(shè)、網(wǎng)站策劃、域名注冊、網(wǎng)站導(dǎo)航、網(wǎng)站維護
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)