填空题

下列程序段用于计算1到20之间奇数之和与偶数之和。请填空。
x = 0:z = 0
For i = 0 To 20 Step 2
x = x + i
y = i + 1
z = y + z
Next i
【5】
Print "偶数和="; x
Print "奇数和="; z

【参考答案】

z=z-y
<上一题 目录 下一题>
热门 试题

填空题
以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。 Private Sub Command1_Click() Dim a As Integer a=0 Sum a, 1, 5, 2 Print sum of 3 = ; a a = 0 Call Sum(a, 1, 3, 5, 7, 9) Print sum of 5 = ; a End Sub Private Sub Sum(x As integer, 【3】 Dim y As Variant For 【4】 x = x + y Next y End Sub
填空题
下列程序段用于实现以下功能：随机产生一个100以内的整数，从键盘上输入一个数，计算机提示输入的数是否与随机整数一样。请填空。 Private Sub Command1_Click() RANDOMIZE a = 【1】 Do Input 请输入一个数字: , n If n = a Then Print Good! 【2】 ElseIf n＞a Then Print 大了 Else Print 小了 End If Loop End Sub
相关试题