单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) For i =1 To 4 x=4 For j = 1 To 3 x=3 For k = 1 To 2 x=x+6 Next Next Next Print x End Sub 程序运行后，单击命令按钮，输出的结果是

A．7
B．15
C．157
D．538

<上一题目录下一题>

热门试题

单项选择题

下列程序的执行结果为 Private Sub Command1_Click( ) Dim FirStr As String FirSt = abcdef Print Pat(FirStr) End Sub Private Function Pat( 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, 1 ) + Mid(xStr, strLen - i + 1, 1 ) i=i+1 Loop Pat = tempStr End Function

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

单项选择题

有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click() i=Val(Inputbox( 请输入数据 )) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为

A．120
B．60
C．80
D．100

相关试题