单项选择题

请阅读程序： 　　Private Sub Form Click() 　　 m=1 　　 For i=4To 1 Step-1 　　 Print Str(m)； 　　 　　m=m+1 　　For j=1 To i 　　 Print"*"： 　　Next j 　　Print 　　 Next i 　　End Sub 　　程序运行后，单击窗体，则输出结果是( )。

A．1****
2***
3**
4*
B．4****
3***
2**
1*
C．****
***
**
*
D．*
**
***
****
<上一题 目录 下一题>
热门 试题

单项选择题
有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是( )。
A．Private Sub Vorm Click()
PopupMenu cut
End Sub
B．Private Sub Command1 Click()
PopupMenu edit
End Sub
C．Private Sub Form Click()
PopupMenu edit
End Sub
D．Private Sub Form Click()
PopupMenu cut
PopupMenu paste
End Sub
单项选择题
下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str= ABCDABCD ，ch= B ，则函数的返回值为： ACDACD Function delchar(str As String，ch As String)As String Dim k As Inlegcr，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 En d Function 但实际上函数有错误，需要修改，下面的修改方案中正确的是( )。
A．把ret=ret＆temp改为ret=temp
B．把If temp=ch Then改为If temp<>ch Then
C．把delchar=ret改为delchar=temp
D．把ret=""改为temp=""
相关试题