1,Dim s, a, n As Integers = 0a = 1Do Until a >= 50s = s + a ^ 2a = a + 1For n = 1 To 7If a = 7 * n Or a = 13 * n ThenDo While a = 7 * n Or a = 13 * na = a + 1LoopEnd IfNext nLoopLabel1.Text = s2,上课了，下次再给你。。呵呵。。。不好意思
第四题（非条件句解法）：仔细看看你的题目发现有点问题，是不是输入三个数排序，按从大到小排序然后输出。下面就是最简便的方法（VB2005）：Dim x,y,z as doublex=val(textbox1.text)y=val(textbox2.text)z=val(textbox3.text)Dim a() as double = {x,y,z}Array.Sort(a)msgbox("三个数从大到小排序是："&a(0)&"、"&a(1)&"、"&a(2))========条件句的话要判断很多句啊。慢慢写就出来了。。
