单项选择题

若看到程序中有以下事件过程，则可以肯定的是，当程序运行时( )。
Private Sub Click_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB Program"
End Sub

A) 用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
B) 用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
C) 用鼠标右键单击名称为“MouseDown”的控件时，执行此过程
D) 用鼠标左键或右键单击名称为“Click”的控件时，执行此过程

<上一题目录下一题>

热门试题

单项选择题

已知在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之间
C) 把sum=sum+score(i, j)改为sum=sum+score(j, i)
D) 把sum=sum+score(i, j)改为sum=score(i, j)

单项选择题

窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2．Text=Chr(Asc(c)+2) End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。

A) A
B) a
C) C
D) c

相关试题