单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程：

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

<上一题目录下一题>

热门试题

单项选择题

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

A．All Files(*.*)
B．Text Files(*.*)
C．*.txt
D．All Files(*.*)|Text Files(*.*)

单项选择题

下列程序的执行结果为 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

相关试题