单项选择题

下列程序段的执行结果为
　　m=1
　　n=1
　　Select Case m
　　　　Case 1
　　　　　　Select Case n
　　　　　　　　Case 0
　　　　　　　　　　　Print "* * 0 * "
　　　　　　　　Case 1
　　　　　　　　　　　Print " * 1 * * "
　　　　　End Select
　　　Case 2
　　　　　print " * * 2 * * "
　　End Select

A．* * 0 * *
B．* * 1 * *
C．* * 2 * *
D．0

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Commandl_Click() CommonDialogl，Flags=vbOFNHideReadOnly CommontDialogl．Filter= All Files(*．*)|*．*|Text Files (*.*)|*．txt| _ & Batch Files (*．bat) |*．bat CommonDialogl．Filterlndex=1 CommonDialogl．Showopen MsgBox CommonDialogl．FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是

A．All Fries(*.*)
B．Text Files(*.*)
C．Batch Files(*．bat)
D．All Files (*．*)|Text Files(*．*)

单项选择题

下列程序的执行结果为 Ptivate Sub Commandl_Click() Dim FirStr As String FirStr= abcdef Print Pct (FirStr) End Sub Private Function Pct(xStr As String)As String Dim tempStr As String,strLen As Integer tempStr= strLen=Len(xStr) i=1 Do While i＜=Len(xStr)-3 tempStr=tempStr + Mid(xStr，i，l) + Mid(xStr，strLen - i+i ，1) i=i + 1 Loop Pct=tempStr End FunCtion

A．abcdef
B．afbecd
C．fedcba
D．defabc

相关试题