在窗体中变量m对应的文本框为Text1,“运行”按钮Commandl对应的事件代码如下: Private Sub Commandl_Click() Dim result As String m=Val(Me!Text

admin2018-08-17  32

问题 在窗体中变量m对应的文本框为Text1,“运行”按钮Commandl对应的事件代码如下:
    Private Sub Commandl_Click()
        Dim result As String
        m=Val(Me!Text1)
        result=“”
        For k=1 To m
          For n=1 To k+m一1
             If n<rn—k+1 Then
               result=result&“”
             Else
               resuIt=result&“*”
             End If
          Next n
          result=result+Chr(13)
        Next k
        MsgBox result,,“运行结果”
    End Sub
    单击运行按钮后,输入m的值为5,程序的运行结果是(  )。

选项 A、由星号组成的高为5的等腰三角形
B、由星号组成的高为5的等腰梯形
C、由星号组成的边长为5的平行四边形
D、由星号组成的边长为10的平行四边形

答案A

解析 本题考查For循环知识点。本题第一个For循环用于控制输出的行数,m从1取到5,所以共5行;第二个For循环控制每一行前段空格数目以及字符“*”的个数,每次循环之后空格数逐渐减少,而*逐渐增加。本题输出的是一个高为5的等腰三角形。
转载请注明原文地址:https://jikaoti.com/ti/Ya10FFFM
0

最新回复(0)