你要做一個(gè)考試系統(tǒng)??這可不是小程序,不過如果是超精簡的話,我倒可以寫個(gè)思路給你。

創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供南山網(wǎng)站建設(shè)、南山做網(wǎng)站、南山網(wǎng)站設(shè)計(jì)、南山網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、南山企業(yè)網(wǎng)站模板建站服務(wù),十多年南山做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
在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了,之后要加什么可以自己加上去~
隨機(jī)生成2-5階方陣:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim d(,) As Integer
Dim n As Integer
Dim i As Integer
Dim j As Integer
Randomize()
n = Int(4 * Rnd() + 2)
ReDim d(n, n)
Label1.Text = ""
For i = 1 To n
For j = 1 To n
d(i, j) = Int(Rnd() + 0.5)
Label1.Text = Label1.Text d(i, j) " "
Next
Label1.Text = Label1.Text vbCrLf
Next
End Sub
如果一個(gè)程序要用Application.exit來退出,那說明太失敗了。。。
一般來說,都是用close關(guān)閉就可以了。
用.NET平臺開發(fā),只要你在操作數(shù)據(jù)庫或者IO的時(shí)候沒有忘記關(guān)閉資源連接,一般是不需要你手動(dòng)釋放的。
您還是放心的學(xué)習(xí)VB吧!只要微軟沒有關(guān)門,學(xué)VB還有用的,再說您編的是小的程序,所以學(xué)VB6.0就可以了!
至于書籍,我建議您,還是去看一些網(wǎng)上的視頻教程輔助學(xué)習(xí)。同時(shí)還要買一本書,我之前看過一本書,
Visual basic程序設(shè)計(jì) [平裝]
~ 劉世峰 (編者) 中央廣播電視大學(xué)
很簡明,挺好的!!
希望采納!!
分享名稱:vb.net實(shí)用小程序的簡單介紹
文章URL:http://chinadenli.net/article12/hjoogc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供軟件開發(fā)、手機(jī)網(wǎng)站建設(shè)、全網(wǎng)營銷推廣、網(wǎng)站收錄、標(biāo)簽優(yōu)化、云服務(wù)器
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(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)