還有兩道vb.net面試題，請大家?guī)兔Γx謝。

我很喜歡這種題目

成都創(chuàng)新互聯(lián)專注于西市企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站設(shè)計,商城網(wǎng)站定制開發(fā)。西市網(wǎng)站建設(shè)公司,為西市等地區(qū)提供建站服務(wù)。全流程按需求定制設(shè)計，專業(yè)設(shè)計，全程項目跟蹤，成都創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

-------------------------------------------------------------------------

第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方法

先說明一下程序中的一個細(xì)節(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

急急急！簡單的在線考試系統(tǒng)，可以包括若干道單選題、多選題和簡答題，怎么做哦？？？（vb.net實現(xiàn)）

額 這 我倒是知道一款asp.net的=。 =叫KesionIexam它可以實現(xiàn)單選題多選題和簡答題，還有填空題判斷題等等，只要按格式把試題編寫好整卷錄入就可以在前臺看到它咯！

vb.net 數(shù)組顯示矩陣的一道題

'這是在vb6中的代碼，在vb.net中基本差不多，你可以參考一下

Private Sub cmdCommand1_Click()

Me.AutoRedraw = True

Dim Grp

Grp = Array(1, 2, 3, 4, 5)

Dim i, j As Long

Dim StrPrt As String

For i = 0 To UBound(Grp)

'i為位移量

StrPrt = ""

For j = i To UBound(Grp)

StrPrt = StrPrt Grp(j)

Next j

For j = 0 To i - 1

StrPrt = StrPrt Grp(j)

Next j

Me.Print StrPrt

Next i

End Sub

名稱欄目：vb.net期中模擬題 vb操作題庫及答案
當(dāng)前網(wǎng)址：http://chinadenli.net/article42/hgcoec.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導(dǎo)航、網(wǎng)站維護(hù)、企業(yè)網(wǎng)站制作、網(wǎng)站營銷、定制網(wǎng)站、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)