s=ch+s Next k Text.Text=s End Sub 程序执行时,在文本框中输入“ Basic”,然后单击命令按钮,则 TextI I中显示的是()。 A)Basic B) cisaB C) BASIC D) CISAB (34)某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值: Private Sub Commandl Click Dim a(10)As Integer, max As Integer For k=l To 10 a(k)= InputBox("输入一个整数") Next k max For k=1 To 10 f a(k)>max Then max=a(k End If Next k Print max End Sub 运行程序时发现,当输入10个正数时,可以得到正确结果,但输入10个负数时结果是 错误的。程序需要修改。下面的修改中可以得到正确运行结果的是() A)把Ifa(k)> max Then改为Ifa(k< max Then B)把max=a(k)改为a(k)=max C)把第2个循环语句Fork=1Io10改为Fork=2To10 D)把max=0改为max=a(10) (35)已知在4行3列的全局数组 score(4,3)中存放了4个学生3门课程的考试成绩(均为 整数),现需要计算每个学生的总分,某人编写程序如下: Option Base I Private Sub Commandl Click Dim sum As Integer sum=0 For i= 1 To 4 Forj=1 To 3 sum=sum+ score(i,j) Pint"第"&i&"个学生的总分是:" sum Next End Sub 运行此程序时发现,除第1个人的总分计算正确外,其他人的总分都是错误的,程序需 要修改。以下修改方案中正确的是 A)把外层循环语句Fori=1To4改为Fori=1To3 内层循环语句Forj=1Io3改为Forj= B)把sum=0移到Fori=1To4和Forj=1To3之间 二级Ⅴ isual basic语言程序设计试卷第8页(共10页)二级 Visual Basic 语言程序设计试卷 第 8 页（共 10 页） s = ch + s Next k Text1.Text = s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则 Text1 中显示的是（ ）。 A）Basic B）cisaB C）BASIC D）CISAB （34）某人编写了如下程序，用来求 10 个整数（整数从键盘输入）中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k = 1 To 10 a(k) = InputBox("输入一个整数") Next k max =0 For k = 1 To 10 If a(k) > max Then max = a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是 错误的。程序需要修改。下面的修改中可以得到正确运行结果的是（ ）。 A）把 If a(k)>max Then 改为 If a(k)<max Then B）把 max=a(k)改为 a(k)=max C）把第 2 个循环语句 For k=1 To 10 改为 For k = 2 To 10 D）把 max=0 改为 max=a(10) （35）已知在 4 行 3 列的全局数组 score(4,3)中存放了 4 个学生 3 门课程的考试成绩（均为 整数），现需要计算每个学生的总分，某人编写程序如下： Option Base 1 Private Sub Command1_Click() Dim sum As Integer sum = 0 For i = 1 To 4 For j = 1 To 3 sum = sum + score(i, j) Next j Print "第" & i & "个学生的总分是："; sum Next i End Sub 运行此程序时发现，除第 1 个人的总分计算正确外，其他人的总分都是错误的，程序需 要修改。以下修改方案中正确的是（ ）。 A）把外层循环语句 For i = 1 To 4 改为 For i = 1 To 3 内层循环语句 For j = 1 To 3 改为 For j = 1 To 4 B）把 sum = 0 移到 For i = 1 To 4 和 For j =1 To 3 之间