单项选择题

请阅读程序：
Option Base 1
Private Sub Form_Click()
Dim Arr(4,4)As Integer
For i=1 To 4
For j=1 To 4
Art(i,j)=(i-1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j,i)
Next j
Print
Next i
End Sub
程序运行后，单击窗体，则输出结果是( )

A．5 7
6 8 B．6 8
7 9
C．7 9
8 10
D．8 10
8 11

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text= Text2.Text= Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1=S1&Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S1 Text2.Text=S2 S1= S2= End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )

A．abc和ABC
B．空白
C．ABC和abc
D．出错

单项选择题

下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果，例如若str= ABCDABCD ,ch= B ,则函数的返回值为：“ACDACD” Function delchar(str As String，ch As String)As String Dim k As Integer,temp As String,ret As String ret= For k=1 To Len(str) temp=Mid(str,k,1) If temp=ch Then ret=ret&temp End If Next k delchar=ret End Function 但实际上函数有错误，需要修改，下面的修改方案中正确的是( )

A．把ret=ret&temp改为ret=temp
B．把If temp=ch Then改为If temp＜＞ch Then
C．把delchar=ret改为delchar=temp
D．把ret=" "改为temp=" \

相关试题