幫我做兩道VB的題

2023-02-09 09:55:14 字數 653 閱讀 1595

1樓:匿名使用者

一、 1、dim m as integer,n as integer,i as integer

for i=1 to 100

if i mod 3=0 then m=m+1

if i mod 7=0 then n=n+1

next i

print "3的倍數";m;"個;7的倍數";n;"個"

2、dim r as string ,i as integer,m as string

r="asdfghjkl"

for i=1 to len(r)

m=mid(r,i,1)+m

next i

print m

二、dim i as integer,max as integer,min as intyeger,s as integer,a(19) as ingeter

max=0:min=100

for i=0 to 19

randomize

a(i)=int(rnd*50+50)

s=s+a(i)

if a(i)>max then max=a(i)

if a(i)next i

print "最大值";max;"最小值";min;"平均值";s/20

這兩道題怎麼做,這兩道題怎麼做

又是一個新起點 以前有人這樣說過 不要因為一件事的終止而感到悲傷,因為終點就是起點,它將為你開拓一個更廣闊的世界。這天,我們告別了小學的快樂生活,在南開,踏上了新的追夢旅途 每一個新的起點,都會是一次新的體驗。在小學裡,我們擁有了人生中第依次接觸社會的體驗 第一次捉迷藏 第一次被老師罰站 第一次忘帶...

這兩道題怎麼做呢,這兩道題怎麼做

4又3 4 7又1 2 7又1 2 4又3 4 6又6 4 4又3 4 2又3 4 3又3 5 5又1 2 3又3 5 5又1 2 3又6 10 5又5 10 9又1 10 4又3 4 7又1 2 7又1 2 4又3 4 2又5 6 3又3 5 5又1 2 3又3 5 5又1 2 9又1 10 這兩...

請問這兩道題怎麼做,請問這兩道題怎麼做?

第一題x 5xy 6y 0 x 2y x 3y 0 代入x y 2 y 2 2y 2 0 y1 2 y2 1 x1 4 x2 3 第二題由 式得 x 6y x y 0 x 6y 或 x y 由 式 2x y 9 2x y 3 x 6y時 12y y 3 11y 3 y 3 11 或 y 3 11 x...