ps6 色环插件 mac:用VB编写一个小程序

来源:百度文库 编辑:杭州交通信息网 时间:2024/06/10 00:36:39
要求输入一个数字,例如4,就显示一个窗口,
窗口如下:
****
****
****
****
显示出4行4列的“*”

窗体上添加一个text1控件

dim i,j,k as integer
k=val(text1.text)
for i=1 to k
for j=1 to k
print "*"
next j
print chr(13)
next i