题目内容
有一个名称为Fom1的窗体，上面没有控件，设有以下程序(其中方法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 Forml．PSet(X，Y) End lf 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．按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
查看答案
搜索结果不匹配？点我反馈
更多问题
要使一个文本框可以显示多行文本，应设置为True的属性是。
某人设计了下面的函数fun，功能是返回参数a中数值的位数： Function fun(a AS Integer)AS Integer Dim n％ N=1 While a＼10＞=0 N=n+l：a=a＼l0 Wend Fun=n End Function 在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是。 A．把错句n=1改为n=0 B．把循环条件a＼l0＞=0改为a＼l0＞0 C．把语句a=a＼l0改为a=a Mod 10 D．把语句fun=n改为fun=a
若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是。 A．把所有单选按钮的Index属性改为相同值 B．把所有单选按钮的Index属性改为连续的不同值 C．把所有单选按钮的Caption属性值改为相同 D．把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值
下面程序的输出结果是。 Private Sub Commandl_Click ch$=“ABCDEF” proc ch：Print ch End Sub Private Sub proc(ch As Stnng) 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
微信支付 
支付宝支付