vb.net選擇題 vb選擇題庫

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

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

專注于為中小企業提供成都網站設計、做網站服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業寶安免費做網站提供優質的服務。我們立足成都，凝聚了一批互聯網行業人才，有力地推動了上千余家企業的穩健成長，幫助中小企業通過網站建設實現規模擴充和轉變。

請問有100道選擇題，隨機彈出問題，請問在vb.net怎么寫代碼才比較方便？畢竟100道題...

把你的問題放到一個數組里面，然后隨機生成，你可以參考下面的代碼

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim str As String

Dim sp() As String

Dim rnd = New System.Random()

str = "1+1=? 1+2=? 1+3=?"

sp = Split(str, " ")

Me.Text = sp(rnd.Next(0, 2))

End Sub

VB.NET程序設計題

題1:

最簡單了，高中就學過的等差數列，公式代過來就行拉

SUB A()

return 100*101/2

END SUB

題2：

更簡單拉，小學初中就學過長度乘高度等于面積

FUNCTION B(Width as integer, Height as integer) AS INTEGER

return Width*Height

END FUNCTION

VB.net中 Cint(True )為何為-1 不是1嗎？

原則上是-1,但是如果是Cint(True)轉Boolean,只要是非0的,都可以表示True...0表示False

新手不容易記憶,倒底是0是False還是-1是False還是別的,你可以這樣記

整數型的變量定義后默認為0,而布爾定義變量后默認為False,因此0表示False,非0則表示True..

vb.net面試題，請大家幫忙，謝謝。

如果需要講詳細一點,那就加我QQ531412815

第4題,潛在的錯誤,這里的錯誤不是常規錯誤,屬于那種只有在運行是才知道的錯誤:

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!")

結構化錯誤處理永遠達不到下面這里,因為Catch ex As Exception 已經處理了所有錯誤.

第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語言，不過這里需要該很多，

我就不用了，那么就稍微復雜一點，使用FIND方法,不過有一點必須注意REF_ID必須排序，因為數據庫中

已經排好序了，我就不用排了。

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的數組到現在還不太會,所以就將就一下)

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是真正的遞歸函數,而Combination是用來預處理字符的

全局變量:

BUSE：用來確定是否使用過這個元素

lSTR：用來保存字符元素

NCOUNT：用來限制遞歸函數的深度，換句話說，就是輸出元素組中的元素個數

實際測試成功，另外我對前三題很感興趣，希望能夠傳給我

名稱欄目：vb.net選擇題 vb選擇題庫
分享URL：http://m.kartarina.com/article36/hgjesg.html

成都網站建設公司_創新互聯，為您提供網站建設、定制網站、網站維護、靜態網站、網站策劃、ChatGPT

廣告

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