Question

vb考试题 求解啊 ！

1） 输出1到100之间的所有整数。
2） 计算1+(1+2)+(1+2+3)+…+(1+2+3+4+5+6+7+8+9)+(1+2+3+4+5+6+7+8+9+10)
3） 输入含有若干个单词的一个句子，求其中最长的单词。
确认正确后马上给。没有更多的了。

Answer 1

第一题
for i=1 to 100
print i;
if i mod 10=0 then print ’10个换行
next
print
第二题
sum=0
for i=1 to 10
for j=1 to i
sum =sum+j
next
next
print sum
第三题麻烦，要上机做了，先给你前两个
Private Sub Command1_Click()
Dim maxw As String
w = Split(Text1.Text, " ")
maxw = w(0)
For i = 0 To UBound(w)
If Len(w(i)) > Len(maxw) Then maxw = w(i)

Next
Print maxw
End Sub

追问

把第二个写的在清楚一些吗！

追答

怎么清楚法啊，看不明白 ？

追问

向第三题那样吗，从开始到完，我是个新手，给你找麻烦了，我知道这些问题很幼稚，你体谅我一下好把！

追答

都放在COMMAND1_click()事件中就行

Answer 2

for i=1 to100
print i
next

二：
dim sum as long
for i =1 to 10
for j =1 to i
sum=sum+j
next
next
msgbox sum

三
dim maxL as string
dim s as string
do
s=inputbox("输入单词,输入0结束")
if s="0" then exit do
if len(s)>len(maxl) then maxl=s
loop
msgbox "最长的词" & maxL

Answer 3

1) for i=1 to 100
print i
next i
2) for i=1 to 10
for j=i to 1 step -1
sum1=sum1+j
next j
next i
print sum1
3) a=text1.text
b=split(a," ")
c=b(0)
for i=0 to ubound(b)
if len(b(i))>len(c) then
c=b(i)
endif
next i
print c