急急急!編寫大一VB程式設計 輸出如下圖形(共四行,第一行,第二行,第三行,第四行

2021-03-25 16:52:03 字數 4453 閱讀 8242

1樓:匿名使用者

private sub ***mand1_click()dim i

for i = 1 to 4

print tab(7 - i); string(i * 2 - 1, "*")

next

end sub

2樓:匿名使用者

for i = 1 to 4

for j = 1 to 2*i - 1

print "*";

next j

print

next i

3樓:匿名使用者

for i = 1 to 7 step 2

print string(i, "*")

next

4樓:匿名使用者

最基礎的演算法問題,你竟然不會。你應該得好好學習。

vb程式設計在螢幕上輸出如下圖形

5樓:匿名使用者

樓上的什麼啊……

private sub ***mand1_click()dim i as integer, n as integern = 3

for i = 1 to n

print space(n - i); string(2 * i - 1, "*")

next

for i = n - 1 to 1 step -1print space(n - i); string(2 * i - 1, "*")

next

end sub

6樓:匿名使用者

option explicit

private sub form_load()autoredraw = true

dim i as long, j as longfor i = 1 to 5

j = iif(i < 4, i, 6 - i)print space(4 - j); string(j * 2 - 1, 42)

next

end sub

'^-^

7樓:匿名使用者

用print來實

現private sub ***mand1_click()print "*"

print chr(10) & " ***"

print chr(10) & " ****"

print chr(10) & " ***"

print chr(10) & " *"

end sub

vb程式設計題:第一行輸出5個5,第二行輸出4個4,第三行輸出3個3,第四行輸出2個2,第五行輸出1個1 20

8樓:匿名使用者

你的程式不好實現,print語句只能輸出一行,如果一定是要這樣的話,那就只有硬來的了.

我的程式是一行一行的

private sub form_load()on error resume next

me.windowstate = 2

end sub

private sub form_click()on error resume next

dim lprow, lpcol, h, count as integer

for lprow = 1 to 6

for lpcol = 1 to h

count = lpcol

print count

next

h = lprow

print ""

next

end sub

9樓:…煙花飄飄

for i=5 to 1 step -1

print string(i,i)

next

10樓:匿名使用者

for i=5 to 1 step -1

println(i)

next

使用迴圈語句程式設計序在窗體中列印如下圖形: ** **** ****** ******** vb程式設計,急!

11樓:匿名使用者

大概就是這個思路:第一行3個空格,2個*,第二行2個空格4個*,第三行 1個空格版6個* 滴行 無空格8個*

自定義權 j=4

迴圈 for i=1 to 4 (迴圈4次,也就是4行)列印 j-i 個 「 」;(依次列印空格數)在列印 i*2個 「*」(在列印*的數量)next i (迴圈)end呵呵,我大概知道的意思,也就是這樣,具體vb的列印和迴圈功能你應該知道。

12樓:匿名使用者

直線是一條一條依次出現,佈滿窗體..程式要用到if語句和for next迴圈語句, set line1 = controls.add(

13樓:匿名使用者

private sub form_click()dim i as integer

dim j as integer

print vbcrlf

for i = 1 to 4

print tab(8 - i);

for j = 1 to 2 * i

print "*";

next j

print

next i

for i = 1 to 4

print tab(8 - i);

for j = 1 to 2 * i

print "*";

next j

print

next i

for i = 1 to 4

print " ** "

next

end sub

是一復顆制

樹哈,完整的**

14樓:匿名使用者

private sub form_click()for i = 1 to 4

print tab(8 - i);

for j = 1 to 2 * i

print "*";

next j

print

next i

end sub

15樓:匿名使用者

for i=2 to 8 step 2

print tab(10-i/2);

for j=1 to i

print "*";

next j

print

next i

16樓:

private sub ***mand1_click()dim i as integer, n as integern = 4

for i = 1 to n

print space(n - i); string(2 * i, "*")

next

end sub

vb程式設計5行「*」,第一行1個「*」,第二行3個「*」以此類推,第五行9個「*」,並使5行「*」呈等腰三角形排

17樓:匿名使用者

畫一個***mand控制元件,**版如下權

private sub ***mand1_click()dim a as string, i as integer, j as integer

dim st as string

a = "*"

st = ""

for i = 1 to 5

for j = 1 to 5 - i

st = st & " "

next j

for j = 1 to i * 2 - 1st = st & a & " "

next j

st = st & chr(13) & chr(10)next i

print st

end sub

求:c語言程式設計:共四行,第一行七個a,第二行五個b,第三行三個c,第四行一個d,成下三角排列。謝謝!

18樓:匿名使用者

//編譯環境:vc++6.0,如果是tc,改標頭檔案為stdio,改cout為printf函式即可

#define row 4

//row是列印的行專數,屬這裡是4行

#include

void main()

return;}

19樓:匿名使用者

#include

int print_line(int indent, int count, int c)

while (count -- > 0)

printf("\n");

return 0;

}int main(void)

return 0;}

急急急vb程式設計題目時間雙擊窗體

option explicit private sub form dblclick dim i as integer dim s as long for i 20 to 263 s s i next i print s s end sub print中 為標準格式一行輸出五個,為緊湊格式 糾結,前面...

C程輸出如下形式九九乘法表,急急急

include include void main while n 0 n 10 int erwei int malloc sizeof int n 1 int i,j,k erwei 0 int malloc sizeof int n 1 erwei 0 0 0 第一個元素沒用到 因為輸出 號 隨...

急急急急!!!!新大一開學前應準備什麼?

1 調整好心態準備迎接新的生活,面對新的同學,遇到各種各樣的將來可能會成為一輩子朋友的人 2 準備基本的生活物品,即使沒有也可以到學校買,一般準備換洗衣物,秋冬的帶齊,洗臉洗澡的毛巾,香皂,洗浴液,洗髮水,牙膏牙刷,喝水杯,還要看你們學校會發什麼,嗽口杯我大學的時候是發了的,還發了飯盆,到學校再買那...