你要做一個(gè)考試系統(tǒng)??這可不是小程序,不過(guò)如果是超精簡(jiǎn)的話,我倒可以寫個(gè)思路給你。
創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供南山網(wǎng)站建設(shè)、南山做網(wǎng)站、南山網(wǎng)站設(shè)計(jì)、南山網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(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è)是作為跳過(guò)用的)
定義全局變量 questions() as string,questionid as integer,answers() as string
在form_load中,將問(wèn)題和答案讀入questions()和answers()中,然后將第一個(gè)問(wèn)題顯示在label中,設(shè)置questionid=1
之后在command1_click(index as integer)中用select語(yǔ)句根據(jù)questionid將答案和回答比較,然后顯示下一題,同時(shí)更改questionid。。。大概就這樣
command2_Click()就直接顯示下一題和更改questionid
問(wèn)題結(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來(lái)退出,那說(shuō)明太失敗了。。。
一般來(lái)說(shuō),都是用close關(guān)閉就可以了。
用.NET平臺(tái)開(kāi)發(fā),只要你在操作數(shù)據(jù)庫(kù)或者IO的時(shí)候沒(méi)有忘記關(guān)閉資源連接,一般是不需要你手動(dòng)釋放的。
您還是放心的學(xué)習(xí)VB吧!只要微軟沒(méi)有關(guān)門,學(xué)VB還有用的,再說(shuō)您編的是小的程序,所以學(xué)VB6.0就可以了!
至于書籍,我建議您,還是去看一些網(wǎng)上的視頻教程輔助學(xué)習(xí)。同時(shí)還要買一本書,我之前看過(guò)一本書,
Visual basic程序設(shè)計(jì) [平裝]
~ 劉世峰 (編者) 中央廣播電視大學(xué)
很簡(jiǎn)明,挺好的??!
希望采納!!