vb net 計(jì)算百分比代碼怎么寫

代碼：a=Convert.toDouble(textbox1.Text)*6/100，先轉(zhuǎn)換字符串格式為雙精度型，再和數(shù)字相乘獲得結(jié)果，但結(jié)果是雙精度型，你若要顯示出來必須轉(zhuǎn)換成字符串，比如textbox2.Text=a.toString()，希望對你有幫助

創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括浙江網(wǎng)站建設(shè)、浙江網(wǎng)站制作、浙江網(wǎng)頁制作以及浙江網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，浙江網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到浙江省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

1. 設(shè)有5個(gè)學(xué)生成績分別是80、78、91、62、88，編寫一個(gè)VB.NET程序，找出最高分和最低分

'以下代碼VS.NET2008運(yùn)行通過

Dim n() As Integer = {80, 78, 91, 62, 88}

Dim Max_NB As Integer = n(0)

For i As Integer = 0 To 3 '因?yàn)?個(gè)數(shù)只需要對比4次，下邊同理

Max_NB = Math.Max(Max_NB, n(i + 1))

Next

MsgBox(Max_NB.ToString) '輸出最大的數(shù)

Dim Min_NB As Integer = n(0)

For i As Integer = 0 To 3

Min_NB = Math.Min(Min_NB, n(i + 1))

Next

MsgBox(Min_NB.ToString) '輸出最小的數(shù)

'兄弟，都這樣了你分不給我可不成了

vb輸入10個(gè)同學(xué)的成績,計(jì)算平均分和總分

Dim A(1 To 10) As Single。

Private Sub Command1_Click()。

'請?jiān)诘谝粋€(gè)文2113本中輸入成績,成績之間用5261空格隔開。

Dim s As String

s = Trim(Text1.Text)

d = Split(s, " ")

ReDim A(1 To UBound(d) + 1) As Single

For i = 1 To UBound(A)

A(i) = d(i - 1)

Next

End Sub

Private Sub Command2_Click()

maxn = A(1)

For i = 2 To UBound(A)

擴(kuò)展資料

vb.net?特性：

1、vb.net 完全集成到 Visual Studio 集成開發(fā)環(huán)境中，在這種集成開發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。

2、vb.net 項(xiàng)目與 VB 不同。它使用基于文件夾的模型，所有項(xiàng)目均放置在項(xiàng)目文件夾層次結(jié)構(gòu)中。

3、vb.net 中使用ado.net來訪問數(shù)據(jù)庫，ado.net是.netFramework的一部分。在 vb.net 中實(shí)現(xiàn)數(shù)據(jù)訪問的方法主要有兩種。

其一是在程序設(shè)計(jì)階段，通過創(chuàng)建、配置數(shù)據(jù)適配器 DataAdapter 和生成數(shù)據(jù)集 DataSet；其二是在運(yùn)行中，通過編程方式動(dòng)態(tài)創(chuàng)建配置數(shù)據(jù)適配器和創(chuàng)建、生成數(shù)據(jù)集。

用vb編程：已知3個(gè)學(xué)生，5門功課的成績，求每個(gè)學(xué)生的總分，平均分，每門功課的平均分。

方法有很多種，反正就是要輸入每個(gè)人的成績。下面就介紹一種最簡單的給你

Private Sub Command1_Click()

'已知3個(gè)學(xué)生，5門功課的成績，求每個(gè)學(xué)生的總分，平均分，每門功課的平均分。

Dim a As Single, b As Single, c As Single, d As Single, e As Single

For i = 1 To 3

If i = 1 Then

a = InputBox("請輸入學(xué)科1的成績：", "學(xué)生1")

b = InputBox("請輸入學(xué)科2的成績：", "學(xué)生1")

c = InputBox("請輸入學(xué)科3的成績：", "學(xué)生1")

d = InputBox("請輸入學(xué)科4的成績：", "學(xué)生1")

e = InputBox("請輸入學(xué)科5的成績：", "學(xué)生1")

ElseIf i = 2 Then

a = InputBox("請輸入學(xué)科1的成績：", "學(xué)生2")

b = InputBox("請輸入學(xué)科2的成績：", "學(xué)生2")

c = InputBox("請輸入學(xué)科3的成績：", "學(xué)生2")

d = InputBox("請輸入學(xué)科4的成績：", "學(xué)生2")

e = InputBox("請輸入學(xué)科5的成績：", "學(xué)生2")

Else

a = InputBox("請輸入學(xué)科1的成績：", "學(xué)生3")

b = InputBox("請輸入學(xué)科2的成績：", "學(xué)生3")

c = InputBox("請輸入學(xué)科3的成績：", "學(xué)生3")

d = InputBox("請輸入學(xué)科4的成績：", "學(xué)生3")

e = InputBox("請輸入學(xué)科5的成績：", "學(xué)生3")

End If

s = a + b + c + d + e

n = s / 5

a = a + a

b = b + b

c = c + c

d = d + d

e = e + e

If i = 1 Then

Print "學(xué)生1的各科總分為："; s; "平均分為："; n

ElseIf i = 2 Then

Print "學(xué)生2的各科總分為："; s; "平均分為："; n

Else

Print "學(xué)生3的各科總分為："; s; "平均分為："; n

a = a / 3

b = b / 3

c = c / 3

d = d / 3

e = e / 3

Print "學(xué)科1的平均分為："; a

Print "學(xué)科2的平均分為："; b

Print "學(xué)科3的平均分為："; c

Print "學(xué)科4的平均分為："; d

Print "學(xué)科5的平均分為："; e

End If

Next i

End Sub