Question

求高手帮做VB程序题 谢谢啊

编写程序：
1、设>=1*2*3*4*5*……*N，编程求不大于S时最大的N，S为键盘输入的数值。
2、输入N的值，计算1—N之间能被7整除的所有数之和，界面设计自定。
3、在窗体上添加一个文本框和一个命令按钮。运行程序时，单击命令按钮，弹出一个输入对话框，要求输入一个0~99999之间的整数，判断输入的是几位数，并把结果显示在文本框中。
4、编程求出所有小于或等于100的自然数对。自然数对是指两个自然数的和与差都是一个平方数，如8与17的和等于25，其差等于9，都是平方数，则8和17称为自然数对。

题目出自书本：VISUAL BASIC程序设计。北京邮电大学出版社。
还有要说明的就是要建立什么样的控件也说明哈，例如建个输入框什么的~~

Answer 1

第一题
Private Sub Command1_Click()
Dim s As Integer, n As Integer, sum As Integer, i As Integer
sum = 1
s = InputBox("输入S值", "提示")
For i = 1 To s
sum = sum * i
If sum > s Then
n = i - 1
Print "最大的n值", n
Exit For
End If
Next
End Sub

第二题
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = InputBox("键入N值", "提示")
For i = 1 To n
If i Mod 7 = 0 Then
Print i
End If
Next i
End Sub

第三题
Private Sub Command1_Click()
n = InputBox("键入一个数值0-99999")
Text1.Text = "这个数字是" & Len(n) & "位数"
End Sub

第四题
Private Sub Command1_Click()
For i = 1 To 100
For j = 1 To i
If Int(Sqr(i - j)) = Sqr(i - j) And Int(Sqr(i + j)) = Sqr(i + j) Then

Print j; "和"; i; "是自然数对"
End If
Next
Next
End Sub

你只需添加一个命令按钮就行

Answer 2

1
Private Sub Command1_Click()
a = Val(InputBox("S值=", "输入"))
s = 1
For i = 1 To a
s = s * i
If s > a Then
Exit For
End If
Next
MsgBox "N值为" + Str(i)
End Sub

2
Private Sub Command1_Click()

N = InputBox("输入N值", "输入")
For i = 1 To N
If (i Mod 7) = 0 Then
S = S + i
End If
Next
MsgBox "和为" + Str(S)
End Sub

3
Private Sub Command1_Click()
MsgBox Str(Len(Text1.Text)) + "位数"
End Sub

Private Sub Form_Load()
Text1.MaxLength = 5
End Sub

4
Private Sub Command1_Click()
For x = 1 To 100
For y = x To 100
a = x + y
b = Abs(x - y)
If Sqr(a) = Fix(Sqr(a)) And Sqr(b) = Fix(Sqr(b)) Then
Print x, y
End If
Next
Next
End Sub