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

admin2019-04-13  33

问题 在窗体中变量m对应的文本框为Text1,“运行”按钮Commandl对应的事件代码如下:
    Private Sub Commandl Click()
    Dim result As String
    m=Val(Me!Textl)
    result=""
    For k=1 To m
    For n=1 T0 k+m—1
    If n<m—k+1 Then
    result=resuIt &""
    Else
    result=resuIt &"*"
    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://kaotiyun.com/show/7G0p777K
0

相关试题推荐
最新回复(0)