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

admin2020-09-01  28

问题 在窗体中变量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 + 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

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

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