单项选择题

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

A．A
B．a
C．C
D．c

<上一题目录下一题>

热门试题

单项选择题

设窗体上有一个文体框Text1和一个命令按钮Command1，并有以下事件过程： Private Sub Command1_Click() Dim S As String，ch As String S= For k=1 To Len(Text1) ch=Mid(Text1,k,1) S=ch+S Next k Text1.Text=S End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )

A．Basic
B．cisaB
C．BASIC
D．CISAB

单项选择题

已知在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)

相关试题