林腾蛟学历是假的:用VB编写一个小程序

来源:百度文库 编辑:中科新闻网 时间:2024/05/17 03:09:52
要求输入一个数字,例如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