随机产生20个两位正整数,求其中偶数的个数及和。
Private Sub Command1_Click() Dim i As Integer, count As Integer, n As Integer, sum As Integer Randomize For i = 1 To 20 n = Int(Rnd * 90 + 10) If n Mod 2 = 0 Then count = count + 1 sum = sum + n End If Next i MsgBox "count, sum = " & count & ", " & sum End Sub
云之的程序没有回答个数的问题还是后面一个更完整
trythis的回答要比云之泪的回答好,云的回答将永远不能取到99
答:你可以把程序贴上来大家分析分析详情>>
答:下图是DVB-T、DVB-C、DVB-S各自的信道编码方式:信道编码3.7伪随机序列扰码进行基带信号传输的缺点是其频谱会因数据出现连“1”和连“0”而包含大的低...详情>>
答:If Len(Inet1.OpenURL(" ")) <> 0 Or_ Len(Inet1.OpenURL(" ")) <> 0 Then MsgBox "成功...详情>>