vb.net的一個(gè)小程序

這個(gè)應(yīng)該很簡(jiǎn)單啊，我沒(méi)學(xué)過(guò)VB.net，但以前學(xué)過(guò)點(diǎn)VB，不知道兩者差別大不大。以下為VB代碼，沒(méi)測(cè)試，供參考。

天等網(wǎng)站制作公司哪家好，找成都創(chuàng)新互聯(lián)公司！從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、APP開(kāi)發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)公司等網(wǎng)站項(xiàng)目制作，到程序開(kāi)發(fā)，運(yùn)營(yíng)維護(hù)。成都創(chuàng)新互聯(lián)公司于2013年創(chuàng)立到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。

一個(gè)按鈕，一個(gè)列表框，（樓主說(shuō)要文本框顯示結(jié)果，但VB中用文本框存儲(chǔ)變化的文本很不方便，因此用列表框逐列顯示）

代碼全部在按鈕過(guò)程中

z = 0: f = 0 ’正反統(tǒng)計(jì)的變量

For i = 1 To 10

Randomize ’初始化隨機(jī)發(fā)生器

x = Int(Rnd(1) + 0.5) ‘得到0或者1的隨機(jī)數(shù)

If x = 0 Then

List1.AddItem "正"

z = z + 1

Else

List1.AddItem "反"

f = f + 1

End If

Next i

結(jié)果會(huì)以文字形式逐行顯示在列表框中，可利用z,f值輸出正反次數(shù)。

vb.net 小程序問(wèn)題

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

vb.net制作一個(gè)在窗體上不斷移動(dòng)的閃爍文字小程序。

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.net的小程序

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

在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了，之后要加什么可以自己加上去~

vb.net 有關(guān)循環(huán)的小程序

添加一個(gè)按鈕和一個(gè)文本框，X不要太大，會(huì)溢出的！

Try

Dim i, j As Integer

Dim sum As Long

i = 1

sum = 0

For j = 1 To TextBox1.Text

sum += i

i = i * 2

Next

MessageBox.Show("結(jié)果：" sum.ToString())

Catch ex As Exception

MessageBox.Show(ex.Message, "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End Try