VB程序改错40题(10)

=======(答案1)======= x=1

=======(答案2)======= x=x*j

=========或========= x=j*x

=======(答案3)=======

C = fac(n) / fac(n - m) / fac(m) =========或=========

C = fac(n) / (fac(n - m) * fac(m)) =========或=========

C = fac(n) / ( fac(n - m) * fac(m) ) 第82题 （1.0分）

'------------------------------------------------ '【程序改错】

'------------------------------------------------

'题目：随机产生n个两位正整数（n由输入对话框输入，且n>0）， ' 求出其中的偶数之和，并在标签框Label1上显示。

'------------------------------------------------ Option Explicit

Private Sub Command1_Click() Dim n As Integer

Dim i As Integer, sum As Long Dim rnddat As Integer

n = Val(InputBox(\ '**********FOUND********** sum = n If n > 0 Then For i = 1 To n

'**********FOUND********** rnddat = (Int(90 * Rnd)) Me.Print rnddat;

'**********FOUND********** If rnddat / 2 = 0 Then sum = sum + rnddat End If Next i

Label1.Caption = sum End If End Sub

答案：

=======(答案1)======= sum=0

=======(答案2)======= rnddat = (10 + Int(90 * Rnd)) =========或=========

rnddat = ( 10 + Int(90 * Rnd))

=======(答案3)======= If rnddat Mod 2 = 0 Then =========或=========

If rnddat / 2 = int(rnddat/2) Then =========或=========

If rnddat / 2 = cint(rnddat/2) Then