关于VB中打印图形的问题
发布网友
发布时间：2022-05-07 11:03
共1个回答
热心网友
时间：2023-10-27 21:39
NO.1:
private sub form_click()
dim n%
n=val(inputbox("输入一个整数："))
for i=1 to n
for j=1 to i
print "*";
next j
next i
end sub
NO.2:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i=1 to n
print tab(n-i+1);
for j=1 to i
print "*";
next j
next i
end sub
NO.3:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i=1 to n
print tab(n-i+1);
for j=1 to 2*i-1
print "*";
next j
next i
end sub
NO.4:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i= 1 to n
print tab(i);
for j=2*n-1 to 2*i-1 step -1
print "*";
next j
next i
for i=1 to n
print tab(n-i+1);
for j=1 to 2*i-1
print "*";
next j
next i
end sub
NO.5:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i =1 to n
print tab(i);
for j=2*n-1 to 2*i-1 step -1
print "*";
next j
next i
end sub
检验有效：
热心网友
时间：2023-10-27 21:39
NO.1:
private sub form_click()
dim n%
n=val(inputbox("输入一个整数："))
for i=1 to n
for j=1 to i
print "*";
next j
next i
end sub
NO.2:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i=1 to n
print tab(n-i+1);
for j=1 to i
print "*";
next j
next i
end sub
NO.3:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i=1 to n
print tab(n-i+1);
for j=1 to 2*i-1
print "*";
next j
next i
end sub
NO.4:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i= 1 to n
print tab(i);
for j=2*n-1 to 2*i-1 step -1
print "*";
next j
next i
for i=1 to n
print tab(n-i+1);
for j=1 to 2*i-1
print "*";
next j
next i
end sub
NO.5:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i =1 to n
print tab(i);
for j=2*n-1 to 2*i-1 step -1
print "*";
next j
next i
end sub
检验有效：
热心网友
时间：2023-10-27 21:39
NO.1:
private sub form_click()
dim n%
n=val(inputbox("输入一个整数："))
for i=1 to n
for j=1 to i
print "*";
next j
next i
end sub
NO.2:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i=1 to n
print tab(n-i+1);
for j=1 to i
print "*";
next j
next i
end sub
NO.3:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i=1 to n
print tab(n-i+1);
for j=1 to 2*i-1
print "*";
next j
next i
end sub
NO.4:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i= 1 to n
print tab(i);
for j=2*n-1 to 2*i-1 step -1
print "*";
next j
next i
for i=1 to n
print tab(n-i+1);
for j=1 to 2*i-1
print "*";
next j
next i
end sub
NO.5:
private sub form_click()
dim n%
n=val(inputbox("请输入一个整数"))
for i =1 to n
print tab(i);
for j=2*n-1 to 2*i-1 step -1
print "*";
next j
next i
end sub
检验有效：
