建站
咨詢
售后
建站咨詢
新聞中心
vb.net的一個小程序
這個應(yīng)該很簡單啊，我沒學(xué)過VB.net，但以前學(xué)過點VB，不知道兩者差別大不大。以下為VB代碼，沒測試，供參考。
成都創(chuàng)新互聯(lián)專注于沅江網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供沅江營銷型網(wǎng)站建設(shè)，沅江網(wǎng)站制作、沅江網(wǎng)頁設(shè)計、沅江網(wǎng)站官網(wǎng)定制、成都微信小程序服務(wù)，打造沅江網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供沅江網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
一個按鈕，一個列表框，（樓主說要文本框顯示結(jié)果，但VB中用文本框存儲變化的文本很不方便，因此用列表框逐列顯示）
代碼全部在按鈕過程中
z = 0: f = 0 ’正反統(tǒng)計的變量
For i = 1 To 10
Randomize ’初始化隨機發(fā)生器
x = Int(Rnd(1) + 0.5) ‘得到0或者1的隨機數(shù)
If x = 0 Then
List1.AddItem "正"
z = z + 1
Else
List1.AddItem "反"
f = f + 1
End If
Next i
結(jié)果會以文字形式逐行顯示在列表框中，可利用z,f值輸出正反次數(shù)。
vb.net制作一個在窗體上不斷移動的閃爍文字小程序。
private sub timer1_timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Int(Rnd() * 255)
b = Int(Rnd() * 255)
c = Int(Rnd() * 255)
lblTitle.ForeColor = RGB(a, b, c)
end sub
制作最簡單VB程序
Private Sub Command1_Click()
Print "哈哈，VB，我來征服你啦，我是初X（X）班的XXX！"
End Sub
這是代碼，剩下的標(biāo)題欄是把form的caption改為“自己的學(xué)號+姓名”，command1的caption 屬性也改為“按我”，這就好了，哈哈，簡單的vb編程
vb.net的小程序
你要做一個考試系統(tǒng)？？這可不是小程序，不過如果是超精簡的話，我倒可以寫個思路給你。
在form添加一個label 和四個command1(組成一個控件組修改index屬性，按順序設(shè)置為ABCD)和一個command2(可要可不要，這個是作為跳過用的)
定義全局變量 questions() as string,questionid as integer，answers() as string
在form_load中，將問題和答案讀入questions()和answers()中，然后將第一個問題顯示在label中，設(shè)置questionid=1
之后在command1_click(index as integer)中用select語句根據(jù)questionid將答案和回答比較，然后顯示下一題，同時更改questionid。。。大概就這樣
command2_Click()就直接顯示下一題和更改questionid
問題結(jié)束后就OK了，之后要加什么可以自己加上去~
網(wǎng)頁題目：簡單的vb.net小程序 vbs小程序
鏈接分享：http://fisionsoft.com.cn/article/dodephd.html
