vbnet小程序 vb 微信小程序

vb.net 小程序問題

就是判斷矩陣的關系是否傳遞的?如果滿足:d(i,j)=d(j,k)=d(i,k)=1,該矩陣是傳遞的,否則非傳遞的.

樂昌ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景，ssl證書未來市場廣闊！成為創新互聯的ssl證書銷售渠道，可以享受市場價格4-6折優惠！如果有意向歡迎電話聯系或者加微信：028-86922220（備注：SSL證書合作）期待與您的合作！

你要做一個考試系統？？這可不是小程序，不過如果是超精簡的話，我倒可以寫個思路給你。

在form添加一個label 和四個command1(組成一個控件組修改index屬性，按順序設置為ABCD)和一個command2(可要可不要，這個是作為跳過用的)

定義全局變量 questions() as string,questionid as integer，answers() as string

在form_load中，將問題和答案讀入questions()和answers()中，然后將第一個問題顯示在label中，設置questionid=1

之后在command1_click(index as integer)中用select語句根據questionid將答案和回答比較，然后顯示下一題，同時更改questionid。。。大概就這樣

command2_Click()就直接顯示下一題和更改questionid

問題結束后就OK了，之后要加什么可以自己加上去~

lblresult是一個label控件，確定你的設計界面加入了一個label控件并將其命名為lblresult

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim oledbDataAdapter As OleDb.OleDbDataAdapter

Dim oledbData As DataSet = New DataSet

Dim strConnect As String = "Provider= OraOLEDB.Oracle;Data Source=888;User ID=888;Password=888;"

oleDbConnection1 = New System.Data.OleDb.OleDbConnection(strConnect)

Dim strSql As String

strSql = "select *" " from xx"

Dim oledbCommand As OleDb.OleDbCommand

oledbCommand.CommandText = strSql

oledbCommand.CommandType = CommandType.Text

oledbCommand.Connection = oleDbConnection1

oledbDataAdapter.SelectCommand = oledbCommand

oleDbConnection1.Open()

oledbDataAdapter.Fill(oledbData, "gy_bingrenxx")

oleDbConnection1.Close()

'在窗體上添加一個DataGridView控件,在這個位置加一句代碼

DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")

End Sub

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

猜你還喜歡下面的內容