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

Dim A(1 To 10) As Single。

創(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ù)。

Private Sub Command1_Click()。

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

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 集成開(kāi)發(fā)環(huán)境中，在這種集成開(kāi)發(fā)環(huán)境與 VB 在若干方面有差異。主要體現(xiàn)在窗體的布局以及菜單等方面都有所不同。

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

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

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

vb問(wèn)題 二維數(shù)組統(tǒng)計(jì)10個(gè)學(xué)生的成績(jī)，將不及格的列出來(lái)，學(xué)生姓名和成績(jī)從鍵盤輸入

Private Sub Command1_Click()

Const count = 1 '為了方便調(diào)試,用了個(gè)常量來(lái)定義學(xué)生數(shù)量,我只用了2個(gè),懶得輸入太多數(shù)據(jù).用常量也便于以后加人,擴(kuò)充.

Dim StudentName(count), NameStr As String

Dim Student(count, 1), i As Integer

NameStr = ""

For i = 0 To count

StudentName(i) = InputBox("學(xué)生姓名", "請(qǐng)輸入", 0)

'此處,如無(wú)意外,應(yīng)該是用數(shù)組按相應(yīng)序號(hào)保存學(xué)生名字,所以,你的9肯定不對(duì)的,得相應(yīng)改為該學(xué)生序號(hào),這個(gè)是字串?dāng)?shù)組,直接保存輸入的字串就行了,

'用val()會(huì)轉(zhuǎn)換為數(shù)字,如果輸入字符,結(jié)果為0,學(xué)生名都會(huì)是0的.

Student(i, 1) = Val(InputBox("學(xué)生成績(jī)", "請(qǐng)輸入", 0))

If Student(i, 1) 60 Then

NameStr = NameStr StudentName(i) ":" Str(Student(i, 1))

'這里改了一下,加了個(gè)":",方便看結(jié)果.

End If

Next

MsgBox "不及格學(xué)生:" NameStr, vbOKOnly

'msgbox如果不用在表達(dá)式中,其參數(shù)不用括號(hào)的,我的VB6.0會(huì)提示出錯(cuò)的.

End Sub

vb.net 控制excel畫餅狀圖

我自己寫的控件，里面有示例程序，很簡(jiǎn)單的。不過(guò)餅圖只設(shè)置了12種顏色。。。只能顯示12項(xiàng)