单项选择题

下面程序的输出结果是( )
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

<上一题目录下一题>

热门试题

单项选择题

有如下函数： Function fun(a As Integer,n As Integer) As Integer Dim m As Integer While a＞=n a＝a-n m＝m+1 Wend fun=m End Function 该函数的返回值是( )

A．a乘以n的乘积
B．a加n的和
C．a减n的差
D．a除以n的商(不含小数部分)

单项选择题

有一个名称为Form1的窗体，上面没有控件，没有以下程序(其中方法Pset(X,Y)的功能是在坐标X,Y处画一个点)： Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) cmdmave=True End Sub Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If cmdmave Then Form1.Pset(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) cmdmave=False End Sub 此程序的功能是( )

A．每按下鼠标键一次，在鼠标所指位置画一个点
B．按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
C．不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
D．按下鼠标键并拖动鼠标．则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线

相关试题