2009年信息技术会考VB复习题(4)

不错哟

2. 下列程序运行后，变量x= D 。

Dim n,x As Integer

n=5

Private Sub Form_Load()

x=1

For i=1 To n

x=x*i

Next i

End Sub

A．5 B．15 C．24 D．120

3. 阅读以下程序

Private Sub Command1_Click()

Print “* * Hi ,”

Print “how are you * *”

End Sub * * Hi ,

how are you * *

当程序执行时，单击command1后，输出结果是__ ；

4. 阅读以下程序段

Private Sub Command1_Click()

For R =100 to 520 step 100

b1 = 255 * Rnd( )

b2 = 255 * Rnd( )

b3 = 255 * Rnd( )

Picture2.Circle(1000,1000), R,RGB(b1,b2,b3)

Next R

End Sub

当程序执行时，单击command1后，将在（何处）__1000，1000___显示___5___个颜色__不同__（填相同或不同）的同心圆。

5. 以下是求任意圆面积的程序

Private Sub Command1_Click()

R = Val(InputBox(“请输入圆的半径”,“数据输入”))

print “S=”；3.14*R*R

End Sub

在程序执行过程中单击command1时，出现了右图所示的窗口，请根据如图所示信息，在空白处补充对应的程序语句。

6.阅读程序代码并填空。

Private Sub Command1_Click()

Dim a, b As Integer

a = InputBox("a=", "输入")

b = InputBox("b=", "输入")

If a > b Then

Print a

Else: Print b

End If