单项选择题

下面程序的输出结果是( )。
Private Sub Command1_Click()
ch$="ABCDEF"
proc ch
Print ch
End Sub
Private Sub proc(ch As String)
s=""
For k=Len(ch)To 1 Step-1
s=s & Mid(ch,k,1)
Next k
ch=s
End Sub

A．ABCDEF
B．FEDCBA
C．A
D．F

<上一题目录下一题>

热门试题

单项选择题

下列程序的执行结果是( )。 Private Sub Form_Activate() Dim score(3)As Integer,total As Integer Dim aa score AS Variant score(1)=50:score(2)=14:score(3)=36 total=0:i=0 For Each aa score In score i=i+1 tota1=tota1+aa_score Print i,aa_score,tota1 Next End Sub

A．1 0 0
2 50 50
3 14 64
4 36 100
B．1 50 50
2 14 64
3 36 100
C．0 50 50
1 14 64
2 36 100
3 36 100
D．0 0 0
1 50 50
2 14 64
3 36 100

单项选择题

在窗体上画1个文本框，名称为Text1，然后编写如下程序： Private Sub Form Load() Open C: dat.txt For Output As#1 Text1.Text= End Sub Private Sub Text1_KeyPress(KeyAscii As integer) If______=13 Then If UCase(Text1.Text=______)Then Close 1 End Else Write#1,Text1.Text Text1.Text= End If End If End Sub 程序的功能是，存C盘根目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat.txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句( )。

A．KeyAscii "END"
B．Text1.Text "END"
C．Text1.Text 13
D．KeyAscii 13

相关试题