江苏金晓电子怎么样:急需VB的代码(答案)题目在下面

既然不是作业，那么大家就帮帮忙吧．
1、输入一个数，求1到这个数的奇数和S
Private Sub Command1_Click()
Dim n As Integer, S As Integer
n = 1
Do While n <= Val(Text1.Text)
S = S + n
n = n + 2
Loop
Print S
End Sub
2、用键盘输入一个小于10的整数，求出该数的阶乘
Private Sub Command1_Click()
Dim n As Integer, i As Integer, S As Integer
n = Val(Text1.Text)
S = 1
If n >= 10 Then
MsgBox "请输入小于10的数。"
Exit Sub
ElseIf n = 0 Then
MsgBox n & "的阶乘为: 1"
Exit Sub
End If
For i = 1 To n
S = S * i
Next
MsgBox n & "的阶乘为:" & S
End Sub
3、利用输入窗口输入10个数，求这10个数中的最小数
Private Sub Command1_Click()
Dim a(10) As Single, min As Single
For i = 1 To 10
a(i) = Val(InputBox("请输入第 " & i & "个数", "输入"))
If i = 1 Then
min = a(i)
End If
If min > a(i) Then
min = a(i)
End If
Next
MsgBox "所输入的最小值为: " & min, , "最小值"
End Sub
4、求1~100间既能被3整除又能被7整除的数的和
Private Sub Command1_Click()
Dim i As Integer, Sum As Integer
For i = 1 To 100
If (i Mod 3 = 0) And (i Mod 7 = 0) Then
Sum = Sum + i
End If
Next
MsgBox "1~100间既能被3整除又能被7整除的数的和为: " & Sum
End Sub
5、求个位数为6，能被3整除且十位数是偶数的三位数共有几个
Private Sub Command1_Click()
Dim n000 As Integer, n00 As Integer, Sum As Integer
For n000 = 100 To 900 Step 100
For n00 = 0 To 9 Step 2
If (n000 + n00 + 6) Mod 3 = 0 Then
Sum = Sum + 1
End If
Next
Next
MsgBox "共有: " & Sum & " 个", , ""
End Sub

'到此，全部完成。

哈哈，这是作业吧，自己写吧，帮了你是害了你啊！

那么简单啊

几乎都是用循环做啊
很简单的

楼上正解！