单项选择题

设窗体上有一个文体框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)

单项选择题

某人编写了如下程序，用来求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 max End Sub 运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是( )

A．把If a(k)＞max Then改为If a(k)＜max Then
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)

相关试题