2011年3月全国计算机等级考试二级Visual Basic语言程序设计笔试(2)

值未变，仍为10。k值需被赋值为1后与5作比较才知道大小，故k值为1。

26. 设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：

Private Sub Command1_Click() x!=Val(Text1.Text) Select Case x

Case Is<-10,Is>=20 Print\输入错误\Case Is<0 Print 20-x Case Is<10 Print 20 Case Is<=20 Print x+10 End Select End Sub

程序运行时，如果在文本框中输入-5,则单击命令按钮后的输出结果是 A. 5 B. 20 C. 25

D. 输入错误 答案：C

解析：本题考查的知识点是Select Case语句，其功能是根据“测试表达式”的值（本题中测试表达式为x），从多个语句块中选择符合条件的一个语句块执行。 27. 设有如下程序

Private Sub Command1_Click() x=10:y=0 For i=1 To 5 Do x=x-2 y=y+2

Loop Until y>5 Or x<-1 Next End Sub

运行程序，其中Do循环执行的次数是 A. 15 B. 10 C. 7 D. 3 答案：C

解析：本题需要注意区分Do Until?Loop语句和Do?Loop Until语句。后者为后判断条件的循环语句，无论初始条件是否满足都至少执行一次循环，当条件满足时跳出循环。 28. 阅读程序：

Private Sub Command1_Click()

Dim arr

Dim i As Integer

arr=Array(0,1,2,3,4,5,6,7,8,9,10) For i=0 To 2 Print arr(7-i); Next End Sub

程序运行后，窗体上显示的是 A. 8 7 6 B. 7 6 5 C. 6 5 4 D. 5 4 3 答案：B 解析：本题中，arr被Array函数定义为数组并被赋初值；For循环中i的值为0到2，那么，7-i的值为7，6，5;Print arr(7-i)也就是输出arr(7),arr(6),arr(5)的值，即输出7，6，5。 29. 在窗体上画一个名为Command1的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim a(10)As Integer For k=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7

Print a(k-a(k)) End Sub

运行程序，单击命令按钮，输出结果是 A. 18 B. 12 C. 8 D. 6 答案：A

30. 窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() Dim a(10),x% For k=1 To 10

a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print x End Sub

程序运行后，单击命令按钮，输出结果是 A. 10个数中奇数的个数 B. 10个数中偶数的个数 C. 10个数中奇数的累加和 D. 10个数中偶数的累加和

答案：A

解析：Mod函数为求余函数，与2取余，值为0表示为偶数，值为1表示为奇数。因加上0对x的值并无影响，加上1表示有一个奇数，因此答案为A。

31. 窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：

Private Sub Command1_Click() Timer1.Enabled=True End Sub

Private Sub Form_Load() Timer1.Interval=10 Timer1.Enabled=False End Sub

Private Sub Timer1_Timer() Command1.Left=Command1.Left+10 End Sub

程序运行时，单击命令按钮，则产生的结果是 A. 命令按钮每10秒向左移动一次 B. 命令按钮每10秒向右移动一次 C. 命令按钮每10毫秒向左移动一次 D. 命令按钮每10毫秒向右移动一次 答案：D

解析：Interval属性的单位为毫秒。

32. 设窗体上有一个名为List1的列表框，并编写下面的事件过程： Private Sub List1_Click() Dim ch As String

ch=List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex List1.AddItem ch End Sub

程序运行时，单击一个列表项，则产生的结果是 A. 该列表项被移到列表的最前面 B. 该列表项被删除

C. 该列表项被移到列表的最后面 D. 该列表项被删除后又在原位置插入 答案：C

解析：RemoveItem方法作用是删除项；AddItem方法作用是添加项，若省略Index值，则默认为插入到列表的最后面。

33. 窗体上有一个名为Command1的命令按钮，并有如下程序： Private Sub Command1_Click() Dim a As Integer,b As Integer a=8 b=12

Print Fun(a,b);a;b End Sub

Private Function Fun(ByVal a As Integer,b As Integer)As Integer a=a Mod 5 b=b＼5 Fun=a

End Function

程序运行时，单击命令按钮，则输出结果是 A. 332 B. 382 C. 8812 D. 3812 答案：B …… 此处隐藏：535字，全部文档内容请下载后查看。喜欢就下载吧 ……