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

admin2021-09-06  42

问题 在窗体中变量m对应的文本框为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 4+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/nn90FFFM
0

最新回复(0)