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)
开始考试练习点击查看答案