二级二级VB2008年4月全国计算机等级考试二级VB试卷

试卷预览

• 21设窗体上有一个标签Labell和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是

  A.Private Sub Timer1_Timer() Label1.Caption=TrueEnd Sub

  B.Private Sub Timer1_Timer() Label1.Caption=Time$End Sub

  C.Private Sub Timer1_Timer() Label1.Interval=1End Sub

  D.Private Sub Timer1_Timer() For k = l To Timer1.Interval Label1.Caption=Timer Next kEnd Sub

  开始考试练习点击查看答案
• 22窗体上有一个名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click()  x=“VisualBasicProgramming”  a=Right(x,11)  b=Mid(x,7,5)  C=Msgbox(a, , b)End Sub运行程序后单击命令按钮，以下叙述中错误的是

  A.信息框的标题是Basic

  B.信息框中的提示信息是Programming

  C.C的值是函数的返回值

  D.MsgBox的使用格式有错

  开始考试练习点击查看答案
• 23设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。Form1的代码如下：Public X As IntegerPrivate Sub Form_load()  x=1  y=5End SubPrivate Sub Command1_Click()  Form2.ShowEnd SubForm2的代码如下：Private Sub Command1_Ciick()  Print Form1.x,yEnd SubModule1的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是

  A.1　　5

  B.0　 5

  C.0　　0

  D.程序有错

  开始考试练习点击查看答案
• 24窗体上有一个名称Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：Private  Type  x  a  As Integer  b  AS IntegerEnd TypePrivate Sub Command1_Click()  Dim  y  As  x  y.a = InputBox(“”)  If y.a2=y.a/2 Then    y.b=y.a*y.a  Else    y.b = Fix(y.a/2)  End If  Text1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是

  A.x是用户定义的类型

  B.InputBox函数弹出的对话框中没有提示信息

  C.若输入的是偶数，y.b的值为该偶数的平方

  D.Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回

  开始考试练习点击查看答案
• 25窗体上有一个用菜单编辑器设计的菜单（见上图）。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的

  A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”）

  B.菜单中的横线是在该菜单项的标题输入框中输入了一个“－”（减号）字符

  C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”）

  D.在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”

  开始考试练习点击查看答案
• 26窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下：Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer)  Dim C AS string  Tcxt2.Text=Chr(Asc(c)+2)End Sub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是

  A.A

  B.a

  C.C

  D.c

  开始考试练习点击查看答案
• 27设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：Private Sub Command1_Click()  Dim  S  As String , ch As String  S=“”  For k=1 TO Len(Text1)    ch = Mid(Text1,k,l)    S=ch+S  Next k  Text1.Text=SEnd Sub程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是

  A.Basic

  B.cisaB

  C.BASIC

  D.CISAB

  开始考试练习点击查看答案
• 28某人编写了如下程序，用来求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 maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是

  A.把If a(k)>max Then改为If a(k)

  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)

  开始考试练习点击查看答案
• 29已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下：Option Base 1Private 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 iEnd 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之间

  C.把sum = sum+score(i,j)改为sum=sum+score(j,i)

  D.把sum=sum+score(i,j)改为sum=score(i,j)

  开始考试练习点击查看答案