VB6.0编程作业

Question

小弟请教各位大大 一共有4道题 1：有一个长阶梯，如果每步跨2阶最后剩1阶，如果每步跨3阶最后剩2阶，如果每步跨4阶最后剩3阶，如果每步跨5阶最后剩4阶，如果每步跨6阶最后剩5阶，只有当如果每步跨7阶时恰好走完，求这个阶梯的最小阶梯数。 2.编写程序，计算1！+（1！+3！）+（1！+3！+5！）+......+(1!+3!+......+n！） 3.编写程序，按照公式m=（1^1）*（2^2)*(3^3)*.....*(n^n)计算，求m不大于200000时，m和n的最大值。 一共三道题，请VB达人写出详细编程过程。使用的是VB6.0~~小弟先谢过了~~

Answer 1

Private Sub Command1_Click() '1！+（1！+3！）+（1！+3！+5！）+......+(1!+3!+......+n！） Dim n, jc, sum1, sum n = Val(InputBox("n=")) jc = 1 If n Mod 2 = 1 Then For i = 1 To n Step 2 jc = 1 sum1 = jc For j = 3 To i Step 2 jc = jc * (j - 1) * j sum1 = sum1 + jc Next j sum = sum + sum1 Next i MsgBox sum Else MsgBox "n不是奇数" End If End Sub

Answer 2

第一题 dim i as integer do i=i +1 if i mod 2=1 and i mod 3=2 and i mod 4=3 and i mod 5 =4 and i mod 6 =5 and i mod 7 =0 then exit do loop msgbox "共有" & i & "阶"