南京工业大学练习卷066

练习卷066

满分：126分

姓名：________

1. 当sub过程value形参表中存在byval关键字时，执行本程序，单击窗体在窗体上显示的第一行内容是____(1)______；若将形参表的byval关键字删掉，在执行本程序，单击窗体后在窗体上显示的第一行内容是____(2)________ ；第二行内容是 ____(3)_______ 。

Private Sub value(ByVal m As Integer, ByVal n As Integer) m = m * 2 n = n - 5

Print \End Sub

Private Sub Form_Click()

Dim x As Integer, y As Integer x = 10: y = 15 Call value(x, y)

Print \End Sub

答案： (1) , (2) , (3) (6分)

2. 运行下面程序，当单击窗体时，窗体上显示的内容的第一行是____(1)_______，第二行是_____(2)_______。 Private Sub test(x As Integer) x = x * 2 + 1 If x < 6 Then Call test(6) End If

x = x * 2 + 1 Form1.Print x End Sub

Private Sub Form_Click() test 2 End Sub

答案： (1) , (2) (4分)

3. 添加按钮Command1和文本框Text1,并编写下列代码。执行程序单击命令按钮后,Text1中是 (1)；将A、B语句交换位置,执行程序单击命令按钮后,Text1中是 (2) 。 Option Explicit

Sub abc(k,x)

Dim i As Integer x=1

For i=1 To k x=x*i Next i End Sub

Private Sub Command1_Click()

Dim n As Integer,i As Integer,x As Integer n=0:x=0

For i=1 To 3

Call abc(i,x) 'A语句 n=n+x 'B语句 Next i

Text1.Text=\End Sub

答案： (1) , (2) (4分)

4. 运行下面程序，单击命令按钮Command1，则在窗体上显示的内容是 ______ 。 Private Sub Command1_Click( ) Dim x As Long,n As Integer x=33:n=5 y=ret(x,n) Print y End Sub

Private Function ret(S As Long,L As Integer)As Long If L>1 Then ret=ret(S,L-1) S=S+2 ret=S

End Function

答案： (1) (2分)

5. 下列程序的功能是：当发生窗体的单击事件后，将在窗体上显示“1！

+2！+3！+?+10！的和。完善下列程序。 Private Sub Form_Click( ) Dim s As Long,I As Integer

s=0

For i=1 To 10 s=s+ __(1)___ Next i Print s 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 ___(2)___ End Function

答案： (1) , (2) (4分)

6. 表示“x和y都是正整数或都是负整数”的VB表达式为____ 。

答案： (1) (2分)

7. 表示“x+y小于10，且x–y要大于0”的VB表达式为 _____。

答案： (1) (2分)

8. 用二分法求函数f(x)=x^3–6x–1=0 在x=2～5 范围内的x=2附近的一个实根，其计算误差为|xl–x2|＜10^(–6)。完善下列程序。 Private Sub Command1_Click ( )

Dim V0 As Singke, v As Single, s As String

Dim x As Single, t As Single, x1 As Single, x2 As Single x1=0: x2=5

Do While ______ x = (x1+x2)/2

If Sgn9(f1(x)) = 1 Then x2 = x Else x1 = x End If Loop

Print \End Sub

Private Function f1(x As Single) As Single f1 = x * x * x -6 * x–1 End Function

答案： (1) (2分)

9. 在Visual Basic的中断模式下，要想“逐语句”调试程序可按

___(1)___ 键，要想“逐过程”调试程序可按___(2)___ 键。

答案： (1) , (2) (4分)

10. Visual Basic程序在运行时中，用户可通过按 ____键进入中断状

态。

答案： (1) (2分)

11. Visual Basic有三种运行模式，分别是__(1)___ 、运行模式和中

断模式，其中__(2)__ 模式可以监视表达式和变量的值。

答案： (1) , (2) (4分)

12. ____的功能显示当前过程的有关信息，当测试一个过程时，可在其

中输入代码并立即执行。

答案： (1) (2分)

13. _____的功能是查看指定表达式的值。

答案： (1) (2分)

14. 要运行VB的程序可以按__(1)__ 键。

答案： (1) (2分)

15. 下程序的功能是找出此数各位数字的阶乘相加之和等于该数，并在

列表框List1中显示。阶乘由Function计算。在(1)、(2)处填上正确内容。

Private Sub Command1_Click( ) For k=1 To 1000 a=LTrim(Str(k)) n=0

For i=1 To Len(a) p=Val(Mid(a,i,1)) n=n+fact(p) Next i

If n=k Then (1) Next k End Sub

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库南京工业大学练习卷066在线全文阅读。