南京工业大学vb期末题库(3)

for i=1 to 20 x(i)=1 print x(i) next i end sub

7、执行下面的程序，在窗体上显示的输出结果的第二行是_4 __19.5___。

Option Explicit

Dim a As Integer, b As Integer Private Sub Command1_Click( ) Dim c As Integer a = 1: b = 3: c = 5 Print fun(c) print a;b;c Print fun(c) End Sub

Private Function fun(x As Integer)As Single fun = a + b + x/2 a = a + b b = a + x x = b + a End Function

8、一个窗体上有一个命令按钮Command1，下列程序执行后，输出的结果为___2 Private Sub Command1_Click( ) Dim x As Integer x = 1 Call sort(x) Print x; call sort((x)) Print x; End Sub

Private Sub sort(y As Integer) y = y+1 End Sub

9、下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示\！+2！+3！+...+10！\的和。完善下列程序。

Private Sub Form_Click( ) Dim s As Long,I As Integer s=0

For i=1 To 10 s=s+ ___ fact(i) ___ Next i Print s

9 13____，第三行是

2______。

End Sub

Private Function fact(ByVal n As Integer)As Long Dim i As Integer,f As Long f=1 For i=2 To n f=f*i Next i

___fact=f ______ End Function

参考答案

1.c,2.d,3.c,4.b,5.b,6.b,7.c,8.a,9.d,10.b,11.c,12.b,13.a,14.a,15.d,16.b,17.b,18.c,19.c,20.a,21.c,22.b,23.b,24.a,25.b,26.a,27.d,28.c,29.c,30.d,31.a,32.d,33.b,34.d,35.c,36.a,37.d,38.b,39.b,40.d

1.字符串型,2.c=1,c=a,3.Int(Rnd*900)+100,n1=n1+1,4.3 To 5,P(i - 1, j - 1) + P(i - 1, j),5.循环结构,6.dim x(),x(1 to 20),7.4 9 13,19.5,8.2 2,9.fact(i),fact=f

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库南京工业大学vb期末题库(3)在线全文阅读。