数组 如假设存放200个学生信息学成绩的数组名为InformationScore,要求出所有学生的信息学的平均分,可使用下列语句: Dim AvgInformationScore As Single Dim InformationScore(199) As Integer AvgInformationScore = 0 For i = 0 To 199 Step 1 AvgInformationScore = AvgInformationScore + InformationScore (i)
vb 大作业~~课程设计 Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 0 mAddEditId = "": mAddEditIdName = "" mAddEditIdClass = "": mAddEditIdDepart = "" mAddEditIdZhi = "" If txtBookId.Text = "" Or txtBookIdName = "" Then ' Or txtBookI