VB考试作业 请高手帮忙!谢谢了!

来源:百度知道 编辑:UC知道 时间:2024/06/22 00:34:37
11. 在下列程序中:
Private Sub Form_Click()
For i=1 To 2
A=0
For j=1 To i+1
A=A+1
Next
Print A;
Next
End Sub
上述程序中的语句“A=A+1”执行的次数是______。
A、4 B、5 C、6 D、7

13. 在窗体上放置一个命令按钮(名称:Commandl),编写如下事件过程:
Option Base 1
Private Sub Commandl_Click()
Dim a
a=Array(1,2,3,4)
j=1
For i=Ubound(a) to Lbound(a) Step -1
s=s+a(i)*j
j=j*10
Next
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是______。
A、4321 B、12 C、34 D、1234

3. Rnd函数产生的随机数的范围为:________________,当一个应用程序不断地重复使用随机数时,同一序列的随机数会重复出现,用___________语句可以消除这种情况。产生[A,B]之间的随机整数的公式是:______________________。
4. 执行下面的程序段后,变量S的值为_______,循环变量i的值为:_______。
S=0
For i =3 to 5
i=i+1
S=S+1
Next
5. 在窗体上放置一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a = InputBox("请输入一个整数")
b = InputBox("请输入一个整数"

1)B
2)D

3) 0-1 ,Randomize, (B - A) * Rnd() + A

4) 2, 7

5) 321456

6) (Year Mod 4 = 0 And Year Mod 100 <> 0) Or Year Mod 400 = 0

11 B
13 A
3 0-1 更换每次的种子 rnd()*B/A
4 2 6

11.B