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

admin2020-06-06  36

问题 在窗体中变量131对应的文本框为Text1,“运行”按钮Command1对应的事件代码如下:
    Private Sub Command1_Click()
    Dim result As String
    m=Val(Me!Text1)
    result=" "
    For k=1 To m
    For n=1 To k+m-1
    If n<m-k+1 Then
    result=result&" "
    Else
    result=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

解析 在命令按钮的单击事件中,变量m取得在文本框Text1中的输入值,变量result存储输出的图形。在过程中包含了两层For循环,外层循环每执行一次,计算出result一行的值,执行m次后,生成m行图形;内层循环生成result一行中的每一个字符,执行次数随着外层k值的变化而递增。当m=5,外层k=1时,内层执行5次。
    n<5时,result增加一个空格;n>=5时,result增加一个*号。所以result第一行的图形是4个空格加1个*号。外层k=2时,内层执行6次。
    n<4时,result增加一个空格;n>=4时,result增加一个*号。所以result第二行的图形是3个空格加3个*号。依次类推,会输出5行高的等腰三角形。
转载请注明原文地址:https://jikaoti.com/ti/Npo0FFFM
0

最新回复(0)