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

admin2020-06-06  28

问题 在窗体中变量m对应的文本框为Text1,“运行”按钮Command1对应的事件代码如下:
Private Sub Command1_Click()
Dim result As String
m=val(Me!Text1)
result=" "
For k=1To m
For n=1To k+m-1
If n<m-k+1hen
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
转载请注明原文地址:https://jikaoti.com/ti/J0o0FFFM
0

最新回复(0)