窗体中有文本框Text1。运行程序,输入大于0的整数m,单击按钮Command1,程序显示由星号 组成的高度和边长均为m的平行四边形。例如,当m=5时,显示图形如下。 * * * * * * * * * * * *

admin2015-07-01  34

问题 窗体中有文本框Text1。运行程序,输入大于0的整数m,单击按钮Command1,程序显示由星号
组成的高度和边长均为m的平行四边形。例如,当m=5时,显示图形如下。
         * * * * *
       * * * * *
     * * * * *
   * * * * *
* * * * *
事件代码如下。
Private Sub Command1_Click()
    m = Val(Me!Text1)
    result = ""
    For k = 1 To m
        For n = 1 To 【     】
            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
程序【   】处应填写的语句是

选项 A、2 * m - k
B、2 * m
C、m - k + 1
D、2 * m - k + 1

答案A

解析 本题考查的是for循环的条件。本题第一行用于控制输出的行数,第二个用于控制每行的字符数(空格和"*")。随着行数的增加,每一行的字符数逐渐减少。从图中我们可以看出规律。第一个是四个空格和五个*,共计9个字符;第二行是3个空格和5个*,共计8个字符;...,所以满足条件的只有选项A 。因此,本题应选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/Xmgp777K
0

最新回复(0)