就是判斷矩陣的關(guān)系是否傳遞的?如果滿足:d(i,j)=d(j,k)=d(i,k)=1,該矩陣是傳遞的,否則非傳遞的.
樂昌ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場景,ssl證書未來市場廣闊!成為創(chuàng)新互聯(lián)的ssl證書銷售渠道,可以享受市場價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:028-86922220(備注:SSL證書合作)期待與您的合作!
你要做一個(gè)考試系統(tǒng)??這可不是小程序,不過如果是超精簡的話,我倒可以寫個(gè)思路給你。
在form添加一個(gè)label 和四個(gè)command1(組成一個(gè)控件組修改index屬性,按順序設(shè)置為ABCD)和一個(gè)command2(可要可不要,這個(gè)是作為跳過用的)
定義全局變量 questions() as string,questionid as integer,answers() as string
在form_load中,將問題和答案讀入questions()和answers()中,然后將第一個(gè)問題顯示在label中,設(shè)置questionid=1
之后在command1_click(index as integer)中用select語句根據(jù)questionid將答案和回答比較,然后顯示下一題,同時(shí)更改questionid。。。大概就這樣
command2_Click()就直接顯示下一題和更改questionid
問題結(jié)束后就OK了,之后要加什么可以自己加上去~
lblresult是一個(gè)label控件,確定你的設(shè)計(jì)界面加入了一個(gè)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()
'在窗體上添加一個(gè)DataGridView控件,在這個(gè)位置加一句代碼
DataGridView1.DataSource = oledbDataAdapter.Tables("gy_bingrenxx")
End Sub
分享標(biāo)題:vbnet小程序 vb 微信小程序
轉(zhuǎn)載源于:http://www.chinadenli.net/article10/hpjcdo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、網(wǎng)站設(shè)計(jì)、微信公眾號(hào)、軟件開發(fā)、電子商務(wù)、動(dòng)態(tài)網(wǎng)站
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)