99问答网
所有问题
当前搜索:
1到100的奇数vb编程
跪求
用VB编程
计算1~
100的奇数
.偶数.整数和??
答:
Private Sub Form_Load()For i = 1 To
100
sumZ = sumZ + i If i Mod 2 = 0 Then sumO = sumO + i Else sumJ = sumJ + i End If Next Text1.Text = sumZ & vbCrLf & sumJ & vbCrLf & sumO End Sub
VB
代码,计算机随机产生10个1—
100的奇数
,并由大到小输出
答:
Private Sub Form_Load()Me.Show Dim a(10) As Integer Print "随机产生的10个1-
100的奇数
:"Randomize For i = 1 To 10 a(i) = Int(100 * Rnd + 1)If a(i) Mod 2 = 0 Then a(i) = a(i) + 1 Print a(i);Next Print Print "从大到小排列:"For i = 1 To 9 For ...
VB
作业求助
答:
1、计算1-
100
间所有
奇数
(偶数)的和。Private Sub Command1_Click()For i = 1 To 99 Step 2 sumj = sumj + i Next i For j = 2 To 100 Step 2 sumo = sumo + j Next j Print "1-100间所有奇数的和:"; sumj Print "1-100间所有偶数的和:"; sumo End Sub 2、键盘输入三...
VB编程
中,从1-
100
中随机产生
一
个随机数并判断它的奇偶性。跪求各位大...
答:
Dim s As Integer = Int(Rnd() * (
100
+ 1)) If s Mod 2 Then MsgBox("
奇数
: <" & s.ToString & ">") Else MsgBox("偶数: <" & s.ToString & ">") End If
vb
中求1-
100
之间的偶数和
奇数
还有能被3和5同时整除的数的程序应该怎么编...
答:
msg =msg & i & "是
奇数
"Else msg =msg & i & "是偶数"Next i Print msg 能被3和5同时整除:For i = 1 to
100
If i/3 = i\3 And i/5 = i\5 Then msg =msg & i & "能被3和5同时整除"Else msg =msg & i & "不能被3和5同时整除"End If Next i Print msg ...
VB编程
计算0-
100
间
的奇数
和
答:
Private Sub iTest()Dim s%, i%, ms For i = 1 To
100
If i Mod 2 = 1 Then s = s + i ms = ms &
vb
Tab & i Next i ' Print "0-100间
的奇数
和为:" & s MsgBox "0-100间的奇数和为:" & s & vbCrLf & ms End Sub ...
VB编程
1~
100的奇数
和
答:
Private Sub Form_Click()Dim i, sum As IntegerFor i = 1 To 100If i Mod 2 = 1 Then sum = sum + iNextPrint "1~
100的奇数
和="; sumEnd Sub
vb编程
随机生成20个【1,
100
】以内的整数,以每行五个输出其中
的奇数
,并...
答:
b(20) As Long, c(20) As LongPrint "20个随机数:";For i = 1 To 20Randomizea = Int((Rnd *
100
) + 1)b(i) = aPrint a;Next iPrintFor i = 1 To 20If b(i) Mod 2 = 1 Thenj = j + 1c(j) = b(i)End IfNext iPrint "
奇数
有" & j & "个"For i = 1 ...
vb编程
--计算1-
100
内
的奇数
和??
答:
Private Sub Form_Click()For i = 1 To 100 Step 2 s = s + i Next Print "
1到100的奇数
和为:" & s End Sub
用vb
从1加
到100的
程序怎么写
答:
Private Sub Form_Click()Dim sum1 As Long, sum2 As Long, sum3 As Long, j As Long, n As Long For j = 1 To
100
sum1 = sum1 + j If j Mod 2 = 0 Then sum3 = sum3 + j Else sum2 = sum2 + j End If Next Me.Cls Print "整数和:"; sum1 Print "
奇数
和:"...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
其他人还搜
1到100奇数的乘积编程
编写程序1到20的奇数之和
编程1到100的偶数和是多少
编写程序求1到100的偶数和
程序1到100的奇数之和
编程一到一百的奇数和
python1到100的奇数和
编程计算1到100偶数和
用c语言输出1到100中的奇数