VB的题（大家帮帮忙）

来源：百度知道 编辑：UC知道 时间：2024/09/24 13:36:36
1. 输出3 ～ 100之间的所有奇数（按每行输出10个数输出到窗体上）；
1）求奇数之和
2）统计奇数的个数
（之和与个数的信息也可显示在窗体上），

Dim i As Integer, j As Integer, S As Integer
For i = 3 To 100
If i Mod 2 = 1 Then
Print i;
S = S + i
j = j + 1
If j Mod 10 = 0 Then Print
End If
Next i
Print
Print "总计共："; j; "个，S＝"; S

Dim A As Byte, B As Byte, Cont As Byte, Sum As Integer

Private Sub Form_Load()
Form1.AutoRedraw = True
Cont = 0
Sum = 0
For A = 3 To 100
If A Mod 2 = 1 Then
Cont = Cont + 1
Sum = Sum + A
Print A;
If Cont Mod 10 = 0 Then Print
End If
Next
Print
Print "奇数个数是:"; Cont
Print "总和是:"; Sum
End Sub
已经运行过