VB设计程序.

来源：百度知道 编辑：UC知道 时间：2024/05/27 02:14:54
“计算1到n之间能被6整除的整数和”或“所有小于或等于n的奇数和”，这里的n由文本框1中输入，.单击“计算”按钮时，将按照选定的“计算种类”计算，并将计算结果显示在文本框2中.

Private Sub Command1_Click()
If Option1 Then
If Text1 >= 6 Then
Text2 = ((6 + 6 * (Text1 \ 6)) * (Text1 \ 6)) / 2
Else
Text2 = 0
End If
End If
If Option2 Then
If Text1 > 0 Then
If Text1 Mod 2 = 0 Then
Text2 = ((1 + Text1 - 1) * (Text1 \ 2)) / 2
Else
Text2 = ((1 + Text1) * (Text1 \ 2 + 1)) / 2
End If
Else
Text2 = 0
End If
End If

End Sub
'说明 加一个窗体 放两个option控件，两个textbox控件和一个command控件
'以上是用等差数列公式求和
'下边用循环完成
Dim I As Long
Dim Sn As Long
If Option1 Then
Sn = 0
For I = 1 To Text1
If I Mod 6 = 0 Then
Sn = Sn + I
End If
Next
Text2 = Sn
End If
If Option2 Then
Sn = 0
For I = 1 To Text1
If I Mod 2 = 1 Then
Sn = Sn + I
End If
Next
Text2 = Sn
End If

给点诚意色，意思意思么，不然么动力啊

这个比较简单,但不给分哪个做哟