End Sub
数组的定义及引用
例1 统计某班(假设有30人)程序设计课程考试的平均 成绩,并输出高于平均分的成绩。(统计问题)
分析: 1.先声明数组后输入30人的成绩,再进行累加; 在循环体外打印平均成绩 2. 判断是否有>平均成绩的,有则一行输出5个
Private Sub Form_Click() Const NUM = 30
下列程序运行时单击Command1,输出的结果是( ) Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 - k Next
Print a(3 + a(6))
End Sub
A)2
B)3
C)4
D)5
下列程序运行时单击窗体,输出的结果是( ) Private Sub Form_Click() ‗数组声明的语句能对数组进行初始化,使得数值型数组的元素值初 始化为0,字符型数组的元素值初始化为空。 Dim a(4) a(4) = 4 For i = 1 To 3 a(i) = a(i + 1) - 1 Next Print a(1) End Sub
Max = Test(1): L = 1 '设数组第一个元素为最大值 For i = 2 To Length If Max < Test(i) Then '找到新的最大值,记录其值 和位置 Max = Test(i) L=i End If Next i MsgBox "最大值x=" & Max & ",位置是" & L End Sub
13
知识点回眸