单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c＝1234c1＝Trim(Str(c))For i＝1 To 4　　Print　　　　NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为(　　)。

A．Right(c1， i)
B．Left(c1， i)
C．Mid(c1， i， 1)
D．Mid(c1， i， i)
<上一题 目录 下一题>
热门 试题

单项选择题
某人编写了下面的程序：Private Sub Command1_Click() Dim a As Integer， b As Integer a＝InputBox( 请输入整数 ) b＝InputBox( 请输入整数 ) pro a pro b Call pro(a＋b) End Sub Private Sub pro(n As Integer) While(n>0) Print n Mod 10； n＝n 10 Wend Print End Sub 此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123 和234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是( )。
A．把过程pro 的形式参数 n As Integer 改为 ByVal n As Integer
B．把Call pro(a＋b)改为 pro a＋b
C．把n＝n\10 改为 n＝n / 10
D．在pro b语句之后增加语句 c%＝a＋b ，再把 Call pro(a＋b)改为 pro c
单项选择题
已知在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)
相关试题